ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (define-module (gnu packages cdrom)
#:use-module ((guix licenses) #:select (lgpl2.1+ gpl2 gpl2+ gpl3+))
#:use-module (guix build-system cmake)
#: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 acl)
#:use-module (gnu packages audio)
#:use-module (gnu packages bison)
#:use-module (gnu packages compression)
#:use-module (gnu packages flex)
#:use-module (gnu packages gettext)
#:use-module (gnu packages gtk)
#:use-module (gnu packages glib)
#:use-module (gnu packages man)
#:use-module (gnu packages mp3)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages elf)
#:use-module (gnu packages pkg-config)
@ -398,3 +403,56 @@ (define-public geteltorito
Image data is written to standard output by default and all other
information is written to standard error.")
(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)))