me
/
guix
Archived
1
0
Fork 0
Code

gnu: asunder: Use G-expressions. 

* gnu/packages/cdrom.scm (asunder)[arguments]:
Rewrite as G-expressions and use THIS-PACKAGE-INPUT.
master
Tobias Geerinckx-Rice 2023-07-23 02:00:00 +02:00
parent 56f954e305
commit 7e9b6b7ee7
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
gnu/packages/cdrom.scm
View File

@ -745,9 +745,10 @@ information is written to standard error.")
(base32 "0srpag9bca76iiv8766kxmbvhsri58k15xp70348frkvp7hy4s48"))))
(build-system glib-or-gtk-build-system)
(arguments
'(#:out-of-source? #f
(list
#:out-of-source? #f
#:phases
(modify-phases %standard-phases
#~(modify-phases %standard-phases
(add-before 'check 'fix-tests
;; As of 3.0.1, there are no ‘real’ tests under src/, and the linty
;; test under po/ is broken. Still, it's trivial to fix.
@ -756,18 +757,16 @@ information is written to standard error.")
(format file "~%src/upload.c~%")
(close-port file))))
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((program (string-append (assoc-ref outputs "out")
"/bin/asunder")))
(define (bin-directory input-name)
(string-append (assoc-ref inputs input-name) "/bin"))
(wrap-program program
(lambda _
(wrap-program (string-append #$output "/bin/asunder")
`("PATH" ":" prefix
,(map bin-directory (list "cdparanoia"
"lame"
"vorbis-tools"
,(map (lambda (input) (string-append input "/bin"))
'#$(map (lambda (label) (this-package-input label))
(list "cdparanoia"
"flac"
"lame"
"opus-tools"
"vorbis-tools"
"wavpack"))))))))))
(native-inputs (list intltool pkg-config))
;; TODO: Add the necessary packages for Musepack encoding.