| 1 | ;;; GNU Guix --- Functional package management for GNU |
| 2 | ;;; Copyright © 2013, 2014, 2015, 2018 Ludovic Courtès <ludo@gnu.org> |
| 3 | ;;; Copyright © 2013, 2014 Andreas Enge <andreas@enge.fr> |
| 4 | ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com> |
| 5 | ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org> |
| 6 | ;;; Copyright © 2015, 2016, 2017, 2018 Efraim Flashner <efraim@flashner.co.il> |
| 7 | ;;; Copyright © 2016 Alex Kost <alezost@gmail.com> |
| 8 | ;;; Copyright © 2016 Marius Bakke <mbakke@fastmail.com> |
| 9 | ;;; Copyright © 2017 John Darrington <jmd@gnu.org> |
| 10 | ;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be> |
| 11 | ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr> |
| 12 | ;;; Copyright © 2017 Nils Gillmann <ng0@n0.is> |
| 13 | ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com> |
| 14 | ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> |
| 15 | ;;; Copyright © 2019 Eric Bavier <bavier@member.fsf.org> |
| 16 | ;;; |
| 17 | ;;; This file is part of GNU Guix. |
| 18 | ;;; |
| 19 | ;;; GNU Guix is free software; you can redistribute it and/or modify it |
| 20 | ;;; under the terms of the GNU General Public License as published by |
| 21 | ;;; the Free Software Foundation; either version 3 of the License, or (at |
| 22 | ;;; your option) any later version. |
| 23 | ;;; |
| 24 | ;;; GNU Guix is distributed in the hope that it will be useful, but |
| 25 | ;;; WITHOUT ANY WARRANTY; without even the implied warranty of |
| 26 | ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 27 | ;;; GNU General Public License for more details. |
| 28 | ;;; |
| 29 | ;;; You should have received a copy of the GNU General Public License |
| 30 | ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. |
| 31 | |
| 32 | (define-module (gnu packages cdrom) |
| 33 | #:use-module (guix download) |
| 34 | #:use-module (guix git-download) |
| 35 | #:use-module (guix packages) |
| 36 | #:use-module ((guix licenses) #:select (lgpl2.1+ gpl2 gpl2+ gpl3+ cddl1.0)) |
| 37 | #:use-module (guix build-system cmake) |
| 38 | #:use-module (guix build-system gnu) |
| 39 | #:use-module (guix build-system glib-or-gtk) |
| 40 | #:use-module (guix gexp) |
| 41 | #:use-module (gnu packages) |
| 42 | #:use-module (gnu packages acl) |
| 43 | #:use-module (gnu packages audio) |
| 44 | #:use-module (gnu packages bison) |
| 45 | #:use-module (gnu packages compression) |
| 46 | #:use-module (gnu packages flex) |
| 47 | #:use-module (gnu packages fontutils) |
| 48 | #:use-module (gnu packages gettext) |
| 49 | #:use-module (gnu packages docbook) |
| 50 | #:use-module (gnu packages xml) |
| 51 | #:use-module (gnu packages gtk) |
| 52 | #:use-module (gnu packages glib) |
| 53 | #:use-module (gnu packages m4) |
| 54 | #:use-module (gnu packages man) |
| 55 | #:use-module (gnu packages mp3) |
| 56 | #:use-module (gnu packages music) |
| 57 | #:use-module (gnu packages ncurses) |
| 58 | #:use-module (gnu packages elf) |
| 59 | #:use-module (gnu packages wxwidgets) |
| 60 | #:use-module (gnu packages linux) |
| 61 | #:use-module (gnu packages pkg-config) |
| 62 | #:use-module (gnu packages readline) |
| 63 | #:use-module (gnu packages base) |
| 64 | #:use-module (gnu packages perl) |
| 65 | #:use-module (gnu packages perl-web) |
| 66 | #:use-module (gnu packages python) |
| 67 | #:use-module (gnu packages image) |
| 68 | #:use-module (gnu packages photo) |
| 69 | #:use-module (gnu packages video) |
| 70 | #:use-module (gnu packages wget) |
| 71 | #:use-module (gnu packages xiph)) |
| 72 | |
| 73 | (define-public libcddb |
| 74 | (package |
| 75 | (name "libcddb") |
| 76 | (version "1.3.2") |
| 77 | (source (origin |
| 78 | (method url-fetch) |
| 79 | (uri (string-append "mirror://sourceforge/libcddb/libcddb/" version |
| 80 | "/libcddb-" version ".tar.bz2")) |
| 81 | (sha256 |
| 82 | (base32 |
| 83 | "0fr21a7vprdyy1bq6s99m0x420c9jm5fipsd63pqv8qyfkhhxkim")))) |
| 84 | (build-system gnu-build-system) |
| 85 | (arguments '(#:tests? #f)) ; tests rely on access to external servers |
| 86 | (home-page "http://libcddb.sourceforge.net/") |
| 87 | (synopsis "C library to access data on a CDDB server") |
| 88 | (description |
| 89 | "Libcddb is a C library to access data on a CDDB server (freedb.org). It |
| 90 | allows you to: |
| 91 | |
| 92 | 1. search the database for possible CD matches; |
| 93 | |
| 94 | 2. retrieve detailed information about a specific CD; |
| 95 | |
| 96 | 3. submit new CD entries to the database. |
| 97 | |
| 98 | Libcddb supports both the custom CDDB protocol and tunnelling the query and |
| 99 | read operations over plain HTTP. It is also possible to use an HTTP proxy |
| 100 | server. If you want to speed things up, you can make use of the built-in |
| 101 | caching facility provided by the library.") |
| 102 | (license lgpl2.1+))) |
| 103 | |
| 104 | (define-public libcdio |
| 105 | (package |
| 106 | (name "libcdio") |
| 107 | (version "2.0.0") |
| 108 | (source (origin |
| 109 | (method url-fetch) |
| 110 | (uri (string-append "mirror://gnu/libcdio/libcdio-" |
| 111 | version ".tar.bz2")) |
| 112 | (sha256 |
| 113 | (base32 |
| 114 | "0jr8ppdm80c533nzmrpz3iffnpc6nhvsria1di9f4jg1l19a03fd")))) |
| 115 | (build-system gnu-build-system) |
| 116 | (inputs |
| 117 | `(("ncurses" ,ncurses) |
| 118 | ("libcddb" ,libcddb))) |
| 119 | (native-inputs |
| 120 | `(("help2man" ,help2man) |
| 121 | ("pkg-config" ,pkg-config))) |
| 122 | (home-page "https://www.gnu.org/software/libcdio/") |
| 123 | (synopsis "CD Input and Control library") |
| 124 | (description |
| 125 | "The GNU Compact Disc Input and Control Library (libcdio) is a library |
| 126 | for CD-ROM and CD image file access. It allows the developer to add CD |
| 127 | access to an application without having to worry about the OS- and |
| 128 | device-dependent properties of CD-ROM or the specific details of CD image |
| 129 | formats. It includes pycdio, a Python interface to libcdio, and |
| 130 | libcdio-paranoia, a library providing jitter-free and error-free audio |
| 131 | extraction from CDs.") |
| 132 | (license gpl3+))) |
| 133 | |
| 134 | (define-public libcdio-paranoia |
| 135 | (package |
| 136 | (name "libcdio-paranoia") |
| 137 | (version "10.2+0.94+2") |
| 138 | (source (origin |
| 139 | (method url-fetch) |
| 140 | (uri (string-append "mirror://gnu/libcdio/libcdio-paranoia-" |
| 141 | version ".tar.gz")) |
| 142 | (sha256 |
| 143 | (base32 |
| 144 | "0h8rr1ir05r29rgawa1ccw335668k4s3zq4yg9095svyx7n843yn")))) |
| 145 | (build-system gnu-build-system) |
| 146 | (native-inputs `(("pkg-config" ,pkg-config))) |
| 147 | (propagated-inputs `(("libcdio" ,libcdio))) |
| 148 | (home-page "https://www.gnu.org/software/libcdio/") |
| 149 | (synopsis "Jitter- and error-tolerant CD audio extraction") |
| 150 | (description |
| 151 | "libcdio-paranoia is an implementation of CD paranoia libraries based on |
| 152 | libcdio.") |
| 153 | (license gpl3+))) |
| 154 | |
| 155 | (define-public xorriso |
| 156 | (package |
| 157 | (name "xorriso") |
| 158 | (version "1.5.0") |
| 159 | (source (origin |
| 160 | (method url-fetch) |
| 161 | (uri (string-append "mirror://gnu/xorriso/xorriso-" |
| 162 | version ".tar.gz")) |
| 163 | (sha256 |
| 164 | (base32 |
| 165 | "0aq6lvlwlkxz56l5sbvgycr6j5c82ch2bv6zrnc2345ibfpafgx9")))) |
| 166 | (build-system gnu-build-system) |
| 167 | (inputs |
| 168 | `(("acl" ,acl) |
| 169 | ("readline" ,readline) |
| 170 | ("zlib" ,zlib))) |
| 171 | (home-page "https://www.gnu.org/software/xorriso/") |
| 172 | (synopsis "Create, manipulate, burn ISO-9660 file systems") |
| 173 | (description |
| 174 | "GNU Xorriso is a tool for copying files to and from ISO 9660 Rock |
| 175 | Ridge, a.k.a. Compact Disc File System, file systems and it allows |
| 176 | session-wise manipulation of them. It features a formatter and burner for |
| 177 | CD, DVD and BD. It can operate on existing ISO images or it can create new |
| 178 | ones. xorriso can then be used to copy files directly into or out of ISO |
| 179 | files.") |
| 180 | (license gpl3+))) |
| 181 | |
| 182 | (define-public cdparanoia |
| 183 | (package |
| 184 | (name "cdparanoia") |
| 185 | (version "10.2") |
| 186 | (source (origin |
| 187 | (method url-fetch) |
| 188 | (uri (string-append "http://downloads.xiph.org/releases/" |
| 189 | "cdparanoia/cdparanoia-III-" |
| 190 | version ".src.tgz")) |
| 191 | (sha256 |
| 192 | (base32 |
| 193 | "1pv4zrajm46za0f6lv162iqffih57a8ly4pc69f7y0gfyigb8p80")) |
| 194 | (patches (search-patches "cdparanoia-fpic.patch")) |
| 195 | (modules '((guix build utils))) |
| 196 | (snippet |
| 197 | '(begin |
| 198 | ;; Make libraries respect LDFLAGS. |
| 199 | (substitute* '("paranoia/Makefile.in" "interface/Makefile.in") |
| 200 | (("-Wl,-soname") "$(LDFLAGS) -Wl,-soname")) |
| 201 | #t)))) |
| 202 | (build-system gnu-build-system) |
| 203 | (arguments |
| 204 | `(#:tests? #f ; there is no check target |
| 205 | #:configure-flags ; Add $libdir to the RUNPATH of all the executables. |
| 206 | (list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib")))) |
| 207 | (home-page "http://www.xiph.org/paranoia/") |
| 208 | (synopsis "Audio CD reading utility") |
| 209 | (description "Cdparanoia retrieves audio tracks from CDDA capable CDROM |
| 210 | drives. The data can be saved to a file or directed to standard output |
| 211 | in WAV, AIFF, AIFF-C or raw format. Most ATAPI, SCSI and several |
| 212 | proprietary CDROM drive makes are supported; cdparanoia can determine if the |
| 213 | target drive is CDDA capable. In addition to simple reading, cdparanoia adds |
| 214 | extra-robust data verification, synchronization, error handling and scratch |
| 215 | reconstruction capability.") |
| 216 | (license gpl2))) ; libraries under lgpl2.1 |
| 217 | |
| 218 | (define-public cdrtools |
| 219 | (package |
| 220 | (name "cdrtools") |
| 221 | (version "3.01") |
| 222 | (source (origin |
| 223 | (method url-fetch) |
| 224 | (uri (string-append |
| 225 | "mirror://sourceforge/cdrtools/cdrtools-" version ".tar.bz2")) |
| 226 | (sha256 |
| 227 | (base32 |
| 228 | "03w6ypsmwwy4d7vh6zgwpc60v541vc5ywp8bdb758hbc4yv2wa7d")) |
| 229 | (modules '((guix build utils))) |
| 230 | (snippet |
| 231 | '(begin |
| 232 | ;; By default 'cdda2wav --help' would print a string like |
| 233 | ;; "Version 3.01_linux_4.19.10-gnu_x86_64_x86_64". Change |
| 234 | ;; it to not capture the kernel version of the build |
| 235 | ;; machine, to allow for reproducible builds. |
| 236 | (substitute* "cdda2wav/local.cnf.in" |
| 237 | (("^VERSION_OS=.*") |
| 238 | (string-append |
| 239 | "actual_os := $(shell uname -o)\n" |
| 240 | "actual_arch := $(shell uname -m)\n" |
| 241 | "VERSION_OS = _$(actual_os)_$(actual_arch)\n"))) |
| 242 | #t)) |
| 243 | (patches (search-patches "cdrtools-3.01-mkisofs-isoinfo.patch")))) |
| 244 | (build-system gnu-build-system) |
| 245 | ;; XXX cdrtools bundles a modified, relicensed early version of cdparanoia. |
| 246 | (inputs |
| 247 | `(("linux-headers" ,linux-libre-headers))) |
| 248 | (arguments |
| 249 | `(#:phases |
| 250 | (modify-phases %standard-phases |
| 251 | (delete 'configure) |
| 252 | (add-before 'build 'set-linux-headers |
| 253 | (lambda _ |
| 254 | (substitute* "autoconf/configure" |
| 255 | (("/usr/src/linux") |
| 256 | (assoc-ref %build-inputs "linux-headers"))) |
| 257 | #t)) |
| 258 | (add-before 'build 'substitute-dirs |
| 259 | (lambda _ |
| 260 | (substitute* (append (find-files "DEFAULTS" "^Defaults\\.") |
| 261 | (find-files "DEFAULTS_ENG" "^Defaults\\.") |
| 262 | (find-files "TEMPLATES" "^Defaults\\.")) |
| 263 | (("/opt/schily") (assoc-ref %outputs "out"))) |
| 264 | #t)) |
| 265 | (replace 'build |
| 266 | (lambda _ |
| 267 | (zero? |
| 268 | (system* "make" "CONFIG_SHELL=sh" "CCOM=gcc" "RM=rm")))) |
| 269 | (replace 'install |
| 270 | (lambda _ |
| 271 | (zero? |
| 272 | (system* "make" |
| 273 | "RM=rm" "LN=ln" "SYMLINK=ln -s" |
| 274 | (string-append "INS_BASE=" (assoc-ref %outputs "out")) |
| 275 | (string-append "INS_RBASE=" (assoc-ref %outputs "out")) |
| 276 | "install" ))))) |
| 277 | #:tests? #f)) ; no tests |
| 278 | (synopsis "Command line utilities to manipulate and burn CD/DVD/BD images") |
| 279 | (description "cdrtools is a collection of command line utilities to create |
| 280 | CD's, DVD's or Blue Ray discs. The most important components are |
| 281 | @command{cdrecord}, a burning program, @command{cdda2wav}, a CD audio ripper |
| 282 | which uses libparanoia, and @command{mkisofs}, which can create various disc |
| 283 | images.") |
| 284 | (home-page "http://cdrtools.sourceforge.net/private/cdrecord.html") |
| 285 | |
| 286 | ;; mkisofs is GPL, the other programs are CDDL. |
| 287 | (license (list cddl1.0 gpl2)))) |
| 288 | |
| 289 | (define-public dvd+rw-tools |
| 290 | (package |
| 291 | (name "dvd+rw-tools") |
| 292 | (version "7.1") |
| 293 | (source (origin |
| 294 | (method url-fetch) |
| 295 | (uri (string-append |
| 296 | "http://fy.chalmers.se/~appro/linux/DVD+RW/tools/dvd+rw-tools-" |
| 297 | version ".tar.gz")) |
| 298 | (sha256 |
| 299 | (base32 |
| 300 | "1jkjvvnjcyxpql97xjjx0kwvy70kxpiznr2zpjy2hhci5s10zmpq")) |
| 301 | (patches (search-patches "dvd+rw-tools-add-include.patch")))) |
| 302 | (build-system gnu-build-system) |
| 303 | (inputs |
| 304 | `(("cdrtools" ,cdrtools))) |
| 305 | (native-inputs |
| 306 | `(("m4" ,m4))) |
| 307 | (arguments |
| 308 | `(#:tests? #f ; No tests. |
| 309 | #:phases |
| 310 | (modify-phases %standard-phases |
| 311 | (add-after 'unpack 'fix-glibc-compatability |
| 312 | (lambda* (#:key inputs #:allow-other-keys) |
| 313 | ;; We use sed --in-place because substitute* cannot handle the |
| 314 | ;; character encoding used by growisofs.c. |
| 315 | (invoke "sed" "-i" "-e" |
| 316 | (string-append |
| 317 | "s,<sys/stat.h>," |
| 318 | "<sys/stat.h>\\\n#include <sys/sysmacros.h>,") |
| 319 | "growisofs.c"))) |
| 320 | (replace 'configure |
| 321 | (lambda _ (setenv "prefix" (assoc-ref %outputs "out")) #t)) |
| 322 | (add-before 'build 'embed-mkisofs |
| 323 | (lambda* (#:key inputs #:allow-other-keys) |
| 324 | ;; We use sed --in-place because substitute* cannot handle the |
| 325 | ;; character encoding used by growisofs.c. |
| 326 | (invoke "sed" "-i" "-e" |
| 327 | (string-append |
| 328 | "s,\"mkisofs\"," |
| 329 | "\"" (which "mkisofs") "\",") |
| 330 | "growisofs.c")))))) |
| 331 | (home-page "http://fy.chalmers.se/~appro/linux/DVD+RW/") |
| 332 | (synopsis "DVD and Blu-ray Disc burning tools") |
| 333 | (description "dvd+rw-tools, mostly known for its command |
| 334 | @command{growisofs}, is a collection of DVD and Blu-ray Disc burning tools. |
| 335 | It requires another program, such as @command{mkisofs}, @command{genisoimage}, |
| 336 | or @command{xorrisofs} to create ISO 9660 images.") |
| 337 | (license gpl2))) |
| 338 | |
| 339 | (define-public dvdisaster |
| 340 | (package |
| 341 | (name "dvdisaster") |
| 342 | (version "0.79.5") |
| 343 | (source (origin |
| 344 | (method url-fetch) |
| 345 | (uri (string-append "http://dvdisaster.net/downloads/dvdisaster-" |
| 346 | version ".tar.bz2")) |
| 347 | (sha256 |
| 348 | (base32 |
| 349 | "0f8gjnia2fxcbmhl8b3qkr5b7idl8m855dw7xw2fnmbqwvcm6k4w")))) |
| 350 | (build-system gnu-build-system) |
| 351 | (inputs |
| 352 | `(("gtk+" ,gtk+-2))) |
| 353 | (native-inputs |
| 354 | `(("gettext" ,gettext-minimal) |
| 355 | ("pkg-config" ,pkg-config) |
| 356 | ("which" ,which))) |
| 357 | (arguments |
| 358 | `(;; Parallel builds appear to be unsafe, see |
| 359 | ;; <http://hydra.gnu.org/build/49331/nixlog/1/raw>. |
| 360 | #:parallel-build? #f |
| 361 | #:phases |
| 362 | (modify-phases %standard-phases |
| 363 | (replace 'check |
| 364 | (lambda _ |
| 365 | (with-directory-excursion "regtest" |
| 366 | (substitute* "common.bash" |
| 367 | (("ISODIR=/var/tmp/regtest") "ISODIR=/tmp")) |
| 368 | (for-each invoke (find-files "." "rs.*\\.bash"))) |
| 369 | #t)) |
| 370 | (add-after 'install 'install-desktop |
| 371 | (lambda* (#:key outputs #:allow-other-keys) |
| 372 | (let* ((datadir (string-append (assoc-ref outputs "out") "/share"))) |
| 373 | (substitute* "contrib/dvdisaster.desktop" |
| 374 | (("dvdisaster48.png") "dvdisaster.png")) |
| 375 | (install-file "contrib/dvdisaster.desktop" |
| 376 | (string-append datadir "/applications")) |
| 377 | (for-each |
| 378 | (lambda (png) |
| 379 | (let* ((size (substring png |
| 380 | (string-index png char-set:digit) |
| 381 | (string-rindex png #\.))) |
| 382 | (icondir (string-append datadir "/icons/" |
| 383 | size "x" size "/apps"))) |
| 384 | (mkdir-p icondir) |
| 385 | (copy-file png (string-append icondir "/dvdisaster.png")))) |
| 386 | (find-files "contrib" "dvdisaster[0-9]*\\.png")) |
| 387 | (mkdir-p (string-append datadir "/pixmaps")) |
| 388 | (copy-file "contrib/dvdisaster48.xpm" |
| 389 | (string-append datadir "/pixmaps/dvdisaster.xpm")) |
| 390 | #t)))))) |
| 391 | (home-page "http://dvdisaster.net/en/index.html") |
| 392 | (synopsis "Error correcting codes for optical media images") |
| 393 | (description "Optical media (CD,DVD,BD) keep their data only for a |
| 394 | finite time (typically for many years). After that time, data loss develops |
| 395 | slowly with read errors growing from the outer media region towards the |
| 396 | inside. |
| 397 | |
| 398 | Dvdisaster stores data on CD/DVD/BD (supported media) in a way that it is |
| 399 | fully recoverable even after some read errors have developed. This enables |
| 400 | you to rescue the complete data to a new medium. |
| 401 | |
| 402 | Data loss is prevented by using error correcting codes. Error correction |
| 403 | data is either added to the medium or kept in separate error correction |
| 404 | files. Dvdisaster works at the image level so that the recovery does not |
| 405 | depend on the file system of the medium. The maximum error correction |
| 406 | capacity is user-selectable.") |
| 407 | (license gpl2+))) |
| 408 | |
| 409 | (define-public dvdstyler |
| 410 | (package |
| 411 | (name "dvdstyler") |
| 412 | (version "3.0.4") |
| 413 | (source |
| 414 | (origin |
| 415 | (method url-fetch) |
| 416 | (uri (string-append "mirror://sourceforge/dvdstyler/dvdstyler/" |
| 417 | version "/DVDStyler-" version ".tar.bz2")) |
| 418 | (sha256 |
| 419 | (base32 |
| 420 | "0lwc0hn94m9r8fi07sjqz3fr618l6lnw3zsakxw7nlgnxbjsk7pi")))) |
| 421 | (build-system gnu-build-system) |
| 422 | (arguments |
| 423 | `(#:configure-flags |
| 424 | (list (string-append "XMLTO=" |
| 425 | (assoc-ref %build-inputs "xmlto") |
| 426 | "/bin/xmlto --searchpath " |
| 427 | (assoc-ref %build-inputs "docbook-xsl") |
| 428 | "/xml/xsl/docbook-xsl-" ,(package-version docbook-xsl) |
| 429 | "/htmlhelp:" |
| 430 | (assoc-ref %build-inputs "docbook-xml") |
| 431 | "/xml/dtd/docbook")) |
| 432 | #:phases |
| 433 | (modify-phases %standard-phases |
| 434 | (add-after 'install 'wrap-program |
| 435 | (lambda* (#:key inputs outputs #:allow-other-keys) |
| 436 | (wrap-program (string-append (assoc-ref outputs "out") "/bin/dvdstyler") |
| 437 | `("PATH" ":" prefix |
| 438 | (,(string-join |
| 439 | (map (lambda (in) (string-append (assoc-ref inputs in) "/bin")) |
| 440 | '("cdrtools" "dvdauthor" "dvd+rw-tools" "ffmpeg")) |
| 441 | ":")))) |
| 442 | #t))) |
| 443 | #:tests? #f)) ; No tests. |
| 444 | (inputs ; TODO package bundled wxvillalib |
| 445 | `(("wxwidgets" ,wxwidgets-3.1) |
| 446 | ("wssvg" ,wxsvg) |
| 447 | ("dbus" ,dbus) |
| 448 | ("cdrtools" ,cdrtools) |
| 449 | ("dvd+rw-tools" ,dvd+rw-tools) |
| 450 | ("dvdauthor" ,dvdauthor) |
| 451 | ("eudev" ,eudev) |
| 452 | ("fontconfig" ,fontconfig) |
| 453 | ("libexif" ,libexif) |
| 454 | ("libjpeg" ,libjpeg) |
| 455 | ("ffmpeg" ,ffmpeg-3.4))) |
| 456 | (native-inputs |
| 457 | `(("pkg-config" ,pkg-config) |
| 458 | ("flex" ,flex) |
| 459 | ("python" ,python-2) |
| 460 | ("xmlto" ,xmlto) |
| 461 | ("gettext" ,gnu-gettext) |
| 462 | ("docbook-xml" ,docbook-xml) |
| 463 | ("docbook-xsl" ,docbook-xsl) |
| 464 | ("zip" ,zip))) |
| 465 | (synopsis "DVD authoring application") |
| 466 | (description "DVDStyler is a DVD authoring application which allows users |
| 467 | to burn video files in many formats to DVD discs, complete with individually |
| 468 | designed menus. It can be used to create professional-looking DVD's with |
| 469 | custom buttons, backgrounds and animations, from within a user-friendly |
| 470 | graphical interface.") |
| 471 | (home-page "https://www.dvdstyler.org") |
| 472 | (license gpl2))) |
| 473 | |
| 474 | (define-public libcue |
| 475 | (package |
| 476 | (name "libcue") |
| 477 | (version "2.2.1") |
| 478 | (source (origin |
| 479 | (method git-fetch) |
| 480 | (uri (git-reference |
| 481 | (url "https://github.com/lipnitsk/libcue.git") |
| 482 | (commit (string-append "v" version)))) |
| 483 | (file-name (git-file-name name version)) |
| 484 | (sha256 |
| 485 | (base32 |
| 486 | "1iqw4n01rv2jyk9lksagyxj8ml0kcfwk67n79zy1r6zv1xfp5ywm")))) |
| 487 | (build-system cmake-build-system) |
| 488 | (arguments |
| 489 | `(#:configure-flags '("-DBUILD_SHARED_LIBS=ON"))) |
| 490 | (native-inputs |
| 491 | `(("bison" ,bison) |
| 492 | ("flex" ,flex))) |
| 493 | (home-page "https://github.com/lipnitsk/libcue") |
| 494 | (synopsis "C library to parse cue sheets") |
| 495 | (description "Libcue is a C library to parse so-called @dfn{cue sheets} |
| 496 | which contain meta-data for CD/DVD tracks. It provides an API to manipulate |
| 497 | the data.") |
| 498 | (license gpl2+))) |
| 499 | |
| 500 | (define-public cd-discid |
| 501 | (package |
| 502 | (name "cd-discid") |
| 503 | (version "1.4") |
| 504 | (home-page "http://linukz.org/cd-discid.shtml") |
| 505 | (source (origin |
| 506 | (method url-fetch) |
| 507 | (uri (string-append "http://linukz.org/download/cd-discid-" |
| 508 | version ".tar.gz")) |
| 509 | (sha256 |
| 510 | (base32 |
| 511 | "0qrcvn7227qaayjcd5rm7z0k5q89qfy5qkdgwr5pd7ih0va8rmpz")) |
| 512 | (modules '((guix build utils))) |
| 513 | (snippet |
| 514 | '(begin |
| 515 | (substitute* "Makefile" |
| 516 | (("/usr/bin/install") |
| 517 | "install")) |
| 518 | #t)))) |
| 519 | (build-system gnu-build-system) |
| 520 | (arguments |
| 521 | '(#:tests? #f |
| 522 | #:phases (modify-phases %standard-phases (delete 'configure)) |
| 523 | #:make-flags (list "CC=gcc" |
| 524 | (string-append "PREFIX=" |
| 525 | (assoc-ref %outputs "out"))))) |
| 526 | (synopsis "Get CDDB discid information from an audio CD") |
| 527 | (description |
| 528 | "cd-discid is a command-line tool to retrieve CDDB discid information |
| 529 | from an audio CD.") |
| 530 | (license gpl2+))) |
| 531 | |
| 532 | (define-public abcde |
| 533 | (package |
| 534 | (name "abcde") |
| 535 | (version "2.9.2") |
| 536 | (home-page "https://abcde.einval.com/") |
| 537 | (source (origin |
| 538 | (method url-fetch) |
| 539 | (uri (string-append home-page "/download/abcde-" |
| 540 | version ".tar.gz")) |
| 541 | (sha256 |
| 542 | (base32 |
| 543 | "13c5yvp87ckqgha160ym5rdr1a4divgvyqbjh0yb6ffclip6qd9l")) |
| 544 | (modules '((guix build utils))) |
| 545 | (snippet |
| 546 | `(begin |
| 547 | (substitute* "Makefile" |
| 548 | ;; Fix abcde 2.9.2 still thinking it's 2.9.1. |
| 549 | ;; XXX This will be fixed in the next release. |
| 550 | (("(abcde_version = abcde-)(2.9.1)" _ good bad) |
| 551 | (string-append good ,version)) |
| 552 | (("/usr/bin/install") |
| 553 | "install") |
| 554 | (("^etcdir = .*$") |
| 555 | (string-append "etcdir = $(prefix)/etc\n"))) |
| 556 | #t)))) |
| 557 | (build-system gnu-build-system) |
| 558 | (arguments |
| 559 | '(#:phases |
| 560 | (modify-phases %standard-phases |
| 561 | (replace 'configure |
| 562 | (lambda* (#:key outputs inputs #:allow-other-keys) |
| 563 | (substitute* "Makefile" |
| 564 | (("^prefix = .*$") |
| 565 | (string-append "prefix = " |
| 566 | (assoc-ref outputs "out") |
| 567 | "\n")) |
| 568 | (("^sysconfdir = .*$") |
| 569 | (string-append "sysconfdir = " |
| 570 | (assoc-ref outputs "out") |
| 571 | "/etc/\n"))) |
| 572 | #t)) |
| 573 | (add-after 'install 'wrap |
| 574 | (lambda* (#:key inputs outputs #:allow-other-keys) |
| 575 | (let ((wget (assoc-ref inputs "wget")) |
| 576 | (vorbis (assoc-ref inputs "vorbis-tools")) |
| 577 | (parano (assoc-ref inputs "cdparanoia")) |
| 578 | (which (assoc-ref inputs "which")) |
| 579 | (discid (assoc-ref inputs "cd-discid")) |
| 580 | (perl-discid (assoc-ref inputs "perl-musicbrainz-discid")) |
| 581 | (perl-ws (assoc-ref inputs "perl-webservice-musicbrainz")) |
| 582 | (perl-mojo (assoc-ref inputs "perl-mojolicious")) |
| 583 | (flac (assoc-ref inputs "flac")) |
| 584 | (out (assoc-ref outputs "out"))) |
| 585 | (define (wrap file) |
| 586 | (wrap-program file |
| 587 | `("PATH" ":" prefix |
| 588 | (,(string-append out "/bin:" |
| 589 | wget "/bin:" |
| 590 | flac "/bin:" |
| 591 | which "/bin:" |
| 592 | vorbis "/bin:" |
| 593 | discid "/bin:" |
| 594 | parano "/bin"))) |
| 595 | `("PERL5LIB" ":" prefix |
| 596 | (,(string-append perl-discid |
| 597 | "/lib/perl5/site_perl:" |
| 598 | perl-ws |
| 599 | "/lib/perl5/site_perl:" |
| 600 | perl-mojo |
| 601 | "/lib/perl5/site_perl"))))) |
| 602 | |
| 603 | (for-each wrap |
| 604 | (find-files (string-append out "/bin") |
| 605 | ".*"))) |
| 606 | #t))) |
| 607 | #:tests? #f)) ; no test target |
| 608 | |
| 609 | (inputs `(("wget" ,wget) |
| 610 | ("which" ,which) |
| 611 | ("cdparanoia" ,cdparanoia) |
| 612 | ("cd-discid" ,cd-discid) |
| 613 | ("vorbis-tools" ,vorbis-tools) |
| 614 | ("flac" ,flac) |
| 615 | |
| 616 | ("perl-musicbrainz-discid" ,perl-musicbrainz-discid) |
| 617 | ("perl-webservice-musicbrainz" ,perl-webservice-musicbrainz) |
| 618 | ("perl-mojolicious" ,perl-mojolicious) ;indirect dependency |
| 619 | |
| 620 | ;; A couple of Python and Perl scripts are included. |
| 621 | ("python" ,python) |
| 622 | ("perl" ,perl))) |
| 623 | |
| 624 | (synopsis "Command-line audio CD ripper") |
| 625 | (description |
| 626 | "abcde is a front-end command-line utility (actually, a shell script) |
| 627 | that grabs tracks off a CD, encodes them to Ogg/Vorbis, MP3, FLAC, Ogg/Speex |
| 628 | and/or MPP/MP+ (Musepack) format, and tags them, all in one go.") |
| 629 | (license gpl2+))) |
| 630 | |
| 631 | (define-public geteltorito |
| 632 | (package |
| 633 | (name "geteltorito") |
| 634 | (version "0.6") |
| 635 | (home-page |
| 636 | "https://userpages.uni-koblenz.de/~krienke/ftp/noarch/geteltorito/") |
| 637 | (source (origin |
| 638 | (method url-fetch) |
| 639 | (uri (string-append home-page name "-" version ".tar.gz")) |
| 640 | (sha256 |
| 641 | (base32 |
| 642 | "1gkbm9ahj2mgqrkrfpibzclsriqgsbsvjh19fr815vpd9f6snkxv")))) |
| 643 | (build-system gnu-build-system) |
| 644 | (arguments |
| 645 | `(#:tests? #f ; No tests. |
| 646 | #:phases |
| 647 | (modify-phases %standard-phases |
| 648 | (delete 'configure) |
| 649 | (delete 'build) |
| 650 | (replace 'install |
| 651 | (lambda* (#:key outputs #:allow-other-keys) |
| 652 | (let ((out (assoc-ref outputs "out"))) |
| 653 | (install-file "geteltorito" |
| 654 | (string-append out "/bin")))))))) |
| 655 | (inputs `(("perl" ,perl))) |
| 656 | (synopsis "Extract the boot image from a CD-ROM") |
| 657 | (description |
| 658 | "@command{geteltorito} can extract the initial/default boot |
| 659 | image from CDs (and ISOs) that follow the El Torito specification |
| 660 | for bootable CD-ROMs. |
| 661 | |
| 662 | Image data is written to standard output by default and all other |
| 663 | information is written to standard error.") |
| 664 | (license gpl2+))) |
| 665 | |
| 666 | (define-public asunder |
| 667 | (package |
| 668 | (name "asunder") |
| 669 | (version "2.8") |
| 670 | (source (origin |
| 671 | (method url-fetch) |
| 672 | (uri |
| 673 | (string-append "http://www.littlesvr.ca/asunder/releases/asunder-" |
| 674 | version |
| 675 | ".tar.bz2")) |
| 676 | (sha256 |
| 677 | (base32 |
| 678 | "1nq9kd4rd4k2kibf57gdbm0zw2gxa234vvvdhxkm8g5bhx5h3iyq")))) |
| 679 | (build-system glib-or-gtk-build-system) |
| 680 | (arguments |
| 681 | '(#:out-of-source? #f |
| 682 | #:phases (modify-phases %standard-phases |
| 683 | (add-after 'install 'wrap |
| 684 | (lambda* (#:key inputs outputs #:allow-other-keys) |
| 685 | (let ((program (string-append (assoc-ref outputs "out") |
| 686 | "/bin/asunder"))) |
| 687 | (define (bin-directory input-name) |
| 688 | (string-append (assoc-ref inputs input-name) "/bin")) |
| 689 | (wrap-program program |
| 690 | `("PATH" ":" prefix |
| 691 | ,(map bin-directory (list "cdparanoia" |
| 692 | "lame" |
| 693 | "vorbis-tools" |
| 694 | "flac" |
| 695 | "opus-tools" |
| 696 | "wavpack")))))))))) |
| 697 | (native-inputs `(("intltool" ,intltool) |
| 698 | ("pkg-config" ,pkg-config))) |
| 699 | ;; TODO: Add the necessary packages for Musepack encoding. |
| 700 | (inputs `(("gtk+-2" ,gtk+-2) |
| 701 | ("glib" ,glib) |
| 702 | ("libcddb" ,libcddb) |
| 703 | ("cdparanoia" ,cdparanoia) |
| 704 | ("lame" ,lame) |
| 705 | ("vorbis-tools" ,vorbis-tools) |
| 706 | ("flac" ,flac) |
| 707 | ("opus-tools" ,opus-tools) |
| 708 | ("wavpack" ,wavpack))) |
| 709 | (home-page "http://www.littlesvr.ca/asunder/") |
| 710 | (synopsis "Graphical audio CD ripper and encoder") |
| 711 | (description |
| 712 | "Asunder is a graphical audio CD ripper and encoder. It can save audio |
| 713 | tracks as WAV, MP3, Ogg Vorbis, FLAC, Opus, Wavpack, and Musepack. It can use |
| 714 | CDDB to name and tag each track automatically, and it allows for each track to |
| 715 | be by a different artist. Asunder can encode to multiple formats in one |
| 716 | session, and it can create M3U playlists.") |
| 717 | (license gpl2))) |
| 718 | |
| 719 | (define-public ripit |
| 720 | (package |
| 721 | (name "ripit") |
| 722 | (version "3.9.0") |
| 723 | (source (origin |
| 724 | (method url-fetch) |
| 725 | (uri (string-append "http://www.suwald.com/ripit/ripit-" |
| 726 | version ".tar.gz")) |
| 727 | (sha256 |
| 728 | (base32 |
| 729 | "0ap71x477jy9c4jiqazb3y45hxdxm3jbq24x05g3vjyqzigi4x1b")))) |
| 730 | (build-system gnu-build-system) |
| 731 | (arguments |
| 732 | `(#:tests? #f ; No test suite. |
| 733 | #:phases |
| 734 | (modify-phases %standard-phases |
| 735 | (delete 'configure) |
| 736 | (add-after 'unpack 'patch-usr-bin-install |
| 737 | (lambda* (#:key inputs outputs #:allow-other-keys) |
| 738 | (substitute* "Makefile" |
| 739 | (("/usr/bin/install") (string-append |
| 740 | (assoc-ref inputs "coreutils") |
| 741 | "/bin/install")) |
| 742 | (("\\$\\(DESTDIR\\)/usr/local") (assoc-ref outputs "out")) |
| 743 | (("../../etc") "etc"))))))) |
| 744 | (native-inputs |
| 745 | `(("coreutils" ,coreutils))) |
| 746 | (inputs |
| 747 | `(("perl" ,perl))) |
| 748 | (propagated-inputs |
| 749 | `(("cdparanoia" ,cdparanoia) |
| 750 | ("flac" ,flac) |
| 751 | ("vorbis-tools" ,vorbis-tools) |
| 752 | ("wavpack" ,wavpack) |
| 753 | ("perl-cddb-get" ,perl-cddb-get))) |
| 754 | (home-page "http://www.suwald.com/ripit/about.php") |
| 755 | (synopsis "Command-line program to extract audio CDs") |
| 756 | (description "RipIT is used to extract audio from CDs.") |
| 757 | (license gpl2))) |
| 758 | |
| 759 | (define-public ccd2cue |
| 760 | (package |
| 761 | (name "ccd2cue") |
| 762 | (version "0.5") |
| 763 | (source |
| 764 | (origin |
| 765 | (method url-fetch) |
| 766 | (uri (string-append |
| 767 | "mirror://gnu/ccd2cue/ccd2cue-" version |
| 768 | ".tar.gz")) |
| 769 | (sha256 |
| 770 | (base32 |
| 771 | "1icrkg25hwx4gsn3dski2172ia4ywjh8m1sa17zmjclnrgdwy9c7")))) |
| 772 | (build-system gnu-build-system) |
| 773 | (synopsis "CCD to CUE sheet conversion") |
| 774 | (description |
| 775 | "GNU ccd2cue is a preprocessor for CD burning software that allows |
| 776 | the conversion of the proprietary CCD format to the CUE format, which |
| 777 | is well-supported by free software. These files are commonly |
| 778 | distributed with CD images and are used to describe how tracks are |
| 779 | laid out on the image.") |
| 780 | (home-page "https://www.gnu.org/software/ccd2cue/") |
| 781 | (license gpl3+))) |
| 782 | |
| 783 | (define-public libburn |
| 784 | (package |
| 785 | (name "libburn") |
| 786 | (version "1.5.0") |
| 787 | (source (origin |
| 788 | (method url-fetch) |
| 789 | (uri (string-append "http://files.libburnia-project.org/releases/" |
| 790 | "libburn-" version ".tar.gz")) |
| 791 | (sha256 |
| 792 | (base32 |
| 793 | "1gg2kgnqvaa2fwghai62prxz6slpak1f6bvgjh8m4dn16v114asq")))) |
| 794 | (build-system gnu-build-system) |
| 795 | (native-inputs |
| 796 | `(("pkg-config" ,pkg-config))) |
| 797 | (home-page "https://dev.lovelyhq.com/libburnia/libburn") |
| 798 | (synopsis "Library for reading and writing optical discs") |
| 799 | (description |
| 800 | "Libburn is a library for reading and writing optical discs. |
| 801 | Supported media are: CD-R, CD-RW, DVD-RAM, DVD+RW, DVD+R, DVD+R/DL, |
| 802 | DVD-RW, DVD-R, DVD-R/DL, BD-R, and BD-RE.") |
| 803 | (license gpl2))) |
| 804 | |
| 805 | (define-public libisofs |
| 806 | (package |
| 807 | (name "libisofs") |
| 808 | (version "1.5.0") |
| 809 | (source (origin |
| 810 | (method url-fetch) |
| 811 | (uri (string-append "http://files.libburnia-project.org/releases/" |
| 812 | "libisofs-" version ".tar.gz")) |
| 813 | (sha256 |
| 814 | (base32 |
| 815 | "001l3akf3wb6msl9man776w560iqyvsbwwzs7d7y7msx13irspys")))) |
| 816 | (build-system gnu-build-system) |
| 817 | (inputs |
| 818 | `(("zlib" ,zlib) |
| 819 | ("acl" ,acl))) |
| 820 | (native-inputs |
| 821 | `(("pkg-config" ,pkg-config))) |
| 822 | (home-page "https://dev.lovelyhq.com/libburnia/libisofs") |
| 823 | (synopsis "Library to create ISO 9660 images") |
| 824 | (description |
| 825 | "Libisofs creates ISO 9660 (also known as ECMA-119) file system images |
| 826 | which can either be written to POSIX file objects or handed over to |
| 827 | libburn for being written directly to optical media. |
| 828 | It can read metadata of ISO 9660 filesystems, manipulate them, and use them |
| 829 | to produce new complete file system images or add-on images to be appended |
| 830 | to the read file system image. |
| 831 | Supported extensions to ISO 9660 are Rock Ridge, Joliet, AAIP, zisofs.") |
| 832 | (license gpl2+))) |
| 833 | |
| 834 | (define-public cdrkit-libre |
| 835 | (package |
| 836 | (name "cdrkit-libre") |
| 837 | (version "1.1.11") |
| 838 | (source (origin |
| 839 | (method url-fetch) |
| 840 | ;; cdrkit.org is dead. |
| 841 | ;; |
| 842 | ;; ‘cdrkit-libre’ removes a couple of problematic files, |
| 843 | ;; see <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=32165#14>. |
| 844 | (uri (string-append |
| 845 | "https://repo.parabola.nu/other/cdrkit-libre/cdrkit-libre-" |
| 846 | version ".tar.gz")) |
| 847 | (sha256 |
| 848 | (base32 |
| 849 | "0g2zyzb56czh429qy87lvaddzjnlcq8c616ddxsmsshz3clhyzrh")))) |
| 850 | (build-system cmake-build-system) |
| 851 | (inputs |
| 852 | `(("bzip2" ,bzip2) |
| 853 | ("libcap" ,libcap) |
| 854 | ("perl" ,perl) |
| 855 | ("zlib" ,zlib))) |
| 856 | (arguments |
| 857 | `(#:tests? #f ;no tests |
| 858 | #:phases |
| 859 | (modify-phases %standard-phases |
| 860 | (add-after 'install 'old-cdrecord |
| 861 | (lambda* (#:key outputs #:allow-other-keys) |
| 862 | (with-directory-excursion (string-append (assoc-ref outputs "out") |
| 863 | "/bin") |
| 864 | (symlink "genisoimage" "mkisofs") |
| 865 | (symlink "wodim" "cdrecord")) |
| 866 | #t))))) |
| 867 | (home-page "https://repo.parabola.nu/other/cdrkit-libre/") |
| 868 | (synopsis "Command-line CD/DVD recorder") |
| 869 | (description "Cdrkit is a suite of programs for recording CDs and DVDs, |
| 870 | blanking CD-RW media, creating ISO-9660 file system images, extracting audio |
| 871 | CD data, and more. It's mostly compatible with @code{cdrtools}.") |
| 872 | (license gpl2+))) |