summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuillaume Le Vaillant <glv@posteo.net>2022-06-27 11:15:44 +0200
committerGuillaume Le Vaillant <glv@posteo.net>2022-06-27 11:15:44 +0200
commit144a750f8b10e606751bc887bcb09e7fb7ae09ff (patch)
tree97fac822dd863e6f5558259780be5942055d5250
parentgnu: stumpwm: Update to 22.05. (diff)
downloadguix-144a750f8b10e606751bc887bcb09e7fb7ae09ff.tar.gz
guix-144a750f8b10e606751bc887bcb09e7fb7ae09ff.tar.bz2
guix-144a750f8b10e606751bc887bcb09e7fb7ae09ff.tar.xz
gnu: stumpwm: Improve package definition.
* gnu/packages/wm.scm (stumpwm)[inputs, native-inputs]: Remove labels. [arguments]: Use gexp and remote trailing #t in phases.
-rw-r--r--gnu/packages/wm.scm99
1 files changed, 50 insertions, 49 deletions
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index ba39ccd0e9..8fef7de77b 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -1832,57 +1832,58 @@ Wayland compositors supporting the wlr-output-management protocol.")
1832 (sha256 1832 (sha256
1833 (base32 "12hf70mpwy0ixiyvv8sf8pkwrzz8nb12a8ybvsdpibsxfjxgxnan")))) 1833 (base32 "12hf70mpwy0ixiyvv8sf8pkwrzz8nb12a8ybvsdpibsxfjxgxnan"))))
1834 (build-system asdf-build-system/sbcl) 1834 (build-system asdf-build-system/sbcl)
1835 (native-inputs `(("fiasco" ,sbcl-fiasco) 1835 (native-inputs
1836 ("texinfo" ,texinfo) 1836 (list sbcl-fiasco
1837 1837 texinfo
1838 ;; To build the manual. 1838
1839 ("autoconf" ,autoconf) 1839 ;; To build the manual.
1840 ("automake" ,automake))) 1840 autoconf
1841 (inputs `(("cl-ppcre" ,sbcl-cl-ppcre) 1841 automake))
1842 ("clx" ,sbcl-clx) 1842 (inputs
1843 ("alexandria" ,sbcl-alexandria))) 1843 (list sbcl-alexandria
1844 sbcl-cl-ppcre
1845 sbcl-clx))
1844 (outputs '("out" "lib")) 1846 (outputs '("out" "lib"))
1845 (arguments 1847 (arguments
1846 '(#:phases 1848 (list
1847 (modify-phases %standard-phases 1849 #:phases
1848 (add-after 'unpack 'fix-tests 1850 #~(modify-phases %standard-phases
1849 (lambda _ 1851 (add-after 'unpack 'fix-tests
1850 (substitute* "stumpwm-tests.asd" 1852 (lambda _
1851 (("\"ALL-TESTS\"") 1853 (substitute* "stumpwm-tests.asd"
1852 "\"RUN-PACKAGE-TESTS\" :package")))) 1854 (("\"ALL-TESTS\"")
1853 (add-after 'create-asdf-configuration 'build-program 1855 "\"RUN-PACKAGE-TESTS\" :package"))))
1854 (lambda* (#:key outputs #:allow-other-keys) 1856 (add-after 'create-asdf-configuration 'build-program
1855 (build-program 1857 (lambda* (#:key outputs #:allow-other-keys)
1856 (string-append (assoc-ref outputs "out") "/bin/stumpwm") 1858 (build-program
1857 outputs 1859 (string-append (assoc-ref outputs "out") "/bin/stumpwm")
1858 #:entry-program '((stumpwm:stumpwm) 0)))) 1860 outputs
1859 (add-after 'build-program 'create-desktop-file 1861 #:entry-program '((stumpwm:stumpwm) 0))))
1860 (lambda* (#:key outputs #:allow-other-keys) 1862 (add-after 'build-program 'create-desktop-file
1861 (let* ((out (assoc-ref outputs "out")) 1863 (lambda* (#:key outputs #:allow-other-keys)
1862 (xsessions (string-append out "/share/xsessions"))) 1864 (let* ((out (assoc-ref outputs "out"))
1863 (mkdir-p xsessions) 1865 (xsessions (string-append out "/share/xsessions")))
1864 (call-with-output-file 1866 (mkdir-p xsessions)
1865 (string-append xsessions "/stumpwm.desktop") 1867 (call-with-output-file
1866 (lambda (file) 1868 (string-append xsessions "/stumpwm.desktop")
1867 (format file 1869 (lambda (file)
1868 "[Desktop Entry]~@ 1870 (format file
1869 Name=stumpwm~@ 1871 "[Desktop Entry]~@
1870 Comment=The Stump Window Manager~@ 1872 Name=stumpwm~@
1871 Exec=~a/bin/stumpwm~@ 1873 Comment=The Stump Window Manager~@
1872 TryExec=~@*~a/bin/stumpwm~@ 1874 Exec=~a/bin/stumpwm~@
1873 Icon=~@ 1875 TryExec=~@*~a/bin/stumpwm~@
1874 Type=Application~%" 1876 Icon=~@
1875 out))) 1877 Type=Application~%"
1876 #t))) 1878 out))))))
1877 (add-after 'install 'install-manual 1879 (add-after 'install 'install-manual
1878 (lambda* (#:key (make-flags '()) outputs #:allow-other-keys) 1880 (lambda* (#:key (make-flags '()) outputs #:allow-other-keys)
1879 (let* ((out (assoc-ref outputs "out")) 1881 (let* ((out (assoc-ref outputs "out"))
1880 (info (string-append out "/share/info"))) 1882 (info (string-append out "/share/info")))
1881 (invoke "./autogen.sh") 1883 (invoke "./autogen.sh")
1882 (invoke "sh" "./configure" "SHELL=sh") 1884 (invoke "sh" "./configure" "SHELL=sh")
1883 (apply invoke "make" "stumpwm.info" make-flags) 1885 (apply invoke "make" "stumpwm.info" make-flags)
1884 (install-file "stumpwm.info" info) 1886 (install-file "stumpwm.info" info)))))))
1885 #t))))))
1886 (synopsis "Window manager written in Common Lisp") 1887 (synopsis "Window manager written in Common Lisp")
1887 (description "Stumpwm is a window manager written entirely in Common Lisp. 1888 (description "Stumpwm is a window manager written entirely in Common Lisp.
1888It attempts to be highly customizable while relying entirely on the keyboard 1889It attempts to be highly customizable while relying entirely on the keyboard