me
/
guix
Archived
1
0
Fork 0

gnu: rosegarden: Improve package style.

* gnu/packages/music.scm (rosegarden)[arguments]: Use G-expressions and
SEARCH-INPUT-FILE.
[inputs]: Use BASH-MINIMAL instead of BASH.
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

View File

@ -5019,58 +5019,59 @@ specification and header.")
(base32 "061xy3flmj7bllibkp5wzdycvghfxvyzdr9g9yrr5q3m70a7wznz")))) (base32 "061xy3flmj7bllibkp5wzdycvghfxvyzdr9g9yrr5q3m70a7wznz"))))
(build-system cmake-build-system) (build-system cmake-build-system)
(arguments (arguments
`(#:configure-flags '("-DCMAKE_BUILD_TYPE=Release") (list
#:phases #:configure-flags #~(list "-DCMAKE_BUILD_TYPE=Release")
(modify-phases %standard-phases #:phases
(add-after 'unpack 'patch-tests #~(modify-phases %standard-phases
(lambda _ (add-after 'unpack 'patch-tests
(substitute* "CMakeLists.txt" (lambda _
(("BUILD_TESTING OFF") "BUILD_TESTING ON") (substitute* "CMakeLists.txt"
;; Make tests work. (("BUILD_TESTING OFF") "BUILD_TESTING ON")
((" -fvisibility=hidden") "")))) ;; Make tests work.
(add-after 'unpack 'fix-references ((" -fvisibility=hidden") ""))))
(lambda* (#:key inputs #:allow-other-keys) (add-after 'unpack 'fix-references
(substitute* "src/gui/general/ProjectPackager.cpp" (lambda* (#:key inputs #:allow-other-keys)
(("\"flac\\>") (substitute* "src/gui/general/ProjectPackager.cpp"
(string-append "\"" (assoc-ref inputs "flac") "/bin/flac")) (("\"flac\\>")
(("\"wavpack\\>") (string-append "\"" (search-input-file inputs "/bin/flac")))
(string-append "\"" (assoc-ref inputs "wavpack") "/bin/wavpack")) (("\"wavpack\\>")
(("\"wvunpack\\>") (string-append "\"" (search-input-file inputs "/bin/wavpack")))
(string-append "\"" (assoc-ref inputs "wavpack") "/bin/wvunpack")) (("\"wvunpack\\>")
(("\"bash\\>") (string-append "\"" (search-input-file inputs "/bin/wvunpack")))
(string-append "\"" (assoc-ref inputs "bash") "/bin/bash")) (("\"bash\\>")
(("\"tar\\>") (string-append "\"" (search-input-file inputs "/bin/bash")))
(string-append "\"" (assoc-ref inputs "tar") "/bin/tar"))) (("\"tar\\>")
(substitute* "src/gui/general/LilyPondProcessor.cpp" (string-append "\"" (search-input-file inputs "/bin/tar"))))
(("\"convert-ly\\>") (substitute* "src/gui/general/LilyPondProcessor.cpp"
(string-append "\"" (assoc-ref inputs "lilypond") "/bin/convert-ly")) (("\"convert-ly\\>")
(("\"lilypond\\>") (string-append "\"" (search-input-file inputs "/bin/convert-ly")))
(string-append "\"" (assoc-ref inputs "lilypond") "/bin/lilypond"))))) (("\"lilypond\\>")
(add-after 'unpack 'make-reproducible (string-append "\"" (search-input-file inputs "/bin/lilypond"))))))
(lambda _ (add-after 'unpack 'make-reproducible
;; Prevent Last-Modified from being written. (lambda _
;; The "*.qm" files that are used in locale.qrc would have a new ;; Prevent Last-Modified from being written.
;; mtime otherwise that is written into qrc_locale.cpp in the ;; The "*.qm" files that are used in locale.qrc would have a new
;; end - except when we disable it. ;; mtime otherwise that is written into qrc_locale.cpp in the
(substitute* "src/CMakeLists.txt" ;; end - except when we disable it.
(("COMMAND [$][{]QT_RCC_EXECUTABLE[}]") (substitute* "src/CMakeLists.txt"
"COMMAND ${QT_RCC_EXECUTABLE} --format-version 1") (("COMMAND [$][{]QT_RCC_EXECUTABLE[}]")
;; Extraneous. "COMMAND ${QT_RCC_EXECUTABLE} --format-version 1")
;;(("qt5_add_resources[(]rg_SOURCES ../data/data.qrc[)]") ;; Extraneous.
;; "qt5_add_resources(rg_SOURCES ../data/data.qrc OPTIONS --format-version 1)") ;;(("qt5_add_resources[(]rg_SOURCES ../data/data.qrc[)]")
) ;; "qt5_add_resources(rg_SOURCES ../data/data.qrc OPTIONS --format-version 1)")
;; Make hashtable traversal order predicable. )
(setenv "QT_RCC_TEST" "1"))) ; important ;; Make hashtable traversal order predicable.
(add-before 'check 'prepare-check (setenv "QT_RCC_TEST" "1"))) ; important
(lambda _ (add-before 'check 'prepare-check
(setenv "QT_QPA_PLATFORM" "offscreen") (lambda _
;; Tests create files in $HOME/.local/share/rosegarden . (setenv "QT_QPA_PLATFORM" "offscreen")
(mkdir-p "/tmp/foo") ;; Tests create files in $HOME/.local/share/rosegarden .
(setenv "HOME" "/tmp/foo") (mkdir-p "/tmp/foo")
(setenv "XDG_RUNTIME_DIR" "/tmp/foo")))))) (setenv "HOME" "/tmp/foo")
(setenv "XDG_RUNTIME_DIR" "/tmp/foo"))))))
(inputs (inputs
(list alsa-lib (list alsa-lib
bash bash-minimal
dssi dssi
flac flac
fftwf fftwf
@ -5087,7 +5088,7 @@ specification and header.")
wavpack wavpack
zlib)) zlib))
(native-inputs (native-inputs
(list pkg-config qttools-5)) ;for qtlinguist (list pkg-config qttools-5)) ;for qtlinguist
(synopsis "Music composition and editing environment based around a MIDI (synopsis "Music composition and editing environment based around a MIDI
sequencer") sequencer")
(description "Rosegarden is a music composition and editing environment (description "Rosegarden is a music composition and editing environment