ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 04:29: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")))) (base32 "0srpag9bca76iiv8766kxmbvhsri58k15xp70348frkvp7hy4s48"))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments
'(#:out-of-source? #f (list
#:out-of-source? #f
#:phases #:phases
(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'check 'fix-tests (add-before 'check 'fix-tests
;; As of 3.0.1, there are no ‘real’ tests under src/, and the linty ;; 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. ;; test under po/ is broken. Still, it's trivial to fix.
@ -756,19 +757,17 @@ (define-public asunder
(format file "~%src/upload.c~%") (format file "~%src/upload.c~%")
(close-port file)))) (close-port file))))
(add-after 'install 'wrap (add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys) (lambda _
(let ((program (string-append (assoc-ref outputs "out") (wrap-program (string-append #$output "/bin/asunder")
"/bin/asunder"))) `("PATH" ":" prefix
(define (bin-directory input-name) ,(map (lambda (input) (string-append input "/bin"))
(string-append (assoc-ref inputs input-name) "/bin")) '#$(map (lambda (label) (this-package-input label))
(wrap-program program (list "cdparanoia"
`("PATH" ":" prefix "flac"
,(map bin-directory (list "cdparanoia" "lame"
"lame" "opus-tools"
"vorbis-tools" "vorbis-tools"
"flac" "wavpack"))))))))))
"opus-tools"
"wavpack"))))))))))
(native-inputs (list intltool pkg-config)) (native-inputs (list intltool pkg-config))
;; TODO: Add the necessary packages for Musepack encoding. ;; TODO: Add the necessary packages for Musepack encoding.
(inputs `(("gtk+-2" ,gtk+-2) (inputs `(("gtk+-2" ,gtk+-2)