me
/
guix
Archived
1
0
Fork 0
Code

gnu: pd: Use G-expressions. 

* gnu/packages/music.scm (pd)[arguments]: Rewrite as G-expressions,
and use SEARCH-INPUT-FILE.
master
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

28
gnu/packages/music.scm
View File

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