me/guix
Archived
1
0
Fork 0
Code Activity

gnu: butt: Use G-expressions.

Browse source 
* gnu/packages/audio.scm (butt)[arguments]:
Rewrite as G-expressions.
This commit is contained in:
Tobias Geerinckx-Rice 2022-05-01 02:00:01 +02:00
parent cb8e483c78
commit 027c21dcf7
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
gnu/packages/audio.scm
View file

@ -5466,15 +5466,15 @@ while still staying in time.")
((".*zica.*") ""))))) ((".*zica.*") "")))))
(build-system gnu-build-system) (build-system gnu-build-system)
(arguments (arguments
`(#:phases (list #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-after 'install 'install-documentation (add-after 'install 'install-documentation
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda _
(let* ((out (assoc-ref outputs "out")) (let ((doc (string-append #$output "/share/doc/"
(manual (assoc-ref inputs "manual")) #$name "-" #$version)))
(doc (string-append out "/share/doc/" ,name "-" ,version)))
(install-file "README" doc) (install-file "README" doc)
(copy-file manual (string-append doc "/butt-manual.pdf")))))))) (copy-file #$(this-package-native-input "manual")
(string-append doc "/butt-manual.pdf"))))))))
(native-inputs (native-inputs
`(("pkg-config" ,pkg-config) `(("pkg-config" ,pkg-config)
("manual" ("manual"