me
/
guix
Archived
1
0
Fork 0
Code

gnu: emacs-emms-print-metadata: Improve package style. 

* gnu/packages/emacs-xyz.scm (emacs-emms-print-metadata)[arguments]: Use G-expressions.
master
Nicolas Goaziou 2022-07-04 15:37:31 +02:00
parent 97be378dae
commit 477e561a46
No known key found for this signature in database
GPG Key ID: DA00B4F048E92F2D
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
gnu/packages/emacs-xyz.scm
View File

@ -2381,18 +2381,18 @@ incrementally confined in Isearch manner.")
(base32 "000lqhsafyh1n293ksnlyavxv1pzl5pazds4sgxjcqd45lyn55ii")))) (base32 "000lqhsafyh1n293ksnlyavxv1pzl5pazds4sgxjcqd45lyn55ii"))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:make-flags '("emms-print-metadata") (list
#:tests? #f ; No tests. #:make-flags #~(list "emms-print-metadata")
#:phases #:tests? #f ; No tests.
(modify-phases %standard-phases #:phases
(delete 'configure) #~(modify-phases %standard-phases
(replace 'install (delete 'configure)
(lambda* (#:key outputs #:allow-other-keys) (replace 'install
(let* ((out (assoc-ref outputs "out"))) (lambda _
(install-file "src/emms-print-metadata" (install-file "src/emms-print-metadata"
(string-append out "/bin")) (string-append #$output "/bin"))
(install-file "emms-print-metadata.1" (install-file "emms-print-metadata.1"
(string-append out "/share/man/man1")))))))) (string-append #$output "/share/man/man1")))))))
(inputs (inputs
(list taglib)) (list taglib))
(home-page "https://www.gnu.org/software/emms/") (home-page "https://www.gnu.org/software/emms/")