me
/
guix
Archived
1
0
Fork 0
Code

gnu: helm: Improve package style. 

* gnu/packages/music.scm (helm)[arguments]: Use G-expressions.  Remove trailing  #T from phases.
[inputs]: Remove labels.  Sort alphabetically.
[native-inputs]: Sort alphabetically.
Nicolas Goaziou 2022-10-29 23:50:05 +02:00
parent 6db22e5262
commit adeecacde9
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 28 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
gnu/packages/music.scm
View File

@ -6123,40 +6123,36 @@ MIDI drums and comes as two separate drumkits: Black Pearl and Red Zeppelin.")
(patches (search-patches "helm-fix-gcc-9-build.patch")))) (patches (search-patches "helm-fix-gcc-9-build.patch"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:tests? #f ; no "check" target (list
#:make-flags #:tests? #f ; no "check" target
(list (string-append "DESTDIR=" (assoc-ref %outputs "out")) #:make-flags
"lv2" "standalone") #~(list (string-append "DESTDIR=" #$output) "lv2" "standalone")
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'include-pnglib-code-and-remove-usr-from-paths (add-after 'unpack 'include-pnglib-code-and-remove-usr-from-paths
(lambda _ (lambda _
(substitute* "standalone/builds/linux/Makefile" (substitute* (list "standalone/builds/linux/Makefile"
(("JUCE_INCLUDE_PNGLIB_CODE=0") "builds/linux/LV2/Makefile")
"JUCE_INCLUDE_PNGLIB_CODE=1")) (("JUCE_INCLUDE_PNGLIB_CODE=0") "JUCE_INCLUDE_PNGLIB_CODE=1"))
(substitute* "builds/linux/LV2/Makefile" (substitute* "Makefile"
(("JUCE_INCLUDE_PNGLIB_CODE=0") (("/usr") ""))))
"JUCE_INCLUDE_PNGLIB_CODE=1")) (add-after 'unpack 'fix-hardcoded-paths
(substitute* "Makefile" (lambda _
(("/usr") "")) (substitute* (list "src/common/load_save.cpp"
#t)) "src/editor_sections/patch_browser.cpp")
(add-after 'unpack 'fix-hardcoded-paths (("/usr") #$output))))
(lambda* (#:key outputs #:allow-other-keys) (delete 'configure))))
(substitute* (list "src/common/load_save.cpp"
"src/editor_sections/patch_browser.cpp")
(("/usr") (assoc-ref outputs "out")))))
(delete 'configure))))
(inputs (inputs
`(("alsa-lib" ,alsa-lib) (list alsa-lib
("curl" ,curl) curl
("freetype2" ,freetype) freetype
("hicolor-icon-theme" ,hicolor-icon-theme) hicolor-icon-theme
("libxcursor" ,libxcursor) jack-1
("libxinerama" ,libxinerama) libxcursor
("jack" ,jack-1) libxinerama
("mesa" ,mesa))) mesa))
(native-inputs (native-inputs
(list pkg-config lv2)) (list lv2 pkg-config))
(home-page "https://tytel.org/helm/") (home-page "https://tytel.org/helm/")
(synopsis "Polyphonic synth with lots of modulation") (synopsis "Polyphonic synth with lots of modulation")
(description "Helm is a cross-platform polyphonic synthesizer available standalone (description "Helm is a cross-platform polyphonic synthesizer available standalone