mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 07:26:13 -05:00
832 lines
33 KiB
Scheme
832 lines
33 KiB
Scheme
;;; GNU Guix --- Functional package management for GNU
|
||
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
|
||
;;; Copyright © 2014, 2015, 2017, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
|
||
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
|
||
;;; Copyright © 2016, 2021 Efraim Flashner <efraim@flashner.co.il>
|
||
;;; Copyright © 2017 Thomas Danckaert <post@thomasdanckaert.be>
|
||
;;; Copyright © 2017, 2019, 2020 Pierre Langlois <pierre.langlois@gmx.com>
|
||
;;; Copyright © 2018–2021 Tobias Geerinckx-Rice <me@tobias.gr>
|
||
;;; Copyright © 2019 Ricardo Wurmus <rekado@elephly.net>
|
||
;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
|
||
;;; Copyright © 2021 Simon Streit <simon@netpanic.org>
|
||
;;; Copyright © 2021 Guillaume Le Vaillant <glv@posteo.net>
|
||
;;; Copyright © 2022 John Kehayias <john.kehayias@protonmail.com>
|
||
;;; Copyright © 2022 Joeke de Graaf <joeke@posteo.net>
|
||
;;; Copyright © 2023 Zheng Junjie <873216071@qq.com>
|
||
;;;
|
||
;;; This file is part of GNU Guix.
|
||
;;;
|
||
;;; GNU Guix is free software; you can redistribute it and/or modify it
|
||
;;; under the terms of the GNU General Public License as published by
|
||
;;; the Free Software Foundation; either version 3 of the License, or (at
|
||
;;; your option) any later version.
|
||
;;;
|
||
;;; GNU Guix is distributed in the hope that it will be useful, but
|
||
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
;;; GNU General Public License for more details.
|
||
;;;
|
||
;;; You should have received a copy of the GNU General Public License
|
||
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||
|
||
(define-module (gnu packages mp3)
|
||
#:use-module ((guix licenses) #:prefix license:)
|
||
#:use-module (gnu packages)
|
||
#:use-module (gnu packages autotools)
|
||
#:use-module (gnu packages base)
|
||
#:use-module (gnu packages gcc)
|
||
#:use-module (gnu packages bash)
|
||
#:use-module (gnu packages boost)
|
||
#:use-module (gnu packages cdrom)
|
||
#:use-module (gnu packages check)
|
||
#:use-module (gnu packages cmake)
|
||
#:use-module (gnu packages compression)
|
||
#:use-module (gnu packages freedesktop)
|
||
#:use-module (gnu packages gettext)
|
||
#:use-module (gnu packages ghostscript)
|
||
#:use-module (gnu packages gnome)
|
||
#:use-module (gnu packages ncurses)
|
||
#:use-module (gnu packages glib)
|
||
#:use-module (gnu packages gtk)
|
||
#:use-module (gnu packages pcre)
|
||
#:use-module (gnu packages pkg-config)
|
||
#:use-module (gnu packages python)
|
||
#:use-module (gnu packages python-web)
|
||
#:use-module (gnu packages python-xyz)
|
||
#:use-module (gnu packages xiph)
|
||
#:use-module (gnu packages pulseaudio)
|
||
#:use-module (gnu packages linux) ;alsa-lib
|
||
#:use-module (gnu packages video) ;ffmpeg
|
||
#:use-module (guix packages)
|
||
#:use-module (guix download)
|
||
#:use-module (guix git-download)
|
||
#:use-module (guix utils)
|
||
#:use-module (guix build-system copy)
|
||
#:use-module (guix build-system gnu)
|
||
#:use-module (guix build-system python)
|
||
#:use-module (guix build-system cmake)
|
||
#:use-module (guix build-system meson))
|
||
|
||
(define-public libmad
|
||
(package
|
||
(name "libmad")
|
||
(version "0.15.1b")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/mad/libmad/"
|
||
version "/libmad-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"14460zhacxhswnzb36qfpd1f2wbk10qvksvm6wyq5hpvdgnw7ymv"))
|
||
(patches (search-patches "libmad-armv7-thumb-pt1.patch"
|
||
"libmad-armv7-thumb-pt2.patch"
|
||
"libmad-md_size.patch"
|
||
"libmad-length-check.patch"
|
||
"libmad-mips-newgcc.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'remove-unsupported-gcc-flags
|
||
(lambda _
|
||
;; remove option that is not supported by gcc any more
|
||
(substitute* "configure" ((" -fforce-mem") ""))
|
||
#t))
|
||
;; Normally one should not add a pkg-config file if one is not provided
|
||
;; by upstream developers, but Audacity expects a pkg-config file for
|
||
;; this package, and other major GNU/Linux distributions already provide
|
||
;; such a file.
|
||
(add-after 'install 'install-pkg-config
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(pkg-config-dir (string-append out "/lib/pkgconfig")))
|
||
(mkdir-p pkg-config-dir)
|
||
(with-output-to-file (string-append pkg-config-dir "/mad.pc")
|
||
(lambda _
|
||
(format #t
|
||
"prefix=~@*~a~@
|
||
libdir=${prefix}/lib~@
|
||
includedir=${prefix}/include~@
|
||
|
||
Name: libmad~@
|
||
Description:~@
|
||
Version: ~a~@
|
||
Libs: -L${libdir} -lmad~@
|
||
Cflags: -I${includedir}~%"
|
||
out ,version)))))))))
|
||
(synopsis "MPEG audio decoder")
|
||
(description
|
||
"MAD (MPEG Audio Decoder) supports MPEG-1 and the MPEG-2 extension to
|
||
lower sampling frequencies, as well as the de facto MPEG 2.5 format.
|
||
All three audio layers — Layer I, Layer II, and Layer III (i.e. MP3) — are
|
||
fully implemented.
|
||
|
||
This package contains the library.")
|
||
(license license:gpl2+)
|
||
(home-page "https://www.underbit.com/products/mad/")))
|
||
|
||
(define-public libid3tag
|
||
(package
|
||
(name "libid3tag")
|
||
(version "0.15.1b")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/mad/libid3tag/"
|
||
version "/libid3tag-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0lb1w883dc46dajbdvnia5870brl5lvnlk7g7y58y9wpg5p4znk3"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
;; Normally one should not add a pkg-config file if one is not provided
|
||
;; by upstream developers, but Audacity expects a pkg-config file for
|
||
;; this package, and other major GNU/Linux distributions already provide
|
||
;; such a file.
|
||
(add-after 'install 'install-pkg-config
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(pkg-config-dir (string-append out "/lib/pkgconfig")))
|
||
(mkdir-p pkg-config-dir)
|
||
(with-output-to-file (string-append pkg-config-dir "/id3tag.pc")
|
||
(lambda _
|
||
(format #t
|
||
"prefix=~@*~a~@
|
||
libdir=${prefix}/lib~@
|
||
includedir=${prefix}/include~@
|
||
|
||
Name: libid3tag~@
|
||
Description:~@
|
||
Version: ~a~@
|
||
Libs: -L${libdir} -lid3tag -lz~@
|
||
Cflags: -I${includedir}~%"
|
||
out ,version))))))
|
||
,@(if (and (%current-target-system)
|
||
(or (target-riscv64?)
|
||
(target-aarch64?)))
|
||
`((add-after 'unpack 'update-config
|
||
(lambda* (#:key native-inputs inputs #:allow-other-keys)
|
||
(for-each
|
||
(lambda (file)
|
||
(install-file
|
||
(search-input-file (or native-inputs inputs)
|
||
(string-append "/bin/" file))
|
||
"."))
|
||
'("config.guess" "config.sub")))))
|
||
'()))))
|
||
(native-inputs (if (and (%current-target-system)
|
||
(or (target-riscv64?)
|
||
(target-aarch64?)))
|
||
(list config)
|
||
'()))
|
||
(inputs (list zlib))
|
||
(synopsis "Library for reading ID3 tags")
|
||
(description
|
||
"Libid3tag is a library for reading ID3 tags, both ID3v1 and the various
|
||
versions of ID3v2.")
|
||
(license license:gpl2+)
|
||
(home-page "https://www.underbit.com/products/mad/")))
|
||
|
||
(define-public id3lib
|
||
(package
|
||
(name "id3lib")
|
||
(version "3.8.3")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/id3lib/id3lib/"
|
||
version "/id3lib-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0yfhqwk0w8q2hyv1jib1008jvzmwlpsxvc8qjllhna6p1hycqj97"))
|
||
(modules '((guix build utils)))
|
||
;; Don't use bundled zlib
|
||
(snippet '(begin (delete-file-recursively "zlib") #t))
|
||
(patches (search-patches "id3lib-CVE-2007-4460.patch"
|
||
"id3lib-UTF16-writing-bug.patch"))))
|
||
(build-system gnu-build-system)
|
||
(inputs (list zlib))
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-before 'configure 'apply-patches
|
||
;; TODO: create a patch for origin instead?
|
||
(lambda _
|
||
(substitute* "configure"
|
||
(("iomanip.h") "")) ; drop check for unused header
|
||
;; see http://www.linuxfromscratch.org/patches/downloads/id3lib/
|
||
(substitute* "include/id3/id3lib_strings.h"
|
||
(("include <string>") "include <cstring>\n#include <string>"))
|
||
(substitute* "include/id3/writers.h"
|
||
(("//\\#include <string.h>") "#include <cstring>"))
|
||
(substitute* "examples/test_io.cpp"
|
||
(("dami;") "dami;\nusing namespace std;"))
|
||
#t)))))
|
||
(synopsis "Library for reading, writing, and manipulating ID3v1 and ID3v2 tags")
|
||
(description
|
||
"Id3lib is a cross-platform software development library for reading,
|
||
writing, and manipulating ID3v1 and ID3v2 tags. It is an on-going project
|
||
whose primary goals are full compliance with the ID3v2 standard, portability
|
||
across several platforms, and providing a powerful and feature-rich API with
|
||
a highly stable and efficient implementation.")
|
||
(license license:lgpl2.0+)
|
||
(home-page "https://id3lib.sourceforge.net/")))
|
||
|
||
(define-public taglib
|
||
(package
|
||
(name "taglib")
|
||
(version "1.12")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/taglib/taglib")
|
||
(commit (string-append "v" version))))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0q7dkn5rh9v6b0scmcp2qmjv3iransafmpn6jvgid0yq75m2nqd2"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
'(#:tests? #f ; Tests are not ran with BUILD_SHARED_LIBS on.
|
||
#:configure-flags (list "-DBUILD_SHARED_LIBS=ON")
|
||
#:phases (modify-phases %standard-phases
|
||
(add-before 'configure 'adjust-zlib-ldflags
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
;; Make sure users of 'taglib-config --libs' get the -L
|
||
;; flag for zlib.
|
||
(substitute* "CMakeLists.txt"
|
||
(("set\\(ZLIB_LIBRARIES_FLAGS -lz\\)")
|
||
(string-append "set(ZLIB_LIBRARIES_FLAGS \"-L"
|
||
(assoc-ref inputs "zlib")
|
||
"/lib -lz\")")))
|
||
#t)))))
|
||
(inputs (list zlib))
|
||
(home-page "https://taglib.org")
|
||
(synopsis "Library to access audio file meta-data")
|
||
(description
|
||
"TagLib is a C++ library for reading and editing the meta-data of several
|
||
popular audio formats. Currently it supports both ID3v1 and ID3v2 for MP3
|
||
files, Ogg Vorbis comments and ID3 tags and Vorbis comments in FLAC, MPC,
|
||
Speex, WavPack TrueAudio, WAV, AIFF, MP4 and ASF files.")
|
||
|
||
;; Dual-licensed: user may choose between LGPLv2.1 or MPLv1.1.
|
||
(license (list license:lgpl2.1 license:mpl1.1))))
|
||
|
||
(define-public minimp3
|
||
;; The latest commit is used as there is no release.
|
||
(let ((commit "afb604c06bc8beb145fecd42c0ceb5bda8795144")
|
||
(revision "0"))
|
||
(package
|
||
(name "minimp3")
|
||
(version (git-version "0.0.0" revision commit))
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/lieff/minimp3")
|
||
(commit commit)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32
|
||
"0brgrbij8swhp7lac21xnnrr5l0371lkr5vz6h9x0dbz1qq2xhsj"))))
|
||
;; TODO: minimp3 has many more files for at least tests with scripts to
|
||
;; run them, although it is unclear how to easily package them.
|
||
(build-system copy-build-system)
|
||
(arguments
|
||
'(#:install-plan
|
||
'(("minimp3.h" "include/")
|
||
("minimp3_ex.h" "include/"))))
|
||
(home-page "https://github.com/lieff/minimp3")
|
||
(synopsis "Minimalistic MP3 decoder header library")
|
||
(description
|
||
"Minimp3 is a header-only MP3 decoder library.")
|
||
(license license:cc0))))
|
||
|
||
(define-public mp3info
|
||
(package
|
||
(name "mp3info")
|
||
(version "0.8.5a")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://ibiblio.org"
|
||
"/pub/linux/apps/sound/mp3-utils/mp3info/mp3info-"
|
||
version ".tgz"))
|
||
(sha256
|
||
(base32
|
||
"042f1czcs9n2sbqvg4rsvfwlqib2gk976mfa2kxlfjghx5laqf04"))
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
(substitute* "Makefile"
|
||
(("/bin/rm") "rm")
|
||
(("/usr/bin/install") "install")
|
||
(("man/man1") "share/man/man1"))
|
||
#t))))
|
||
(build-system gnu-build-system)
|
||
(outputs '("out" "gui")) ;GTK+ interface in "gui"
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(substitute* "Makefile"
|
||
(("prefix=.*")
|
||
(string-append "prefix := " out "\n"))))
|
||
#t))
|
||
(add-before 'install 'pre-install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out")))
|
||
(mkdir-p (string-append out "/bin"))
|
||
(mkdir-p (string-append out "/share/man/man1")))
|
||
#t))
|
||
(add-after 'install 'post-install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
;; Move the GTK+ interface to "gui".
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(gui (assoc-ref outputs "gui")))
|
||
(mkdir-p (string-append gui "/bin"))
|
||
(rename-file (string-append out "/bin/gmp3info")
|
||
(string-append gui "/bin/gmp3info")))
|
||
#t)))
|
||
#:tests? #f))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(inputs
|
||
(list gtk+-2 ncurses))
|
||
(home-page "https://www.ibiblio.org/mp3info/")
|
||
(synopsis "MP3 technical info viewer and ID3 1.x tag editor")
|
||
(description
|
||
"MP3Info is a little utility used to read and modify the ID3 tags of MP3
|
||
files. MP3Info can also display various technical aspects of an MP3 file
|
||
including playing time, bit-rate, sampling frequency and other attributes in a
|
||
pre-defined or user-specifiable output format.")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public libmp3splt
|
||
(package
|
||
(name "libmp3splt")
|
||
(version "0.9.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/mp3splt/libmp3splt/"
|
||
version "/libmp3splt-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1p1mn2hsmj5cp40fnc8g1yfvk72p8pjxi866gjdkgjsqrr7xdvih"))))
|
||
(build-system gnu-build-system)
|
||
(inputs (list flac
|
||
libid3tag
|
||
libmad
|
||
libogg
|
||
libltdl
|
||
libvorbis
|
||
pcre))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(synopsis "Library for splitting mp3 and ogg vorbis files")
|
||
(description
|
||
"Mp3splt is a utility to split mp3 and ogg vorbis files selecting a begin
|
||
and an end time position, without decoding. For splitting an album, one may
|
||
select split points and file names manually or obtain them automatically from
|
||
CDDB (internet or a local file) or from .cue files. The tool also supports
|
||
automatic silence split, that can be used also to adjust cddb/cue splitpoints.
|
||
|
||
This package contains the library.")
|
||
(license license:gpl2+)
|
||
(home-page "https://mp3splt.sourceforge.net/mp3splt_page/home.php")))
|
||
|
||
(define-public mp3splt
|
||
(package
|
||
(name "mp3splt")
|
||
(version "2.6.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/mp3splt/mp3splt/"
|
||
version "/mp3splt-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"1aiv20gypb6r84qabz8gblk8vi42cg3x333vk2pi3fyqvl82phry"))))
|
||
(build-system gnu-build-system)
|
||
(native-inputs (list pkg-config))
|
||
(inputs (list libmp3splt))
|
||
(synopsis "Utility for splitting mp3 and ogg vorbis files")
|
||
(description
|
||
"Mp3splt is a utility to split mp3 and ogg vorbis files selecting a begin
|
||
and an end time position, without decoding. For splitting an album, one may
|
||
select split points and file names manually or obtain them automatically from
|
||
CDDB (internet or a local file) or from .cue files. The tool also supports
|
||
automatic silence split, that can be used also to adjust cddb/cue splitpoints.
|
||
|
||
This package contains the binary.")
|
||
(license license:gpl2+)
|
||
(home-page "https://mp3splt.sourceforge.net/mp3splt_page/home.php")))
|
||
|
||
(define-public mpg123
|
||
(package
|
||
(name "mpg123")
|
||
(version "1.31.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (list (string-append "mirror://sourceforge/mpg123/mpg123/"
|
||
version "/mpg123-" version ".tar.bz2")
|
||
(string-append
|
||
"https://www.mpg123.org/download/mpg123-"
|
||
version ".tar.bz2")))
|
||
(sha256
|
||
(base32 "1pn777l9m7qbsx4v93gnav8bf6yi3skzdz8x81mkpx1ibs824zxi"))))
|
||
(build-system gnu-build-system)
|
||
(arguments '(#:configure-flags '("--with-default-audio=pulse")))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(inputs
|
||
(list alsa-lib pulseaudio))
|
||
(home-page "https://www.mpg123.org/")
|
||
(synopsis "Console MP3 player and decoder library")
|
||
(description
|
||
"Mpg123 is a real time MPEG 1.0/2.0/2.5 audio player/decoder for layers
|
||
1,2 and 3 (MPEG 1.0 layer 3 aka MP3 most commonly tested). It comes with a
|
||
command-line tool as well as a C library, libmpg123.")
|
||
(license license:lgpl2.1)))
|
||
|
||
(define-public mpg321
|
||
(package
|
||
(name "mpg321")
|
||
(version "0.3.2")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/mpg321/mpg321/"
|
||
version "/mpg321_" version ".orig.tar.gz"))
|
||
(file-name (string-append "mpg321-" version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"0ki8mh76bbmdh77qsiw682dvi8y468yhbdabqwg05igmwc1wqvq5"))
|
||
(patches
|
||
(search-patches "mpg321-CVE-2019-14247.patch"
|
||
"mpg321-gcc-10.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments '(#:configure-flags '("--disable-alsa")))
|
||
(inputs
|
||
`(("zlib" ,zlib)
|
||
("libmad" ,libmad)
|
||
("libid3tag" ,libid3tag)
|
||
("libao" ,ao)))
|
||
(home-page "https://mpg321.sourceforge.net/")
|
||
(synopsis "Command-line MP3 player")
|
||
(description "Mpg321 is a command-line mp3 player. mpg321 is used for
|
||
frontends, as an mp3 player and as an mp3 to wave file decoder (primarily for
|
||
use with CD-recording software).")
|
||
(license license:gpl2)))
|
||
|
||
(define-public lame
|
||
(package
|
||
(name "lame")
|
||
(version "3.100")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/lame/lame/"
|
||
(version-major+minor version) "/lame-"
|
||
version ".tar.gz"))
|
||
(sha256
|
||
(base32
|
||
"07nsn5sy3a8xbmw1bidxnsj5fj6kg9ai04icmqw40ybkp353dznx"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'install-pkg-config
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(pkg-config-dir (string-append out "/lib/pkgconfig")))
|
||
(mkdir-p pkg-config-dir)
|
||
(with-output-to-file (string-append pkg-config-dir "/lame.pc")
|
||
(lambda _
|
||
(format #t
|
||
"prefix=~@*~a~@
|
||
libdir=${prefix}/lib~@
|
||
includedir=${prefix}/include~@
|
||
|
||
Name: lame~@
|
||
Description:~@
|
||
Version: ~a~@
|
||
Libs: -L${libdir} -lmp3lame~@
|
||
Cflags: -I${includedir}~%"
|
||
out ,version)))))))))
|
||
(home-page "https://lame.sourceforge.net/")
|
||
(synopsis "MPEG Audio Layer III (MP3) encoder")
|
||
(description "LAME is a high quality MPEG Audio Layer III (MP3) encoder.")
|
||
(license license:lgpl2.0)))
|
||
|
||
(define-public ripperx
|
||
(package
|
||
(name "ripperx")
|
||
(version "2.8.0")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append "mirror://sourceforge/ripperx/ripperx/"
|
||
version "/ripperx-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1ss3c1a5hx6c99q1cryxg0jhbnbdj6ga9xyz0dzlz9qhzg5qswfs"))
|
||
(patches (search-patches "ripperx-missing-file.patch"))))
|
||
(build-system gnu-build-system)
|
||
(propagated-inputs
|
||
(list font-ghostscript cdparanoia flac lame vorbis-tools))
|
||
(inputs
|
||
(list glib gtk+-2 id3lib taglib))
|
||
(native-inputs
|
||
(list pkg-config))
|
||
(synopsis "GTK program to rip and encode CD audio tracks")
|
||
(description
|
||
"RipperX is a GTK program to rip CD audio tracks and encode them to the
|
||
Ogg, MP3, or FLAC formats. Its goal is to be easy to use, requiring only
|
||
a few mouse clicks to convert an entire album. It supports CDDB lookups
|
||
for album and track information.")
|
||
(license license:gpl2)
|
||
(home-page "https://sourceforge.net/projects/ripperx/")))
|
||
|
||
(define-public libmpcdec
|
||
(package
|
||
(name "libmpcdec")
|
||
(version "1.2.6")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://files.musepack.net/source/libmpcdec-"
|
||
version ".tar.bz2"))
|
||
(sha256
|
||
(base32
|
||
"1a0jdyga1zfi4wgkg3905y6inghy3s4xfs5m4x7pal08m0llkmab"))))
|
||
(build-system gnu-build-system)
|
||
(synopsis "Decoding library for the Musepack audio format")
|
||
(description
|
||
"This library supports decoding of the Musepack (MPC) audio compression
|
||
format.")
|
||
(license license:bsd-3)
|
||
(home-page "https://musepack.net")))
|
||
|
||
(define-public mpc123
|
||
(package
|
||
(name "mpc123")
|
||
(version "0.2.4")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (list (string-append "mirror://sourceforge/mpc123/version%20"
|
||
version "/mpc123-" version ".tar.gz")
|
||
(string-append "mirror://debian/pool/main/m/" name
|
||
"/" name "_" version ".orig.tar.gz")))
|
||
(sha256
|
||
(base32
|
||
"0sf4pns0245009z6mbxpx7kqy4kwl69bc95wz9v23wgappsvxgy1"))
|
||
(patches (search-patches "mpc123-initialize-ao.patch"))))
|
||
(build-system gnu-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
(replace 'configure
|
||
(lambda _
|
||
(substitute* "Makefile"
|
||
(("CC[[:blank:]]*:=.*")
|
||
"CC := gcc\n"))
|
||
|
||
(setenv "CFLAGS" "-fcommon -g"))) ;allow compilation with GCC 10
|
||
(replace 'install
|
||
(lambda* (#:key outputs #:allow-other-keys)
|
||
(let* ((out (assoc-ref outputs "out"))
|
||
(bin (string-append out "/bin")))
|
||
(install-file "mpc123" bin)))))
|
||
#:tests? #f))
|
||
(native-inputs
|
||
`(("gettext" ,gettext-minimal)))
|
||
(inputs
|
||
`(("libao" ,ao)
|
||
("libmpcdec" ,libmpcdec)))
|
||
(home-page "https://github.com/bucciarati/mpc123")
|
||
(synopsis "Audio player for Musepack-formatted files")
|
||
(description
|
||
"Mpc123 is a command-line player for files in the Musepack audio
|
||
compression format (.mpc files).")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public eyed3
|
||
(package
|
||
(name "eyed3")
|
||
(version "0.9.7")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "eyeD3" version))
|
||
(sha256
|
||
(base32 "03ygqns4ibq0nnbvdm1pk97nzyqrl76df2cl9w8lasipjf9qxcck"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
`(#:tests? #f)) ; the required test data contains copyrighted material
|
||
(propagated-inputs
|
||
(list python-deprecation
|
||
python-filetype
|
||
python-six))
|
||
(synopsis "MP3 tag ID3 metadata editor")
|
||
(description "eyeD3 is a Python tool for working with audio files,
|
||
specifically mp3 files containing ID3 metadata (i.e. song info). It provides a
|
||
command-line tool (eyeD3) and a Python library (import eyed3) that can be used
|
||
to write your own applications or plugins that are callable from the
|
||
command-line tool.")
|
||
(home-page "https://eyed3.readthedocs.io/en/latest/")
|
||
(license license:gpl2+)))
|
||
|
||
(define-public chromaprint
|
||
(package
|
||
(name "chromaprint")
|
||
(version "1.5.1")
|
||
(source (origin
|
||
(method url-fetch)
|
||
(uri (string-append
|
||
"https://github.com/acoustid/chromaprint/releases/download/v"
|
||
version "/chromaprint-" version ".tar.gz"))
|
||
(sha256
|
||
(base32 "072y6c7ijkm6r674f6z089rbdazrmxzpdcsm6y6vf64b7gxdiam1"))))
|
||
(build-system cmake-build-system)
|
||
(arguments
|
||
`(#:tests? #f ; tests require googletest *sources*
|
||
;;#:configure-flags '("-DBUILD_TESTS=ON") ; for building the tests
|
||
#:configure-flags '("-DBUILD_TOOLS=ON") ; for fpcalc
|
||
#:test-target "check"))
|
||
(inputs
|
||
;; requires one of FFmpeg (prefered), FFTW3 or vDSP
|
||
;; use the same ffmpeg version as for acoustid-fingerprinter
|
||
(list ffmpeg-4 boost))
|
||
(home-page "https://acoustid.org/chromaprint")
|
||
(synopsis "Audio fingerprinting library")
|
||
(description "Chromaprint is a library for calculating audio
|
||
fingerprints which are used by the Acoustid service. Its main purpose
|
||
is to provide an accurate identifier for record tracks.")
|
||
(license license:lgpl2.1+)))
|
||
|
||
(define-public python-audioread
|
||
(package
|
||
(name "python-audioread")
|
||
(version "2.1.9")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "audioread" version))
|
||
(sha256
|
||
(base32 "129hab8x9sb3plff2bkq4xnzc3i8k9rgcm1a36l813kc0m10wj53"))))
|
||
(build-system python-build-system)
|
||
(arguments `(#:tests? #f)) ; there is no "audiofile" fixture
|
||
(native-inputs
|
||
(list python-pytest python-pytest-runner))
|
||
(home-page "https://github.com/sampsyo/audioread")
|
||
(synopsis "Decode audio files using whichever backend is available")
|
||
(description
|
||
"This package provides a Python library for audo decoding. It uses
|
||
whatever audio backend is available, such as GStreamer, Core Audio, MAD,
|
||
FFmpeg, etc.")
|
||
(license license:expat)))
|
||
|
||
(define-public python-pyacoustid
|
||
(package
|
||
(name "python-pyacoustid")
|
||
(version "1.2.2")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "pyacoustid" version))
|
||
(sha256
|
||
(base32
|
||
"0ha15m41r8ckmanc4k9nrlb9hprvhdjxndzw40a1yj3z1b1xjyf2"))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
`(#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'unpack 'chromaprint-path
|
||
(lambda* (#:key inputs #:allow-other-keys)
|
||
(substitute* "chromaprint.py"
|
||
(("libchromaprint.so.1")
|
||
(string-append (assoc-ref inputs "chromaprint")
|
||
"/lib/libchromaprint.so.1")))
|
||
(substitute* "acoustid.py"
|
||
(("'fpcalc'")
|
||
(string-append "'" (assoc-ref inputs "chromaprint")
|
||
"/bin/fpcalc'")))
|
||
#t)))))
|
||
(inputs (list chromaprint))
|
||
(propagated-inputs
|
||
(list python-audioread python-requests))
|
||
(home-page "https://github.com/beetbox/pyacoustid")
|
||
(synopsis "Bindings for Chromaprint acoustic fingerprinting")
|
||
(description
|
||
"This package provides bindings for the Chromaprint acoustic
|
||
fingerprinting library and the Acoustid API.")
|
||
(license license:expat)))
|
||
|
||
(define-public python-pytaglib
|
||
(package
|
||
(name "python-pytaglib")
|
||
(version "1.4.6")
|
||
(source
|
||
(origin
|
||
(method url-fetch)
|
||
(uri (pypi-uri "pytaglib" version))
|
||
(sha256
|
||
(base32
|
||
"0li970qslfymz4vk1wrij2nfqw3l15cpc3fjjci48mpvg17gbnhn"))
|
||
;; Delete file generated by Cython.
|
||
(modules '((guix build utils)))
|
||
(snippet
|
||
'(begin
|
||
(delete-file "src/taglib.cpp")))))
|
||
(build-system python-build-system)
|
||
(arguments
|
||
'(#:phases
|
||
(modify-phases %standard-phases
|
||
;; Ensure that the Cython file is regenerated.
|
||
(add-after 'unpack 'setup-environment
|
||
(lambda _
|
||
(setenv "PYTAGLIB_CYTHONIZE" "1"))))))
|
||
(native-inputs
|
||
(list python-cython python-pytest))
|
||
(inputs
|
||
(list taglib))
|
||
(home-page
|
||
"https://github.com/supermihi/pytaglib")
|
||
(synopsis
|
||
"Python bindings for taglib")
|
||
(description
|
||
"This package is a Python audio tagging library. It is
|
||
cross-platform, works with all Python versions, and is very
|
||
simple to use yet fully featured.")
|
||
(license license:gpl3)))
|
||
|
||
(define-public wavbreaker
|
||
(package
|
||
(name "wavbreaker")
|
||
(version "0.15")
|
||
(source (origin
|
||
(method git-fetch)
|
||
(uri (git-reference
|
||
(url "https://github.com/thp/wavbreaker/")
|
||
(commit version)))
|
||
(file-name (git-file-name name version))
|
||
(sha256
|
||
(base32 "16h0sfcb8av6a368giizzwv9m0lq5c3bnf4b9vyyh9nkbbsc7c3j"))))
|
||
(build-system meson-build-system)
|
||
(arguments
|
||
'(#:modules
|
||
((guix build utils)
|
||
(guix build meson-build-system))
|
||
|
||
#:phases
|
||
(modify-phases %standard-phases
|
||
(add-after 'install 'wrap-program
|
||
;; This wrapping is necessary to make wavbreaker find things it
|
||
;; needs in pure environments.
|
||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||
(let ((out (assoc-ref outputs "out"))
|
||
(adwaita-icons (assoc-ref inputs "adwaita-icon-theme"))
|
||
(hicolor-icons (assoc-ref inputs "hicolor-icon-theme"))
|
||
(shared-mime (assoc-ref inputs "shared-mime-info")))
|
||
(wrap-program (string-append out "/bin/wavbreaker")
|
||
;; Needed in order for wavbreakere to find the icons it needs
|
||
`("XDG_DATA_DIRS" ":" prefix
|
||
,(map (lambda (package)
|
||
(string-append package "/share"))
|
||
`(,out ;for wavbreaker's icon
|
||
,adwaita-icons
|
||
,hicolor-icons
|
||
,shared-mime)))
|
||
;; This is necessary to load some pixbufs like Adwaita's
|
||
;; check-symbolic.svg and wavbreaker's own logo in the
|
||
;; 'about' section.
|
||
`("GDK_PIXBUF_MODULE_FILE" =
|
||
(,(getenv "GDK_PIXBUF_MODULE_FILE")))
|
||
;; Needed for GTK's file chooser to not crash.
|
||
`("GSETTINGS_SCHEMA_DIR" =
|
||
(,(string-append (assoc-ref inputs "gtk+")
|
||
"/share/glib-2.0/schemas"))))))))))
|
||
(native-inputs
|
||
(list pkg-config cmake))
|
||
(inputs
|
||
(list glib
|
||
gtk+
|
||
ao
|
||
bash-minimal
|
||
adwaita-icon-theme
|
||
shared-mime-info
|
||
hicolor-icon-theme
|
||
gsettings-desktop-schemas))
|
||
(home-page "https://wavbreaker.sourceforge.io/")
|
||
(synopsis "WAV and MP3 file splitter with a GUI")
|
||
(description
|
||
"Wavbreaker is a WAV and MP3 file splitter. It can be used to break up a
|
||
WAV or MP3 audio file into multiple WAV files. Wavbreaker contains a helpful
|
||
waveform display of the audio file being edited, to help the user in splitting
|
||
the file at the right point. Wavbreaker also supports splitting MP3 files
|
||
without re-encoding them, to preserve their original audio quality.")
|
||
(license license:gpl2+)))
|