amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: abcde: Improve style.

Browse source 
* gnu/packages/cdrom.scm (abcde):
[source]: Run guix style, remove snippet.
[arguments]<#:modules>: Add srfi-26.
<#:phases>: Remove 'configure, migrate it and the snippet to
<#:make-flags>. Rewrite the 'wrap phase.
[native-inputs]: Add coreutils-minimal.

Signed-off-by: jgart <jgart@dismail.de>
This commit is contained in:
Nicolas Graves 2025-08-14 13:27:27 +02:00 • committed by jgart
parent 5940faa8d1
commit dd63521f33
No known key found for this signature in database
GPG key ID: A52AA2B477B6DD35
1 changed files with 36 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

98
gnu/packages/cdrom.scm
View file

@ -717,69 +717,44 @@ from an audio CD.")
(name "abcde")
(version "2.9.3")
(home-page "https://abcde.einval.com/")
(source (origin
(method url-fetch)
(uri (string-append home-page "/download/abcde-"
version ".tar.gz"))
(sha256
(base32
"091ip2iwb6b67bhjsj05l0sxyq2whqjycbzqpkfbpm4dlyxx0v04"))
(modules '((guix build utils)))
(snippet
'(begin
(substitute* "Makefile"
(("/usr/bin/install")
"install"))))))
(source
(origin
(method url-fetch)
(uri (string-append home-page "/download/abcde-" version ".tar.gz"))
(sha256
(base32 "091ip2iwb6b67bhjsj05l0sxyq2whqjycbzqpkfbpm4dlyxx0v04"))))
(build-system gnu-build-system)
(arguments
'(#:phases
(modify-phases %standard-phases
(replace 'configure
(lambda* (#:key outputs inputs #:allow-other-keys)
(substitute* "Makefile"
(("^prefix = .*$")
(string-append "prefix = "
(assoc-ref outputs "out")
"\n"))
(("^sysconfdir = .*$")
(string-append "sysconfdir = "
(assoc-ref outputs "out")
"/etc/\n")))))
(add-after 'install 'wrap
(lambda* (#:key inputs outputs #:allow-other-keys)
(let ((wget (assoc-ref inputs "wget"))
(vorbis (assoc-ref inputs "vorbis-tools"))
(parano (assoc-ref inputs "cdparanoia"))
(which (assoc-ref inputs "which"))
(discid (assoc-ref inputs "cd-discid"))
(perl-discid (assoc-ref inputs "perl-musicbrainz-discid"))
(perl-ws (assoc-ref inputs "perl-webservice-musicbrainz"))
(perl-mojo (assoc-ref inputs "perl-mojolicious"))
(flac (assoc-ref inputs "flac"))
(out (assoc-ref outputs "out")))
(define (wrap file)
(wrap-program file
`("PATH" ":" prefix
(,(string-append out "/bin:"
wget "/bin:"
flac "/bin:"
which "/bin:"
vorbis "/bin:"
discid "/bin:"
parano "/bin")))
`("PERL5LIB" ":" prefix
(,(string-append perl-discid
"/lib/perl5/site_perl:"
perl-ws
"/lib/perl5/site_perl:"
perl-mojo
"/lib/perl5/site_perl")))))
(for-each wrap
(find-files (string-append out "/bin")
".*"))))))
#:tests? #f)) ; no test target
(list
#:tests? #f ; No test target.
#:modules `((guix build gnu-build-system)
(guix build utils)
(srfi srfi-26))
#:make-flags
#~(list (string-append "INSTALL="
#$(this-package-native-input "coreutils-minimal")
"/bin/install -c")
(string-append "prefix = " #$output)
(string-append "sysconfdir = " #$output "/etc/"))
#:phases
#~(modify-phases %standard-phases
(delete 'configure)
(add-after 'install 'wrap
(lambda* (#:key inputs #:allow-other-keys)
(for-each
(cut wrap-program <>
`("PATH" ":" prefix
,(map (compose dirname (cut search-input-file inputs <>))
(list "/bin/wget"
"/bin/flac"
"/bin/which"
"/bin/ogginfo"
"/bin/cd-discid"
"/bin/cdparanoia")))
`("PERL5LIB" ":" prefix
(,(getenv "PERL5LIB"))))
(find-files (string-append #$output "/bin"))))))))
(native-inputs (list coreutils-minimal))
(inputs (list bash-minimal
wget
which
@ -793,7 +768,6 @@ from an audio CD.")
;; A couple of Python and Perl scripts are included.
python
perl))
(synopsis "Command-line audio CD ripper")
(description
"abcde is a front-end command-line utility (actually, a shell script)