TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki 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

39
gnu/packages/audio.scm
View file

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