diff options
| author | Z572 <873216071@qq.com> | 2023-06-27 00:56:23 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@member.fsf.org> | 2024-03-19 19:01:18 +0800 |
| commit | a66a5d55c58a3389bb241243b5b1d2ec1975fa9e (patch) | |
| tree | c8619c56e33477c6e27a66d757ebd08389bba0b8 /gnu/packages/music.scm | |
| parent | 3ea55fada0593cd05c686cef2f6a59ba65933ef5 (diff) | |
gnu: a2jmidid: Use G-expressions.
* gnu/packages/music.scm (a2jmidid)[arguments]: Use G-expressions.
Change-Id: I05101e63ff5aec8946f6f8f187bb5a02960e0901
Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
Diffstat (limited to 'gnu/packages/music.scm')
| -rw-r--r-- | gnu/packages/music.scm | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index 9fce768445..c0137ed548 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -54,6 +54,7 @@ ;;; Copyright © 2023 Antero Mejr <antero@mailbox.org> ;;; Copyright © 2023, 2024 Sharlatan Hellseher <sharlatanus@gmail.com> ;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream> +;;; Copyright © 2023 Zheng Junjie <873216071@qq.com> ;;; ;;; This file is part of GNU Guix. ;;; @@ -7250,18 +7251,16 @@ It is provided as an LV2 plugin and as a standalone Jack application.") (base32 "1x6rcl3f4nklnx4p5jln9a7fpj9y7agjxs9rw7cccmwnski7pnsq")) (file-name (git-file-name name version)))) (arguments - `(#:tests? #f ; No tests. - #:phases - (modify-phases %standard-phases - (add-after 'install 'wrap-programs - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin/"))) - (substitute* (string-append bin "a2j") - (("a2j_control") (string-append bin "a2j_control"))) - (wrap-program (string-append bin "a2j_control") - `("PYTHONPATH" prefix (,(getenv "GUIX_PYTHONPATH")))) - #t)))))) + (list #:tests? #f ; No tests. + #:phases + #~(modify-phases %standard-phases + (add-after 'install 'wrap-programs + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((bin (string-append #$output "/bin/"))) + (substitute* (string-append bin "a2j") + (("a2j_control") (string-append bin "a2j_control"))) + (wrap-program (string-append bin "a2j_control") + `("PYTHONPATH" prefix (,(getenv "GUIX_PYTHONPATH")))))))))) (build-system meson-build-system) (inputs (list alsa-lib |