ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-20 17:53:26 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: amsynth: Use G-expressions.

Browse source 
* gnu/packages/music.scm (amsynth)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-01-04 20:23:05 +01:00
parent 1cba8def9f
commit 0e96a71816
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/music.scm
View file

@ -2414,17 +2414,16 @@ (define-public amsynth
(base32 "0xqcm3ggaj004gfmlsds2x6q8dxlz1akz6dbwkynv9vvdnizm91r"))))
(build-system gnu-build-system)
(arguments
`(#:phases
(modify-phases %standard-phases
(add-after 'unpack 'patch-file-names
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/GUI/editor_pane.c"
(("/usr/bin/unzip")
(string-append (assoc-ref inputs "unzip") "/bin/unzip")))
(substitute* "src/GUI/MainMenu.cpp"
(("/usr/bin/which")
(string-append (assoc-ref inputs "which") "/bin/which")))
#t)))))
(list #:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-file-names
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/GUI/editor_pane.c"
(("/usr/bin/unzip")
(search-input-file inputs "bin/unzip")))
(substitute* "src/GUI/MainMenu.cpp"
(("/usr/bin/which")
(search-input-file inputs "bin/which"))))))))
(inputs
(list alsa-lib
gtk+-2