diff options
| author | Cayetano Santos <csantosb@inventati.org> | 2025-08-24 11:55:43 +0200 |
|---|---|---|
| committer | jgart <jgart@dismail.de> | 2025-08-25 11:14:28 -0500 |
| commit | fd4a1f33a6f8d35fa17485734c951e6cf3c9f703 (patch) | |
| tree | 94679ac1c628d19f1da6baa01e3d5deb80e8f6e9 | |
| parent | 42d7729ac8b18983fd58ad5e99f3bbc5fcaca581 (diff) | |
gnu: dwm: Update to 6.6.
* gnu/packages/suckless.scm (dwm): Update to 6.6.
<#:phases>{install-xsession}: Use make-desktop-entry-file.
Change-Id: I17161d8ca005891bed9c519f35c99975fa315a2b
Signed-off-by: jgart <jgart@dismail.de>
| -rw-r--r-- | gnu/packages/suckless.scm | 31 |
1 files changed, 14 insertions, 17 deletions
diff --git a/gnu/packages/suckless.scm b/gnu/packages/suckless.scm index f5df19cada3..4df73611591 100644 --- a/gnu/packages/suckless.scm +++ b/gnu/packages/suckless.scm @@ -62,6 +62,7 @@ #:use-module (guix gexp) #:use-module (guix git-download) #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix scripts) #:use-module (guix utils) #:use-module (guix packages)) @@ -228,14 +229,15 @@ a custom raw video format with a simple container.") (define-public dwm (package (name "dwm") - (version "6.5") + (version "6.6") + (synopsis "Dynamic Window Manager") (source (origin (method url-fetch) (uri (string-append "https://dl.suckless.org/dwm/dwm-" version ".tar.gz")) (sha256 (base32 - "0acpl05rg6rg6nrg3rv4kp388iqzp1n6dhin30a97yzjm6zrxmr1")))) + "18q0zjvzsvpm76p2x1xlw163d8wbq44z41n9w94prh46jdnjrz3w")))) (build-system gnu-build-system) (arguments (list @@ -257,24 +259,19 @@ a custom raw video format with a simple container.") (add-after 'build 'install-xsession (lambda _ ;; Add a .desktop file to xsessions. - (let* ((xsessions (string-append #$output "/share/xsessions"))) - (mkdir-p xsessions) - (with-output-to-file - (string-append xsessions "/dwm.desktop") - (lambda _ - (format #t - "[Desktop Entry]~@ - Name=dwm~@ - Comment=Dynamic Window Manager~@ - Exec=~a/bin/dwm~@ - TryExec=~@*~a/bin/dwm~@ - Icon=~@ - Type=Application~%" - #$output))))))))) + (let ((apps (string-append #$output "/share/xsessions"))) + (mkdir-p apps) + (make-desktop-entry-file + (string-append apps "/dwm.desktop") + #:name "dwm" + #:generic-name #$synopsis + #:exec (string-append #$output "/bin/dwm %U") + #:comment + `(("en" ,#$synopsis) + (#f ,#$synopsis))))))))) (inputs (list freetype libx11 libxft libxinerama)) (home-page "https://dwm.suckless.org/") - (synopsis "Dynamic window manager") (description "dwm is a dynamic window manager for X. It manages windows in tiled, monocle and floating layouts. All of the layouts can be applied dynamically, |