ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58: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

23
gnu/packages/music.scm
View file

@ -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 @@ (define-public a2jmidid
(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