me/guix
Archived
1
0
Fork 0
Code Activity

gnu: pd: Use G-expressions.

Browse source 
* gnu/packages/music.scm (pd)[arguments]: Rewrite as G-expressions,
and use SEARCH-INPUT-FILE.
This commit is contained in:
Tobias Geerinckx-Rice 2022-10-16 02:00:00 +02:00
parent 4fad3eb016
commit a0625f70f5
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 15 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/packages/music.scm
View file

@ -2707,19 +2707,21 @@ export.")
(arguments (arguments
(let ((wish (string-append "wish" (version-major+minor (let ((wish (string-append "wish" (version-major+minor
(package-version tk))))) (package-version tk)))))
`(#:tests? #f ; no "check" target
#:configure-flags
(list (list
#:tests? #f ; no "check" target
#:configure-flags
#~(list
"--enable-jack" "--enable-jack"
(string-append "--with-wish=" (string-append (string-append "--with-wish="
(assoc-ref %build-inputs "tk") (search-input-file %build-inputs
"/bin/" ,wish))) (string-append "/bin/" #$wish))))
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'configure 'fix-with-path (add-before 'configure 'fix-wish-path
(lambda _ (lambda _
(substitute* "tcl/pd-gui.tcl" (substitute* "tcl/pd-gui.tcl"
(("exec wish ") (string-append "exec " (which ,wish) " "))))))))) (("exec wish ")
(string-append "exec " (which #$wish) " ")))))))))
(native-inputs (native-inputs
(list autoconf automake libtool gettext-minimal pkg-config)) (list autoconf automake libtool gettext-minimal pkg-config))
(inputs (inputs