diff options
| author | Sharlatan Hellseher <sharlatanus@gmail.com> | 2024-11-09 11:41:13 +0000 |
|---|---|---|
| committer | Sharlatan Hellseher <sharlatanus@gmail.com> | 2024-12-13 20:19:07 +0000 |
| commit | 037155cfdbecb3df2618c2e842b6b077e5126035 (patch) | |
| tree | ad7e0fb4cd98fbbedd2708d9d273da5ba340b720 | |
| parent | 4f188f6dc3304d960b63d660e360f363e5576e2f (diff) | |
| download | guix-037155cfdbecb3df2618c2e842b6b077e5126035.tar.gz guix-037155cfdbecb3df2618c2e842b6b077e5126035.zip | |
gnu: beets: Use G-expressions.
* gnu/packages/music.scm (beets): Use G-expressions.
[arguments]<phases>: Remove trailing #f from lambdas.
Change-Id: I88e0fb825ab4b352a698beb504bc42ce60c9f001
| -rw-r--r-- | gnu/packages/music.scm | 42 |
1 files changed, 20 insertions, 22 deletions
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index 689d426d7f..fdf15ce018 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -4227,28 +4227,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 |