aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2023-10-10 09:31:51 +0200
committerRicardo Wurmus <rekado@elephly.net>2023-10-10 09:36:31 +0200
commitef3d3a7f11f19ad8aa56980c4b4cc7035c827dfe (patch)
treee25e9f624a84bfdb71116a2e70d7efd23100f1c2 /gnu
parent7adc5df9141a3212365d9bf95543c6079712b7af (diff)
downloadguix-ef3d3a7f11f19ad8aa56980c4b4cc7035c827dfe.tar.gz
guix-ef3d3a7f11f19ad8aa56980c4b4cc7035c827dfe.zip
gnu: ardour: Use G-expressions.
* gnu/packages/audio.scm (ardour)[arguments]: Drop the quasiquote and use G-expressions to refer to outputs.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/packages/audio.scm109
1 files changed, 55 insertions, 54 deletions
diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm
index 087157d77c..7c49ba1841 100644
--- a/gnu/packages/audio.scm
+++ b/gnu/packages/audio.scm
@@ -756,64 +756,65 @@ namespace ARDOUR { const char* revision = \"" version "\" ; const char* date = \
(file-name (string-append name "-" version))))
(build-system waf-build-system)
(arguments
- `(#:configure-flags '("--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
+ (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
#: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")
- "/lib/ardour"
- ,(version-major version))))
- (substitute* "wscript"
- (("linker_flags = \\[\\]")
- (string-append "linker_flags = [\""
- "-Wl,-rpath="
- libdir ":"
- libdir "/backends" ":"
- libdir "/engines" ":"
- libdir "/panners" ":"
- libdir "/surfaces" ":"
- libdir "/vamp" "\"]"))))))
- (add-after 'build 'build-i18n
- (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)))
- (for-each
- (lambda (size)
- (let ((dir (string-append share "/icons/hicolor/"
- size "x" size "/apps")))
- (mkdir-p dir)
- (copy-file
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'set-rpath-in-LDFLAGS
+ (lambda _
+ (let ((libdir (string-append #$output
+ "/lib/ardour"
+ #$(version-major version))))
+ (substitute* "wscript"
+ (("linker_flags = \\[\\]")
+ (string-append "linker_flags = [\""
+ "-Wl,-rpath="
+ libdir ":"
+ libdir "/backends" ":"
+ libdir "/engines" ":"
+ libdir "/panners" ":"
+ libdir "/surfaces" ":"
+ libdir "/vamp" "\"]"))))))
+ (add-after 'build 'build-i18n
+ (lambda _
+ (invoke "python" "waf" "i18n")))
+ (add-after 'install 'install-freedesktop-files
+ (lambda _
+ (let ((share (string-append #$output "/share"))
+ (ver #$(version-major version)))
+ (for-each
+ (lambda (size)
+ (let ((dir (string-append share "/icons/hicolor/"
+ size "x" size "/apps")))
+ (mkdir-p dir)
+ (copy-file
(string-append "gtk2_ardour/resources/Ardour-icon_"
size "px.png")
(string-append dir "/ardour" ver ".png"))))
- '("16" "22" "32" "48" "256"))
- (install-file (string-append "build/gtk2_ardour/ardour"
- ver ".desktop")
- (string-append share "/applications/"))
- (install-file (string-append "build/gtk2_ardour/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")
- "/share/man/man1"))))
- (add-after 'install 'install-bundled-media
- (lambda* (#:key outputs #:allow-other-keys)
- (invoke "unzip" "-d" (string-append (assoc-ref outputs "out")
- "/share/ardour"
- ,(version-major version)
- "/media/")
- ,ardour-bundled-media))))
+ '("16" "22" "32" "48" "256"))
+ (install-file (string-append "build/gtk2_ardour/ardour"
+ ver ".desktop")
+ (string-append share "/applications/"))
+ (install-file (string-append "build/gtk2_ardour/ardour"
+ ver ".appdata.xml")
+ (string-append share "/appdata/")))))
+ (add-after 'install 'install-man-page
+ (lambda _
+ (install-file "ardour.1" (string-append #$output
+ "/share/man/man1"))))
+ (add-after 'install 'install-bundled-media
+ (lambda _
+ (invoke "unzip" "-d" (string-append #$output
+ "/share/ardour"
+ #$(version-major version)
+ "/media/")
+ #$ardour-bundled-media))))
#:test-target "test"))
(inputs
(list alsa-lib