me/guix
Archived
1
0
Fork 0
Code Activity

gnu: rosegarden: Improve package style.

Browse source 
* gnu/packages/music.scm (rosegarden)[arguments]: Use G-expressions and
SEARCH-INPUT-FILE.
[inputs]: Use BASH-MINIMAL instead of BASH.
This commit is contained in:
Nicolas Goaziou 2022-12-14 18:44:04 +01:00
parent b363756306
commit ef7ad7d451
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 52 additions and 51 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/packages/music.scm
View file

@ -5019,9 +5019,10 @@ specification and header.")
(base32 "061xy3flmj7bllibkp5wzdycvghfxvyzdr9g9yrr5q3m70a7wznz"))))
(build-system cmake-build-system)
(arguments
`(#:configure-flags '("-DCMAKE_BUILD_TYPE=Release")
(list
#:configure-flags #~(list "-DCMAKE_BUILD_TYPE=Release")
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-after 'unpack 'patch-tests
(lambda _
(substitute* "CMakeLists.txt"
@ -5032,20 +5033,20 @@ specification and header.")
(lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/gui/general/ProjectPackager.cpp"
(("\"flac\\>")
(string-append "\"" (assoc-ref inputs "flac") "/bin/flac"))
(string-append "\"" (search-input-file inputs "/bin/flac")))
(("\"wavpack\\>")
(string-append "\"" (assoc-ref inputs "wavpack") "/bin/wavpack"))
(string-append "\"" (search-input-file inputs "/bin/wavpack")))
(("\"wvunpack\\>")
(string-append "\"" (assoc-ref inputs "wavpack") "/bin/wvunpack"))
(string-append "\"" (search-input-file inputs "/bin/wvunpack")))
(("\"bash\\>")
(string-append "\"" (assoc-ref inputs "bash") "/bin/bash"))
(string-append "\"" (search-input-file inputs "/bin/bash")))
(("\"tar\\>")
(string-append "\"" (assoc-ref inputs "tar") "/bin/tar")))
(string-append "\"" (search-input-file inputs "/bin/tar"))))
(substitute* "src/gui/general/LilyPondProcessor.cpp"
(("\"convert-ly\\>")
(string-append "\"" (assoc-ref inputs "lilypond") "/bin/convert-ly"))
(string-append "\"" (search-input-file inputs "/bin/convert-ly")))
(("\"lilypond\\>")
(string-append "\"" (assoc-ref inputs "lilypond") "/bin/lilypond")))))
(string-append "\"" (search-input-file inputs "/bin/lilypond"))))))
(add-after 'unpack 'make-reproducible
(lambda _
;; Prevent Last-Modified from being written.
@ -5070,7 +5071,7 @@ specification and header.")
(setenv "XDG_RUNTIME_DIR" "/tmp/foo"))))))
(inputs
(list alsa-lib
bash
bash-minimal
dssi
flac
fftwf