From ef3d3a7f11f19ad8aa56980c4b4cc7035c827dfe Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Tue, 10 Oct 2023 09:31:51 +0200
Subject: gnu: ardour: Use G-expressions.

* gnu/packages/audio.scm (ardour)[arguments]: Drop the quasiquote and use
G-expressions to refer to outputs.
---
 gnu/packages/audio.scm | 109 +++++++++++++++++++++++++------------------------
 1 file changed, 55 insertions(+), 54 deletions(-)

(limited to 'gnu/packages/audio.scm')

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
-- 
cgit v1.2.3