ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 14:28:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: a2jmidid: Use G-expressions.

Browse source 
* gnu/packages/music.scm (a2jmidid)[arguments]: Use G-expressions.

Change-Id: I05101e63ff5aec8946f6f8f187bb5a02960e0901
Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
Z572 2023-06-27 00:56:23 +08:00 committed by 宋文武
parent 3ea55fada0
commit a66a5d55c5
No known key found for this signature in database
GPG key ID: D415BF253B515976
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/packages/music.scm
View file

@ -54,6 +54,7 @@
;;; Copyright © 2023 Antero Mejr <antero@mailbox.org> ;;; Copyright © 2023 Antero Mejr <antero@mailbox.org>
;;; Copyright © 2023, 2024 Sharlatan Hellseher <sharlatanus@gmail.com> ;;; Copyright © 2023, 2024 Sharlatan Hellseher <sharlatanus@gmail.com>
;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream> ;;; Copyright © 2023 Yovan Naumovski <yovan@gorski.stream>
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -7250,18 +7251,16 @@ (define-public a2jmidid
(base32 "1x6rcl3f4nklnx4p5jln9a7fpj9y7agjxs9rw7cccmwnski7pnsq")) (base32 "1x6rcl3f4nklnx4p5jln9a7fpj9y7agjxs9rw7cccmwnski7pnsq"))
(file-name (git-file-name name version)))) (file-name (git-file-name name version))))
(arguments (arguments
`(#:tests? #f ; No tests. (list #:tests? #f ; No tests.
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'wrap-programs (add-after 'install 'wrap-programs
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda* (#:key inputs outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out")) (let ((bin (string-append #$output "/bin/")))
(bin (string-append out "/bin/")))
(substitute* (string-append bin "a2j") (substitute* (string-append bin "a2j")
(("a2j_control") (string-append bin "a2j_control"))) (("a2j_control") (string-append bin "a2j_control")))
(wrap-program (string-append bin "a2j_control") (wrap-program (string-append bin "a2j_control")
`("PYTHONPATH" prefix (,(getenv "GUIX_PYTHONPATH")))) `("PYTHONPATH" prefix (,(getenv "GUIX_PYTHONPATH"))))))))))
#t))))))
(build-system meson-build-system) (build-system meson-build-system)
(inputs (inputs
(list alsa-lib (list alsa-lib