me/guix
Archived
1
0
Fork 0
Code Activity

gnu: stumpish: Fix xprop call.

Browse source 
* gnu/packages/wm.scm (stumpish): Fix xprop call.
[inputs]: Add xprop.
[arguments]: Add substitution of xprop.

Signed-off-by: Guillaume Le Vaillant <glv@posteo.net>
This commit is contained in:
Michael Rohleder 2020-11-02 06:30:27 +01:00 • committed by Guillaume Le Vaillant
parent e1f5c2292b
commit 48b00a4c7e
No known key found for this signature in database
GPG key ID: 6BE8208ADF21FE3F
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/packages/wm.scm
View file

@ -36,6 +36,7 @@
;;; Copyright © 2020 Boris A. Dekshteyn <harlequin78@gmail.com> ;;; Copyright © 2020 Boris A. Dekshteyn <harlequin78@gmail.com>
;;; Copyright © 2020 Marcin Karpezo <sirmacik@wioo.waw.pl> ;;; Copyright © 2020 Marcin Karpezo <sirmacik@wioo.waw.pl>
;;; Copyright © 2020 EuAndreh <eu@euandre.org> ;;; Copyright © 2020 EuAndreh <eu@euandre.org>
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -1722,7 +1723,8 @@ productive, customizable lisp based systems.")
(name "stumpish") (name "stumpish")
(inputs (inputs
`(("bash" ,bash) `(("bash" ,bash)
("rlwrap" ,rlwrap))) ("rlwrap" ,rlwrap)
("xprop" ,xprop)))
(build-system trivial-build-system) (build-system trivial-build-system)
(arguments (arguments
'(#:modules ((guix build utils)) '(#:modules ((guix build utils))
@ -1734,6 +1736,8 @@ productive, customizable lisp based systems.")
(substitute* "stumpish" (substitute* "stumpish"
(("rlwrap") (string-append (assoc-ref %build-inputs "rlwrap") (("rlwrap") (string-append (assoc-ref %build-inputs "rlwrap")
"/bin/rlwrap")) "/bin/rlwrap"))
(("xprop") (string-append (assoc-ref %build-inputs "xprop")
"/bin/xprop"))
(("/bin/sh") (string-append (assoc-ref %build-inputs "bash") (("/bin/sh") (string-append (assoc-ref %build-inputs "bash")
"/bin/bash"))) "/bin/bash")))
(install-file "stumpish" (string-append %output "/bin"))))) (install-file "stumpish" (string-append %output "/bin")))))