amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: ardour: Use G-expressions.

Browse source 
* gnu/packages/audio.scm (ardour)[arguments]: Drop the quasiquote and use
G-expressions to refer to outputs.
This commit is contained in:
Ricardo Wurmus 2023-10-10 09:31:51 +02:00
parent 7adc5df914
commit ef3d3a7f11
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 55 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

31
gnu/packages/audio.scm
View file

@ -756,19 +756,21 @@ namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \
(file-name (string-append name "-" version)))) (file-name (string-append name "-" version))))
(build-system waf-build-system) (build-system waf-build-system)
(arguments (arguments
`(#:configure-flags '("--cxx11" ; required by gtkmm (list
#:configure-flags
'(list "--cxx11" ;required by gtkmm
"--optimize" "--optimize"
"--no-phone-home" ;don't contact ardour.org "--no-phone-home" ;don't contact ardour.org
"--freedesktop" ;build .desktop file "--freedesktop" ;build .desktop file
"--test" ;build unit tests "--test" ;build unit tests
"--use-external-libs") ;use system libraries "--use-external-libs") ;use system libraries
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'unpack 'set-rpath-in-LDFLAGS (add-after 'unpack 'set-rpath-in-LDFLAGS
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let ((libdir (string-append (assoc-ref outputs "out") (let ((libdir (string-append #$output
"/lib/ardour" "/lib/ardour"
,(version-major version)))) #$(version-major version))))
(substitute* "wscript" (substitute* "wscript"
(("linker_flags = \\[\\]") (("linker_flags = \\[\\]")
(string-append "linker_flags = [\"" (string-append "linker_flags = [\""
@ -783,10 +785,9 @@ namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \
(lambda _ (lambda _
(invoke "python" "waf" "i18n"))) (invoke "python" "waf" "i18n")))
(add-after 'install 'install-freedesktop-files (add-after 'install 'install-freedesktop-files
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let ((share (string-append #$output "/share"))
(share (string-append out "/share")) (ver #$(version-major version)))
(ver ,(version-major version)))
(for-each (for-each
(lambda (size) (lambda (size)
(let ((dir (string-append share "/icons/hicolor/" (let ((dir (string-append share "/icons/hicolor/"
@ -804,16 +805,16 @@ namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \
ver ".appdata.xml") ver ".appdata.xml")
(string-append share "/appdata/"))))) (string-append share "/appdata/")))))
(add-after 'install 'install-man-page (add-after 'install 'install-man-page
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(install-file "ardour.1" (string-append (assoc-ref outputs "out") (install-file "ardour.1" (string-append #$output
"/share/man/man1")))) "/share/man/man1"))))
(add-after 'install 'install-bundled-media (add-after 'install 'install-bundled-media
(lambda* (#:key outputs #:allow-other-keys) (lambda _
(invoke "unzip" "-d" (string-append (assoc-ref outputs "out") (invoke "unzip" "-d" (string-append #$output
"/share/ardour" "/share/ardour"
,(version-major version) #$(version-major version)
"/media/") "/media/")
,ardour-bundled-media)))) #$ardour-bundled-media))))
#:test-target "test")) #:test-target "test"))
(inputs (inputs
(list alsa-lib (list alsa-lib