ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 22:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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