281/361: gnu: beets: Use G-expressions.

[guix-commits]

sharlatan pushed a commit to branch python-team
in repository guix.

commit 9dbb8777dbc118c12a246bc42668d7b5bd2d5609
Author: Sharlatan Hellseher <sharlata...@gmail.com>
AuthorDate: Sat Nov 9 11:41:13 2024 +0000

    gnu: beets: Use G-expressions.
    
    * gnu/packages/music.scm (beets): Use G-expressions.
    [arguments]<phases>: Remove trailing #f from lambdas.
    
    Change-Id: I88e0fb825ab4b352a698beb504bc42ce60c9f001
---
 gnu/packages/music.scm | 42 ++++++++++++++++++++----------------------
 1 file changed, 20 insertions(+), 22 deletions(-)

diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm
index 5da394ad5d..3c18aadb7d 100644
--- a/gnu/packages/music.scm
+++ b/gnu/packages/music.scm
@@ -4192,28 +4192,26 @@ websites such as Libre.fm.")
                 "0paj2nxvdx4zz9xawjpbsh0dy1kp9kfhxg8akh1rpz2awhsbfvxa"))))
     (build-system python-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'set-HOME
-           (lambda _
-             (setenv "HOME" (string-append (getcwd) "/tmp"))
-             #t))
-         (replace 'check
-           (lambda* (#:key tests? #:allow-other-keys)
-             (when tests?
-               (invoke "pytest" "-v" "test"))))
-         ;; Wrap the executable, so it can find python-gi (aka
-         ;; pygobject) and gstreamer plugins.
-         (add-after 'wrap 'wrap-typelib
-           (lambda* (#:key outputs #:allow-other-keys)
-             (let ((prog (string-append (assoc-ref outputs "out")
-                                        "/bin/beet"))
-                   (plugins (getenv "GST_PLUGIN_SYSTEM_PATH"))
-                   (types (getenv "GI_TYPELIB_PATH")))
-               (wrap-program prog
-                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,plugins))
-                 `("GI_TYPELIB_PATH" ":" prefix (,types)))
-               #t))))))
+     (list
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'set-HOME
+            (lambda _
+              (setenv "HOME" (string-append (getcwd) "/tmp"))))
+          (replace 'check
+            (lambda* (#:key tests? #:allow-other-keys)
+              (when tests?
+                (invoke "pytest" "-v" "test"))))
+          ;; Wrap the executable, so it can find python-gi (aka
+          ;; pygobject) and gstreamer plugins.
+          (add-after 'wrap 'wrap-typelib
+            (lambda* (#:key outputs #:allow-other-keys)
+              (let ((prog (string-append #$output "/bin/beet"))
+                    (plugins (getenv "GST_PLUGIN_SYSTEM_PATH"))
+                    (types (getenv "GI_TYPELIB_PATH")))
+                (wrap-program prog
+                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,plugins))
+                  `("GI_TYPELIB_PATH" ":" prefix (,types)))))))))
     (native-inputs
      (list gobject-introspection
            python-flask