gnu/packages/audio.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015, 2016 Ricardo Wurmus <rekado@elephly.net>
   3 ;;; Copyright © 2015 Taylan Ulrich Bayırlı/Kammer <taylanbayirli@gmail.com>
   4 ;;; Copyright © 2015 Andreas Enge <andreas@enge.fr>
   5 ;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
   6 ;;; Copyright © 2015, 2016 Mark H Weaver <mhw@netris.org>
   7 ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
   8 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
   9 ;;;
  10 ;;; This file is part of GNU Guix.
  11 ;;;
  12 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  13 ;;; under the terms of the GNU General Public License as published by
  14 ;;; the Free Software Foundation; either version 3 of the License, or (at
  15 ;;; your option) any later version.
  16 ;;;
  17 ;;; GNU Guix is distributed in the hope that it will be useful, but
  18 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;;; GNU General Public License for more details.
  21 ;;;
  22 ;;; You should have received a copy of the GNU General Public License
  23 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 (define-module (gnu packages audio)
  26   #:use-module (guix packages)
  27   #:use-module (guix download)
  28   #:use-module (guix git-download)
  29   #:use-module (guix utils)
  30   #:use-module ((guix licenses) #:prefix license:)
  31   #:use-module (guix build-system gnu)
  32   #:use-module (guix build-system waf)
  33   #:use-module (guix build-system trivial)
  34   #:use-module (guix build-system cmake)
  35   #:use-module (guix build-system python)
  36   #:use-module (gnu packages)
  37   #:use-module (gnu packages algebra)
  38   #:use-module (gnu packages autotools)
  39   #:use-module (gnu packages avahi)
  40   #:use-module (gnu packages boost)
  41   #:use-module (gnu packages base)
  42   #:use-module (gnu packages bison)
  43   #:use-module (gnu packages check)
  44   #:use-module (gnu packages compression)
  45   #:use-module (gnu packages curl)
  46   #:use-module (gnu packages databases)
  47   #:use-module (gnu packages file)
  48   #:use-module (gnu packages flex)
  49   #:use-module (gnu packages fltk)
  50   #:use-module (gnu packages fontutils)
  51   #:use-module (gnu packages gettext)
  52   #:use-module (gnu packages glib)
  53   #:use-module (gnu packages gtk)
  54   #:use-module (gnu packages gnome)
  55   #:use-module (gnu packages gperf)
  56   #:use-module (gnu packages image)
  57   #:use-module (gnu packages ncurses)
  58   #:use-module (gnu packages qt)
  59   #:use-module (gnu packages linux)
  60   #:use-module (gnu packages mp3) ;taglib
  61   #:use-module (gnu packages perl)
  62   #:use-module (gnu packages pkg-config)
  63   #:use-module (gnu packages pulseaudio)  ;libsndfile, libsamplerate
  64   #:use-module (gnu packages python)
  65   #:use-module (gnu packages rdf)
  66   #:use-module (gnu packages readline)
  67   #:use-module (gnu packages video)
  68   #:use-module (gnu packages webkit)
  69   #:use-module (gnu packages xiph)
  70   #:use-module (gnu packages xml)
  71   #:use-module (gnu packages xorg)
  72   #:use-module (gnu packages zip)
  73   #:use-module (srfi srfi-1))
  74
  75 (define-public alsa-modular-synth
  76   (package
  77     (name "alsa-modular-synth")
  78     (version "2.1.2")
  79     (source (origin
  80               (method url-fetch)
  81               (uri (string-append "mirror://sourceforge/alsamodular/alsamodular"
  82                                   "/" version "/ams-" version ".tar.bz2"))
  83               (sha256
  84                (base32
  85                 "1azbrhpfk4nnybr7kgmc7w6al6xnzppg853vas8gmkh185kk11l0"))))
  86     (build-system gnu-build-system)
  87     (arguments
  88      `(#:configure-flags '("--enable-qt5")
  89        #:phases
  90        (modify-phases %standard-phases
  91          ;; Insert an extra space between linker flags.
  92          (add-before 'configure 'add-missing-space
  93            (lambda _
  94              (substitute* "configure"
  95                (("LIBS\\+=\\$LIBSsave") "LIBS+=\" $LIBSsave\"")
  96                (("CFLAGS\\+=\\$CFLAGSsave") "CFLAGS+=\" $CFLAGSsave\""))
  97              #t)))))
  98     (inputs
  99      `(("alsa-lib" ,alsa-lib)
 100        ;; We cannot use zita-alsa-pcmi (the successor of clalsadrv) due to
 101        ;; license incompatibility.
 102        ("clalsadrv" ,clalsadrv)
 103        ("fftw" ,fftw)
 104        ("jack" ,jack-1)
 105        ("ladspa" ,ladspa)
 106        ("liblo" ,liblo)
 107        ("qtbase" ,qtbase)
 108        ("qttools" ,qttools)))
 109     (native-inputs
 110      `(("pkg-config" ,pkg-config)))
 111     (home-page "http://alsamodular.sourceforge.net/")
 112     (synopsis "Realtime modular synthesizer and effect processor")
 113     (description
 114      "AlsaModularSynth is a digital implementation of a classical analog
 115 modular synthesizer system.  It uses virtual control voltages to control the
 116 parameters of the modules.  The control voltages which control the frequency
 117 e.g. of the VCO (Voltage Controlled Oscillator) and VCF (Voltage Controlled
 118 Filter) modules follow the convention of 1V / Octave.")
 119     (license license:gpl2)))
 120
 121 (define-public aubio
 122   (package
 123     (name "aubio")
 124     (version "0.4.1")
 125     (source (origin
 126              (method url-fetch)
 127              (uri (string-append
 128                    "http://aubio.org/pub/aubio-" version ".tar.bz2"))
 129              (sha256
 130               (base32
 131                "15f6nf76y7iyl2kl4ny7ky0zpxfxr8j3902afvd6ydnnkh5dzmr5"))))
 132     (build-system waf-build-system)
 133     (arguments
 134      `(#:tests? #f  ; no check target
 135        #:configure-flags
 136        '("--enable-fftw3f"
 137          "--enable-jack"
 138          "--enable-sndfile"
 139          "--enable-samplerate"
 140          ;; enable compilation with avcodec once available
 141          "--disable-avcodec")
 142        #:python ,python-2))
 143     (inputs
 144      `(("jack" ,jack-1)
 145        ("libsndfile" ,libsndfile)
 146        ("libsamplerate" ,libsamplerate)
 147        ("fftwf" ,fftwf)))
 148     (native-inputs
 149      `(("pkg-config" ,pkg-config)))
 150     (home-page "http://aubio.org/")
 151     (synopsis "Library for audio labelling")
 152     (description
 153      "aubio is a tool designed for the extraction of annotations from audio
 154 signals.  Its features include segmenting a sound file before each of its
 155 attacks, performing pitch detection, tapping the beat and producing MIDI
 156 streams from live audio.")
 157     (license license:gpl3+)))
 158
 159 (define (ardour-rpath-phase major-version)
 160   `(lambda* (#:key outputs #:allow-other-keys)
 161      (let ((libdir (string-append (assoc-ref outputs "out")
 162                                   "/lib/ardour" ,major-version)))
 163        (substitute* "wscript"
 164          (("linker_flags = \\[\\]")
 165           (string-append "linker_flags = [\""
 166                          "-Wl,-rpath="
 167                          libdir ":"
 168                          libdir "/backends" ":"
 169                          libdir "/engines" ":"
 170                          libdir "/panners" ":"
 171                          libdir "/surfaces" ":"
 172                          libdir "/vamp" "\"]"))))
 173      #t))
 174
 175 (define-public ardour
 176   (package
 177     (name "ardour")
 178     (version "5.0")
 179     (source (origin
 180               (method git-fetch)
 181               (uri (git-reference
 182                     (url "git://git.ardour.org/ardour/ardour.git")
 183                     (commit version)))
 184               (snippet
 185                ;; Ardour expects this file to exist at build time.  The revision
 186                ;; is the output of
 187                ;;    git describe HEAD | sed 's/^[A-Za-z]*+//'
 188                '(call-with-output-file
 189                     "libs/ardour/revision.cc"
 190                   (lambda (port)
 191                     (format port "#include \"ardour/revision.h\"
 192 namespace ARDOUR { const char* revision = \"5.0-10-g23d1d1f\" ; }"))))
 193               (sha256
 194                (base32
 195                 "0ihd6zxha1vvp4jy5s49pqyw09qxxjgrdlslrkz6ll59zdh6x7am"))
 196               (file-name (string-append name "-" version))))
 197     (build-system waf-build-system)
 198     (arguments
 199      `(#:configure-flags '("--cxx11") ; required by gtkmm
 200        #:phases
 201        (modify-phases %standard-phases
 202          (add-after
 203           'unpack 'set-rpath-in-LDFLAGS
 204           ,(ardour-rpath-phase (version-prefix version 1))))
 205        #:tests? #f ; no check target
 206        #:python ,python-2))
 207     (inputs
 208      `(("alsa-lib" ,alsa-lib)
 209        ("aubio" ,aubio)
 210        ("lrdf" ,lrdf)
 211        ("boost" ,boost)
 212        ("atkmm" ,atkmm)
 213        ("cairomm" ,cairomm)
 214        ("gtkmm" ,gtkmm-2)
 215        ("glibmm" ,glibmm)
 216        ("libart-lgpl" ,libart-lgpl)
 217        ("libgnomecanvasmm" ,libgnomecanvasmm)
 218        ("pangomm" ,pangomm)
 219        ("liblo" ,liblo)
 220        ("libsndfile" ,libsndfile)
 221        ("libsamplerate" ,libsamplerate)
 222        ("libxml2" ,libxml2)
 223        ("libogg" ,libogg)
 224        ("libvorbis" ,libvorbis)
 225        ("flac" ,flac)
 226        ("lv2" ,lv2)
 227        ("vamp" ,vamp)
 228        ("curl" ,curl)
 229        ("fftw" ,fftw)
 230        ("fftwf" ,fftwf)
 231        ("jack" ,jack-1)
 232        ("serd" ,serd)
 233        ("sord" ,sord)
 234        ("sratom" ,sratom)
 235        ("suil" ,suil)
 236        ("lilv" ,lilv)
 237        ("readline" ,readline)
 238        ("redland" ,redland)
 239        ("rubberband" ,rubberband)
 240        ("taglib" ,taglib)
 241        ("python-rdflib" ,python-rdflib)))
 242     (native-inputs
 243      `(("perl" ,perl)
 244        ("cppunit" ,cppunit)
 245        ("pkg-config" ,pkg-config)))
 246     (home-page "http://ardour.org")
 247     (synopsis "Digital audio workstation")
 248     (description
 249      "Ardour is a multi-channel digital audio workstation, allowing users to
 250 record, edit, mix and master audio and MIDI projects.  It is targeted at audio
 251 engineers, musicians, soundtrack editors and composers.")
 252     (license license:gpl2+)))
 253
 254 (define-public azr3
 255   (package
 256     (name "azr3")
 257     (version "1.2.3")
 258     (source (origin
 259               (method url-fetch)
 260               (uri (string-append "mirror://savannah/ll-plugins/azr3-jack-"
 261                                   version
 262                                   ".tar.bz2"))
 263               (sha256
 264                (base32
 265                 "18mdw6nc0vgj6k9rsy0x8w64wvzld0frqshrxxbxfj9qi9843vlc"))))
 266     (build-system gnu-build-system)
 267     (arguments
 268      `(#:tests? #f ; no check target
 269        #:make-flags
 270        (list "LV2PEG=ttl2c"
 271              (string-append "prefix=" %output)
 272              (string-append "pkgdatadir=" %output "/share/azr3-jack"))))
 273     (inputs
 274      `(("gtkmm" ,gtkmm-2)
 275        ("lvtk" ,lvtk)
 276        ("jack" ,jack-1)
 277        ("lash" ,lash)))
 278     (native-inputs
 279      `(("pkg-config" ,pkg-config)))
 280     (home-page "http://ll-plugins.nongnu.org/azr3/")
 281     (synopsis "Tonewheel organ synthesizer")
 282     (description
 283      "AZR-3 is a port of the free VST plugin AZR-3.  It is a tonewheel organ
 284 with drawbars, distortion and rotating speakers.  The organ has three
 285 sections, two polyphonic sections with nine drawbars each and one monophonic
 286 bass section with five drawbars.  A standalone JACK application and LV2
 287 plugins are provided.")
 288     (license license:gpl2)))
 289
 290 (define-public calf
 291   (package
 292     (name "calf")
 293     (version "0.0.60")
 294     (source (origin
 295               (method url-fetch)
 296               (uri (string-append "http://calf-studio-gear.org/files/calf-"
 297                                   version ".tar.gz"))
 298               (sha256
 299                (base32
 300                 "019fwg00jv217a5r767z7szh7vdrarybac0pr2sk26xp81kibrx9"))))
 301     (build-system gnu-build-system)
 302     (inputs
 303      `(("fluidsynth" ,fluidsynth)
 304        ("expat" ,expat)
 305        ("glib" ,glib)
 306        ("gtk" ,gtk+-2)
 307        ("cairo" ,cairo)
 308        ("lash" ,lash)
 309        ("jack" ,jack-1)
 310        ("lv2" ,lv2)
 311        ("ladspa" ,ladspa)
 312        ("fftw" ,fftw)))
 313     (native-inputs
 314      `(("pkg-config" ,pkg-config)))
 315     (native-search-paths
 316      (list (search-path-specification
 317             (variable "LV2_PATH")
 318             (files '("lib/lv2")))))
 319     (home-page "http://calf.sourceforge.net/")
 320     (synopsis "Audio plug-in pack for LV2 and JACK environments")
 321     (description
 322      "Calf Studio Gear is an audio plug-in pack for LV2 and JACK environments.
 323 The suite contains lots of effects (delay, modulation, signal processing,
 324 filters, equalizers, dynamics, distortion and mastering effects),
 325 instruments (SF2 player, organ simulator and a monophonic synthesizer) and
 326 tools (analyzer, mono/stereo tools, crossovers).")
 327     ;; calfjackhost is released under GPLv2+
 328     ;; The plugins are released under LGPLv2.1+
 329     (license (list license:lgpl2.1+ license:gpl2+))))
 330
 331 (define-public csound
 332   (package
 333     (name "csound")
 334     (version "6.05")
 335     (source (origin
 336               (method url-fetch)
 337               (uri (string-append
 338                     "mirror://sourceforge/csound/csound6/Csound"
 339                     version "/Csound" version ".tar.gz"))
 340               (sha256
 341                (base32
 342                 "0a1sni6lr7qpwywpggbkp0ia3h9bwwgf9i87gsag8ra2h30v82hd"))
 343               (patches (search-patches "csound-header-ordering.patch"))))
 344     (build-system cmake-build-system)
 345     (arguments
 346      ;; Work around this error on x86_64 with libc 2.22+:
 347      ;;    libmvec.so.1: error adding symbols: DSO missing from command line
 348      (if (string-prefix? "x86_64" (or (%current-target-system) (%current-system)))
 349          '(#:configure-flags '("-DCMAKE_EXE_LINKER_FLAGS=-lmvec"))
 350          '()))
 351     (inputs
 352      `(("alsa-lib" ,alsa-lib)
 353        ("boost" ,boost)
 354        ("pulseaudio" ,pulseaudio)
 355        ("libsndfile" ,libsndfile)
 356        ("liblo" ,liblo)
 357        ("ladspa" ,ladspa)
 358        ("jack" ,jack-1)
 359        ("gettext" ,gnu-gettext)))
 360     (native-inputs
 361      `(("bison" ,bison)
 362        ("flex" ,flex)
 363        ("zlib" ,zlib)))
 364     (home-page "http://csound.github.io/")
 365     (synopsis "Sound and music computing system")
 366     (description
 367      "Csound is a user-programmable and user-extensible sound processing
 368 language and software synthesizer.")
 369     (license license:lgpl2.1+)))
 370
 371 (define-public clalsadrv
 372   (package
 373     (name "clalsadrv")
 374     (version "2.0.0")
 375     (source (origin
 376               (method url-fetch)
 377               (uri (string-append
 378                     "http://kokkinizita.linuxaudio.org"
 379                     "/linuxaudio/downloads/clalsadrv-"
 380                     version ".tar.bz2"))
 381               (sha256
 382                (base32
 383                 "0bsacx3l9065gk8g4137qmz2ij7s9x06aldvacinzlcslw7bd1kq"))))
 384     (build-system gnu-build-system)
 385     (arguments
 386      `(#:tests? #f ; no "check" target
 387        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
 388        #:phases
 389        (alist-cons-after
 390         'unpack 'patch-makefile-and-enter-directory
 391         (lambda _
 392           (substitute* "libs/Makefile"
 393             (("/sbin/ldconfig") "true")
 394             (("^LIBDIR =.*") "LIBDIR = lib\n"))
 395           (chdir "libs")
 396           #t)
 397         (alist-cons-after
 398          'install
 399          'install-symlink
 400          (lambda _
 401            (symlink "libclalsadrv.so"
 402                     (string-append (assoc-ref %outputs "out")
 403                                    "/lib/libclalsadrv.so.2")))
 404          ;; no configure script
 405          (alist-delete 'configure %standard-phases)))))
 406     (inputs
 407      `(("alsa-lib" ,alsa-lib)
 408        ("fftw" ,fftw)))
 409     (home-page "http://kokkinizita.linuxaudio.org")
 410     (synopsis "C++ wrapper around the ALSA API")
 411     (description
 412      "clalsadrv is a C++ wrapper around the ALSA API simplifying access to
 413 ALSA PCM devices.")
 414     (license license:gpl2+)))
 415
 416 (define-public amb-plugins
 417   (package
 418     (name "amb-plugins")
 419     (version "0.8.1")
 420     (source (origin
 421               (method url-fetch)
 422               (uri (string-append
 423                     "http://kokkinizita.linuxaudio.org"
 424                     "/linuxaudio/downloads/AMB-plugins-"
 425                     version ".tar.bz2"))
 426               (sha256
 427                (base32
 428                 "0x4blm4visjqj0ndqr0cg776v3b7lvplpc8cgi9n51llhavn0jpl"))))
 429     (build-system gnu-build-system)
 430     (arguments
 431      `(#:tests? #f ; no "check" target
 432        #:phases
 433        (modify-phases %standard-phases
 434          ;; no configure script
 435          (delete 'configure)
 436          (add-before 'install 'prepare-target-directory
 437            (lambda* (#:key outputs #:allow-other-keys)
 438              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 439              #t))
 440          (add-after 'unpack 'override-target-directory-and-tool-paths
 441            (lambda* (#:key outputs #:allow-other-keys)
 442              (substitute* "Makefile"
 443                (("/usr/lib/ladspa")
 444                 (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 445                (("/usr/bin/install") (which "install"))
 446                (("/bin/rm") "#"))
 447              #t)))))
 448     (home-page "http://kokkinizita.linuxaudio.org")
 449     (synopsis "LADSPA ambisonics plugins")
 450     (description
 451      "The AMB plugins are a set of LADSPA ambisonics plugins, mainly to be
 452 used within Ardour.  Features include: mono and stereo to B-format panning,
 453 horizontal rotator, square, hexagon and cube decoders.")
 454     (license license:gpl2+)))
 455
 456 (define-public mcp-plugins
 457   (package
 458     (name "mcp-plugins")
 459     (version "0.4.0")
 460     (source (origin
 461               (method url-fetch)
 462               (uri (string-append
 463                     "http://kokkinizita.linuxaudio.org"
 464                     "/linuxaudio/downloads/MCP-plugins-"
 465                     version ".tar.bz2"))
 466               (sha256
 467                (base32
 468                 "06a9r1l85jmg7l1cvc3788mk8ra0xagjfy1rmhw3b80y4n0vlnvc"))))
 469     (build-system gnu-build-system)
 470     (arguments
 471      `(#:tests? #f ; no "check" target
 472        #:phases
 473        (modify-phases %standard-phases
 474          ;; no configure script
 475          (delete 'configure)
 476          (add-before 'install 'prepare-target-directory
 477            (lambda* (#:key outputs #:allow-other-keys)
 478              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 479              #t))
 480          (add-after 'unpack 'override-target-directory
 481            (lambda* (#:key outputs #:allow-other-keys)
 482              (substitute* "Makefile"
 483                (("/usr") (assoc-ref outputs "out")))
 484              #t)))))
 485     (home-page "http://kokkinizita.linuxaudio.org")
 486     (synopsis "Chorus, phaser, and vintage high-pass and low-pass filters")
 487     (description
 488      "This package provides various LADSPA plugins.  @code{cs_chorus} and
 489 @code{cs_phaser} provide chorus and phaser effects, respectively;
 490 @code{mvclpf24} provides four implementations of the low-pass filter used in
 491 vintage Moog synthesizers; @code{mvchpf24} is based on the voltage-controlled
 492 high-pass filter by Robert Moog.  The filters attempt to accurately emulate
 493 the non-linear circuit elements of their original analog counterparts.")
 494     (license license:gpl2+)))
 495
 496 (define-public rev-plugins
 497   (package
 498     (name "rev-plugins")
 499     (version "0.7.1")
 500     (source (origin
 501               (method url-fetch)
 502               (uri (string-append
 503                     "http://kokkinizita.linuxaudio.org"
 504                     "/linuxaudio/downloads/REV-plugins-"
 505                     version ".tar.bz2"))
 506               (sha256
 507                (base32
 508                 "1ikpinxm00pkfi259bnkzhsy3miagrjgdihaaf5x4v7zac29j3g7"))))
 509     (build-system gnu-build-system)
 510     (arguments
 511      `(#:tests? #f ; no "check" target
 512        #:phases
 513        (modify-phases %standard-phases
 514          ;; no configure script
 515          (delete 'configure)
 516          (add-before 'install 'prepare-target-directory
 517            (lambda* (#:key outputs #:allow-other-keys)
 518              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 519              #t))
 520          (add-after 'unpack 'override-target-directory
 521            (lambda* (#:key outputs #:allow-other-keys)
 522              (substitute* "Makefile"
 523                (("/usr") (assoc-ref outputs "out")))
 524              #t)))))
 525     (home-page "http://kokkinizita.linuxaudio.org")
 526     (synopsis "LADSPA reverb plugin")
 527     (description
 528      "This package provides a stereo reverb LADSPA plugin based on the
 529 well-known greverb.")
 530     (license license:gpl2+)))
 531
 532 (define-public fil-plugins
 533   (package
 534     (name "fil-plugins")
 535     (version "0.3.0")
 536     (source (origin
 537               (method url-fetch)
 538               (uri (string-append
 539                     "http://kokkinizita.linuxaudio.org"
 540                     "/linuxaudio/downloads/FIL-plugins-"
 541                     version ".tar.bz2"))
 542               (sha256
 543                (base32
 544                 "1scfv9j7jrp50r565haa4rvxn1vk2ss86xssl5qgcr8r45qz42qw"))))
 545     (build-system gnu-build-system)
 546     (arguments
 547      `(#:tests? #f ; no "check" target
 548        #:phases
 549        (modify-phases %standard-phases
 550          ;; no configure script
 551          (delete 'configure)
 552          (add-before 'install 'prepare-target-directory
 553            (lambda* (#:key outputs #:allow-other-keys)
 554              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 555              #t))
 556          (add-after 'unpack 'override-target-directory
 557            (lambda* (#:key outputs #:allow-other-keys)
 558              (substitute* "Makefile"
 559                (("/usr") (assoc-ref outputs "out")))
 560              #t)))))
 561     (home-page "http://kokkinizita.linuxaudio.org")
 562     (synopsis "LADSPA four-band parametric equalizer plugin")
 563     (description
 564      "This package provides a LADSPA plugin for a four-band parametric
 565 equalizer.  Each section has an active/bypass switch, frequency, bandwidth and
 566 gain controls.  There is also a global bypass switch and gain control.
 567
 568 The 2nd order resonant filters are implemented using a Mitra-Regalia style
 569 lattice filter, which is stable even while parameters are being changed.
 570
 571 All switches and controls are internally smoothed, so they can be used 'live'
 572 without any clicks or zipper noises.  This makes this plugin suitable for use
 573 in systems that allow automation of plugin control ports, such as Ardour, or
 574 for stage use.")
 575     (license license:gpl2+)))
 576
 577 (define-public ste-plugins
 578   (package
 579     (name "ste-plugins")
 580     (version "0.0.2")
 581     (source (origin
 582               (method url-fetch)
 583               (uri (string-append
 584                     "http://kokkinizita.linuxaudio.org"
 585                     "/linuxaudio/downloads/STE-plugins-"
 586                     version ".tar.bz2"))
 587               (sha256
 588                (base32
 589                 "0s3c9w5xihs87cnd1lh9xgj3maabjdyh6bl766qp5lhkg3ax8zy6"))))
 590     (build-system gnu-build-system)
 591     (arguments
 592      `(#:tests? #f ; no "check" target
 593        #:phases
 594        (modify-phases %standard-phases
 595          ;; no configure script
 596          (delete 'configure)
 597          (add-before 'install 'prepare-target-directory
 598            (lambda* (#:key outputs #:allow-other-keys)
 599              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 600              #t))
 601          (add-after 'unpack 'override-target-directory
 602            (lambda* (#:key outputs #:allow-other-keys)
 603              (substitute* "Makefile"
 604                (("/usr") (assoc-ref outputs "out")))
 605              #t)))))
 606     (home-page "http://kokkinizita.linuxaudio.org")
 607     (synopsis "LADSPA stereo width plugin")
 608     (description
 609      "This package provides a LADSPA plugin to manipulate the stereo width of
 610 audio signals.")
 611     (license license:gpl2+)))
 612
 613 (define-public vco-plugins
 614   (package
 615     (name "vco-plugins")
 616     (version "0.3.0")
 617     (source (origin
 618               (method url-fetch)
 619               (uri (string-append
 620                     "http://kokkinizita.linuxaudio.org"
 621                     "/linuxaudio/downloads/VCO-plugins-"
 622                     version ".tar.bz2"))
 623               (sha256
 624                (base32
 625                 "1xzqdg3b07r7zww05y9bb737l9dxvfkv28m3fyak1aazaci3rsgl"))))
 626     (build-system gnu-build-system)
 627     (arguments
 628      `(#:tests? #f ; no "check" target
 629        #:phases
 630        (modify-phases %standard-phases
 631          ;; no configure script
 632          (delete 'configure)
 633          (add-before 'install 'prepare-target-directory
 634            (lambda* (#:key outputs #:allow-other-keys)
 635              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 636              #t))
 637          (add-after 'unpack 'override-target-directory
 638            (lambda* (#:key outputs #:allow-other-keys)
 639              (substitute* "Makefile"
 640                (("/usr") (assoc-ref outputs "out"))
 641                (("/bin/cp") (which "cp")))
 642              #t)))))
 643     (home-page "http://kokkinizita.linuxaudio.org")
 644     (synopsis "LADSPA plugin for synthesizer oscillators")
 645     (description
 646      "The @code{blvco} LADSPA plugin provides three anti-aliased oscillators:
 647
 648 @enumerate
 649 @item Pulse-VCO, a dirac pulse oscillator with flat amplitude spectrum
 650 @item Saw-VCO, a sawtooth oscillator with 1/F amplitude spectrum
 651 @item Rec-VCO, a square / rectange oscillator
 652 @end enumerate\n
 653
 654 All oscillators are low-pass filtered to provide waveforms similar to the
 655 output of analog synthesizers such as the Moog Voyager.")
 656     (license license:gpl2+)))
 657
 658 (define-public wah-plugins
 659   (package
 660     (name "wah-plugins")
 661     (version "0.1.0")
 662     (source (origin
 663               (method url-fetch)
 664               (uri (string-append
 665                     "http://kokkinizita.linuxaudio.org"
 666                     "/linuxaudio/downloads/WAH-plugins-"
 667                     version ".tar.bz2"))
 668               (sha256
 669                (base32
 670                 "1wkbjarxdhjixkh7d5abralj11dj2xxg644fz3ycd7qyfgfvjfgd"))))
 671     (build-system gnu-build-system)
 672     (arguments
 673      `(#:tests? #f ; no "check" target
 674        #:phases
 675        (modify-phases %standard-phases
 676          ;; no configure script
 677          (delete 'configure)
 678          (add-before 'install 'prepare-target-directory
 679            (lambda* (#:key outputs #:allow-other-keys)
 680              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 681              #t))
 682          (add-after 'unpack 'override-target-directory
 683            (lambda* (#:key outputs #:allow-other-keys)
 684              (substitute* "Makefile"
 685                (("/usr") (assoc-ref outputs "out")))
 686              #t)))))
 687     (home-page "http://kokkinizita.linuxaudio.org")
 688     (synopsis "LADSPA Autowah effect plugin")
 689     (description
 690      "This package provides a LADSPA plugin for a Wah effect with envelope
 691 follower.")
 692     (license license:gpl2+)))
 693
 694 (define-public g2reverb
 695   (package
 696     (name "g2reverb")
 697     (version "0.7.1")
 698     (source (origin
 699               (method url-fetch)
 700               (uri (string-append
 701                     "http://kokkinizita.linuxaudio.org"
 702                     "/linuxaudio/downloads/g2reverb-"
 703                     version ".tar.bz2"))
 704               (sha256
 705                (base32
 706                 "18wb8vj1kky5glr76s34awbi8qzplsmf3wjbd7a12hfv4j0bkwrj"))))
 707     (build-system gnu-build-system)
 708     (arguments
 709      `(#:tests? #f ; no "check" target
 710        #:phases
 711        (modify-phases %standard-phases
 712          ;; no configure script
 713          (delete 'configure)
 714          (add-before 'install 'prepare-target-directory
 715            (lambda* (#:key outputs #:allow-other-keys)
 716              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 717              #t))
 718          (add-after 'unpack 'override-target-directory
 719            (lambda* (#:key outputs #:allow-other-keys)
 720              (substitute* "Makefile"
 721                (("/usr") (assoc-ref outputs "out")))
 722              #t)))))
 723     (home-page "http://kokkinizita.linuxaudio.org")
 724     (synopsis "LADSPA stereo reverb plugin")
 725     (description
 726      "This package provides a LADSPA plugin for a stereo reverb effect.")
 727     (license license:gpl2+)))
 728
 729 (define-public fluidsynth
 730   (package
 731     (name "fluidsynth")
 732     (version "1.1.6")
 733     (source (origin
 734               (method url-fetch)
 735               (uri (string-append
 736                     "mirror://sourceforge/fluidsynth/fluidsynth-"
 737                     version "/fluidsynth-" version ".tar.gz"))
 738               (sha256
 739                (base32
 740                 "070pwb7brdcn1mfvplkd56vjc7lbz4iznzkqvfsakvgbv68k71ah"))))
 741     (build-system gnu-build-system)
 742     (arguments
 743      `(#:phases
 744        (alist-cons-after
 745         'unpack
 746         'remove-broken-symlinks
 747         (lambda _ (delete-file-recursively "m4") #t)
 748         %standard-phases)))
 749     (inputs
 750      `(("libsndfile" ,libsndfile)
 751        ("alsa-lib" ,alsa-lib)
 752        ("jack" ,jack-1)
 753        ("ladspa" ,ladspa)
 754        ("lash" ,lash)
 755        ("readline" ,readline)
 756        ("glib" ,glib)))
 757     (native-inputs
 758      `(("pkg-config" ,pkg-config)))
 759     (home-page "http://www.fluidsynth.org/")
 760     (synopsis "SoundFont synthesizer")
 761     (description
 762      "FluidSynth is a real-time software synthesizer based on the SoundFont 2
 763 specifications.  FluidSynth reads and handles MIDI events from the MIDI input
 764 device.  It is the software analogue of a MIDI synthesizer.  FluidSynth can
 765 also play midifiles using a Soundfont.")
 766     (license license:gpl2+)))
 767
 768 (define-public faad2
 769   (package
 770     (name "faad2")
 771     (version "2.7")
 772     (source (origin
 773               (method url-fetch)
 774               (uri (string-append "mirror://sourceforge/faac/faad2-src/faad2-"
 775                                   version "/faad2-" version ".zip"))
 776               (sha256
 777                (base32
 778                 "16f3l16c00sg0wkrkm3vzv0gy3g97x309vw788igs0cap2x1ak3z"))))
 779     (build-system gnu-build-system)
 780     (native-inputs
 781      `(("autoconf" ,autoconf)
 782        ("automake" ,automake)
 783        ("libtool" ,libtool)
 784        ("unzip" ,unzip)))
 785     (arguments
 786      '(#:phases
 787        (alist-cons-after
 788         'unpack 'bootstrap
 789         (lambda _
 790           (substitute* "bootstrap" (("\r\n") "\n"))
 791           (zero? (system* "sh" "bootstrap")))
 792         %standard-phases)))
 793     (home-page "http://www.audiocoding.com/faad2.html")
 794     (synopsis "MPEG-4 and MPEG-2 AAC decoder")
 795     (description
 796      "FAAD2 is an MPEG-4 and MPEG-2 AAC decoder supporting LC, Main, LTP, SBR,
 797 PS, and DAB+.")
 798     (license license:gpl2)))
 799
 800 (define-public faust
 801   (package
 802     (name "faust")
 803     (version "0.9.67")
 804     (source (origin
 805               (method url-fetch)
 806               (uri (string-append
 807                     "mirror://sourceforge/faudiostream/faust-" version ".zip"))
 808               (sha256
 809                (base32
 810                 "068vl9536zn0j4pknwfcchzi90rx5pk64wbcbd67z32w0csx8xm1"))
 811               (snippet
 812                ;; Remove prebuilt library
 813                '(delete-file "architecture/android/libs/armeabi-v7a/libfaust_dsp.so"))))
 814     (build-system gnu-build-system)
 815     (arguments
 816      `(#:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
 817        #:tests? #f
 818        #:phases
 819        (modify-phases %standard-phases
 820          ;; no "configure" script
 821          (delete 'configure))))
 822     (native-inputs
 823      `(("unzip" ,unzip)))
 824     (home-page "http://faust.grame.fr/")
 825     (synopsis "Signal processing language")
 826     (description
 827      "Faust is a programming language for realtime audio signal processing.")
 828     (license license:gpl2+)))
 829
 830 (define-public freepats
 831   (package
 832     (name "freepats")
 833     (version "20060219")
 834     (source (origin
 835               (method url-fetch)
 836               (uri (string-append "http://freepats.zenvoid.org/freepats-"
 837                                   version ".tar.bz2"))
 838               (sha256
 839                (base32
 840                 "12iw36rd94zirll96cd5k0va7p5hxmf2shvjlhzihcmjaw8flq82"))))
 841     (build-system trivial-build-system)
 842     (arguments
 843      `(#:modules ((guix build utils))
 844        #:builder (begin
 845                    (use-modules (guix build utils))
 846                    (let ((out (string-append %output "/share/freepats")))
 847                      (setenv "PATH" (string-append
 848                                      (assoc-ref %build-inputs "bzip2") "/bin:"
 849                                      (assoc-ref %build-inputs "tar") "/bin"))
 850                      (system* "tar" "xvf" (assoc-ref %build-inputs "source"))
 851                      (chdir "freepats")
 852                      ;; Use absolute pattern references
 853                      (substitute* "freepats.cfg"
 854                        (("Tone_000") (string-append out "/Tone_000"))
 855                        (("Drum_000") (string-append out "/Drum_000")))
 856                      (mkdir-p out)
 857                      (copy-recursively "." out)))))
 858     (native-inputs
 859      `(("tar" ,tar)
 860        ("bzip2" ,bzip2)))
 861     (home-page "http://freepats.zenvoid.org")
 862     (synopsis "GUS compatible patches for MIDI players")
 863     (description
 864      "FreePats is a project to create a free and open set of GUS compatible
 865 patches that can be used with softsynths such as Timidity and WildMidi.")
 866     ;; GPLv2+ with exception for compositions using these patches.
 867     (license license:gpl2+)))
 868
 869 (define-public guitarix
 870   (package
 871     (name "guitarix")
 872     (version "0.35.0")
 873     (source (origin
 874              (method url-fetch)
 875              (uri (string-append
 876                    "mirror://sourceforge/guitarix/guitarix/guitarix2-"
 877                    version ".tar.xz"))
 878              (sha256
 879               (base32
 880                "10hijqrrl8xil46kgsac10ysfxysisxlibm2rz133zyig5n63jdw"))))
 881     (build-system waf-build-system)
 882     (arguments
 883      `(#:tests? #f ; no "check" target
 884        #:python ,python-2
 885        #:configure-flags
 886        (list
 887         ;; Add the output lib directory to the RUNPATH.
 888         (string-append "--ldflags=-Wl,-rpath=" %output "/lib")
 889         "--cxxflags=-std=c++11")))
 890     (inputs
 891      `(("libsndfile" ,libsndfile)
 892        ("boost" ,boost)
 893        ("avahi" ,avahi)
 894        ("eigen" ,eigen)
 895        ("lv2" ,lv2)
 896        ("lilv" ,lilv)
 897        ("ladspa" ,ladspa)
 898        ("jack" ,jack-1)
 899        ("gtkmm" ,gtkmm-2)
 900        ("gtk+" ,gtk+-2)
 901        ("webkitgtk/gtk+-2" ,webkitgtk/gtk+-2)
 902        ("fftwf" ,fftwf)
 903        ("lrdf" ,lrdf)
 904        ("zita-resampler" ,zita-resampler)
 905        ("zita-convolver" ,zita-convolver)))
 906     (native-inputs
 907      `(("gperf" ,gperf)
 908        ("faust" ,faust)
 909        ("intltool" ,intltool)
 910        ("gettext" ,gnu-gettext)
 911        ("pkg-config" ,pkg-config)))
 912     (native-search-paths
 913      (list (search-path-specification
 914             (variable "LV2_PATH")
 915             (files '("lib/lv2")))))
 916     (home-page "http://guitarix.org/")
 917     (synopsis "Virtual guitar amplifier")
 918     (description "Guitarix is a virtual guitar amplifier running JACK.
 919 Guitarix takes the signal from your guitar as a mono-signal from your sound
 920 card.  The input is processed by a main amp and a rack-section.  Both can be
 921 routed separately and deliver a processed stereo-signal via JACK.  You may
 922 fill the rack with effects from more than 25 built-in modules including stuff
 923 from a simple noise gate to modulation effects like flanger, phaser or
 924 auto-wah.")
 925     (license license:gpl2+)))
 926
 927 (define-public rakarrack
 928   (package
 929     (name "rakarrack")
 930     (version "0.6.1")
 931     (source (origin
 932               (method url-fetch)
 933               (uri (string-append "mirror://sourceforge/rakarrack/rakarrack/"
 934                                   "rakarrack-" version "/rakarrack-"
 935                                   version ".tar.bz2"))
 936               (sha256
 937                (base32
 938                 "1rpf63pdn54c4yg13k7cb1w1c7zsvl97c4qxcpz41c8l91xd55kn"))
 939               (modules '((guix build utils)))
 940               (snippet
 941                '(begin
 942                   (substitute* '("src/process.C"
 943                                  "src/global.h")
 944                     (("#include <Fl/") "#include <FL/"))
 945                   #t))))
 946     (build-system gnu-build-system)
 947     (inputs
 948      `(("alsa-utils" ,alsa-utils)
 949        ("fltk" ,fltk)
 950        ("libx11" ,libx11)
 951        ("libxext" ,libxext)
 952        ("libxfixes" ,libxfixes)
 953        ("libxft" ,libxft)
 954        ("libxrender" ,libxrender)
 955        ("libxpm" ,libxpm)
 956        ("fontconfig" ,fontconfig)
 957        ("freetype" ,freetype)
 958        ("jack" ,jack-1)
 959        ("alsa-lib" ,alsa-lib)
 960        ("libsndfile" ,libsndfile)
 961        ("libsamplerate" ,libsamplerate)
 962        ("zlib" ,zlib)))
 963     (home-page "http://rakarrack.sourceforge.net/")
 964     (synopsis "Audio effects processor")
 965     (description
 966      "Rakarrack is a richly featured multi-effects processor emulating a
 967 guitar effects pedalboard.  Effects include compressor, expander, noise gate,
 968 equalizers, exciter, flangers, chorus, various delay and reverb effects,
 969 distortion modules and many more.  Most of the effects engine is built from
 970 modules found in the excellent software synthesizer ZynAddSubFX.  Presets and
 971 user interface are optimized for guitar, but Rakarrack processes signals in
 972 stereo while it does not apply internal band-limiting filtering, and thus is
 973 well suited to all musical instruments and vocals.")
 974     ;; The code is explicitly licensed under the GPL version 2 only.
 975     (license license:gpl2)))
 976
 977 (define-public ir
 978   (package
 979     (name "ir")
 980     (version "1.3.2")
 981     (source (origin
 982              (method url-fetch)
 983              (uri (string-append
 984                    "http://factorial.hu/system/files/ir.lv2-"
 985                    version ".tar.gz"))
 986              (sha256
 987               (base32
 988                "1jh2z01l9m4ar7yz0n911df07dygc7n4cl59p7qdjbh0nvkm747g"))))
 989     (build-system gnu-build-system)
 990     (arguments
 991      `(#:tests? #f ;no "check" target
 992        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
 993        #:phases
 994        ;; no configure script
 995        (alist-delete 'configure %standard-phases)))
 996     (inputs
 997      `(("libsndfile" ,libsndfile)
 998        ("libsamplerate" ,libsamplerate)
 999        ("lv2" ,lv2)
1000        ("glib" ,glib)
1001        ("gtk+" ,gtk+-2)
1002        ("zita-convolver" ,zita-convolver)))
1003     (native-inputs
1004      `(("pkg-config" ,pkg-config)))
1005     (native-search-paths
1006      (list (search-path-specification
1007             (variable "LV2_PATH")
1008             (files '("lib/lv2")))))
1009     (home-page "http://factorial.hu/plugins/lv2/ir")
1010     (synopsis "LV2 convolution reverb")
1011     (description
1012      "IR is a low-latency, real-time, high performance signal convolver
1013 especially for creating reverb effects.  It supports impulse responses with 1,
1014 2 or 4 channels, in any soundfile format supported by libsndfile.")
1015     (license license:gpl2+)))
1016
1017 (define-public jack-1
1018   (package
1019     (name "jack")
1020     (version "0.124.1")
1021     (source (origin
1022              (method url-fetch)
1023              (uri (string-append
1024                    "http://jackaudio.org/downloads/jack-audio-connection-kit-"
1025                    version
1026                    ".tar.gz"))
1027              (sha256
1028               (base32
1029                "1mk1wnx33anp6haxfjjkfhwbaknfblsvj35nxvz0hvspcmhdyhpb"))))
1030     (build-system gnu-build-system)
1031     (inputs
1032      `(("alsa-lib" ,alsa-lib)
1033        ("readline" ,readline)))
1034     ;; uuid.h is included in the JACK type headers
1035     ;; db.h is included in the libjack metadata headers
1036     (propagated-inputs
1037      `(("libuuid" ,util-linux)
1038        ("bdb" ,bdb)))
1039     (native-inputs
1040      `(("pkg-config" ,pkg-config)))
1041     (home-page "http://jackaudio.org/")
1042     (synopsis "JACK audio connection kit")
1043     (description
1044      "JACK is a low-latency audio server.  It can connect a number of
1045 different applications to an audio device, as well as allowing them to share
1046 audio between themselves.  JACK is different from other audio server efforts
1047 in that it has been designed from the ground up to be suitable for
1048 professional audio work.  This means that it focuses on two key areas:
1049 synchronous execution of all clients, and low latency operation.")
1050     ;; Most files are licensed under the GPL. However, the libjack/ tree is
1051     ;; licensed under the LGPL in order to allow for proprietary usage.
1052     (license (list license:gpl2+ license:lgpl2.1+))))
1053
1054 ;; Packages depending on JACK should always prefer jack-1.  Both jack-1 and
1055 ;; jack-2 implement the same API.  JACK2 is provided primarily as a client
1056 ;; program for users who might benefit from the D-BUS features.
1057 (define-public jack-2
1058   (package (inherit jack-1)
1059     (name "jack2")
1060     (version "1.9.10")
1061     (source (origin
1062              (method url-fetch)
1063              (uri (string-append
1064                    "https://github.com/jackaudio/jack2/archive/v"
1065                    version
1066                    ".tar.gz"))
1067              (file-name (string-append name "-" version ".tar.gz"))
1068              (sha256
1069               (base32
1070                "03b0iiyk3ng3vh5s8gaqwn565vik7910p56mlbk512bw3dhbdwc8"))))
1071     (build-system waf-build-system)
1072     (arguments
1073      `(#:python ,python-2
1074        #:tests? #f  ; no check target
1075        #:configure-flags '("--dbus"
1076                            "--alsa")
1077        #:phases
1078        (modify-phases %standard-phases
1079          (add-before
1080           'configure 'set-linkflags
1081           (lambda _
1082             ;; Add $libdir to the RUNPATH of all the binaries.
1083             (substitute* "wscript"
1084               ((".*CFLAGS.*-Wall.*" m)
1085                (string-append m
1086                               "    conf.env.append_unique('LINKFLAGS',"
1087                               "'-Wl,-rpath=" %output "/lib')\n")))))
1088          (add-after 'install 'wrap-python-scripts
1089           (lambda* (#:key inputs outputs #:allow-other-keys)
1090             ;; Make sure 'jack_control' runs with the correct PYTHONPATH.
1091             (let* ((out (assoc-ref outputs "out"))
1092                    (path (getenv "PYTHONPATH")))
1093               (wrap-program (string-append out "/bin/jack_control")
1094                 `("PYTHONPATH" ":" prefix (,path))))
1095             #t)))))
1096     (inputs
1097      `(("alsa-lib" ,alsa-lib)
1098        ("dbus" ,dbus)
1099        ("expat" ,expat)
1100        ("libsamplerate" ,libsamplerate)
1101        ("opus" ,opus)
1102        ("python2-dbus" ,python2-dbus)
1103        ("readline" ,readline)))
1104     (native-inputs
1105      `(("pkg-config" ,pkg-config)))
1106     ;; Most files are under GPLv2+, but some headers are under LGPLv2.1+
1107     (license (list license:gpl2+ license:lgpl2.1+))))
1108
1109 (define-public jalv
1110   (package
1111     (name "jalv")
1112     (version "1.4.6")
1113     (source (origin
1114               (method url-fetch)
1115               (uri (string-append "http://download.drobilla.net/jalv-"
1116                                   version ".tar.bz2"))
1117               (sha256
1118                (base32
1119                 "1f1hcq74n3ziw8bk97mn5a1vgw028dxikv3fchaxd430pbbhqgl9"))))
1120     (build-system waf-build-system)
1121     (arguments
1122      `(#:tests? #f ; no check target
1123        #:phases
1124        (modify-phases %standard-phases
1125          (add-before
1126           'configure 'set-flags
1127           (lambda _
1128             ;; Compile with C++11, required by gtkmm.
1129             (setenv "CXXFLAGS" "-std=c++11")
1130             #t)))))
1131     (inputs
1132      `(("lv2" ,lv2)
1133        ("lilv" ,lilv)
1134        ("suil" ,suil)
1135        ("gtk" ,gtk+-2)
1136        ("gtkmm" ,gtkmm-2)
1137        ("jack" ,jack-1)))
1138     (native-inputs
1139      `(("pkg-config" ,pkg-config)))
1140     (home-page "http://drobilla.net/software/jalv/")
1141     (synopsis "Simple LV2 host for JACK")
1142     (description
1143      "Jalv is a simple but fully featured LV2 host for JACK.  It runs LV2
1144 plugins and exposes their ports as JACK ports, essentially making any LV2
1145 plugin function as a JACK application.")
1146     (license license:isc)))
1147
1148 (define-public ladspa
1149   (package
1150     (name "ladspa")
1151     (version "1.13")
1152     (source
1153      (origin
1154        (method url-fetch)
1155        ;; Since the official link is dead,
1156        ;; we download the tarball from Debian or Internet Archive.
1157        (uri (list (string-append "http://http.debian.net"
1158                                  "/debian/pool/main/l/ladspa-sdk/ladspa-sdk_"
1159                                  version ".orig.tar.gz")
1160                   (string-append "https://web.archive.org/web/20140717172251/"
1161                                  "http://www.ladspa.org/download/ladspa_sdk_"
1162                                  version ".tgz")))
1163        (sha256
1164         (base32
1165          "0srh5n2l63354bc0srcrv58rzjkn4gv8qjqzg8dnq3rs4m7kzvdm"))))
1166     (build-system gnu-build-system)
1167     (arguments
1168      `(#:tests? #f  ; the "test" target is a listening test only
1169        #:phases
1170        (alist-replace
1171         'configure
1172         (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
1173           (chdir "src")
1174           (let ((out (assoc-ref outputs "out")))
1175             (substitute* "makefile"
1176               (("/usr/lib/ladspa/") (string-append out "/lib/ladspa/"))
1177               (("/usr/include/")    (string-append out "/include/"))
1178               (("/usr/bin/")        (string-append out "/bin/"))
1179               (("-mkdirhier")       "mkdir -p")
1180               (("^CC.*")            "CC = gcc\n")
1181               (("^CPP.*")           "CPP = g++\n"))))
1182         (alist-delete 'build %standard-phases))))
1183     ;; Since the home page is gone, we provide a link to the archived version.
1184     (home-page
1185      "https://web.archive.org/web/20140729190945/http://www.ladspa.org/")
1186     (synopsis "Linux Audio Developer's Simple Plugin API (LADSPA)")
1187     (description
1188      "LADSPA is a standard that allows software audio processors and effects
1189 to be plugged into a wide range of audio synthesis and recording packages.")
1190     (license license:lgpl2.1+)))
1191
1192 (define-public lash
1193   (package
1194     (name "lash")
1195     (version "0.6.0-rc2")
1196     (source (origin
1197               (method url-fetch)
1198               ;; The tilde is not permitted in the builder name, but is used
1199               ;; in the tarball.
1200               (uri (string-append
1201                     "mirror://savannah/lash/lash-"
1202                     (string-join (string-split version #\-) "~")
1203                     ".tar.bz2"))
1204               (file-name (string-append name "-" version ".tar.bz2"))
1205               (sha256
1206                (base32
1207                 "12z1vx3krrzsfccpah9xjs68900xvr7bw92wx8np5871i2yv47iw"))))
1208     (build-system gnu-build-system)
1209     (inputs
1210      `(("bdb" ,bdb)
1211        ("gtk" ,gtk+-2)
1212        ("jack" ,jack-1)
1213        ("readline" ,readline)
1214        ("python" ,python-2)))
1215     ;; According to pkg-config, packages depending on lash also need to have
1216     ;; at least the following packages declared as inputs.
1217     (propagated-inputs
1218      `(("alsa-lib" ,alsa-lib)
1219        ("dbus" ,dbus)
1220        ("libxml2" ,libxml2)))
1221     (native-inputs
1222      `(("pkg-config" ,pkg-config)))
1223     (home-page "http://www.nongnu.org/lash/")
1224     (synopsis "Audio application session manager")
1225     (description
1226      "LASH is a session management system for audio applications.  It allows
1227 you to save and restore audio sessions consisting of multiple interconneced
1228 applications, restoring program state (i.e. loaded patches) and the
1229 connections between them.")
1230     (license license:gpl2+)))
1231
1232 (define-public libbs2b
1233   (package
1234     (name "libbs2b")
1235     (version "3.1.0")
1236     (source (origin
1237               (method url-fetch)
1238               (uri (string-append "mirror://sourceforge/bs2b/libbs2b/" version
1239                                   "/libbs2b-" version ".tar.lzma"))
1240               (sha256
1241                (base32
1242                 "1mcc4gjkmphczjybnsrip3gq1f974knzys7x49bv197xk3fn8wdr"))))
1243     (build-system gnu-build-system)
1244     (native-inputs `(("pkg-config" ,pkg-config)))
1245     (inputs `(("libsndfile" ,libsndfile)))
1246     (home-page "http://sourceforge.net/projects/bs2b/")
1247     (synopsis "Bauer stereophonic-to-binaural DSP")
1248     (description
1249      "The Bauer stereophonic-to-binaural DSP (bs2b) library and plugins is
1250 designed to improve headphone listening of stereo audio records.  Recommended
1251 for headphone prolonged listening to disable superstereo fatigue without
1252 essential distortions.")
1253     (license license:expat)))
1254
1255 (define-public liblo
1256   (package
1257     (name "liblo")
1258     (version "0.28")
1259     (source (origin
1260              (method url-fetch)
1261              (uri (string-append "mirror://sourceforge/liblo/liblo/" version
1262                                  "/liblo-" version ".tar.gz"))
1263              (sha256
1264               (base32
1265                "02drgnpirvl2ihvzgsmn02agr5sj3vipzzw9vma56qlkgfvak56s"))))
1266     (build-system gnu-build-system)
1267     (arguments
1268      `(;; liblo test FAILED
1269        ;; liblo server error 19 in setsockopt(IP_ADD_MEMBERSHIP): No such device
1270        #:tests? #f))
1271     (home-page "http://liblo.sourceforge.net")
1272     (synopsis "Implementation of the Open Sound Control protocol")
1273     (description
1274      "liblo is a lightweight library that provides an easy to use
1275 implementation of the Open Sound Control (OSC) protocol.")
1276     (license license:lgpl2.1+)))
1277
1278 (define-public python-pyliblo
1279   (package
1280     (name "python-pyliblo")
1281     (version "0.10.0")
1282     (source (origin
1283              (method url-fetch)
1284              (uri (string-append "http://das.nasophon.de/download/pyliblo-"
1285                                  version ".tar.gz"))
1286              (sha256
1287               (base32
1288                "13vry6xhxm7adnbyj28w1kpwrh0kf7nw83cz1yq74wl21faz2rzw"))))
1289     (build-system python-build-system)
1290     (arguments `(#:tests? #f)) ;no tests
1291     (inputs
1292      `(("python-cython" ,python-cython)
1293        ("liblo" ,liblo)))
1294     (home-page "http://das.nasophon.de/pyliblo/")
1295     (synopsis "Python bindings for liblo")
1296     (description
1297      "Pyliblo is a Python wrapper for the liblo Open Sound Control (OSC)
1298 library.  It supports almost the complete functionality of liblo, allowing you
1299 to send and receive OSC messages using a nice and simple Python API.  Also
1300 included are the command line utilities @code{send_osc} and @code{dump_osc}.")
1301     (license license:lgpl2.1+)))
1302
1303 (define-public python2-pyliblo
1304   (package-with-python2 python-pyliblo))
1305
1306 (define-public lilv
1307   (package
1308     (name "lilv")
1309     (version "0.22.0")
1310     (source (origin
1311              (method url-fetch)
1312              (uri (string-append "http://download.drobilla.net/lilv-"
1313                                  version
1314                                  ".tar.bz2"))
1315              (sha256
1316               (base32
1317                "1d3ss7vv8drf1c5340lyd0gv736n2qy7sxji2nh1rw9y48hr69yd"))))
1318     (build-system waf-build-system)
1319     (arguments
1320      `(#:tests? #f ; no check target
1321        #:phases
1322        (modify-phases %standard-phases
1323          (add-before
1324           'configure 'set-ldflags
1325           (lambda* (#:key outputs #:allow-other-keys)
1326             (setenv "LDFLAGS"
1327                     (string-append "-Wl,-rpath="
1328                                    (assoc-ref outputs "out") "/lib")))))))
1329     ;; required by lilv-0.pc
1330     (propagated-inputs
1331      `(("serd" ,serd)
1332        ("sord" ,sord)
1333        ("sratom" ,sratom)))
1334     (inputs
1335      `(("lv2" ,lv2)))
1336     (native-inputs
1337      `(("pkg-config" ,pkg-config)))
1338     (home-page "http://drobilla.net/software/lilv/")
1339     (synopsis "Library to simplify use of LV2 plugins in applications")
1340     (description
1341      "Lilv is a C library to make the use of LV2 plugins as simple as possible
1342 for applications.  Lilv is the successor to SLV2, rewritten to be
1343 significantly faster and have minimal dependencies.")
1344     (license license:isc)))
1345
1346 (define-public lv2
1347   (package
1348     (name "lv2")
1349     (version "1.12.0")
1350     (source (origin
1351              (method url-fetch)
1352              (uri (string-append "http://lv2plug.in/spec/lv2-"
1353                                  version
1354                                  ".tar.bz2"))
1355              (sha256
1356               (base32
1357                "1saq0vwqy5zjdkgc5ahs8kcabxfmff2mmg68fiqrkv8hiw9m6jks"))))
1358     (build-system waf-build-system)
1359     (arguments
1360      `(#:tests? #f  ; no check target
1361        #:configure-flags '("--no-plugins")))
1362     (inputs
1363      ;; Leaving off cairo and gtk+-2.0 which are needed for example plugins
1364      `(("libsndfile" ,libsndfile)))
1365     (native-inputs
1366      `(("pkg-config" ,pkg-config)))
1367     (home-page "http://lv2plug.in/")
1368     (synopsis "LV2 audio plugin specification")
1369     (description
1370      "LV2 is an open specification for audio plugins and host applications.
1371 At its core, LV2 is a simple stable interface, accompanied by extensions which
1372 add functionality to support the needs of increasingly powerful audio
1373 software.")
1374     (license license:isc)))
1375
1376 (define-public lv2-mda-piano
1377   (package
1378     (name "lv2-mda-piano")
1379     (version "0.0.2")
1380     (source (origin
1381               (method git-fetch)
1382               (uri (git-reference
1383                     (url "http://git.elephly.net/software/lv2-mdametapiano.git")
1384                     (commit version)))
1385               (sha256
1386                (base32
1387                 "07lywf6lpfpndg3i9w752mmlg2hgn1bwp23h8b0mdj6awh67abqd"))))
1388     (build-system gnu-build-system)
1389     (arguments
1390      `(#:make-flags (list
1391                      "TYPE=mdaPiano"
1392                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
1393        #:tests? #f ; no check target
1394        #:phases (alist-delete 'configure %standard-phases)))
1395     (inputs
1396      `(("lv2" ,lv2)
1397        ("lvtk" ,lvtk)))
1398     (native-inputs
1399      `(("pkg-config" ,pkg-config)))
1400     (native-search-paths
1401      (list (search-path-specification
1402             (variable "LV2_PATH")
1403             (files '("lib/lv2")))))
1404     (home-page "http://elephly.net/lv2/mdapiano.html")
1405     (synopsis "LV2 port of the mda Piano plugin")
1406     (description "An LV2 port of the mda Piano VSTi.")
1407     (license license:gpl3+)))
1408
1409 (define-public lv2-mda-epiano
1410   (package (inherit lv2-mda-piano)
1411     (name "lv2-mda-epiano")
1412     (arguments
1413      `(#:make-flags (list
1414                      "TYPE=mdaEPiano"
1415                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
1416        #:tests? #f ; no check target
1417        #:phases (alist-delete 'configure %standard-phases)))
1418     (home-page "http://elephly.net/lv2/mdaepiano.html")
1419     (synopsis "LV2 port of the mda EPiano plugin")
1420     (description "An LV2 port of the mda EPiano VSTi.")))
1421
1422 (define-public lvtk
1423   (package
1424     (name "lvtk")
1425     (version "1.2.0")
1426     (source (origin
1427              (method url-fetch)
1428              (uri (string-append "https://github.com/lvtk/lvtk/archive/"
1429                                  version
1430                                  ".tar.gz"))
1431              (file-name (string-append name "-" version ".tar.gz"))
1432              (sha256
1433               (base32
1434                "03nbj2cqcklqwh50zj2gwm07crh5iwqbpxbpzwbg5hvgl4k4rnjd"))))
1435     (build-system waf-build-system)
1436     (arguments
1437      `(#:tests? #f  ; no check target
1438        #:python ,python-2
1439        #:configure-flags
1440        (list (string-append "--boost-includes="
1441                             (assoc-ref %build-inputs "boost")
1442                             "/include"))
1443        #:phases (modify-phases %standard-phases
1444                   (add-before
1445                    'configure 'set-flags
1446                    (lambda* (#:key inputs #:allow-other-keys)
1447                      ;; See e.g. https://github.com/lvtk/lvtk/issues/21
1448                      (setenv "LDFLAGS"
1449                              (string-append
1450                               "-L" (assoc-ref inputs "boost") "/lib "
1451                               "-lboost_system")))))))
1452     (inputs
1453      `(("boost" ,boost)
1454        ("lv2" ,lv2)))
1455     (native-inputs
1456      `(("pkg-config" ,pkg-config)))
1457     (home-page "https://github.com/lvtk/lvtk")
1458     (synopsis "C++ libraries for LV2 plugins")
1459     (description
1460      "The LV2 Toolkit (LVTK) contains libraries that wrap the LV2 C API and
1461 extensions into easy to use C++ classes.  It is the successor of
1462 lv2-c++-tools.")
1463     (license license:gpl3+)))
1464
1465 (define-public openal
1466   (package
1467     (name "openal")
1468     (version "1.15.1")
1469     (source (origin
1470               (method url-fetch)
1471               (uri (string-append
1472                     "http://kcat.strangesoft.net/openal-releases/openal-soft-"
1473                     version ".tar.bz2"))
1474               (sha256
1475                (base32
1476                 "0mmhdqiyb3c9dzvxspm8h2v8jibhi8pfjxnf6m0wn744y1ia2a8f"))))
1477     (build-system cmake-build-system)
1478     (arguments
1479      `(#:tests? #f  ; no check target
1480        #:phases
1481        (modify-phases %standard-phases
1482          (add-after
1483           'unpack 'use-full-library-paths
1484           (lambda* (#:key inputs #:allow-other-keys)
1485             (substitute* "Alc/backends/pulseaudio.c"
1486               (("#define PALIB \"libpulse\\.so\\.0\"")
1487                (string-append "#define PALIB \""
1488                               (assoc-ref inputs "pulseaudio")
1489                               "/lib/libpulse.so.0"
1490                               "\"")))
1491             (substitute* "Alc/backends/alsa.c"
1492               (("LoadLib\\(\"libasound\\.so\\.2\"\\)")
1493                (string-append "LoadLib(\""
1494                               (assoc-ref inputs "alsa-lib")
1495                               "/lib/libasound.so.2"
1496                               "\")")))
1497             #t)))))
1498     (inputs
1499      `(("alsa-lib" ,alsa-lib)
1500        ("pulseaudio" ,pulseaudio)))
1501     (synopsis "3D audio API")
1502     (description
1503      "OpenAL provides capabilities for playing audio in a virtual 3D
1504 environment.  Distance attenuation, doppler shift, and directional sound
1505 emitters are among the features handled by the API.  More advanced effects,
1506 including air absorption, occlusion, and environmental reverb, are available
1507 through the EFX extension.  It also facilitates streaming audio, multi-channel
1508 buffers, and audio capture.")
1509     (home-page "http://kcat.strangesoft.net/openal.html")
1510     (license license:lgpl2.0+)))
1511
1512 (define-public patchage
1513   (package
1514     (name "patchage")
1515     (version "1.0.0")
1516     (source (origin
1517               (method url-fetch)
1518               (uri (string-append "http://download.drobilla.net/patchage-"
1519                                   version
1520                                   ".tar.bz2"))
1521               (sha256
1522                (base32
1523                 "1agdpwwi42176l4mxj0c4fsvdiv1ig56bfnnx0msckxmy57df8bb"))))
1524     (build-system waf-build-system)
1525     (arguments `(#:tests? #f)) ; no check target
1526     (inputs
1527      `(("alsa-lib" ,alsa-lib)
1528        ("boost" ,boost)
1529        ("jack" ,jack-1)
1530        ("ganv" ,ganv)
1531        ("glibmm" ,glibmm)
1532        ("gtkmm" ,gtkmm-2)
1533        ("dbus-glib" ,dbus-glib)))
1534     (native-inputs
1535      `(("pkg-config" ,pkg-config)))
1536     (home-page "http://drobilla.net/software/patchage/")
1537     (synopsis "Modular patch bay for audio and MIDI systems")
1538     (description
1539      "Patchage is a modular patch bay for audio and MIDI systems based on JACK
1540 and ALSA.")
1541     (license license:gpl3+)))
1542
1543 (define-public raul
1544   (package
1545     (name "raul")
1546     (version "0.8.0")
1547     (source (origin
1548               (method url-fetch)
1549               (uri (string-append "http://download.drobilla.net/raul-"
1550                                   version ".tar.bz2"))
1551               (sha256
1552                (base32
1553                 "09ms40xc1x6qli6lxkwn5ibqh62nl9w7dq0b6jh1q2zvnrxwsd8b"))))
1554     (build-system waf-build-system)
1555     (arguments
1556      `(#:python ,python-2
1557        #:tests? #f)) ; no check target
1558     (inputs
1559      `(("glib" ,glib)
1560        ("boost" ,boost)))
1561     (native-inputs
1562      `(("pkg-config" ,pkg-config)))
1563     (home-page "http://drobilla.net/software/raul/")
1564     (synopsis "Real-time audio utility library")
1565     (description
1566      "Raul (Real-time Audio Utility Library) is a C++ utility library primarily
1567 aimed at audio/musical applications.")
1568     (license license:gpl2+)))
1569
1570 (define-public rubberband
1571   (package
1572     (name "rubberband")
1573     (version "1.8.1")
1574     (source (origin
1575               (method url-fetch)
1576               (uri
1577                (string-append "https://bitbucket.org/breakfastquay/rubberband/get/v"
1578                               version
1579                               ".tar.bz2"))
1580               (sha256
1581                (base32
1582                 "05amrbrxx0da3w7m237q51799r8xgs4ffqabi2qv06hq8dpcj386"))))
1583     (build-system gnu-build-system)
1584     (arguments `(#:tests? #f)) ; no check target
1585     (inputs
1586      `(("ladspa" ,ladspa)
1587        ("libsamplerate" ,libsamplerate)
1588        ("vamp" ,vamp)))
1589     (native-inputs
1590      `(("pkg-config" ,pkg-config)))
1591     (home-page "http://breakfastquay.com/rubberband/")
1592     (synopsis "Audio time-stretching and pitch-shifting library")
1593     (description
1594      "Rubber Band is a library and utility program that permits changing the
1595 tempo and pitch of an audio recording independently of one another.")
1596     (license license:gpl2+)))
1597
1598 (define-public rtmidi
1599   (package
1600     (name "rtmidi")
1601     (version "2.1.0")
1602     (source (origin
1603               (method url-fetch)
1604               (uri
1605                (string-append "https://github.com/powertab/rtmidi/archive/"
1606                               version ".tar.gz"))
1607               (file-name (string-append name "-" version ".tar.gz"))
1608               (sha256
1609                (base32
1610                 "0d49lapnmdgmjxh4vw57h6xk74nn5r0zwysv7jbd7m8kqhpq5rjj"))))
1611     (build-system gnu-build-system)
1612     (arguments
1613      `(#:tests? #f ;no "check" target
1614        #:phases (modify-phases %standard-phases
1615                   (add-before
1616                    'configure 'autoconf
1617                    (lambda _ (zero? (system* "autoreconf" "-vfi"))))
1618                   (add-before
1619                    'build 'fix-makefile
1620                    (lambda _
1621                      (substitute* "Makefile"
1622                        (("/bin/ln") "ln")
1623                        (("RtMidi.h RtError.h") "RtMidi.h"))
1624                      #t))
1625                   (add-before
1626                    'install 'make-target-dirs
1627                    (lambda _
1628                      (let ((out (assoc-ref %outputs "out")))
1629                        (mkdir-p (string-append out "/bin"))
1630                        (mkdir (string-append out "/lib"))
1631                        (mkdir (string-append out "/include")))
1632                      #t)))))
1633     (inputs
1634      `(("jack" ,jack-1)
1635        ("alsa-lib" ,alsa-lib)))
1636     (native-inputs
1637      `(("autoconf" ,autoconf)
1638        ("automake" ,automake)
1639        ("libtool" ,libtool)
1640        ("pkg-config" ,pkg-config)))
1641     (home-page "https://github.com/powertab/rtmidi")
1642     (synopsis "Cross-platform MIDI library for C++")
1643     (description
1644      "RtMidi is a set of C++ classes (RtMidiIn, RtMidiOut, and API specific
1645 classes) that provide a common cross-platform API for realtime MIDI
1646 input/output.")
1647     (license license:expat)))
1648
1649 (define-public sratom
1650   (package
1651     (name "sratom")
1652     (version "0.4.6")
1653     (source (origin
1654              (method url-fetch)
1655              (uri (string-append "http://download.drobilla.net/sratom-"
1656                                  version
1657                                  ".tar.bz2"))
1658              (sha256
1659               (base32
1660                "080jjiyxjnj7hf25844hd9rb01grvzz1rk8mxcdnakywmspbxfd4"))))
1661     (build-system waf-build-system)
1662     (arguments `(#:tests? #f)) ; no check target
1663     (inputs
1664      `(("lv2" ,lv2)
1665        ("serd" ,serd)
1666        ("sord" ,sord)))
1667     (native-inputs
1668      `(("pkg-config" ,pkg-config)))
1669     (home-page "http://drobilla.net/software/sratom/")
1670     (synopsis "Library for serialising LV2 atoms to/from RDF")
1671     (description
1672      "Sratom is a library for serialising LV2 atoms to/from RDF, particularly
1673 the Turtle syntax.")
1674     (license license:isc)))
1675
1676 (define-public suil
1677   (package
1678     (name "suil")
1679     (version "0.8.2")
1680     (source (origin
1681              (method url-fetch)
1682              (uri (string-append "http://download.drobilla.net/suil-"
1683                                  version
1684                                  ".tar.bz2"))
1685              (sha256
1686               (base32
1687                "1s3adyiw7sa5gfvm5wasa61qa23629kprxyv6w8hbxdiwp0hhxkq"))))
1688     (build-system waf-build-system)
1689     (arguments `(#:tests? #f)) ; no check target
1690     (inputs
1691      `(("lv2" ,lv2)
1692        ("gtk+-2" ,gtk+-2)
1693        ("qt-4" ,qt-4)))
1694     (native-inputs
1695      `(("pkg-config" ,pkg-config)))
1696     (home-page "http://drobilla.net/software/suil/")
1697     (synopsis "Library for loading and wrapping LV2 plugin UIs")
1698     (description
1699      "Suil is a lightweight C library for loading and wrapping LV2 plugin UIs.
1700
1701 Suil makes it possible to load a UI of a toolkit in a host using another
1702 toolkit.  The API is designed such that hosts do not need to explicitly
1703 support specific toolkits – if Suil supports a particular toolkit, then UIs in
1704 that toolkit will work in all hosts that use Suil automatically.
1705
1706 Suil currently supports every combination of Gtk 2, Qt 4, and X11.")
1707     (license license:isc)))
1708
1709 (define-public timidity++
1710   (package
1711     (name "timidity++")
1712     (version "2.14.0")
1713     (source (origin
1714               (method url-fetch)
1715               (uri (string-append "mirror://sourceforge/timidity/TiMidity++"
1716                                   "/TiMidity++-" version
1717                                   "/TiMidity++-" version ".tar.bz2"))
1718               (sha256
1719                (base32
1720                 "0xk41w4qbk23z1fvqdyfblbz10mmxsllw0svxzjw5sa9y11vczzr"))))
1721     (build-system gnu-build-system)
1722     (arguments
1723      '(#:configure-flags
1724        (list "--enable-audio=alsa,flac,jack,ao,vorbis,speex"
1725              "--enable-ncurses"
1726              "--enable-server"
1727              "--enable-alsaseq"
1728              (string-append "--with-default-path="
1729                             (assoc-ref %outputs "out") "/etc/timidity"))
1730        #:phases
1731        (alist-cons-after
1732         'install 'install-config
1733         (lambda _
1734           (let ((out (string-append (assoc-ref %outputs "out")
1735                                     "/etc/timidity")))
1736             (mkdir-p out)
1737             (call-with-output-file
1738                 (string-append out "/timidity.cfg")
1739               (lambda (port)
1740                 (format port (string-append "source "
1741                                             (assoc-ref %build-inputs "freepats")
1742                                             "/share/freepats/freepats.cfg"))))))
1743         %standard-phases)))
1744     (inputs
1745      `(("alsa-lib" ,alsa-lib)
1746        ("ao" ,ao)
1747        ("flac" ,flac)
1748        ("jack" ,jack-1)
1749        ("libogg" ,libogg)
1750        ("speex" ,speex)
1751        ("ncurses" ,ncurses)
1752        ("freepats" ,freepats)))
1753     (native-inputs
1754      `(("pkg-config" ,pkg-config)))
1755     (home-page "http://timidity.sourceforge.net/")
1756     (synopsis "Software synthesizer for playing MIDI files")
1757     (description
1758      "TiMidity++ is a software synthesizer.  It can play MIDI files by
1759 converting them into PCM waveform data; give it a MIDI data along with digital
1760 instrument data files, then it synthesizes them in real-time, and plays.  It
1761 can not only play sounds, but also can save the generated waveforms into hard
1762 disks as various audio file formats.")
1763     (license license:gpl2+)))
1764
1765 (define-public vamp
1766   (package
1767     (name "vamp")
1768     (version "2.6")
1769     (source (origin
1770               (method url-fetch)
1771               (uri (string-append
1772                     "https://code.soundsoftware.ac.uk"
1773                     "/attachments/download/1520/vamp-plugin-sdk-"
1774                     version ".tar.gz"))
1775               (sha256
1776                (base32
1777                 "0pzq0yy2kdl3jgfc2aqmh5m55nk1ild0hq8mydiiw35c6y0mglyh"))))
1778     (build-system gnu-build-system)
1779     (arguments
1780      `(#:tests? #f                      ; no check target
1781        #:phases
1782        (alist-cons-after
1783         'install 'remove-libvamp-hostsdk.la
1784         (lambda* (#:key outputs #:allow-other-keys)
1785           ;; https://bugs.launchpad.net/ubuntu/+source/vamp-plugin-sdk/+bug/1253656
1786           (for-each delete-file
1787                     (let ((out (assoc-ref outputs "out")))
1788                       (list (string-append out "/lib/libvamp-sdk.la")
1789                             (string-append out "/lib/libvamp-hostsdk.la"))))
1790           #t)
1791         %standard-phases)))
1792     (inputs
1793      `(("libsndfile" ,libsndfile)))
1794     (native-inputs
1795      `(("pkg-config" ,pkg-config)))
1796     (home-page "http://vamp-plugins.org")
1797     (synopsis "Modular and extensible audio processing system")
1798     (description
1799      "Vamp is an audio processing plugin system for plugins that extract
1800 descriptive information from audio data — typically referred to as audio
1801 analysis plugins or audio feature extraction plugins.")
1802     (license
1803      (license:x11-style
1804       "https://code.soundsoftware.ac.uk/projects/vamp-plugin-sdk/repository/entry/COPYING"))))
1805
1806 (define-public libsbsms
1807   (package
1808     (name "libsbsms")
1809     (version "2.0.2")
1810     (source
1811      (origin
1812        (method url-fetch)
1813        (uri (string-append "mirror://sourceforge/sbsms/sbsms/" version
1814                            "/libsbsms-" version ".tar.gz"))
1815        (sha256
1816         (base32 "1vmf84iy4dkwxv887grnlsfk43fmhd9gbg26gc2kgcv40sbkvayf"))))
1817     (build-system gnu-build-system)
1818     (native-inputs `(("automake" ,automake)))
1819     (arguments
1820      `(#:configure-flags
1821        ;; Disable the use of SSE unless on x86_64.
1822        ,(if (not (string-prefix? "x86_64" (or (%current-target-system)
1823                                               (%current-system))))
1824             ''("--disable-sse")
1825             ''())
1826        #:phases
1827        (modify-phases %standard-phases
1828          (add-after
1829           'unpack 'fix-ar-lib-path
1830           (lambda* (#:key inputs #:allow-other-keys)
1831             ;; Originally a symlink to '/usr/local/share/automake-1.12/ar-lib'.
1832             (delete-file "ar-lib")
1833             (symlink
1834              (string-append (assoc-ref inputs "automake") "/share/automake-"
1835                             ,(package-version automake) "/ar-lib")
1836              "ar-lib"))))))
1837     (home-page "http://sbsms.sourceforge.net/")
1838     (synopsis "Library for time stretching and pitch scaling of audio")
1839     (description
1840      "SBSMS (Subband Sinusoidal Modeling Synthesis) is software for time
1841 stretching and pitch scaling of audio.  This package contains the library.")
1842     ;; There is no explicit declaration of a license, but a COPYING file
1843     ;; containing gpl2.
1844     (license license:gpl2)))
1845
1846 (define-public wavpack
1847   (package
1848     (name "wavpack")
1849     (version "4.70.0")
1850     (source (origin
1851               (method url-fetch)
1852               (uri (string-append "http://www.wavpack.com/"
1853                                   name "-" version ".tar.bz2"))
1854               (sha256
1855                (base32
1856                 "191h8hv8qk72hfh1crg429i9yq3cminwqb249sy9zadbn1wy7b9c"))))
1857     (build-system gnu-build-system)
1858     (arguments
1859      `(#:configure-flags
1860        ;; wavpack.pc.in lacks path substitution for 'exec_prefix'.
1861        (list (string-append "--libdir=" %output "/lib"))))
1862     (home-page "http://www.wavpack.com/")
1863     (synopsis "Hybrid lossless audio codec")
1864     (description
1865      "WavPack is an audio compression format with lossless, lossy and hybrid
1866 compression modes.  This package contains command-line programs and library to
1867 encode and decode wavpack files.")
1868     (license license:bsd-3)))
1869
1870 (define-public libmodplug
1871   (package
1872     (name "libmodplug")
1873     (version "0.8.8.5")
1874     (source (origin
1875               (method url-fetch)
1876               (uri (string-append
1877                     "mirror://sourceforge/modplug-xmms/"
1878                     name "/" version "/" name "-" version ".tar.gz"))
1879               (sha256
1880                (base32
1881                 "1bfsladg7h6vnii47dd66f5vh1ir7qv12mfb8n36qiwrxq92sikp"))))
1882     (build-system gnu-build-system)
1883     (home-page "http://modplug-xmms.sourceforge.net/")
1884     (synopsis "Mod file playing library")
1885     (description
1886      "Libmodplug renders mod music files as raw audio data, for playing or
1887 conversion.  mod, .s3m, .it, .xm, and a number of lesser-known formats are
1888 supported.  Optional features include high-quality resampling, bass expansion,
1889 surround and reverb.")
1890     (license license:public-domain)))
1891
1892 (define-public libxmp
1893   (package
1894     (name "libxmp")
1895     (version "4.3.10")
1896     (source (origin
1897               (method url-fetch)
1898               (uri (string-append "mirror://sourceforge/xmp/libxmp/" version "/"
1899                                   name "-" version ".tar.gz"))
1900               (sha256
1901                (base32
1902                 "1gm5xa0ca7ypcbj3bkmj3k1vvzl7nkch8gjyrm8p1a9vgzr0n761"))))
1903     (build-system gnu-build-system)
1904     (home-page "http://xmp.sourceforge.net/")
1905     (synopsis "Module player library")
1906     (description
1907      "Libxmp is a library that renders module files to PCM data.  It supports
1908 over 90 mainstream and obscure module formats including Protracker (MOD),
1909 Scream Tracker 3 (S3M), Fast Tracker II (XM), and Impulse Tracker (IT).")
1910     (license license:lgpl2.1+)))
1911
1912 (define-public xmp
1913   (package
1914     (name "xmp")
1915     (version "4.0.10")
1916     (source (origin
1917               (method url-fetch)
1918               (uri (string-append "mirror://sourceforge/xmp/xmp/" version "/"
1919                                   name "-" version ".tar.gz"))
1920               (sha256
1921                (base32
1922                 "0gjylvvmq7ha0nhcjg56qfp0xxpsrcsj7y5r914svd5x1ppmzm5n"))))
1923     (build-system gnu-build-system)
1924     (native-inputs
1925      `(("pkg-config" ,pkg-config)))
1926     (inputs
1927      `(("libxmp" ,libxmp)
1928        ("pulseaudio" ,pulseaudio)))
1929     (home-page "http://xmp.sourceforge.net/")
1930     (synopsis "Extended module player")
1931     (description
1932      "Xmp is a portable module player that plays over 90 mainstream and
1933 obscure module formats, including Protracker MOD, Fasttracker II XM, Scream
1934 Tracker 3 S3M and Impulse Tracker IT files.")
1935     (license license:gpl2+)))
1936
1937 (define-public soundtouch
1938   (package
1939     (name "soundtouch")
1940     (version "1.8.0")
1941     (source
1942      (origin
1943        (method url-fetch)
1944        (uri
1945         (string-append
1946          "http://www.surina.net/soundtouch/soundtouch-" version ".tar.gz"))
1947        (sha256
1948         (base32 "0sqn3wk4qz20vf0vz853l6dl1gnj1yhqxfwxqsc5lp529kbn2h9x"))))
1949     (build-system gnu-build-system)
1950     (native-inputs
1951      `(("autoconf" ,autoconf)
1952        ("automake" ,automake)
1953        ("libtool" ,libtool)
1954        ("file" ,file)))
1955     (arguments
1956      '(#:phases
1957        (alist-cons-after
1958         'unpack 'bootstrap
1959         (lambda _
1960           (zero? (system* "sh" "bootstrap")))
1961         %standard-phases)))
1962     (home-page "http://www.surina.net/soundtouch/")
1963     (synopsis
1964      "Audio processing library for changing tempo, pitch and playback rate")
1965     (description
1966      "SoundTouch is an audio processing library for changing the tempo, pitch
1967 and playback rates of audio streams or audio files.  It is intended for
1968 application developers writing sound processing tools that require tempo/pitch
1969 control functionality, or just for playing around with the sound effects.")
1970     (license license:lgpl2.1+)))
1971
1972 (define-public sox
1973   (package
1974     (name "sox")
1975     (version "14.4.2")
1976     (source (origin
1977               (method url-fetch)
1978               (uri (string-append "mirror://sourceforge/sox/sox/" version "/"
1979                                   name "-" version ".tar.bz2"))
1980               (sha256
1981                (base32
1982                 "170lx90r1nlnb2j6lg00524iwvqy72p48vii4xc5prrh8dnrb9l1"))))
1983     (build-system gnu-build-system)
1984     (arguments
1985      '(#:configure-flags
1986        ;; The upstream asks to identify the distribution to diagnose SoX
1987        ;; bug reports.
1988        '("--with-distro=Guix System Distribution")))
1989     (native-inputs
1990      `(("pkg-config" ,pkg-config)))
1991     (inputs
1992      `(("alsa-lib" ,alsa-lib)
1993        ("ao" ,ao)
1994        ("flac" ,flac)
1995        ("lame" ,lame)
1996        ("libid3tag" ,libid3tag)
1997        ("libltdl" ,libltdl)
1998        ("libmad" ,libmad)
1999        ("libpng" ,libpng)
2000        ("libvorbis" ,libvorbis)
2001        ("pulseaudio" ,pulseaudio)))
2002     (home-page "http://sox.sourceforge.net")
2003     (synopsis "Sound processing utility")
2004     (description
2005      "SoX (Sound eXchange) is a command line utility that can convert
2006 various formats of computer audio files to other formats.  It can also
2007 apply various effects to these sound files, and, as an added bonus, SoX
2008 can play and record audio files.")
2009     ;; sox.c is distributed under GPL, while the files that make up
2010     ;; libsox are licensed under LGPL.
2011     (license (list license:gpl2+ license:lgpl2.1+))))
2012
2013 (define-public soxr
2014   (package
2015     (name "soxr")
2016     (version "0.1.1")
2017     (source
2018      (origin
2019        (method url-fetch)
2020        (uri
2021         (string-append "mirror://sourceforge/soxr/soxr-" version
2022                        "-Source.tar.xz"))
2023        (sha256
2024         (base32 "1hmadwqfpg15vhwq9pa1sl5xslibrjpk6hpq2s9hfmx1s5l6ihfw"))))
2025     (build-system cmake-build-system)
2026     (arguments '(#:tests? #f))          ;no 'check' target
2027     (home-page "http://sourceforge.net/p/soxr/wiki/Home/")
2028     (synopsis "One-dimensional sample-rate conversion library")
2029     (description
2030      "The SoX Resampler library (libsoxr) performs one-dimensional sample-rate
2031 conversion.  It may be used, for example, to resample PCM-encoded audio.")
2032     (license license:lgpl2.1+)))
2033
2034 (define-public twolame
2035   (package
2036     (name "twolame")
2037     (version "0.3.13")
2038     (source
2039      (origin
2040        (method url-fetch)
2041        (uri (string-append "mirror://sourceforge/twolame/twolame/" version
2042                            "/twolame-" version ".tar.gz"))
2043        (sha256
2044         (base32 "0ahiqqng5pidwhj1wzph4vxxgxxgcfa3gl0gywipzx2ii7s35wwq"))))
2045     (build-system gnu-build-system)
2046     (inputs
2047      `(("libsndfile" ,libsndfile)))
2048     (native-inputs
2049      `(("perl" ,perl)
2050        ("which" ,which)))               ;used in tests/test.pl
2051     (home-page "http://www.twolame.org/")
2052     (synopsis "MPEG Audio Layer 2 (MP2) encoder")
2053     (description
2054      "TwoLAME is an optimised MPEG Audio Layer 2 (MP2) encoder based on
2055 tooLAME by Mike Cheng, which in turn is based upon the ISO dist10 code and
2056 portions of LAME.")
2057     (license license:lgpl2.1+)))
2058
2059 (define-public portaudio
2060   (package
2061     (name "portaudio")
2062     (version "19.20140130")
2063     (source
2064      (origin
2065        (method url-fetch)
2066        (uri (string-append
2067              "http://www.portaudio.com/archives/pa_stable_v"
2068              (string-map (lambda (c) (if (char=? c #\.) #\_ c)) version)
2069              ".tgz"))
2070        (sha256
2071         (base32 "0mwddk4qzybaf85wqfhxqlf0c5im9il8z03rd4n127k8y2jj9q4g"))
2072        (patches (search-patches "portaudio-audacity-compat.patch"))))
2073     (build-system gnu-build-system)
2074     (inputs
2075      ;; TODO: Add ASIHPI.
2076      `(("alsa-lib" ,alsa-lib)
2077        ("jack" ,jack-1)))
2078     (native-inputs
2079      `(("autoconf" ,autoconf)
2080        ("automake" ,automake)
2081        ("libtool" ,libtool)
2082        ("pkg-config" ,pkg-config)))
2083     (arguments
2084      '(#:phases
2085        ;; Autoreconf is necessary because the audacity-compat patch modifies
2086        ;; .in files.
2087        (alist-cons-after
2088         'unpack 'autoreconf
2089         (lambda _
2090           (zero? (system* "autoreconf" "-vif")))
2091         %standard-phases)
2092        #:tests? #f))                    ;no 'check' target
2093     (home-page "http://www.portaudio.com/")
2094     (synopsis "Audio I/O library")
2095     (description
2096      "PortAudio is a portable C/C++ audio I/O library providing a simple API
2097 to record and/or play sound using a callback function or a blocking read/write
2098 interface.")
2099     (license license:expat)))
2100
2101 (define-public qsynth
2102   (package
2103     (name "qsynth")
2104     (version "0.4.1")
2105     (source
2106      (origin
2107        (method url-fetch)
2108        (uri (string-append "mirror://sourceforge/qsynth/qsynth/" version
2109                            "/qsynth-" version ".tar.gz"))
2110        (sha256
2111         (base32 "034p6mbwrjnxd9b6h20cidxi4ilkk3cgpjp154j0jzjs1ipf7x2h"))))
2112     (build-system gnu-build-system)
2113     (arguments
2114      `(#:tests? #f)) ; no "check" phase
2115     (inputs
2116      `(("qt" ,qt)
2117        ("fluidsynth" ,fluidsynth)))
2118     (home-page "http://qsynth.sourceforge.net")
2119     (synopsis "Graphical user interface for FluidSynth")
2120     (description
2121      "Qsynth is a GUI front-end application for the FluidSynth SoundFont
2122 synthesizer written in C++.")
2123     (license license:gpl2+)))
2124
2125 (define-public rsound
2126   (package
2127     (name "rsound")
2128     (version "1.1")
2129     (source
2130      (origin
2131        (method url-fetch)
2132        (uri (string-append "https://github.com/Themaister/RSound/archive/v"
2133                            version ".tar.gz"))
2134        (file-name (string-append name "-" version))
2135        (sha256
2136         (base32 "1wzs40c0k5zpkmm5ffl6c17xmr399sxli7ys0fbb9ib0fd334knx"))))
2137     (build-system gnu-build-system)
2138     (inputs
2139      `(("alsa-lib" ,alsa-lib)
2140        ("jack" ,jack-1)
2141        ("ao" ,ao)
2142        ("libsamplerate" ,libsamplerate)
2143        ("openal" ,openal)
2144        ("portaudio" ,portaudio)
2145        ("pulseaudio" ,pulseaudio)))
2146     (arguments
2147      '(#:phases
2148        (alist-replace
2149         'configure
2150         (lambda* (#:key outputs #:allow-other-keys)
2151           (setenv "CC" "gcc")
2152           (zero?
2153            (system* "./configure"
2154                     (string-append "--prefix=" (assoc-ref outputs "out")))))
2155         %standard-phases)
2156        ;; No 'check' target.
2157        #:tests? #f))
2158     (home-page "http://themaister.net/rsound.html")
2159     (synopsis "Networked audio system")
2160     (description
2161      "RSound allows you to send audio from an application and transfer it
2162 directly to a different computer on your LAN network.  It is an audio daemon
2163 with a much different focus than most other audio daemons.")
2164     (license license:gpl3+)))
2165
2166 (define-public xjackfreak
2167   (package
2168     (name "xjackfreak")
2169     (version "1.0")
2170     (source (origin
2171               (method url-fetch)
2172               (uri (string-append
2173                     "https://github.com/johnhldavis/xjackfreak/archive/v"
2174                     version ".tar.gz"))
2175               (file-name (string-append name "-" version ".tar.gz"))
2176               (sha256
2177                (base32
2178                 "0xj6gpxfnw9jbdgwgm0x23xgfvj2kwmwb1nk0drw8lxgcchkq7d9"))))
2179     (build-system gnu-build-system)
2180     (arguments
2181      `(#:make-flags
2182        (list (string-append "docdir=" (assoc-ref %outputs "out")
2183                             "/share/doc/xjackfreak"))))
2184     (inputs
2185      `(("jack" ,jack-1)
2186        ("libx11" ,libx11)
2187        ("libxt" ,libxt)
2188        ("libxext" ,libxext)))
2189     (native-inputs
2190      `(("pkg-config" ,pkg-config)))
2191     (home-page "https://github.com/johnhldavis/xjackfreak")
2192     (synopsis "JACK audio frequency analyzer and display")
2193     (description
2194      "XJackFreak is an audio analysis and equalizing tool for the Jack Audio
2195 Connection Kit.  It can display the FFT of any input, modify it and output the
2196 result.")
2197     (license license:gpl3+)))
2198
2199 (define-public zita-convolver
2200   (package
2201     (name "zita-convolver")
2202     (version "3.1.0")
2203     (source (origin
2204               (method url-fetch)
2205               (uri (string-append
2206                     "http://kokkinizita.linuxaudio.org"
2207                     "/linuxaudio/downloads/zita-convolver-"
2208                     version ".tar.bz2"))
2209               (snippet
2210                ;; Don't optimize for a specific processor architecture.
2211                '(substitute* "libs/Makefile"
2212                   (("^CXXFLAGS \\+= -march=native") "")))
2213               (modules '((guix build utils)))
2214               (sha256
2215                (base32
2216                 "14qrnczhp5mbwhky64il7kxc4hl1mmh495v60va7i2qnhasr6zmz"))))
2217     (build-system gnu-build-system)
2218     (arguments
2219      `(#:tests? #f ; no "check" target
2220        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2221        #:phases
2222        (alist-cons-after
2223         'unpack 'patch-makefile-and-enter-directory
2224         (lambda _
2225           (substitute* "libs/Makefile"
2226             (("ldconfig") "true")
2227             (("^LIBDIR =.*") "LIBDIR = lib\n"))
2228           (chdir "libs") #t)
2229         (alist-cons-after
2230          'install
2231          'install-symlink
2232          (lambda _
2233            (symlink "libzita-convolver.so"
2234                     (string-append (assoc-ref %outputs "out")
2235                                    "/lib/libzita-convolver.so.3")))
2236          ;; no configure script
2237          (alist-delete 'configure %standard-phases)))))
2238     (inputs `(("fftwf" ,fftwf)))
2239     (home-page "http://kokkinizita.linuxaudio.org")
2240     (synopsis "Fast, partitioned convolution engine library")
2241     (description
2242      "Zita convolver is a C++ library providing a real-time convolution
2243 engine.")
2244     (license license:gpl3+)))
2245
2246 (define-public zita-resampler
2247   (package
2248     (name "zita-resampler")
2249     (version "1.3.0")
2250     (source (origin
2251               (method url-fetch)
2252               (uri (string-append
2253                     "http://kokkinizita.linuxaudio.org"
2254                     "/linuxaudio/downloads/zita-resampler-"
2255                     version ".tar.bz2"))
2256               (snippet
2257                ;; Don't optimize for a specific processor architecture.
2258                '(substitute* '("apps/Makefile" "libs/Makefile")
2259                   (("^CXXFLAGS \\+= -march=native") "")))
2260               (modules '((guix build utils)))
2261               (sha256
2262                (base32
2263                 "0r9ary5sc3y8vba5pad581ha7mgsrlyai83w7w4x2fmhfy64q0wq"))))
2264     (build-system gnu-build-system)
2265     (arguments
2266      `(#:tests? #f ; no "check" target
2267        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2268        #:phases
2269        (modify-phases %standard-phases
2270          (add-after
2271           'unpack 'patch-makefile-and-enter-directory
2272           (lambda _
2273             (substitute* "libs/Makefile"
2274               (("ldconfig") "true")
2275               (("^LIBDIR =.*") "LIBDIR = lib\n"))
2276             (chdir "libs")
2277             #t))
2278          (add-after
2279           'install 'install-symlink
2280           (lambda _
2281             (symlink "libzita-resampler.so"
2282                      (string-append (assoc-ref %outputs "out")
2283                                     "/lib/libzita-resampler.so.1"))))
2284          ;; no configure script
2285          (delete 'configure))))
2286     (home-page "http://kokkinizita.linuxaudio.org/linuxaudio/zita-resampler/resampler.html")
2287     (synopsis "C++ library for resampling audio signals")
2288     (description
2289      "Libzita-resampler is a C++ library for resampling audio signals.  It is
2290 designed to be used within a real-time processing context, to be fast, and to
2291 provide high-quality sample rate conversion.")
2292     (license license:gpl3+)))
2293
2294 (define-public zita-alsa-pcmi
2295   (package
2296     (name "zita-alsa-pcmi")
2297     (version "0.2.0")
2298     (source (origin
2299               (method url-fetch)
2300               (uri (string-append
2301                     "http://kokkinizita.linuxaudio.org"
2302                     "/linuxaudio/downloads/zita-alsa-pcmi-"
2303                     version ".tar.bz2"))
2304               (sha256
2305                (base32
2306                 "1rgv332g82rrrlm4vdam6p2pyrisxbi7b3izfaa0pcjglafsy7j9"))))
2307     (build-system gnu-build-system)
2308     (arguments
2309      `(#:tests? #f ; no "check" target
2310        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2311        #:phases
2312        (alist-cons-after
2313         'unpack 'patch-makefile-and-enter-directory
2314         (lambda _
2315           (substitute* "libs/Makefile"
2316             (("ldconfig") "true")
2317             (("^LIBDIR =.*") "LIBDIR = lib\n"))
2318           (chdir "libs")
2319           #t)
2320         (alist-cons-after
2321          'install
2322          'install-symlink
2323          (lambda _
2324            (symlink "libzita-alsa-pcmi.so"
2325                     (string-append (assoc-ref %outputs "out")
2326                                    "/lib/libzita-alsa-pcmi.so.0")))
2327          ;; no configure script
2328          (alist-delete 'configure %standard-phases)))))
2329     (inputs
2330      `(("alsa-lib" ,alsa-lib)
2331        ("fftw" ,fftw)))
2332     (home-page "http://kokkinizita.linuxaudio.org")
2333     (synopsis "C++ wrapper around the ALSA API")
2334     (description
2335      "Zita-alsa-pcmi is a C++ wrapper around the ALSA API.  It provides easy
2336 access to ALSA PCM devices, taking care of the many functions required to
2337 open, initialise and use a hw: device in mmap mode, and providing floating
2338 point audio data.")
2339     (license license:gpl3+)))
2340
2341 (define-public cuetools
2342   (package
2343     (name "cuetools")
2344     (version "1.4.1")
2345     (source (origin
2346              (method url-fetch)
2347              (uri (string-append "https://github.com/svend/cuetools/archive/"
2348                                  version ".tar.gz"))
2349              (file-name (string-append name "-" version ".tar.gz"))
2350              (sha256
2351               (base32
2352                "01xi3rvdmil9nawsha04iagjylqr1l9v9vlzk99scs8c207l58i4"))))
2353     (build-system gnu-build-system)
2354     ;; The source tarball is not bootstrapped.
2355     (arguments
2356      `(#:phases
2357         (modify-phases %standard-phases
2358           (add-after 'unpack 'bootstrap
2359             (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
2360     ;; Bootstrapping tools
2361     (native-inputs
2362      `(("autoconf" ,autoconf)
2363        ("automake" ,automake)
2364        ("flex" ,flex)
2365        ("bison" ,bison)))
2366     (synopsis "Cue and toc file parsers and utilities")
2367     (description "Cuetools is a set of programs that are useful for manipulating
2368 and using CUE sheet (cue) files and Table of Contents (toc) files.  CUE and TOC
2369 files are a way to represent the layout of a data or audio CD in a
2370 machine-readable ASCII format.")
2371     (home-page "https://github.com/svend/cuetools")
2372     (license license:gpl2+)))
2373
2374 (define-public shntool
2375   (package
2376     (name "shntool")
2377     (version "3.0.10")
2378     (source (origin
2379              (method url-fetch)
2380              (uri (string-append "http://etree.org/shnutils/shntool/dist/src/"
2381                                  "shntool-" version ".tar.gz"))
2382              (sha256
2383               (base32
2384                "00i1rbjaaws3drkhiczaign3lnbhr161b7rbnjr8z83w8yn2wc3l"))))
2385     (build-system gnu-build-system)
2386     (synopsis "WAVE audio data processing tool")
2387     (description "shntool is a multi-purpose WAVE data processing and reporting
2388 utility.  File formats are abstracted from its core, so it can process any file
2389 that contains WAVE data, compressed or not---provided there exists a format
2390 module to handle that particular file type.")
2391     (home-page "http://etree.org/shnutils/shntool/")
2392     ;; 'install-sh' bears the x11 license
2393     (license (list license:gpl2+ license:x11))))
2394
2395 (define-public dcadec
2396   (package
2397     (name "dcadec")
2398     (version "0.2.0")
2399     (source (origin
2400               (method url-fetch)
2401               (uri (string-append "https://github.com/foo86/dcadec/archive/v"
2402                                   version ".tar.gz"))
2403               (file-name (string-append name "-" version ".tar.gz"))
2404               (sha256
2405                (base32
2406                 "0i0dpypgqkhhi4v1fmsp2way6w9kbcix3c7q79pmg39yvrzj17gd"))))
2407     (build-system gnu-build-system)
2408     (arguments
2409      ;; Test files are missing: https://github.com/foo86/dcadec/issues/53
2410      '(#:tests? #f
2411        #:make-flags
2412        (list "CC=gcc"
2413              ;; Build shared library.
2414              "CONFIG_SHARED=1"
2415              (string-append "PREFIX=" (assoc-ref %outputs "out"))
2416              ;; Set proper runpath.
2417              (string-append "LDFLAGS=-Wl,-rpath="
2418                             (assoc-ref %outputs "out")
2419                             "/lib"))
2420        #:phases
2421        (modify-phases %standard-phases
2422          ;; No configure script, just a hand-written Makefile.
2423          (delete 'configure))))
2424     (synopsis "DTS Coherent Acoustics decoder")
2425     (description "Dcadec is a DTS Coherent Acoustics surround sound decoder
2426 with support for HD extensions.")
2427     (home-page "https://github.com/foo86/dcadec")
2428     (license license:lgpl2.1+)))
2429
2430 (define-public bs1770gain
2431   (package
2432     (name "bs1770gain")
2433     (version "0.4.10")
2434     (source
2435      (origin
2436        (method url-fetch)
2437        (uri (string-append "mirror://sourceforge/bs1770gain/bs1770gain/"
2438                            version "/bs1770gain-" version ".tar.gz"))
2439        (sha256
2440         (base32
2441          "1syr8qchs8091z9ayivj723szlidx81gll099bmk9kgpykmckd62"))))
2442     (build-system gnu-build-system)
2443     (inputs `(("ffmpeg" ,ffmpeg)
2444               ("sox" ,sox)))
2445     (home-page "http://bs1770gain.sourceforge.net/")
2446     (synopsis "Tool to adjust loudness of media files")
2447     (description
2448      "BS1770GAIN is a loudness scanner compliant with ITU-R BS.1770 and its
2449 flavors EBU R128, ATSC A/85, and ReplayGain 2.0.  It helps normalizing the
2450 loudness of audio and video files to the same level.")
2451     (license license:gpl2+)))