02/07: gnu: asunder: Use G-expressions.

[guix-commits]

nckx pushed a commit to branch master
in repository guix.

commit 7e9b6b7ee78eff87fbcee34512df18e7b4ee75cd
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Jul 23 02:00:00 2023 +0200

    gnu: asunder: Use G-expressions.
    
    * gnu/packages/cdrom.scm (asunder)[arguments]:
    Rewrite as G-expressions and use THIS-PACKAGE-INPUT.
---
 gnu/packages/cdrom.scm | 29 ++++++++++++++---------------
 1 file changed, 14 insertions(+), 15 deletions(-)

diff --git a/gnu/packages/cdrom.scm b/gnu/packages/cdrom.scm
index 130fffc127..de31002ac1 100644
--- a/gnu/packages/cdrom.scm
+++ b/gnu/packages/cdrom.scm
@@ -745,9 +745,10 @@ information is written to standard error.")
         (base32 "0srpag9bca76iiv8766kxmbvhsri58k15xp70348frkvp7hy4s48"))))
     (build-system glib-or-gtk-build-system)
     (arguments
-     '(#:out-of-source? #f
+     (list
+      #:out-of-source? #f
        #:phases
-       (modify-phases %standard-phases
+       #~(modify-phases %standard-phases
          (add-before 'check 'fix-tests
            ;; As of 3.0.1, there are no ‘real’ tests under src/, and the linty
            ;; test under po/ is broken.  Still, it's trivial to fix.
@@ -756,19 +757,17 @@ information is written to standard error.")
                (format file "~%src/upload.c~%")
                (close-port file))))
          (add-after 'install 'wrap
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (let ((program (string-append (assoc-ref outputs "out")
-                                           "/bin/asunder")))
-               (define (bin-directory input-name)
-                 (string-append (assoc-ref inputs input-name) "/bin"))
-               (wrap-program program
-                 `("PATH" ":" prefix
-                   ,(map bin-directory (list "cdparanoia"
-                                             "lame"
-                                             "vorbis-tools"
-                                             "flac"
-                                             "opus-tools"
-                                             "wavpack"))))))))))
+           (lambda _
+             (wrap-program (string-append #$output "/bin/asunder")
+               `("PATH" ":" prefix
+                 ,(map (lambda (input) (string-append input "/bin"))
+                       '#$(map (lambda (label) (this-package-input label))
+                               (list "cdparanoia"
+                                     "flac"
+                                     "lame"
+                                     "opus-tools"
+                                     "vorbis-tools"
+                                     "wavpack"))))))))))
     (native-inputs (list intltool pkg-config))
     ;; TODO: Add the necessary packages for Musepack encoding.
     (inputs `(("gtk+-2" ,gtk+-2)