me/guix
Archived
1
0
Fork 0
Code Activity

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
Show stats Download patch file Download diff file Expand all files Collapse all files

109
gnu/packages/audio.scm
View file

@ -756,64 +756,65 @@ 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
"--optimize" #:configure-flags
"--no-phone-home" ; don't contact ardour.org '(list "--cxx11" ;required by gtkmm
"--freedesktop" ; build .desktop file "--optimize"
"--test" ; build unit tests "--no-phone-home" ;don't contact ardour.org
"--use-external-libs") ; use system libraries "--freedesktop" ;build .desktop file
"--test" ;build unit tests
"--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 = [\""
"-Wl,-rpath=" "-Wl,-rpath="
libdir ":" libdir ":"
libdir "/backends" ":" libdir "/backends" ":"
libdir "/engines" ":" libdir "/engines" ":"
libdir "/panners" ":" libdir "/panners" ":"
libdir "/surfaces" ":" libdir "/surfaces" ":"
libdir "/vamp" "\"]")))))) libdir "/vamp" "\"]"))))))
(add-after 'build 'build-i18n (add-after 'build 'build-i18n
(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/" size "x" size "/apps")))
size "x" size "/apps"))) (mkdir-p dir)
(mkdir-p dir) (copy-file
(copy-file
(string-append "gtk2_ardour/resources/Ardour-icon_" (string-append "gtk2_ardour/resources/Ardour-icon_"
size "px.png") size "px.png")
(string-append dir "/ardour" ver ".png")))) (string-append dir "/ardour" ver ".png"))))
'("16" "22" "32" "48" "256")) '("16" "22" "32" "48" "256"))
(install-file (string-append "build/gtk2_ardour/ardour" (install-file (string-append "build/gtk2_ardour/ardour"
ver ".desktop") ver ".desktop")
(string-append share "/applications/")) (string-append share "/applications/"))
(install-file (string-append "build/gtk2_ardour/ardour" (install-file (string-append "build/gtk2_ardour/ardour"
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