Package: guix-patches;
Reported by: tumashu <at> 163.com
Date: Wed, 25 Jan 2023 11:16:01 UTC
Severity: normal
Tags: patch
Done: 宋文武 <iyzsong <at> envs.net>
Bug is archived. No further changes may be made.
To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 61056 in the body.
You can then email your comments to 61056 AT debbugs.gnu.org in the normal way.
Toggle the display of automated, internal messages from the tracker.
View this report as an mbox folder, status mbox, maintainer mbox
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Wed, 25 Jan 2023 11:16:02 GMT) Full text and rfc822 format available.tumashu <at> 163.com:guix-patches <at> gnu.org.
(Wed, 25 Jan 2023 11:16:02 GMT) Full text and rfc822 format available.Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):
From: tumashu <at> 163.com To: guix-patches <at> gnu.org Cc: Feng Shu <tumashu <at> 163.com> Subject: [PATCH] gnu: Add jwm. Date: Wed, 25 Jan 2023 19:15:14 +0800
From: Feng Shu <tumashu <at> 163.com>
* gnu/packages/wm.scm (jwm): New variable.
---
gnu/packages/wm.scm | 62 +++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 62 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index a860ed1f93..1fb2b46efc 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -108,6 +108,7 @@ (define-module (gnu packages wm)
#:use-module (gnu packages freedesktop)
#:use-module (gnu packages fribidi)
#:use-module (gnu packages gawk)
+ #:use-module (gnu packages gettext)
#:use-module (gnu packages gl)
#:use-module (gnu packages glib)
#:use-module (gnu packages gperf)
@@ -2793,6 +2794,67 @@ (define-public hikari
capabilities. It is heavily inspired by the Calm Window manager(cwm).")
(license license:bsd-2)))
+(define-public jwm
+ (package
+ (name "jwm")
+ (version "2.4.4")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/joewing/jwm")
+ (commit "4640d3b48ea64bd57e3cea63e4c4a9cd558e6142")))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0xwk54y8q12y3cvbgrjhda6g4jd5f57bvyasyb9qdbczzxfhvxqw"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (xsessions (string-append out "/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append xsessions "/jwm.desktop")
+ (lambda (port)
+ (format port "~
+ [Desktop Entry]~@
+ Name=jwm~@
+ Comment=Joe's Window Manager~@
+ Exec=~a/bin/jwm~@
+ Type=XSession~%" out))))
+ #t)))))
+ (native-inputs
+ (list autoconf
+ automake
+ gettext-minimal
+ pkg-config))
+ (inputs
+ (list cairo
+ libjpeg-turbo
+ libpng
+ librsvg
+ libxext
+ libxinerama
+ libxmu
+ libxpm
+ libxrandr
+ libxt
+ pango))
+ (home-page "http://joewing.net/projects/jwm")
+ (synopsis "Joe's Window Manager")
+ (description
+ "JWM is a light-weight window manager for the X11 Window System. it is
+written in C and uses only Xlib at a minimum. Because of its small footprint,
+it makes a good window manager for older computers and less powerful systems,
+such as the Raspberry Pi, though it is perfectly capable of running on modern
+systems.")
+ (license license:expat)))
+
(define-public devour
(package
(name "devour")
--
2.39.1
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Fri, 27 Jan 2023 11:06:01 GMT) Full text and rfc822 format available.Message #8 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: tumashu <at> 163.com To: 61056 <at> debbugs.gnu.org Cc: Feng Shu <tumashu <at> 163.com> Subject: [PATCH v2] gnu: Add jwm. Date: Fri, 27 Jan 2023 19:05:17 +0800
From: Feng Shu <tumashu <at> 163.com>
* gnu/packages/wm.scm (jwm): New variable.
---
gnu/packages/wm.scm | 56 +++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 56 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index a860ed1f93..8aba0c615c 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2793,6 +2793,62 @@ (define-public hikari
capabilities. It is heavily inspired by the Calm Window manager(cwm).")
(license license:bsd-2)))
+(define-public jwm
+ (package
+ (name "jwm")
+ (version "2.4.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/joewing/jwm/releases/download/"
+ "v" version "/jwm-" version ".tar.xz"))
+ (sha256
+ (base32
+ "1av7r9sp26r5l74zvwdmyyyzav29mw5bafihp7y33vsjqkh4wfzf"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (xsessions (string-append out "/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append xsessions "/jwm.desktop")
+ (lambda (port)
+ (format port "~
+ [Desktop Entry]~@
+ Name=jwm~@
+ Comment=Joe's Window Manager~@
+ Exec=~a/bin/jwm~@
+ Type=XSession~%" out))))
+ #t)))))
+ (native-inputs (list pkg-config))
+ (inputs
+ (list cairo
+ libjpeg-turbo
+ libpng
+ librsvg
+ libxext
+ libxinerama
+ libxmu
+ libxpm
+ libxrandr
+ libxt
+ pango))
+ (home-page "http://joewing.net/projects/jwm")
+ (synopsis "Joe's Window Manager")
+ (description
+ "JWM is a light-weight window manager for the X11 Window System. it is
+written in C and uses only Xlib at a minimum. Because of its small footprint,
+it makes a good window manager for older computers and less powerful systems,
+such as the Raspberry Pi, though it is perfectly capable of running on modern
+systems.")
+ (license license:expat)))
+
(define-public devour
(package
(name "devour")
--
2.39.1
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Fri, 27 Jan 2023 11:08:02 GMT) Full text and rfc822 format available.Message #11 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 61056 <at> debbugs.gnu.org Subject: jwm version Date: Fri, 27 Jan 2023 19:07:11 +0800
from: https://github.com/joewing/jwm/issues/596 I know the newest version is 2.4.3 instead of 2.4.4 --
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Sat, 28 Jan 2023 11:39:02 GMT) Full text and rfc822 format available.Message #14 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: tumashu <at> 163.com To: 61056 <at> debbugs.gnu.org Cc: Feng Shu <tumashu <at> 163.com> Subject: [PATCH] gnu: Add mjwm. Date: Sat, 28 Jan 2023 19:37:57 +0800
From: Feng Shu <tumashu <at> 163.com>
* gnu/packages/wm.scm (mjwm): New variable.
---
gnu/packages/wm.scm | 21 +++++++++++++++++++++
1 file changed, 21 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 8aba0c615c..1dc923eee5 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2849,6 +2849,27 @@ (define-public jwm
systems.")
(license license:expat)))
+(define-public mjwm
+ (package
+ (name "mjwm")
+ (version "4.1.0")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/chiku/mjwm/archive/refs/tags/"
+ "v" version ".tar.gz"))
+ (sha256
+ (base32
+ "0q1n3jw22hjzas7q75nb0zkw1875kf4k518f8zg13h7si2knyxy3"))))
+ (build-system gnu-build-system)
+ (home-page "https://github.com/chiku/mjwm")
+ (synopsis "Create menu for JWM.")
+ (description
+ "Mjwm can create JWM's menu from (freedesktop) desktop files and the
+generated file can be include in the rootmenu section of your jwm config
+file.")
+ (license license:gpl2)))
+
(define-public devour
(package
(name "devour")
--
2.39.1
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Sun, 29 Jan 2023 11:14:01 GMT) Full text and rfc822 format available.Message #17 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: tumashu <at> 163.com To: 61056 <at> debbugs.gnu.org Cc: Feng Shu <tumashu <at> 163.com> Subject: [PATCH v3 1/2] gnu: Add jwm. Date: Sun, 29 Jan 2023 19:12:48 +0800
From: Feng Shu <tumashu <at> 163.com>
* gnu/packages/wm.scm (jwm): New variable.
---
gnu/packages/wm.scm | 88 +++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 88 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index a860ed1f93..d4c82fb2a3 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2793,6 +2793,94 @@ (define-public hikari
capabilities. It is heavily inspired by the Calm Window manager(cwm).")
(license license:bsd-2)))
+(define-public jwm
+ (package
+ (name "jwm")
+ (version "2.4.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/joewing/jwm/releases/download/"
+ "v" version "/jwm-" version ".tar.xz"))
+ (sha256
+ (base32
+ "1av7r9sp26r5l74zvwdmyyyzav29mw5bafihp7y33vsjqkh4wfzf"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-example.jwmrc
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "example.jwmrc"
+ ;; Ignore existing menus in example.jwmrc.
+ (("<Menu ") "<!-- <Menu ")
+ (("</Menu>") "</Menu> -->")
+ ;; Adjust xterm path in terminal menu item.
+ ((">xterm</Program>")
+ (string-append
+ ">" (search-input-file inputs "/bin/xterm")
+ "</Program>"))
+ ;; Replace xscreensaver with xlock, which has been configured
+ ;; well by desktop-service.
+ (("xscreensaver-command -lock") "xlock")
+ ;; Adjust icons search paths.
+ (("/usr/local/share/jwm")
+ (string-append #$output "/share/jwm"))
+ (("/usr/local/share/icons")
+ "/run/current-system/profile/share/icons")
+ ;; Include menu created by mjwm command.
+ (("<RootMenu .*>" all)
+ (string-append
+ all "\n "
+ "<Program icon=\"jwm-red\" label=\"Update JWM Menu\">"
+ (search-input-file inputs "/bin/mjwm")
+ " --iconize --no-backup "
+ " --output-file $HOME/.jwmrc-mjwm-guix"
+ "</Program>\n "
+ "<Separator/>\n "
+ "<Include>$HOME/.jwmrc-mjwm-guix</Include>\n")))))
+ (add-after 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (xsessions (string-append out "/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append xsessions "/jwm.desktop")
+ (lambda (port)
+ (format port "~
+ [Desktop Entry]~@
+ Name=jwm~@
+ Comment=Joe's Window Manager~@
+ Exec=~a/bin/jwm~@
+ Type=XSession~%" out))))
+ #t)))))
+ (native-inputs (list pkg-config))
+ (inputs
+ (list cairo
+ libjpeg-turbo
+ libpng
+ librsvg
+ libxext
+ libxinerama
+ libxmu
+ libxpm
+ libxrandr
+ libxt
+ mjwm
+ pango
+ xterm))
+ (home-page "http://joewing.net/projects/jwm")
+ (synopsis "Joe's Window Manager")
+ (description
+ "JWM is a light-weight window manager for the X11 Window System. it is
+written in C and uses only Xlib at a minimum. Because of its small footprint,
+it makes a good window manager for older computers and less powerful systems,
+such as the Raspberry Pi, though it is perfectly capable of running on modern
+systems.")
+ (license license:expat)))
+
(define-public devour
(package
(name "devour")
--
2.39.1
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Sun, 29 Jan 2023 11:14:02 GMT) Full text and rfc822 format available.Message #20 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: tumashu <at> 163.com To: 61056 <at> debbugs.gnu.org Cc: Feng Shu <tumashu <at> 163.com> Subject: [PATCH v3 2/2] gnu: Add mjwm. Date: Sun, 29 Jan 2023 19:12:49 +0800
From: Feng Shu <tumashu <at> 163.com>
* gnu/packages/wm.scm (mjwm): New variable.
---
gnu/packages/wm.scm | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index d4c82fb2a3..09d0e964ff 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2881,6 +2881,28 @@ (define-public jwm
systems.")
(license license:expat)))
+(define-public mjwm
+ (package
+ (name "mjwm")
+ (version "4.1.0")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/chiku/mjwm")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0lgfp2xidhvmbj4zqvzz9g8zwbn6mz0pgacc57b43ha523vamsjq"))))
+ (build-system gnu-build-system)
+ (home-page "https://github.com/chiku/mjwm")
+ (synopsis "Create menu for JWM.")
+ (description
+ "MJWM can create JWM's menu from (freedesktop) desktop files and the
+generated file can be include in the rootmenu section of your jwm config
+file.")
+ (license license:gpl2)))
+
(define-public devour
(package
(name "devour")
--
2.39.1
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 30 Jan 2023 01:28:02 GMT) Full text and rfc822 format available.Message #23 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 61056 <at> debbugs.gnu.org Subject: [PATCH v4 1/2] gnu: Add jwm. Date: Sun, 29 Jan 2023 19:12:48 +0800
* gnu/packages/wm.scm (jwm): New variable.
---
gnu/packages/wm.scm | 89 +++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 89 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 2fd70af07f..469bc00d75 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2764,6 +2764,95 @@ read and write, and compatible with JSON.")
capabilities. It is heavily inspired by the Calm Window manager(cwm).")
(license license:bsd-2)))
+(define-public jwm
+ (package
+ (name "jwm")
+ (version "2.4.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/joewing/jwm/releases/download/"
+ "v" version "/jwm-" version ".tar.xz"))
+ (sha256
+ (base32
+ "1av7r9sp26r5l74zvwdmyyyzav29mw5bafihp7y33vsjqkh4wfzf"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-example.jwmrc
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "example.jwmrc"
+ ;; Ignore existing menus in example.jwmrc.
+ (("<Menu ") "<!-- <Menu ")
+ (("</Menu>") "</Menu> -->")
+ ;; Adjust xterm path in terminal menu item.
+ ((">xterm</Program>")
+ (string-append
+ ">" (search-input-file inputs "/bin/xterm")
+ "</Program>"))
+ ;; Replace xscreensaver with xlock, which has been configured
+ ;; well by desktop-service.
+ (("xscreensaver-command -lock") "xlock")
+ ;; Adjust icons search paths.
+ (("/usr/local/share/jwm")
+ (string-append #$output "/share/jwm"))
+ (("/usr/local/share/icons")
+ "/run/current-system/profile/share/icons")
+ ;; Include menu created by mjwm command.
+ (("<RootMenu .*>" all)
+ (string-append
+ all "\n "
+ "<Program icon=\"jwm-red\" label=\"Update JWM Menu\">"
+ (search-input-file inputs "/bin/mjwm")
+ " --iconize=Adwaita --no-backup "
+ " --output-file $HOME/.jwmrc-mjwm-guix"
+ "</Program>\n "
+ "<Dynamic icon=\"folder\" label=\"Applications\">"
+ "$HOME/.jwmrc-mjwm-guix"
+ "</Dynamic>\n")))))
+ (add-after 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (xsessions (string-append out "/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append xsessions "/jwm.desktop")
+ (lambda (port)
+ (format port "~
+ [Desktop Entry]~@
+ Name=jwm~@
+ Comment=Joe's Window Manager~@
+ Exec=~a/bin/jwm~@
+ Type=XSession~%" out))))
+ #t)))))
+ (native-inputs (list pkg-config))
+ (inputs
+ (list cairo
+ libjpeg-turbo
+ libpng
+ librsvg
+ libxext
+ libxinerama
+ libxmu
+ libxpm
+ libxrandr
+ libxt
+ mjwm
+ pango
+ xterm))
+ (home-page "http://joewing.net/projects/jwm")
+ (synopsis "Joe's Window Manager")
+ (description
+ "JWM is a light-weight window manager for the X11 Window System. it is
+written in C and uses only Xlib at a minimum. Because of its small footprint,
+it makes a good window manager for older computers and less powerful systems,
+such as the Raspberry Pi, though it is perfectly capable of running on modern
+systems.")
+ (license license:expat)))
+
(define-public devour
(package
(name "devour")
--
2.30.2
--
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 30 Jan 2023 01:28:03 GMT) Full text and rfc822 format available.Message #26 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 61056 <at> debbugs.gnu.org Subject: [PATCH v4 2/2] gnu: Add mjwm. Date: Sun, 29 Jan 2023 19:12:49 +0800
* gnu/packages/wm.scm (mjwm): New variable.
---
gnu/packages/wm.scm | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 469bc00d75..82c8a74a35 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2853,6 +2853,28 @@ such as the Raspberry Pi, though it is perfectly capable of running on modern
systems.")
(license license:expat)))
+(define-public mjwm
+ (package
+ (name "mjwm")
+ (version "4.1.0")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/chiku/mjwm")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0lgfp2xidhvmbj4zqvzz9g8zwbn6mz0pgacc57b43ha523vamsjq"))))
+ (build-system gnu-build-system)
+ (home-page "https://github.com/chiku/mjwm")
+ (synopsis "Create menu for JWM.")
+ (description
+ "MJWM can create JWM's menu from (freedesktop) desktop files and the
+generated file can be include in the rootmenu section of your jwm config
+file.")
+ (license license:gpl2)))
+
(define-public devour
(package
(name "devour")
--
2.30.2
--
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Sat, 11 Feb 2023 02:31:02 GMT) Full text and rfc822 format available.Message #29 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: tumashu <at> 163.com To: 61056 <at> debbugs.gnu.org Cc: Feng Shu <tumashu <at> 163.com> Subject: [PATCH v5 1/2] gnu: Add jwm. Date: Sat, 11 Feb 2023 10:30:38 +0800
From: Feng Shu <tumashu <at> 163.com>
* gnu/packages/wm.scm (jwm): New variable.
---
gnu/packages/wm.scm | 104 ++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 104 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 2fd70af07f..0881ba40d5 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2764,6 +2764,110 @@ (define-public hikari
capabilities. It is heavily inspired by the Calm Window manager(cwm).")
(license license:bsd-2)))
+(define-public jwm
+ (package
+ (name "jwm")
+ (version "2.4.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/joewing/jwm/releases/download/"
+ "v" version "/jwm-" version ".tar.xz"))
+ (sha256
+ (base32
+ "1av7r9sp26r5l74zvwdmyyyzav29mw5bafihp7y33vsjqkh4wfzf"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-example.jwmrc
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "example.jwmrc"
+ ;; Ignore existing menus in example.jwmrc.
+ (("<Menu ") "<!-- <Menu ")
+ (("</Menu>") "</Menu> -->")
+ ;; Adjust xterm path in terminal menu item.
+ ((">xterm</Program>")
+ (string-append
+ ">" (search-input-file inputs "/bin/xterm")
+ "</Program>"))
+ ;; Replace xscreensaver with xlock, which has been configured
+ ;; well by desktop-service.
+ (("xscreensaver-command -lock") "xlock")
+ ;; Adjust icons search paths.
+ (("/usr/local/share/jwm")
+ (string-append #$output "/share/jwm"))
+ (("/usr/local/share/icons")
+ "/run/current-system/profile/share/icons")
+ ;; Include menu created by mjwm command.
+ (("<RootMenu .*>" all)
+ (string-append
+ all "\n "
+ "<Program icon=\"jwm-red\" label=\"Update JWM Menu\">"
+ (search-input-file inputs "/bin/mjwm")
+ " --iconize --no-backup "
+ " --output-file $HOME/.jwmrc-mjwm-guix"
+ "</Program>\n "
+ "<Dynamic icon=\"folder\" label=\"Applications\">"
+ "$HOME/.jwmrc-mjwm-guix"
+ "</Dynamic>\n")))))
+ (add-after 'install 'install-tango-icon-files
+ ;; Copy icon files used by example.jwm to share/jwm dir, this way
+ ;; may be better than adding tango-icon-theme to inputs.
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((icon-dir (search-input-directory
+ inputs "share/icons/Tango/scalable"))
+ (icon-install-dir (string-append #$output "/share/jwm")))
+ (for-each
+ (lambda (icon)
+ (for-each (lambda (icon-file)
+ (install-file icon-file icon-install-dir))
+ (find-files icon-dir (string-append "^" icon "\\.svg$"))))
+ '("applications-.*" "calc" "email" "exit" "folder"
+ "font" "gnome-settings" "image" "info" "lock"
+ "reload" "sound" "system-file-manager"
+ "utilities-terminal" "web-browser" )))))
+ (add-after 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (xsessions (string-append out "/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append xsessions "/jwm.desktop")
+ (lambda (port)
+ (format port "~
+ [Desktop Entry]~@
+ Name=jwm~@
+ Comment=Joe's Window Manager~@
+ Exec=~a/bin/jwm~@
+ Type=XSession~%" out)))))))))
+ (native-inputs (list pkg-config tango-icon-theme))
+ (inputs
+ (list cairo
+ libjpeg-turbo
+ libpng
+ librsvg
+ libxext
+ libxinerama
+ libxmu
+ libxpm
+ libxrandr
+ libxt
+ mjwm
+ pango
+ xterm))
+ (home-page "http://joewing.net/projects/jwm")
+ (synopsis "Joe's Window Manager")
+ (description
+ "JWM is a light-weight window manager for the X11 Window System. it is
+written in C and uses only Xlib at a minimum. Because of its small footprint,
+it makes a good window manager for older computers and less powerful systems,
+such as the Raspberry Pi, though it is perfectly capable of running on modern
+systems.")
+ (license license:expat)))
+
(define-public devour
(package
(name "devour")
--
2.39.1
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Sat, 11 Feb 2023 02:31:02 GMT) Full text and rfc822 format available.Message #32 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: tumashu <at> 163.com To: 61056 <at> debbugs.gnu.org Cc: Feng Shu <tumashu <at> 163.com> Subject: [PATCH v5 2/2] gnu: Add mjwm. Date: Sat, 11 Feb 2023 10:30:39 +0800
From: Feng Shu <tumashu <at> 163.com>
* gnu/packages/wm.scm (mjwm): New variable.
---
gnu/packages/wm.scm | 22 ++++++++++++++++++++++
1 file changed, 22 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 0881ba40d5..1e9f6ad65f 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2868,6 +2868,28 @@ (define-public jwm
systems.")
(license license:expat)))
+(define-public mjwm
+ (package
+ (name "mjwm")
+ (version "4.1.0")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/chiku/mjwm")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0lgfp2xidhvmbj4zqvzz9g8zwbn6mz0pgacc57b43ha523vamsjq"))))
+ (build-system gnu-build-system)
+ (home-page "https://github.com/chiku/mjwm")
+ (synopsis "Create menu for JWM.")
+ (description
+ "MJWM can create JWM's menu from (freedesktop) desktop files and the
+generated file can be include in the rootmenu section of your jwm config
+file.")
+ (license license:gpl2)))
+
(define-public devour
(package
(name "devour")
--
2.39.1
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Sat, 11 Feb 2023 02:57:01 GMT) Full text and rfc822 format available.Message #35 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: tumashu <at> 163.com To: 61056 <at> debbugs.gnu.org Cc: Feng Shu <tumashu <at> 163.com> Subject: [PATCH v6 1/2] gnu: Add jwm. Date: Sat, 11 Feb 2023 10:55:47 +0800
From: Feng Shu <tumashu <at> 163.com>
* gnu/packages/wm.scm (jwm): New variable.
---
gnu/packages/wm.scm | 104 ++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 104 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 2fd70af07f..0881ba40d5 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2764,6 +2764,110 @@ (define-public hikari
capabilities. It is heavily inspired by the Calm Window manager(cwm).")
(license license:bsd-2)))
+(define-public jwm
+ (package
+ (name "jwm")
+ (version "2.4.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/joewing/jwm/releases/download/"
+ "v" version "/jwm-" version ".tar.xz"))
+ (sha256
+ (base32
+ "1av7r9sp26r5l74zvwdmyyyzav29mw5bafihp7y33vsjqkh4wfzf"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-example.jwmrc
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "example.jwmrc"
+ ;; Ignore existing menus in example.jwmrc.
+ (("<Menu ") "<!-- <Menu ")
+ (("</Menu>") "</Menu> -->")
+ ;; Adjust xterm path in terminal menu item.
+ ((">xterm</Program>")
+ (string-append
+ ">" (search-input-file inputs "/bin/xterm")
+ "</Program>"))
+ ;; Replace xscreensaver with xlock, which has been configured
+ ;; well by desktop-service.
+ (("xscreensaver-command -lock") "xlock")
+ ;; Adjust icons search paths.
+ (("/usr/local/share/jwm")
+ (string-append #$output "/share/jwm"))
+ (("/usr/local/share/icons")
+ "/run/current-system/profile/share/icons")
+ ;; Include menu created by mjwm command.
+ (("<RootMenu .*>" all)
+ (string-append
+ all "\n "
+ "<Program icon=\"jwm-red\" label=\"Update JWM Menu\">"
+ (search-input-file inputs "/bin/mjwm")
+ " --iconize --no-backup "
+ " --output-file $HOME/.jwmrc-mjwm-guix"
+ "</Program>\n "
+ "<Dynamic icon=\"folder\" label=\"Applications\">"
+ "$HOME/.jwmrc-mjwm-guix"
+ "</Dynamic>\n")))))
+ (add-after 'install 'install-tango-icon-files
+ ;; Copy icon files used by example.jwm to share/jwm dir, this way
+ ;; may be better than adding tango-icon-theme to inputs.
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((icon-dir (search-input-directory
+ inputs "share/icons/Tango/scalable"))
+ (icon-install-dir (string-append #$output "/share/jwm")))
+ (for-each
+ (lambda (icon)
+ (for-each (lambda (icon-file)
+ (install-file icon-file icon-install-dir))
+ (find-files icon-dir (string-append "^" icon "\\.svg$"))))
+ '("applications-.*" "calc" "email" "exit" "folder"
+ "font" "gnome-settings" "image" "info" "lock"
+ "reload" "sound" "system-file-manager"
+ "utilities-terminal" "web-browser" )))))
+ (add-after 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (xsessions (string-append out "/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append xsessions "/jwm.desktop")
+ (lambda (port)
+ (format port "~
+ [Desktop Entry]~@
+ Name=jwm~@
+ Comment=Joe's Window Manager~@
+ Exec=~a/bin/jwm~@
+ Type=XSession~%" out)))))))))
+ (native-inputs (list pkg-config tango-icon-theme))
+ (inputs
+ (list cairo
+ libjpeg-turbo
+ libpng
+ librsvg
+ libxext
+ libxinerama
+ libxmu
+ libxpm
+ libxrandr
+ libxt
+ mjwm
+ pango
+ xterm))
+ (home-page "http://joewing.net/projects/jwm")
+ (synopsis "Joe's Window Manager")
+ (description
+ "JWM is a light-weight window manager for the X11 Window System. it is
+written in C and uses only Xlib at a minimum. Because of its small footprint,
+it makes a good window manager for older computers and less powerful systems,
+such as the Raspberry Pi, though it is perfectly capable of running on modern
+systems.")
+ (license license:expat)))
+
(define-public devour
(package
(name "devour")
--
2.39.1
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Sat, 11 Feb 2023 02:57:02 GMT) Full text and rfc822 format available.Message #38 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: tumashu <at> 163.com To: 61056 <at> debbugs.gnu.org Cc: Feng Shu <tumashu <at> 163.com> Subject: [PATCH v6 2/2] gnu: Add mjwm. Date: Sat, 11 Feb 2023 10:55:48 +0800
From: Feng Shu <tumashu <at> 163.com>
* gnu/packages/wm.scm (mjwm): New variable.
---
gnu/packages/wm.scm | 33 +++++++++++++++++++++++++++++++++
1 file changed, 33 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 0881ba40d5..1925091ba2 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2868,6 +2868,39 @@ (define-public jwm
systems.")
(license license:expat)))
+(define-public mjwm
+ (package
+ (name "mjwm")
+ (version "4.1.0")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/chiku/mjwm")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0lgfp2xidhvmbj4zqvzz9g8zwbn6mz0pgacc57b43ha523vamsjq"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-subcategory.h
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "include/subcategory.h"
+ ;; icon name should be application-other instead of
+ ;; application-others.
+ (("applications-others") "applications-other")))))))
+ (home-page "https://github.com/chiku/mjwm")
+ (synopsis "Create menu for JWM.")
+ (description
+ "MJWM can create JWM's menu from (freedesktop) desktop files and the
+generated file can be include in the rootmenu section of your jwm config
+file.")
+ (license license:gpl2)))
+
(define-public devour
(package
(name "devour")
--
2.39.1
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 13 Feb 2023 07:17:01 GMT) Full text and rfc822 format available.Message #41 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 61056 <at> debbugs.gnu.org Subject: [PATCH v7 1/2] gnu: Add jwm. Date: Mon, 13 Feb 2023 15:16:27 +0800
[v7-0001-gnu-Add-jwm.patch (text/x-diff, inline)]
From 455305ffd5f4e0bca239c8fc0f65f0a1f36ba8d0 Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu <at> 163.com>
Date: Sat, 11 Feb 2023 10:55:47 +0800
Subject: [PATCH v7 1/2] gnu: Add jwm.
* gnu/packages/wm.scm (jwm): New variable.
---
gnu/packages/wm.scm | 107 ++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 107 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 37fbf88e99..14dc3a0988 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2904,6 +2904,113 @@ read and write, and compatible with JSON.")
capabilities. It is heavily inspired by the Calm Window manager(cwm).")
(license license:bsd-2)))
+(define-public jwm
+ (package
+ (name "jwm")
+ (version "2.4.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/joewing/jwm/releases/download/"
+ "v" version "/jwm-" version ".tar.xz"))
+ (sha256
+ (base32
+ "1av7r9sp26r5l74zvwdmyyyzav29mw5bafihp7y33vsjqkh4wfzf"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-example.jwmrc
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "example.jwmrc"
+ ;; Ignore existing menus in example.jwmrc.
+ (("<Menu ") "<!-- <Menu ")
+ (("</Menu>") "</Menu> -->")
+ ;; Adjust xterm path in terminal menu item.
+ ((">xterm</Program>")
+ (string-append
+ ">" (search-input-file inputs "/bin/xterm")
+ "</Program>"))
+ ;; Replace xscreensaver with xlock, which has been configured
+ ;; well by desktop-service.
+ (("xscreensaver-command -lock") "xlock")
+ ;; Adjust icons search paths.
+ (("/usr/local/share/jwm")
+ (string-append #$output "/share/jwm"))
+ (("/usr/local/share/icons")
+ "/run/current-system/profile/share/icons")
+ ;; Include menu created by mjwm command.
+ (("<RootMenu .*>" all)
+ (string-append
+ all "\n "
+ "<Program icon=\"jwm-red\" label=\"Update JWM Menu\">"
+ (search-input-file inputs "/bin/mjwm")
+ " --iconize --no-backup "
+ " --output-file $HOME/.jwmrc-mjwm-guix"
+ "</Program>\n "
+ "<Dynamic icon=\"folder\" label=\"Applications\">"
+ "$HOME/.jwmrc-mjwm-guix"
+ "</Dynamic>\n")))))
+ (add-after 'install 'install-tango-icon-files
+ ;; Copy icon files used by example.jwm to share/jwm dir, this way
+ ;; may be better than adding tango-icon-theme to inputs.
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((icon-dir (search-input-directory
+ inputs "share/icons/Tango/scalable"))
+ (icon-install-dir (string-append #$output "/share/jwm")))
+ (for-each
+ (lambda (icon)
+ (for-each (lambda (icon-file)
+ (install-file icon-file icon-install-dir))
+ (find-files icon-dir (string-append "^" icon "\\.svg$"))))
+ '("calc" "email" "exit" "folder" "font" "help-browser"
+ "image" "info" "lock" "reload" "sound"
+ "system-file-manager" "utilities-terminal"
+ "web-browser" "gnome-settings" "applications-.*"))
+ (with-directory-excursion icon-install-dir
+ ;; tango-icon-theme have no applications-science icon.
+ (copy-file "help-browser.svg" "applications-science.svg")))))
+ (add-after 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (xsessions (string-append out "/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append xsessions "/jwm.desktop")
+ (lambda (port)
+ (format port "~
+ [Desktop Entry]~@
+ Name=jwm~@
+ Comment=Joe's Window Manager~@
+ Exec=~a/bin/jwm~@
+ Type=XSession~%" out)))))))))
+ (native-inputs (list pkg-config tango-icon-theme))
+ (inputs
+ (list cairo
+ libjpeg-turbo
+ libpng
+ librsvg
+ libxext
+ libxinerama
+ libxmu
+ libxpm
+ libxrandr
+ libxt
+ mjwm
+ pango
+ xterm))
+ (home-page "http://joewing.net/projects/jwm")
+ (synopsis "Joe's Window Manager")
+ (description
+ "JWM is a light-weight window manager for the X11 Window System. it is
+written in C and uses only Xlib at a minimum. Because of its small footprint,
+it makes a good window manager for older computers and less powerful systems,
+such as the Raspberry Pi, though it is perfectly capable of running on modern
+systems.")
+ (license license:expat)))
+
(define-public devour
(package
(name "devour")
--
2.30.2
[Message part 2 (text/plain, inline)]
--
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 13 Feb 2023 07:18:02 GMT) Full text and rfc822 format available.Message #44 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 61056 <at> debbugs.gnu.org Subject: [PATCH v7 2/2] gnu: Add mjwm. Date: Mon, 13 Feb 2023 15:17:08 +0800
[v7-0002-gnu-Add-mjwm.patch (text/x-diff, inline)]
From a21c037b851994b362b2cd8216d4e7aa82056e98 Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu <at> 163.com>
Date: Sat, 11 Feb 2023 10:55:48 +0800
Subject: [PATCH v7 2/2] gnu: Add mjwm.
* gnu/packages/wm.scm (mjwm): New variable.
---
gnu/packages/wm.scm | 33 +++++++++++++++++++++++++++++++++
1 file changed, 33 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 14dc3a0988..f719c53127 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -3011,6 +3011,39 @@ such as the Raspberry Pi, though it is perfectly capable of running on modern
systems.")
(license license:expat)))
+(define-public mjwm
+ (package
+ (name "mjwm")
+ (version "4.1.0")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/chiku/mjwm")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0lgfp2xidhvmbj4zqvzz9g8zwbn6mz0pgacc57b43ha523vamsjq"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-subcategory.h
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "include/subcategory.h"
+ ;; icon name should be application-other instead of
+ ;; application-others.
+ (("applications-others") "applications-other")))))))
+ (home-page "https://github.com/chiku/mjwm")
+ (synopsis "Create menu for JWM.")
+ (description
+ "MJWM can create JWM's menu from (freedesktop) desktop files and the
+generated file can be include in the rootmenu section of your jwm config
+file.")
+ (license license:gpl2)))
+
(define-public devour
(package
(name "devour")
--
2.30.2
[Message part 2 (text/plain, inline)]
--
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 13 Feb 2023 10:46:01 GMT) Full text and rfc822 format available.Message #47 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 61056 <at> debbugs.gnu.org Subject: [PATCH v8 1/2] gnu: Add jwm. Date: Mon, 13 Feb 2023 18:45:20 +0800
[v8-0001-gnu-Add-jwm.patch (text/x-diff, inline)]
From 455305ffd5f4e0bca239c8fc0f65f0a1f36ba8d0 Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu <at> 163.com>
Date: Sat, 11 Feb 2023 10:55:47 +0800
Subject: [PATCH v8 1/2] gnu: Add jwm.
* gnu/packages/wm.scm (jwm): New variable.
---
gnu/packages/wm.scm | 107 ++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 107 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 37fbf88e99..14dc3a0988 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2904,6 +2904,113 @@ read and write, and compatible with JSON.")
capabilities. It is heavily inspired by the Calm Window manager(cwm).")
(license license:bsd-2)))
+(define-public jwm
+ (package
+ (name "jwm")
+ (version "2.4.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/joewing/jwm/releases/download/"
+ "v" version "/jwm-" version ".tar.xz"))
+ (sha256
+ (base32
+ "1av7r9sp26r5l74zvwdmyyyzav29mw5bafihp7y33vsjqkh4wfzf"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-example.jwmrc
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "example.jwmrc"
+ ;; Ignore existing menus in example.jwmrc.
+ (("<Menu ") "<!-- <Menu ")
+ (("</Menu>") "</Menu> -->")
+ ;; Adjust xterm path in terminal menu item.
+ ((">xterm</Program>")
+ (string-append
+ ">" (search-input-file inputs "/bin/xterm")
+ "</Program>"))
+ ;; Replace xscreensaver with xlock, which has been configured
+ ;; well by desktop-service.
+ (("xscreensaver-command -lock") "xlock")
+ ;; Adjust icons search paths.
+ (("/usr/local/share/jwm")
+ (string-append #$output "/share/jwm"))
+ (("/usr/local/share/icons")
+ "/run/current-system/profile/share/icons")
+ ;; Include menu created by mjwm command.
+ (("<RootMenu .*>" all)
+ (string-append
+ all "\n "
+ "<Program icon=\"jwm-red\" label=\"Update JWM Menu\">"
+ (search-input-file inputs "/bin/mjwm")
+ " --iconize --no-backup "
+ " --output-file $HOME/.jwmrc-mjwm-guix"
+ "</Program>\n "
+ "<Dynamic icon=\"folder\" label=\"Applications\">"
+ "$HOME/.jwmrc-mjwm-guix"
+ "</Dynamic>\n")))))
+ (add-after 'install 'install-tango-icon-files
+ ;; Copy icon files used by example.jwm to share/jwm dir, this way
+ ;; may be better than adding tango-icon-theme to inputs.
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((icon-dir (search-input-directory
+ inputs "share/icons/Tango/scalable"))
+ (icon-install-dir (string-append #$output "/share/jwm")))
+ (for-each
+ (lambda (icon)
+ (for-each (lambda (icon-file)
+ (install-file icon-file icon-install-dir))
+ (find-files icon-dir (string-append "^" icon "\\.svg$"))))
+ '("calc" "email" "exit" "folder" "font" "help-browser"
+ "image" "info" "lock" "reload" "sound"
+ "system-file-manager" "utilities-terminal"
+ "web-browser" "gnome-settings" "applications-.*"))
+ (with-directory-excursion icon-install-dir
+ ;; tango-icon-theme have no applications-science icon.
+ (copy-file "help-browser.svg" "applications-science.svg")))))
+ (add-after 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (xsessions (string-append out "/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append xsessions "/jwm.desktop")
+ (lambda (port)
+ (format port "~
+ [Desktop Entry]~@
+ Name=jwm~@
+ Comment=Joe's Window Manager~@
+ Exec=~a/bin/jwm~@
+ Type=XSession~%" out)))))))))
+ (native-inputs (list pkg-config tango-icon-theme))
+ (inputs
+ (list cairo
+ libjpeg-turbo
+ libpng
+ librsvg
+ libxext
+ libxinerama
+ libxmu
+ libxpm
+ libxrandr
+ libxt
+ mjwm
+ pango
+ xterm))
+ (home-page "http://joewing.net/projects/jwm")
+ (synopsis "Joe's Window Manager")
+ (description
+ "JWM is a light-weight window manager for the X11 Window System. it is
+written in C and uses only Xlib at a minimum. Because of its small footprint,
+it makes a good window manager for older computers and less powerful systems,
+such as the Raspberry Pi, though it is perfectly capable of running on modern
+systems.")
+ (license license:expat)))
+
(define-public devour
(package
(name "devour")
--
2.30.2
[Message part 2 (text/plain, inline)]
--
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 13 Feb 2023 10:47:02 GMT) Full text and rfc822 format available.Message #50 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 61056 <at> debbugs.gnu.org Subject: [PATCH v8 2/2] gnu: Add mjwm. Date: Mon, 13 Feb 2023 18:45:59 +0800
[v8-0002-gnu-Add-mjwm.patch (text/x-diff, inline)]
From a21c037b851994b362b2cd8216d4e7aa82056e98 Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu <at> 163.com>
Date: Sat, 11 Feb 2023 10:55:48 +0800
Subject: [PATCH v8 2/2] gnu: Add mjwm.
* gnu/packages/wm.scm (mjwm): New variable.
---
gnu/packages/wm.scm | 33 +++++++++++++++++++++++++++++++++
1 file changed, 33 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 14dc3a0988..f719c53127 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -3011,6 +3011,39 @@ such as the Raspberry Pi, though it is perfectly capable of running on modern
systems.")
(license license:expat)))
+(define-public mjwm
+ (package
+ (name "mjwm")
+ (version "4.1.0")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/chiku/mjwm")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0lgfp2xidhvmbj4zqvzz9g8zwbn6mz0pgacc57b43ha523vamsjq"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-subcategory.h
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "include/subcategory.h"
+ ;; icon name should be application-other instead of
+ ;; application-others.
+ (("applications-others") "applications-other")))))))
+ (home-page "https://github.com/chiku/mjwm")
+ (synopsis "Create menu for JWM.")
+ (description
+ "MJWM can create JWM's menu from (freedesktop) desktop files and the
+generated file can be include in the rootmenu section of your jwm config
+file.")
+ (license license:gpl2)))
+
(define-public devour
(package
(name "devour")
--
2.30.2
[Message part 2 (text/plain, inline)]
--
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 13 Feb 2023 10:50:02 GMT) Full text and rfc822 format available.Message #53 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 61056 <at> debbugs.gnu.org Subject: [PATCH v8 1/2] gnu: Add jwm. Date: Mon, 13 Feb 2023 18:49:09 +0800
From 455305ffd5f4e0bca239c8fc0f65f0a1f36ba8d0 Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu <at> 163.com>
Date: Sat, 11 Feb 2023 10:55:47 +0800
Subject: [PATCH v8 1/2] gnu: Add jwm.
* gnu/packages/wm.scm (jwm): New variable.
---
gnu/packages/wm.scm | 107 ++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 107 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 37fbf88e99..14dc3a0988 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2904,6 +2904,113 @@ read and write, and compatible with JSON.")
capabilities. It is heavily inspired by the Calm Window manager(cwm).")
(license license:bsd-2)))
+(define-public jwm
+ (package
+ (name "jwm")
+ (version "2.4.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/joewing/jwm/releases/download/"
+ "v" version "/jwm-" version ".tar.xz"))
+ (sha256
+ (base32
+ "1av7r9sp26r5l74zvwdmyyyzav29mw5bafihp7y33vsjqkh4wfzf"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-example.jwmrc
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "example.jwmrc"
+ ;; Ignore existing menus in example.jwmrc.
+ (("<Menu ") "<!-- <Menu ")
+ (("</Menu>") "</Menu> -->")
+ ;; Adjust xterm path in terminal menu item.
+ ((">xterm</Program>")
+ (string-append
+ ">" (search-input-file inputs "/bin/xterm")
+ "</Program>"))
+ ;; Replace xscreensaver with xlock, which has been configured
+ ;; well by desktop-service.
+ (("xscreensaver-command -lock") "xlock")
+ ;; Adjust icons search paths.
+ (("/usr/local/share/jwm")
+ (string-append #$output "/share/jwm"))
+ (("/usr/local/share/icons")
+ "/run/current-system/profile/share/icons")
+ ;; Include menu created by mjwm command.
+ (("<RootMenu .*>" all)
+ (string-append
+ all "\n "
+ "<Program icon=\"jwm-red\" label=\"Update JWM Menu\">"
+ (search-input-file inputs "/bin/mjwm")
+ " --iconize --no-backup "
+ " --output-file $HOME/.jwmrc-mjwm-guix"
+ "</Program>\n "
+ "<Dynamic icon=\"folder\" label=\"Applications\">"
+ "$HOME/.jwmrc-mjwm-guix"
+ "</Dynamic>\n")))))
+ (add-after 'install 'install-tango-icon-files
+ ;; Copy icon files used by example.jwm to share/jwm dir, this way
+ ;; may be better than adding tango-icon-theme to inputs.
+ (lambda* (#:key inputs #:allow-other-keys)
+ (let ((icon-dir (search-input-directory
+ inputs "share/icons/Tango/scalable"))
+ (icon-install-dir (string-append #$output "/share/jwm")))
+ (for-each
+ (lambda (icon)
+ (for-each (lambda (icon-file)
+ (install-file icon-file icon-install-dir))
+ (find-files icon-dir (string-append "^" icon "\\.svg$"))))
+ '("calc" "email" "exit" "folder" "font" "help-browser"
+ "image" "info" "lock" "reload" "sound"
+ "system-file-manager" "utilities-terminal"
+ "web-browser" "gnome-settings" "applications-.*"))
+ (with-directory-excursion icon-install-dir
+ ;; tango-icon-theme have no applications-science icon.
+ (copy-file "help-browser.svg" "applications-science.svg")))))
+ (add-after 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (xsessions (string-append out "/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append xsessions "/jwm.desktop")
+ (lambda (port)
+ (format port "~
+ [Desktop Entry]~@
+ Name=jwm~@
+ Comment=Joe's Window Manager~@
+ Exec=~a/bin/jwm~@
+ Type=XSession~%" out)))))))))
+ (native-inputs (list pkg-config tango-icon-theme))
+ (inputs
+ (list cairo
+ libjpeg-turbo
+ libpng
+ librsvg
+ libxext
+ libxinerama
+ libxmu
+ libxpm
+ libxrandr
+ libxt
+ mjwm
+ pango
+ xterm))
+ (home-page "http://joewing.net/projects/jwm")
+ (synopsis "Joe's Window Manager")
+ (description
+ "JWM is a light-weight window manager for the X11 Window System. it is
+written in C and uses only Xlib at a minimum. Because of its small footprint,
+it makes a good window manager for older computers and less powerful systems,
+such as the Raspberry Pi, though it is perfectly capable of running on modern
+systems.")
+ (license license:expat)))
+
(define-public devour
(package
(name "devour")
--
2.30.2
--
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 13 Feb 2023 10:50:02 GMT) Full text and rfc822 format available.Message #56 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 61056 <at> debbugs.gnu.org Subject: [PATCH v8 2/2] gnu: Add mjwm. Date: Mon, 13 Feb 2023 18:49:42 +0800
From a21c037b851994b362b2cd8216d4e7aa82056e98 Mon Sep 17 00:00:00 2001
From: Feng Shu <tumashu <at> 163.com>
Date: Sat, 11 Feb 2023 10:55:48 +0800
Subject: [PATCH v8 2/2] gnu: Add mjwm.
* gnu/packages/wm.scm (mjwm): New variable.
---
gnu/packages/wm.scm | 33 +++++++++++++++++++++++++++++++++
1 file changed, 33 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 14dc3a0988..f719c53127 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -3011,6 +3011,39 @@ such as the Raspberry Pi, though it is perfectly capable of running on modern
systems.")
(license license:expat)))
+(define-public mjwm
+ (package
+ (name "mjwm")
+ (version "4.1.0")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/chiku/mjwm")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0lgfp2xidhvmbj4zqvzz9g8zwbn6mz0pgacc57b43ha523vamsjq"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-subcategory.h
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "include/subcategory.h"
+ ;; icon name should be application-other instead of
+ ;; application-others.
+ (("applications-others") "applications-other")))))))
+ (home-page "https://github.com/chiku/mjwm")
+ (synopsis "Create menu for JWM.")
+ (description
+ "MJWM can create JWM's menu from (freedesktop) desktop files and the
+generated file can be include in the rootmenu section of your jwm config
+file.")
+ (license license:gpl2)))
+
(define-public devour
(package
(name "devour")
--
2.30.2
--
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 13 Feb 2023 10:58:01 GMT) Full text and rfc822 format available.Message #59 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 61056 <at> debbugs.gnu.org Subject: Please review v8 version of jwm/mjwm patch. Date: Mon, 13 Feb 2023 18:56:51 +0800
Hello: Please review v8 version of jwm/mjwm patch. Thanks --
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Tue, 28 Feb 2023 22:05:02 GMT) Full text and rfc822 format available.Message #62 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 61056 <at> debbugs.gnu.org Subject: [PATCH] gnu: Add jwm. Date: Tue, 28 Feb 2023 22:04:03 +0000
ping :-)
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 06 Mar 2023 07:47:02 GMT) Full text and rfc822 format available.Message #65 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: 宋文武 <iyzsong <at> envs.net> To: Feng Shu <tumashu <at> 163.com> Cc: 61056 <at> debbugs.gnu.org Subject: Re: bug#61056: [PATCH] gnu: Add jwm. Date: Mon, 06 Mar 2023 15:46:32 +0800
Feng Shu <tumashu <at> 163.com> writes: > Hello: > > Please review v8 version of jwm/mjwm patch. > > Thanks Hello, I have pushed jwm and mjwm with follow changes: 1. remove tango-icon-theme, mjwm, xterm from jwm's inputs. see 2. 2. remove patch-example.jwmrc and install-tango-icon-files phases. I think those kind of customization better happend in ~/.jwmrc or a home service. 3. change libxrandr to libxrender for jwm, as the latter is actually used... 4. mjwm: remove '.' in synopsis, change license to 'license:gpl2+'. What do you think of my changes in 1. and 2.?
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 06 Mar 2023 07:48:01 GMT) Full text and rfc822 format available.Message #68 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: iyzsong <at> envs.net To: 61056 <at> debbugs.gnu.org Cc: Feng Shu <tumashu <at> 163.com>, 宋文武 <iyzsong <at> member.fsf.org> Subject: [PATCH 1/2] gnu: Add jwm. Date: Mon, 6 Mar 2023 15:47:25 +0800
From: Feng Shu <tumashu <at> 163.com>
* gnu/packages/wm.scm (jwm): New variable.
Signed-off-by: 宋文武 <iyzsong <at> member.fsf.org>
---
gnu/packages/wm.scm | 55 +++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 55 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 5b8dbd5c70..c1cbd00cf5 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2777,6 +2777,61 @@ (define-public hikari
capabilities. It is heavily inspired by the Calm Window manager(cwm).")
(license license:bsd-2)))
+(define-public jwm
+ (package
+ (name "jwm")
+ (version "2.4.3")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append
+ "https://github.com/joewing/jwm/releases/download/"
+ "v" version "/jwm-" version ".tar.xz"))
+ (sha256
+ (base32
+ "1av7r9sp26r5l74zvwdmyyyzav29mw5bafihp7y33vsjqkh4wfzf"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'install 'install-xsession
+ (lambda* (#:key outputs #:allow-other-keys)
+ (let* ((out (assoc-ref outputs "out"))
+ (xsessions (string-append out "/share/xsessions")))
+ (mkdir-p xsessions)
+ (call-with-output-file
+ (string-append xsessions "/jwm.desktop")
+ (lambda (port)
+ (format port "~
+ [Desktop Entry]~@
+ Name=jwm~@
+ Comment=Joe's Window Manager~@
+ Exec=~a/bin/jwm~@
+ Type=XSession~%" out)))))))))
+ (native-inputs (list pkg-config))
+ (inputs
+ (list cairo
+ libjpeg-turbo
+ libpng
+ librsvg
+ libxext
+ libxinerama
+ libxmu
+ libxpm
+ libxrender
+ libxt
+ pango))
+ (home-page "http://joewing.net/projects/jwm")
+ (synopsis "Joe's Window Manager")
+ (description
+ "JWM is a light-weight window manager for the X11 Window System. it is
+written in C and uses only Xlib at a minimum. Because of its small footprint,
+it makes a good window manager for older computers and less powerful systems,
+such as the Raspberry Pi, though it is perfectly capable of running on modern
+systems.")
+ (license license:expat)))
+
(define-public devour
(package
(name "devour")
--
2.39.1
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 06 Mar 2023 07:48:02 GMT) Full text and rfc822 format available.Message #71 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: iyzsong <at> envs.net To: 61056 <at> debbugs.gnu.org Cc: Feng Shu <tumashu <at> 163.com>, 宋文武 <iyzsong <at> member.fsf.org> Subject: [PATCH 2/2] gnu: Add mjwm. Date: Mon, 6 Mar 2023 15:47:26 +0800
From: Feng Shu <tumashu <at> 163.com>
* gnu/packages/wm.scm (mjwm): New variable.
Signed-off-by: 宋文武 <iyzsong <at> member.fsf.org>
---
gnu/packages/wm.scm | 33 +++++++++++++++++++++++++++++++++
1 file changed, 33 insertions(+)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index c1cbd00cf5..3f4c648901 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -2832,6 +2832,39 @@ (define-public jwm
systems.")
(license license:expat)))
+(define-public mjwm
+ (package
+ (name "mjwm")
+ (version "4.1.0")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://github.com/chiku/mjwm")
+ (commit (string-append "v" version))))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0lgfp2xidhvmbj4zqvzz9g8zwbn6mz0pgacc57b43ha523vamsjq"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:tests? #f ; no check target
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'patch-subcategory.h
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "include/subcategory.h"
+ ;; icon name should be application-other instead of
+ ;; application-others.
+ (("applications-others") "applications-other")))))))
+ (home-page "https://github.com/chiku/mjwm")
+ (synopsis "Create menu for JWM")
+ (description
+ "MJWM can create JWM's menu from (freedesktop) desktop files and the
+generated file can be include in the rootmenu section of your jwm config
+file.")
+ (license license:gpl2+)))
+
(define-public devour
(package
(name "devour")
--
2.39.1
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 06 Mar 2023 08:05:01 GMT) Full text and rfc822 format available.Message #74 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: 宋文武 <iyzsong <at> envs.net> To: Feng Shu <tumashu <at> 163.com> Cc: 61056 <at> debbugs.gnu.org Subject: Re: bug#61056: [PATCH] gnu: Add jwm. Date: Mon, 06 Mar 2023 16:04:37 +0800
宋文武 <iyzsong <at> envs.net> writes: > Feng Shu <tumashu <at> 163.com> writes: > >> Hello: >> >> Please review v8 version of jwm/mjwm patch. >> >> Thanks > > Hello, I have pushed jwm and mjwm with follow changes: Well, I haven't pushed due to other's updates, that's good. > > 1. remove tango-icon-theme, mjwm, xterm from jwm's inputs. see 2. > > 2. remove patch-example.jwmrc and install-tango-icon-files phases. > I think those kind of customization better happend in ~/.jwmrc or > a home service. > > 3. change libxrandr to libxrender for jwm, as the latter is actually > used... > > 4. mjwm: remove '.' in synopsis, change license to 'license:gpl2+'. > > > What do you think of my changes in 1. and 2.? My updated patches are replied to this issue.
guix-patches <at> gnu.org:bug#61056; Package guix-patches.
(Mon, 06 Mar 2023 12:13:02 GMT) Full text and rfc822 format available.Message #77 received at 61056 <at> debbugs.gnu.org (full text, mbox):
From: Feng Shu <tumashu <at> 163.com> To: 宋文武 <iyzsong <at> envs.net> Cc: 61056 <at> debbugs.gnu.org Subject: Re: bug#61056: [PATCH] gnu: Add jwm. Date: Mon, 06 Mar 2023 20:11:51 +0800
宋文武 <iyzsong <at> envs.net> writes: > Feng Shu <tumashu <at> 163.com> writes: > >> Hello: >> >> Please review v8 version of jwm/mjwm patch. >> >> Thanks > > Hello, I have pushed jwm and mjwm with follow changes: > > 1. remove tango-icon-theme, mjwm, xterm from jwm's inputs. see 2. > > 2. remove patch-example.jwmrc and install-tango-icon-files phases. > I think those kind of customization better happend in ~/.jwmrc or > a home service. > > 3. change libxrandr to libxrender for jwm, as the latter is actually > used... > > 4. mjwm: remove '.' in synopsis, change license to 'license:gpl2+'. > > > What do you think of my changes in 1. and 2.? no problem. --
宋文武 <iyzsong <at> envs.net>:tumashu <at> 163.com:Message #82 received at 61056-done <at> debbugs.gnu.org (full text, mbox):
From: 宋文武 <iyzsong <at> envs.net> To: Feng Shu <tumashu <at> 163.com> Cc: 61056-done <at> debbugs.gnu.org Subject: Re: bug#61056: [PATCH] gnu: Add jwm. Date: Tue, 07 Mar 2023 09:08:37 +0800
Feng Shu <tumashu <at> 163.com> writes: > 宋文武 <iyzsong <at> envs.net> writes: > >> Feng Shu <tumashu <at> 163.com> writes: >> >>> Hello: >>> >>> Please review v8 version of jwm/mjwm patch. >>> >>> Thanks >> >> Hello, I have pushed jwm and mjwm with follow changes: >> >> 1. remove tango-icon-theme, mjwm, xterm from jwm's inputs. see 2. >> >> 2. remove patch-example.jwmrc and install-tango-icon-files phases. >> I think those kind of customization better happend in ~/.jwmrc or >> a home service. >> >> 3. change libxrandr to libxrender for jwm, as the latter is actually >> used... >> >> 4. mjwm: remove '.' in synopsis, change license to 'license:gpl2+'. >> >> >> What do you think of my changes in 1. and 2.? > > no problem. Pushed, thank you!
Debbugs Internal Request <help-debbugs <at> gnu.org>
to internal_control <at> debbugs.gnu.org.
(Tue, 04 Apr 2023 11:24:09 GMT) Full text and rfc822 format available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.