TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki 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

18
gnu/packages/audio.scm
View file

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