me
/
guix
Archived
1
0
Fork 0
Code

gnu: xbindkeys: Refer to xbindkeys in xbindkeys_show. 

* gnu/packages/xdisorg.scm (xbindkeys)[arguments]: Add a
‘patch-references’  phase.
master
Tobias Geerinckx-Rice 2021-02-02 15:47:21 +01:00
parent 72fabd8d6e
commit 2c9d481c90
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gnu/packages/xdisorg.scm
View File

@ -965,7 +965,14 @@ transparent text on your screen.")
(substitute* "xbindkeys_show" (substitute* "xbindkeys_show"
(("^#!.*|^exec wish.*") "") (("^#!.*|^exec wish.*") "")
(("^# \\\\") (string-append "#!" (which "wish")))) (("^# \\\\") (string-append "#!" (which "wish"))))
#t))))) #t))
(add-after 'unpack 'patch-references
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(substitute* "xbindkeys_show"
(("\"(xbindkeys)\"" _ command)
(format #f "\"~a/bin/~a\"" out command)))
#t))))))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(inputs (inputs