ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-24 19:49:25 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: asunder: Use G-expressions.

Browse source 
* gnu/packages/cdrom.scm (asunder)[arguments]:
Rewrite as G-expressions and use THIS-PACKAGE-INPUT.
This commit is contained in:
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

29
gnu/packages/cdrom.scm
View file

@ -745,9 +745,10 @@ (define-public asunder
(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,19 +757,17 @@ (define-public asunder
(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
`("PATH" ":" prefix
,(map bin-directory (list "cdparanoia"
"lame"
"vorbis-tools"
"flac"
"opus-tools"
"wavpack"))))))))))
(lambda _
(wrap-program (string-append #$output "/bin/asunder")
`("PATH" ":" prefix
,(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.
(inputs `(("gtk+-2" ,gtk+-2)