me
/
guix
Archived
1
0
Fork 0
Code

gnu: pd: Don't hard-code Tk version. 

* gnu/packages/music.scm (pd)[arguments]: Construct the wish file name from the tk package version.
master
Tobias Geerinckx-Rice 2020-06-10 03:38:28 +02:00
parent 7801e9f2d4
commit 98f08a99c6
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
gnu/packages/music.scm
View File

@ -1892,20 +1892,22 @@ export.")
"0dz6r6jy0zfs1xy1xspnrxxks8kddi9c7pxz4vpg2ygwv83ghpg5"))))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; no "check" target
#:configure-flags
(list
"--enable-jack"
(string-append "--with-wish=" (string-append
(assoc-ref %build-inputs "tk")
"/bin/wish8.6")))
#:phases
(modify-phases %standard-phases
(add-before 'configure 'fix-with-path
(lambda _
(substitute* "tcl/pd-gui.tcl"
(("exec wish ") (string-append "exec " (which "wish8.6") " ")))
#t)))))
(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) " ")))
#t))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)