Archived
1
0
Fork 0

gnu: stumpwm: Improve package definition.

* gnu/packages/wm.scm (stumpwm)[inputs, native-inputs]: Remove labels.
  [arguments]: Use gexp and remote trailing #t in phases.
This commit is contained in:
Guillaume Le Vaillant 2022-06-27 11:15:44 +02:00
parent 1967c04226
commit 144a750f8b
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F

View file

@ -1832,19 +1832,22 @@ Wayland compositors supporting the wlr-output-management protocol.")
(sha256
(base32 "12hf70mpwy0ixiyvv8sf8pkwrzz8nb12a8ybvsdpibsxfjxgxnan"))))
(build-system asdf-build-system/sbcl)
(native-inputs `(("fiasco" ,sbcl-fiasco)
("texinfo" ,texinfo)
(native-inputs
(list sbcl-fiasco
texinfo
;; To build the manual.
("autoconf" ,autoconf)
("automake" ,automake)))
(inputs `(("cl-ppcre" ,sbcl-cl-ppcre)
("clx" ,sbcl-clx)
("alexandria" ,sbcl-alexandria)))
autoconf
automake))
(inputs
(list sbcl-alexandria
sbcl-cl-ppcre
sbcl-clx))
(outputs '("out" "lib"))
(arguments
'(#:phases
(modify-phases %standard-phases
(list
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'fix-tests
(lambda _
(substitute* "stumpwm-tests.asd"
@ -1872,8 +1875,7 @@ Wayland compositors supporting the wlr-output-management protocol.")
TryExec=~@*~a/bin/stumpwm~@
Icon=~@
Type=Application~%"
out)))
#t)))
out))))))
(add-after 'install 'install-manual
(lambda* (#:key (make-flags '()) outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
@ -1881,8 +1883,7 @@ Wayland compositors supporting the wlr-output-management protocol.")
(invoke "./autogen.sh")
(invoke "sh" "./configure" "SHELL=sh")
(apply invoke "make" "stumpwm.info" make-flags)
(install-file "stumpwm.info" info)
#t))))))
(install-file "stumpwm.info" info)))))))
(synopsis "Window manager written in Common Lisp")
(description "Stumpwm is a window manager written entirely in Common Lisp.
It attempts to be highly customizable while relying entirely on the keyboard