me/guix
Archived
1
0
Fork 0
Code Activity

gnu: stumpwm: Improve package definition.

Browse source 
* 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
1 changed files with 49 additions and 48 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
gnu/packages/wm.scm
View file

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