me
/
guix
Archived
1
0
Fork 0

gnu: xbindkeys: Refer to tk's wish interpreter.

Fixes <http://issues.guix.gnu.org/46255>.

* gnu/packages/xdisorg.scm (xbindkeys)[arguments]: Add a ‘sanitise-shebang’
phase.
[inputs]: Add tk.
master
Tobias Geerinckx-Rice 2021-02-02 15:39:02 +01:00
parent a6e47aaa9f
commit 72fabd8d6e
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 14 additions and 1 deletions

View File

@ -105,6 +105,7 @@
#:use-module (gnu packages python-xyz) #:use-module (gnu packages python-xyz)
#:use-module (gnu packages qt) #:use-module (gnu packages qt)
#:use-module (gnu packages sphinx) #:use-module (gnu packages sphinx)
#:use-module (gnu packages tcl)
#:use-module (gnu packages xml) #:use-module (gnu packages xml)
#:use-module (gnu packages xorg) #:use-module (gnu packages xorg)
#:use-module (gnu packages) #:use-module (gnu packages)
@ -954,11 +955,23 @@ transparent text on your screen.")
(base32 (base32
"1wl2vc5alisiwyk8m07y1ryq8w3ll9ym83j27g4apm4ixjl8d6x2")))) "1wl2vc5alisiwyk8m07y1ryq8w3ll9ym83j27g4apm4ixjl8d6x2"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'sanitise-shebang
;; This wish script uses a strange double shebang that escapes our
;; patch-shebangs phase. Assume that it's unnecessary & replace it.
(lambda _
(substitute* "xbindkeys_show"
(("^#!.*|^exec wish.*") "")
(("^# \\\\") (string-append "#!" (which "wish"))))
#t)))))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config))) `(("pkg-config" ,pkg-config)))
(inputs (inputs
`(("guile" ,guile-2.2) `(("guile" ,guile-2.2)
("libx11" ,libx11))) ("libx11" ,libx11)
("tk" ,tk)))
(home-page "https://www.nongnu.org/xbindkeys/") (home-page "https://www.nongnu.org/xbindkeys/")
(synopsis "Associate a combination of keys with a shell command") (synopsis "Associate a combination of keys with a shell command")
(description (description