me/guix
Archived
1
0
Fork 0
Code Activity

gnu: Add asunder.

Browse source 
* gnu/packages/cdrom.scm (asunder): New variable.

Signed-off-by: Leo Famulari <leo@famulari.name>
This commit is contained in:
Chris Marusich 2016-12-17 01:06:48 -08:00 • committed by Leo Famulari
parent d0f1673dc3
commit 426e6083ae
No known key found for this signature in database
GPG key ID: 2646FA30BACA7F08
1 changed files with 58 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/packages/cdrom.scm
View file

@ -28,14 +28,19 @@
#:use-module ((guix licenses) #:select (lgpl2.1+ gpl2 gpl2+ gpl3+)) #:use-module ((guix licenses) #:select (lgpl2.1+ gpl2 gpl2+ gpl3+))
#:use-module (guix build-system cmake) #:use-module (guix build-system cmake)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix build-system glib-or-gtk)
#:use-module (guix gexp)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages acl) #:use-module (gnu packages acl)
#:use-module (gnu packages audio)
#:use-module (gnu packages bison) #:use-module (gnu packages bison)
#:use-module (gnu packages compression) #:use-module (gnu packages compression)
#:use-module (gnu packages flex) #:use-module (gnu packages flex)
#:use-module (gnu packages gettext) #:use-module (gnu packages gettext)
#:use-module (gnu packages gtk) #:use-module (gnu packages gtk)
#:use-module (gnu packages glib)
#:use-module (gnu packages man) #:use-module (gnu packages man)
#:use-module (gnu packages mp3)
#:use-module (gnu packages ncurses) #:use-module (gnu packages ncurses)
#:use-module (gnu packages elf) #:use-module (gnu packages elf)
#:use-module (gnu packages pkg-config) #:use-module (gnu packages pkg-config)
@ -398,3 +403,56 @@ for bootable CD-ROMs.
Image data is written to standard output by default and all other Image data is written to standard output by default and all other
information is written to standard error.") information is written to standard error.")
(license gpl2+))) (license gpl2+)))
(define-public asunder
(package
(name "asunder")
(version "2.8")
(source (origin
(method url-fetch)
(uri
(string-append "http://www.littlesvr.ca/asunder/releases/asunder-"
version
".tar.bz2"))
(sha256
(base32
"1nq9kd4rd4k2kibf57gdbm0zw2gxa234vvvdhxkm8g5bhx5h3iyq"))))
(build-system glib-or-gtk-build-system)
(arguments
'(#:out-of-source? #f
#:phases (modify-phases %standard-phases
(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"))))))))))
(native-inputs `(("intltool" ,intltool)
("pkg-config" ,pkg-config)))
;; TODO: Add the necessary packages for Musepack encoding.
(inputs `(("gtk+-2" ,gtk+-2)
("glib" ,glib)
("libcddb" ,libcddb)
("cdparanoia" ,cdparanoia)
("lame" ,lame)
("vorbis-tools" ,vorbis-tools)
("flac" ,flac)
("opus-tools" ,opus-tools)
("wavpack" ,wavpack)))
(home-page "http://www.littlesvr.ca/asunder/")
(synopsis "Graphical audio CD ripper and encoder")
(description
"Asunder is a graphical audio CD ripper and encoder. It can save audio
tracks as WAV, MP3, Ogg Vorbis, FLAC, Opus, Wavpack, and Musepack. It can use
CDDB to name and tag each track automatically, and it allows for each track to
be by a different artist. Asunder can encode to multiple formats in one
session, and it can create M3U playlists.")
(license gpl2)))