gnu/packages/audio.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015, 2016, 2017, 2018 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, 2017 Efraim Flashner <efraim@flashner.co.il>
   8 ;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
   9 ;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is>
  10 ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
  11 ;;; Copyright © 2016, 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
  12 ;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
  13 ;;;
  14 ;;; This file is part of GNU Guix.
  15 ;;;
  16 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  17 ;;; under the terms of the GNU General Public License as published by
  18 ;;; the Free Software Foundation; either version 3 of the License, or (at
  19 ;;; your option) any later version.
  20 ;;;
  21 ;;; GNU Guix is distributed in the hope that it will be useful, but
  22 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  23 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  24 ;;; GNU General Public License for more details.
  25 ;;;
  26 ;;; You should have received a copy of the GNU General Public License
  27 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  28
  29 (define-module (gnu packages audio)
  30   #:use-module (guix packages)
  31   #:use-module (guix download)
  32   #:use-module (guix git-download)
  33   #:use-module (guix utils)
  34   #:use-module ((guix licenses) #:prefix license:)
  35   #:use-module (guix build-system gnu)
  36   #:use-module (guix build-system waf)
  37   #:use-module (guix build-system trivial)
  38   #:use-module (guix build-system cmake)
  39   #:use-module (guix build-system python)
  40   #:use-module (guix build-system glib-or-gtk)
  41   #:use-module (gnu packages)
  42   #:use-module (gnu packages algebra)
  43   #:use-module (gnu packages autotools)
  44   #:use-module (gnu packages avahi)
  45   #:use-module (gnu packages boost)
  46   #:use-module (gnu packages backup)
  47   #:use-module (gnu packages base)
  48   #:use-module (gnu packages bison)
  49   #:use-module (gnu packages check)
  50   #:use-module (gnu packages compression)
  51   #:use-module (gnu packages curl)
  52   #:use-module (gnu packages databases)
  53   #:use-module (gnu packages emacs)
  54   #:use-module (gnu packages file)
  55   #:use-module (gnu packages flex)
  56   #:use-module (gnu packages fltk)
  57   #:use-module (gnu packages fontutils)
  58   #:use-module (gnu packages gettext)
  59   #:use-module (gnu packages glib)
  60   #:use-module (gnu packages gtk)
  61   #:use-module (gnu packages gnome)
  62   #:use-module (gnu packages gnunet) ; libmicrohttpd
  63   #:use-module (gnu packages gperf)
  64   #:use-module (gnu packages image)
  65   #:use-module (gnu packages ncurses)
  66   #:use-module (gnu packages qt)
  67   #:use-module (gnu packages libbsd)
  68   #:use-module (gnu packages linux)
  69   #:use-module (gnu packages llvm)
  70   #:use-module (gnu packages mp3) ;taglib
  71   #:use-module (gnu packages perl)
  72   #:use-module (gnu packages pkg-config)
  73   #:use-module (gnu packages pulseaudio)  ;libsndfile, libsamplerate
  74   #:use-module (gnu packages python)
  75   #:use-module (gnu packages rdf)
  76   #:use-module (gnu packages readline)
  77   #:use-module (gnu packages telephony)
  78   #:use-module (gnu packages tls)
  79   #:use-module (gnu packages video)
  80   #:use-module (gnu packages vim) ;xxd
  81   #:use-module (gnu packages webkit)
  82   #:use-module (gnu packages wxwidgets)
  83   #:use-module (gnu packages xiph)
  84   #:use-module (gnu packages xml)
  85   #:use-module (gnu packages xorg)
  86   #:use-module (gnu packages maths)
  87   #:use-module (gnu packages multiprecision)
  88   #:use-module (gnu packages music)
  89   #:use-module (srfi srfi-1)
  90   #:use-module (srfi srfi-26))
  91
  92 (define-public alsa-modular-synth
  93   (package
  94     (name "alsa-modular-synth")
  95     (version "2.1.2")
  96     (source (origin
  97               (method url-fetch)
  98               (uri (string-append "mirror://sourceforge/alsamodular/alsamodular"
  99                                   "/" version "/ams-" version ".tar.bz2"))
 100               (sha256
 101                (base32
 102                 "1azbrhpfk4nnybr7kgmc7w6al6xnzppg853vas8gmkh185kk11l0"))))
 103     (build-system gnu-build-system)
 104     (arguments
 105      `(#:configure-flags
 106        '("--enable-qt5"
 107          "CXXFLAGS=-std=gnu++11")
 108        #:phases
 109        (modify-phases %standard-phases
 110          ;; Insert an extra space between linker flags.
 111          (add-before 'configure 'add-missing-space
 112            (lambda _
 113              (substitute* "configure"
 114                (("LIBS\\+=\\$LIBSsave") "LIBS+=\" $LIBSsave\"")
 115                (("CFLAGS\\+=\\$CFLAGSsave") "CFLAGS+=\" $CFLAGSsave\""))
 116              #t)))))
 117     (inputs
 118      `(("alsa-lib" ,alsa-lib)
 119        ;; We cannot use zita-alsa-pcmi (the successor of clalsadrv) due to
 120        ;; license incompatibility.
 121        ("clalsadrv" ,clalsadrv)
 122        ("fftw" ,fftw)
 123        ("jack" ,jack-1)
 124        ("ladspa" ,ladspa)
 125        ("liblo" ,liblo)
 126        ("qtbase" ,qtbase)
 127        ("qttools" ,qttools)))
 128     (native-inputs
 129      `(("pkg-config" ,pkg-config)))
 130     (home-page "http://alsamodular.sourceforge.net/")
 131     (synopsis "Realtime modular synthesizer and effect processor")
 132     (description
 133      "AlsaModularSynth is a digital implementation of a classical analog
 134 modular synthesizer system.  It uses virtual control voltages to control the
 135 parameters of the modules.  The control voltages which control the frequency
 136 e.g. of the VCO (Voltage Controlled Oscillator) and VCF (Voltage Controlled
 137 Filter) modules follow the convention of 1V / Octave.")
 138     (license license:gpl2)))
 139
 140 (define-public aubio
 141   (package
 142     (name "aubio")
 143     (version "0.4.1")
 144     (source (origin
 145              (method url-fetch)
 146              (uri (string-append
 147                    "http://aubio.org/pub/aubio-" version ".tar.bz2"))
 148              (sha256
 149               (base32
 150                "15f6nf76y7iyl2kl4ny7ky0zpxfxr8j3902afvd6ydnnkh5dzmr5"))))
 151     (build-system waf-build-system)
 152     (arguments
 153      `(#:tests? #f  ; no check target
 154        #:configure-flags
 155        '("--enable-fftw3f"
 156          "--enable-jack"
 157          "--enable-sndfile"
 158          "--enable-samplerate"
 159          ;; enable compilation with avcodec once available
 160          "--disable-avcodec")
 161        #:python ,python-2))
 162     (inputs
 163      `(("jack" ,jack-1)
 164        ("libsndfile" ,libsndfile)
 165        ("libsamplerate" ,libsamplerate)
 166        ("fftwf" ,fftwf)))
 167     (native-inputs
 168      `(("pkg-config" ,pkg-config)))
 169     (home-page "http://aubio.org/")
 170     (synopsis "Library for audio labelling")
 171     (description
 172      "aubio is a tool designed for the extraction of annotations from audio
 173 signals.  Its features include segmenting a sound file before each of its
 174 attacks, performing pitch detection, tapping the beat and producing MIDI
 175 streams from live audio.")
 176     (license license:gpl3+)))
 177
 178 (define (ardour-rpath-phase major-version)
 179   `(lambda* (#:key outputs #:allow-other-keys)
 180      (let ((libdir (string-append (assoc-ref outputs "out")
 181                                   "/lib/ardour" ,major-version)))
 182        (substitute* "wscript"
 183          (("linker_flags = \\[\\]")
 184           (string-append "linker_flags = [\""
 185                          "-Wl,-rpath="
 186                          libdir ":"
 187                          libdir "/backends" ":"
 188                          libdir "/engines" ":"
 189                          libdir "/panners" ":"
 190                          libdir "/surfaces" ":"
 191                          libdir "/vamp" "\"]"))))
 192      #t))
 193
 194 (define-public ardour
 195   (package
 196     (name "ardour")
 197     (version "5.12")
 198     (source (origin
 199               (method git-fetch)
 200               (uri (git-reference
 201                     (url "https://git.ardour.org/ardour/ardour.git")
 202                     (commit version)))
 203               (snippet
 204                ;; Ardour expects this file to exist at build time.  The revision
 205                ;; is the output of
 206                ;;    git describe HEAD | sed 's/^[A-Za-z]*+//'
 207                `(call-with-output-file
 208                     "libs/ardour/revision.cc"
 209                   (lambda (port)
 210                     (format port ,(string-append "#include \"ardour/revision.h\"
 211 namespace ARDOUR { const char* revision = \"" version "\" ; }")))))
 212               (sha256
 213                (base32
 214                 "0mla5lm51ryikc2rrk53max2m7a5ds6i1ai921l2h95wrha45nkr"))
 215               (file-name (string-append name "-" version))))
 216     (build-system waf-build-system)
 217     (arguments
 218      `(#:configure-flags '("--cxx11"          ; required by gtkmm
 219                            "--no-phone-home"  ; don't contact ardour.org
 220                            "--freedesktop"    ; install .desktop file
 221                            "--test")          ; build unit tests
 222        #:phases
 223        (modify-phases %standard-phases
 224          (add-after
 225           'unpack 'set-rpath-in-LDFLAGS
 226           ,(ardour-rpath-phase (version-major version))))
 227        #:test-target "test"
 228        #:python ,python-2))
 229     (inputs
 230      `(("alsa-lib" ,alsa-lib)
 231        ("aubio" ,aubio)
 232        ("lrdf" ,lrdf)
 233        ("boost" ,boost)
 234        ("atkmm" ,atkmm)
 235        ("cairomm" ,cairomm)
 236        ("eudev" ,eudev)
 237        ("gtkmm" ,gtkmm-2)
 238        ("glibmm" ,glibmm)
 239        ("libart-lgpl" ,libart-lgpl)
 240        ("libgnomecanvasmm" ,libgnomecanvasmm)
 241        ("pangomm" ,pangomm)
 242        ("liblo" ,liblo)
 243        ("libsndfile" ,libsndfile)
 244        ("libsamplerate" ,libsamplerate)
 245        ("libxml2" ,libxml2)
 246        ("libogg" ,libogg)
 247        ("libvorbis" ,libvorbis)
 248        ("flac" ,flac)
 249        ("lv2" ,lv2)
 250        ("vamp" ,vamp)
 251        ("curl" ,curl)
 252        ("fftw" ,fftw)
 253        ("fftwf" ,fftwf)
 254        ("jack" ,jack-1)
 255        ("serd" ,serd)
 256        ("sord" ,sord)
 257        ("sratom" ,sratom)
 258        ("suil" ,suil)
 259        ("lilv" ,lilv)
 260        ("readline" ,readline)
 261        ("redland" ,redland)
 262        ("rubberband" ,rubberband)
 263        ("libarchive" ,libarchive)
 264        ("taglib" ,taglib)
 265        ("python-rdflib" ,python-rdflib)))
 266     (native-inputs
 267      `(("perl" ,perl)
 268        ("cppunit" ,cppunit)
 269        ("itstool" ,itstool)
 270        ("gettext" ,gettext-minimal)
 271        ("pkg-config" ,pkg-config)))
 272     (home-page "http://ardour.org")
 273     (synopsis "Digital audio workstation")
 274     (description
 275      "Ardour is a multi-channel digital audio workstation, allowing users to
 276 record, edit, mix and master audio and MIDI projects.  It is targeted at audio
 277 engineers, musicians, soundtrack editors and composers.")
 278     (license license:gpl2+)))
 279
 280 (define-public audacity
 281   (package
 282     (name "audacity")
 283     (version "2.2.0")
 284     (source
 285      (origin
 286        (method url-fetch)
 287        (uri (string-append "https://github.com/audacity/audacity/archive"
 288                            "/Audacity-" version ".tar.gz"))
 289        (sha256
 290         (base32 "09xpr4bjnainz1xmc35v3qg3dadjr9wv8bmn1p4y91aqyihnhjry"))
 291        (patches (search-patches "audacity-build-with-system-portaudio.patch"))
 292        (modules '((guix build utils)))
 293        (snippet
 294         ;; Remove bundled libraries.
 295         '(begin
 296            (for-each
 297             (lambda (dir)
 298               (delete-file-recursively (string-append "lib-src/" dir)))
 299             '("expat" "ffmpeg" "libflac" "libid3tag" "libmad" "libogg"
 300               "libsndfile" "libsoxr" "libvamp" "libvorbis" "lv2"
 301               "portaudio-v19" "portmidi" "soundtouch" "twolame"
 302               ;; FIXME: these libraries have not been packaged yet:
 303               ;; "libnyquist"
 304               ;; "libscorealign"
 305               ;; "libwidgetextra"
 306               ;; "portburn"
 307               ;; "portsmf"
 308               ;; "portmixer"
 309
 310               ;; FIXME: we have this library, but it differs in that the Slide
 311               ;; class does not have a member "getInverseStretchedTime".
 312               ;; "sbsms"
 313               ))
 314            #t))))
 315     (build-system gnu-build-system)
 316     (inputs
 317      `(("wxwidgets" ,wxwidgets)
 318        ("gtk" ,gtk+)
 319        ("alsa-lib" ,alsa-lib)
 320        ("jack" ,jack-1)
 321        ("expat" ,expat)
 322        ("ffmpeg" ,ffmpeg)
 323        ("lame" ,lame)
 324        ("flac" ,flac)
 325        ("libid3tag" ,libid3tag)
 326        ("libmad" ,libmad)
 327        ;;("libsbsms" ,libsbsms)         ;bundled version is modified
 328        ("libsndfile" ,libsndfile)
 329        ("soundtouch" ,soundtouch)
 330        ("soxr" ,soxr)                   ;replaces libsamplerate
 331        ("twolame" ,twolame)
 332        ("vamp" ,vamp)
 333        ("libvorbis" ,libvorbis)
 334        ("lv2" ,lv2)
 335        ("lilv" ,lilv)                   ;for lv2
 336        ("suil" ,suil)                   ;for lv2
 337        ("portaudio" ,portaudio)
 338        ("portmidi" ,portmidi)))
 339     (native-inputs
 340      `(("autoconf" ,autoconf)
 341        ("automake" ,automake)
 342        ("gettext" ,gettext-minimal)     ;for msgfmt
 343        ("libtool" ,libtool)
 344        ("pkg-config" ,pkg-config)
 345        ("python" ,python-2)
 346        ("which" ,which)))
 347     (arguments
 348      `(#:configure-flags
 349        (let ((libid3tag (assoc-ref %build-inputs "libid3tag"))
 350              (libmad (assoc-ref %build-inputs "libmad"))
 351              (portmidi (assoc-ref %build-inputs "portmidi")))
 352          (list
 353           ;; Loading FFmpeg dynamically is problematic.
 354           "--disable-dynamic-loading"
 355           ;; SSE instructions are available on Intel systems only.
 356           ,@(if (any (cute string-prefix? <> (or (%current-target-system)
 357                                                  (%current-system)))
 358                     '("x64_64" "i686"))
 359               '()
 360               '("--enable-sse=no"))
 361           ;; portmidi, libid3tag and libmad provide no .pc files, so
 362           ;; pkg-config fails to find them.  Force their inclusion.
 363           (string-append "ID3TAG_CFLAGS=-I" libid3tag "/include")
 364           (string-append "ID3TAG_LIBS=-L" libid3tag "/lib -lid3tag -lz")
 365           (string-append "LIBMAD_CFLAGS=-I" libmad "/include")
 366           (string-append "LIBMAD_LIBS=-L" libmad "/lib -lmad")
 367           (string-append "PORTMIDI_CFLAGS=-I" portmidi "/include")
 368           (string-append "PORTMIDI_LIBS=-L" portmidi "/lib -lportmidi")
 369           "EXPAT_USE_SYSTEM=yes"
 370           "FFMPEG_USE_SYSTEM=yes"
 371           "LAME_USE_SYSTEM=yes"
 372           "LIBFLAC_USE_SYSTEM=yes"
 373           "LIBID3TAG_USE_SYSTEM=yes"
 374           "LIBMAD_USE_SYSTEM=yes"
 375           "USE_LOCAL_LIBNYQUIST="      ;not packaged yet
 376           ;;"LIBSBSMS_USE_SYSTEM=yes"  ;bundled version is patched
 377           "LIBSNDFILE_USE_SYSTEM=yes"
 378           "LIBSOUNDTOUCH_USE_SYSTEM=yes"
 379           "LIBSOXR_USE_SYSTEM=yes"
 380           "LIBTWOLAME_USE_SYSTEM=yes"
 381           "LIBVAMP_USE_SYSTEM=yes"
 382           "LIBVORBIS_USE_SYSTEM=yes"
 383           "LV2_USE_SYSTEM=yes"
 384           "PORTAUDIO_USE_SYSTEM=yes"))
 385        #:phases
 386        (modify-phases %standard-phases
 387          (add-after 'unpack 'fix-sbsms-check
 388            (lambda _
 389              ;; This check is wrong: there is no 2.2.0 release; not even the
 390              ;; bundled sources match this release string.
 391              (substitute* '("m4/audacity_checklib_libsbsms.m4"
 392                             "configure")
 393                (("sbsms >= 2.2.0") "sbsms >= 2.0.0"))
 394              #t))
 395          (add-after 'unpack 'use-upstream-headers
 396            (lambda* (#:key inputs #:allow-other-keys)
 397              (substitute* '("src/NoteTrack.cpp"
 398                             "src/AudioIO.cpp"
 399                             "src/AudioIO.h")
 400                (("../lib-src/portmidi/pm_common/portmidi.h") "portmidi.h")
 401                (("../lib-src/portmidi/porttime/porttime.h") "porttime.h"))
 402              (substitute* "src/prefs/MidiIOPrefs.cpp"
 403                (("../../lib-src/portmidi/pm_common/portmidi.h") "portmidi.h"))
 404              #t)))
 405        ;; The test suite is not "well exercised" according to the developers,
 406        ;; and fails with various errors.  See
 407        ;; <http://sourceforge.net/p/audacity/mailman/message/33524292/>.
 408        #:tests? #f))
 409     (home-page "http://audacity.sourceforge.net/")
 410     (synopsis "Software for recording and editing sounds")
 411     (description
 412      "Audacity is a multi-track audio editor designed for recording, playing
 413 and editing digital audio.  It features digital effects and spectrum analysis
 414 tools.")
 415     (license license:gpl2+)))
 416
 417 (define-public azr3
 418   (package
 419     (name "azr3")
 420     (version "1.2.3")
 421     (source (origin
 422               (method url-fetch)
 423               (uri (string-append "mirror://savannah/ll-plugins/azr3-jack-"
 424                                   version
 425                                   ".tar.bz2"))
 426               (sha256
 427                (base32
 428                 "18mdw6nc0vgj6k9rsy0x8w64wvzld0frqshrxxbxfj9qi9843vlc"))
 429               (patches (search-patches "azr3.patch"))))
 430     (build-system gnu-build-system)
 431     (arguments
 432      `(#:tests? #f ; no check target
 433        #:make-flags
 434        (list "LV2PEG=ttl2c"
 435              "CXXFLAGS=-std=gnu++11"
 436              "CFLAGS=-std=gnu++11"
 437              (string-append "prefix=" %output)
 438              (string-append "pkgdatadir=" %output "/share/azr3-jack"))))
 439     (inputs
 440      `(("gtkmm" ,gtkmm-2)
 441        ("lvtk" ,lvtk)
 442        ("jack" ,jack-1)
 443        ("lash" ,lash)))
 444     (native-inputs
 445      `(("pkg-config" ,pkg-config)))
 446     (home-page "http://ll-plugins.nongnu.org/azr3/")
 447     (synopsis "Tonewheel organ synthesizer")
 448     (description
 449      "AZR-3 is a port of the free VST plugin AZR-3.  It is a tonewheel organ
 450 with drawbars, distortion and rotating speakers.  The organ has three
 451 sections, two polyphonic sections with nine drawbars each and one monophonic
 452 bass section with five drawbars.  A standalone JACK application and LV2
 453 plugins are provided.")
 454     (license license:gpl2)))
 455
 456 (define-public calf
 457   (package
 458     (name "calf")
 459     (version "0.90.0")
 460     (source (origin
 461               (method url-fetch)
 462               (uri (string-append "http://calf-studio-gear.org/files/calf-"
 463                                   version ".tar.gz"))
 464               (sha256
 465                (base32
 466                 "0dijv2j7vlp76l10s4v8gbav26ibaqk8s24ci74vrc398xy00cib"))))
 467     (build-system gnu-build-system)
 468     (inputs
 469      `(("fluidsynth" ,fluidsynth)
 470        ("expat" ,expat)
 471        ("glib" ,glib)
 472        ("gtk" ,gtk+-2)
 473        ("cairo" ,cairo)
 474        ("lash" ,lash)
 475        ("jack" ,jack-1)
 476        ("lv2" ,lv2)
 477        ("ladspa" ,ladspa)
 478        ("fftw" ,fftw)))
 479     (native-inputs
 480      `(("pkg-config" ,pkg-config)))
 481     (native-search-paths
 482      (list (search-path-specification
 483             (variable "LV2_PATH")
 484             (files '("lib/lv2")))))
 485     (home-page "http://calf.sourceforge.net/")
 486     (synopsis "Audio plug-in pack for LV2 and JACK environments")
 487     (description
 488      "Calf Studio Gear is an audio plug-in pack for LV2 and JACK environments.
 489 The suite contains lots of effects (delay, modulation, signal processing,
 490 filters, equalizers, dynamics, distortion and mastering effects),
 491 instruments (SF2 player, organ simulator and a monophonic synthesizer) and
 492 tools (analyzer, mono/stereo tools, crossovers).")
 493     ;; calfjackhost is released under GPLv2+
 494     ;; The plugins are released under LGPLv2.1+
 495     (license (list license:lgpl2.1+ license:gpl2+))))
 496
 497 (define-public espeak
 498   (package
 499     (name "espeak")
 500     (version "1.48.04")
 501     (source (origin
 502               (method url-fetch)
 503               (uri (string-append "mirror://sourceforge/espeak/espeak/"
 504                                   "espeak-" (version-major+minor version)
 505                                   "/espeak-" version "-source.zip"))
 506               (sha256
 507                (base32
 508                 "0n86gwh9pw0jqqpdz7mxggllfr8k0r7pc67ayy7w5z6z79kig6mz"))
 509               (modules '((guix build utils)))
 510               (snippet
 511                ;; remove prebuilt binaries
 512                '(delete-file-recursively "linux_32bit"))))
 513     (build-system gnu-build-system)
 514     (arguments
 515      `(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
 516                           (string-append "DATADIR="
 517                                          (assoc-ref %outputs "out")
 518                                          "/share/espeak-data")
 519                           (string-append "LDFLAGS=-Wl,-rpath="
 520                                          (assoc-ref %outputs "out")
 521                                          "/lib")
 522                           "AUDIO=pulseaudio")
 523        #:tests? #f ; no check target
 524        #:phases
 525        (modify-phases %standard-phases
 526          (replace 'configure
 527            (lambda _
 528              (chdir "src")
 529              ;; We use version 19 of the PortAudio library, so we must copy the
 530              ;; corresponding file to be sure that espeak compiles correctly.
 531              (copy-file "portaudio19.h" "portaudio.h")
 532              (substitute* "Makefile"
 533                (("/bin/ln") "ln"))
 534              #t)))))
 535        (inputs
 536         `(("portaudio" ,portaudio)
 537           ("pulseaudio" ,pulseaudio)))
 538        (native-inputs `(("unzip" ,unzip)))
 539        (home-page "http://espeak.sourceforge.net/")
 540        (synopsis "Software speech synthesizer")
 541        (description "eSpeak is a software speech synthesizer for English and
 542 other languages.  eSpeak uses a \"formant synthesis\" method.  This allows many
 543 languages to be provided in a small size.  The speech is clear, and can be used
 544 at high speeds, but is not as natural or smooth as larger synthesizers which are
 545 based on human speech recordings.")
 546        (license license:gpl3+)))
 547
 548 (define-public infamous-plugins
 549   (package
 550     (name "infamous-plugins")
 551     (version "0.2.02")
 552     (source (origin
 553               (method url-fetch)
 554               (uri (string-append "https://github.com/ssj71/infamousPlugins/"
 555                                   "archive/v" version ".tar.gz"))
 556               (file-name (string-append name "-" version ".tar.gz"))
 557               (sha256
 558                (base32
 559                 "0qm3ak07vc1l3f5c3c2lq9gkfknlxwn8ks03cysw1pk8hj7dwnv6"))))
 560     (build-system cmake-build-system)
 561     (arguments
 562      `(#:tests? #f ; There are no tests
 563        #:phases
 564        (modify-phases %standard-phases
 565          (add-after 'unpack 'remove-compiler-flags
 566            (lambda _
 567              (substitute* '("src/casynth/CMakeLists.txt"
 568                             "src/cheapdist/CMakeLists.txt"
 569                             "src/duffer/CMakeLists.txt"
 570                             "src/envfollower/CMakeLists.txt"
 571                             "src/ewham/CMakeLists.txt"
 572                             "src/hip2b/CMakeLists.txt"
 573                             "src/lushlife/CMakeLists.txt"
 574                             "src/powercut/CMakeLists.txt"
 575                             "src/powerup/CMakeLists.txt"
 576                             "src/stuck/CMakeLists.txt")
 577                           (("-msse2 -mfpmath=sse") ""))
 578              #t)))))
 579     (inputs
 580      `(("cairo" ,cairo)
 581        ("fftwf" ,fftwf)
 582        ("lv2" ,lv2)
 583        ("ntk" ,ntk)
 584        ("zita-resampler" ,zita-resampler)))
 585     (native-inputs
 586      `(("pkg-config" ,pkg-config)))
 587     (home-page "http://ssj71.github.io/infamousPlugins")
 588     (synopsis "LV2 plugins for live use")
 589     (description
 590      "The infamous plugins are a collection of LV2 audio plugins for live
 591 performances.  The plugins include a cellular automaton synthesizer, an
 592 envelope follower, distortion effects, tape effects and more.")
 593     (license license:gpl2+)))
 594
 595 (define-public swh-plugins-lv2
 596   (package
 597     (name "swh-plugins-lv2")
 598     (version "1.0.16")
 599     (source (origin
 600               (method url-fetch)
 601               (uri (string-append "https://github.com/swh/"
 602                                   "lv2/archive/v" version ".tar.gz"))
 603               (file-name (string-append name "-" version ".tar.gz"))
 604               (sha256
 605                (base32
 606                 "0j1mih0lp4fds07knp5i32in515sh0df1qi6694pmyz2wqnm295w"))))
 607     (build-system gnu-build-system)
 608     (arguments
 609      `(#:tests? #f ; no check target
 610        #:make-flags (list "CC=gcc"
 611                           (string-append "PREFIX="
 612                                          (assoc-ref %outputs "out")))
 613        #:phases
 614        (modify-phases %standard-phases
 615          ;; no configure script
 616          (delete 'configure)
 617          (add-after 'unpack 'patch-makefile-and-enter-directory
 618            ;; The default install target doesn't install, but the
 619            ;; "install-system" target does.
 620            (lambda _
 621              (substitute* "Makefile"
 622                (("install:") "install: install-system"))
 623              #t)))))
 624     (inputs
 625      `(("lv2" ,lv2)
 626        ("fftwf" ,fftwf)))
 627     (native-inputs
 628      `(("libxslt" ,libxslt)
 629        ("pkg-config" ,pkg-config)))
 630     (home-page "http://plugin.org.uk")
 631     (synopsis "SWH plugins in LV2 format")
 632     (description
 633      "Swh-plugins-lv2 is a collection of audio plugins in LV2 format.  Plugin
 634 classes include: dynamics (compressor, limiter), time (delay, chorus,
 635 flanger), ringmodulator, distortion, filters, pitchshift, oscillators,
 636 emulation (valve, tape), bit fiddling (decimator, pointer-cast), etc.")
 637     (license license:gpl3+)))
 638
 639 (define-public csound
 640   (package
 641     (name "csound")
 642     (version "6.09.1")
 643     (source (origin
 644               (method url-fetch)
 645               (uri (string-append
 646                     "https://github.com/csound/csound/archive/"
 647                     version ".tar.gz"))
 648               (file-name (string-append name "-" version ".tar.gz"))
 649               (sha256
 650                (base32
 651                 "0xqpqws4jsv7fyawcjzwaw544qbfh29xq164kdf30a9v1n3yklp4"))))
 652     (build-system cmake-build-system)
 653     (inputs
 654      `(("alsa-lib" ,alsa-lib)
 655        ("boost" ,boost)
 656        ("pulseaudio" ,pulseaudio)
 657        ("libsndfile" ,libsndfile)
 658        ("liblo" ,liblo)
 659        ("ladspa" ,ladspa)
 660        ("jack" ,jack-1)
 661        ("gettext" ,gettext-minimal)))
 662     (native-inputs
 663      `(("bison" ,bison)
 664        ("flex" ,flex)
 665        ("zlib" ,zlib)))
 666     (home-page "http://csound.github.io/")
 667     (synopsis "Sound and music computing system")
 668     (description
 669      "Csound is a user-programmable and user-extensible sound processing
 670 language and software synthesizer.")
 671     (license license:lgpl2.1+)))
 672
 673 (define-public clalsadrv
 674   (package
 675     (name "clalsadrv")
 676     (version "2.0.0")
 677     (source (origin
 678               (method url-fetch)
 679               (uri (string-append
 680                     "http://kokkinizita.linuxaudio.org"
 681                     "/linuxaudio/downloads/clalsadrv-"
 682                     version ".tar.bz2"))
 683               (sha256
 684                (base32
 685                 "0bsacx3l9065gk8g4137qmz2ij7s9x06aldvacinzlcslw7bd1kq"))))
 686     (build-system gnu-build-system)
 687     (arguments
 688      `(#:tests? #f ; no "check" target
 689        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
 690        #:phases
 691        (modify-phases %standard-phases
 692          (add-after 'unpack 'patch-makefile-and-enter-directory
 693            (lambda _
 694              (substitute* "libs/Makefile"
 695                (("/sbin/ldconfig") "true")
 696                (("^LIBDIR =.*") "LIBDIR = lib\n"))
 697              (chdir "libs")
 698              #t))
 699          (add-after 'install 'install-symlink
 700            (lambda _
 701              (symlink "libclalsadrv.so"
 702                       (string-append (assoc-ref %outputs "out")
 703                                      "/lib/libclalsadrv.so.2"))))
 704          ;; no configure script
 705          (delete 'configure))))
 706     (inputs
 707      `(("alsa-lib" ,alsa-lib)
 708        ("fftw" ,fftw)))
 709     (home-page "https://kokkinizita.linuxaudio.org")
 710     (synopsis "C++ wrapper around the ALSA API")
 711     (description
 712      "clalsadrv is a C++ wrapper around the ALSA API simplifying access to
 713 ALSA PCM devices.")
 714     (license license:gpl2+)))
 715
 716 (define-public amb-plugins
 717   (package
 718     (name "amb-plugins")
 719     (version "0.8.1")
 720     (source (origin
 721               (method url-fetch)
 722               (uri (string-append
 723                     "http://kokkinizita.linuxaudio.org"
 724                     "/linuxaudio/downloads/AMB-plugins-"
 725                     version ".tar.bz2"))
 726               (sha256
 727                (base32
 728                 "0x4blm4visjqj0ndqr0cg776v3b7lvplpc8cgi9n51llhavn0jpl"))))
 729     (build-system gnu-build-system)
 730     (arguments
 731      `(#:tests? #f ; no "check" target
 732        #:phases
 733        (modify-phases %standard-phases
 734          ;; no configure script
 735          (delete 'configure)
 736          (add-before 'install 'prepare-target-directory
 737            (lambda* (#:key outputs #:allow-other-keys)
 738              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 739              #t))
 740          (add-after 'unpack 'override-target-directory-and-tool-paths
 741            (lambda* (#:key outputs #:allow-other-keys)
 742              (substitute* "Makefile"
 743                (("/usr/lib/ladspa")
 744                 (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 745                (("/usr/bin/install") (which "install"))
 746                (("/bin/rm") "#"))
 747              #t)))))
 748     (home-page "https://kokkinizita.linuxaudio.org")
 749     (synopsis "LADSPA ambisonics plugins")
 750     (description
 751      "The AMB plugins are a set of LADSPA ambisonics plugins, mainly to be
 752 used within Ardour.  Features include: mono and stereo to B-format panning,
 753 horizontal rotator, square, hexagon and cube decoders.")
 754     (license license:gpl2+)))
 755
 756 (define-public mcp-plugins
 757   (package
 758     (name "mcp-plugins")
 759     (version "0.4.0")
 760     (source (origin
 761               (method url-fetch)
 762               (uri (string-append
 763                     "http://kokkinizita.linuxaudio.org"
 764                     "/linuxaudio/downloads/MCP-plugins-"
 765                     version ".tar.bz2"))
 766               (sha256
 767                (base32
 768                 "06a9r1l85jmg7l1cvc3788mk8ra0xagjfy1rmhw3b80y4n0vlnvc"))))
 769     (build-system gnu-build-system)
 770     (arguments
 771      `(#:tests? #f ; no "check" target
 772        #:phases
 773        (modify-phases %standard-phases
 774          ;; no configure script
 775          (delete 'configure)
 776          (add-before 'install 'prepare-target-directory
 777            (lambda* (#:key outputs #:allow-other-keys)
 778              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 779              #t))
 780          (add-after 'unpack 'override-target-directory
 781            (lambda* (#:key outputs #:allow-other-keys)
 782              (substitute* "Makefile"
 783                (("/usr") (assoc-ref outputs "out")))
 784              #t)))))
 785     (home-page "https://kokkinizita.linuxaudio.org")
 786     (synopsis "Chorus, phaser, and vintage high-pass and low-pass filters")
 787     (description
 788      "This package provides various LADSPA plugins.  @code{cs_chorus} and
 789 @code{cs_phaser} provide chorus and phaser effects, respectively;
 790 @code{mvclpf24} provides four implementations of the low-pass filter used in
 791 vintage Moog synthesizers; @code{mvchpf24} is based on the voltage-controlled
 792 high-pass filter by Robert Moog.  The filters attempt to accurately emulate
 793 the non-linear circuit elements of their original analog counterparts.")
 794     (license license:gpl2+)))
 795
 796 (define-public rev-plugins
 797   (package
 798     (name "rev-plugins")
 799     (version "0.7.1")
 800     (source (origin
 801               (method url-fetch)
 802               (uri (string-append
 803                     "http://kokkinizita.linuxaudio.org"
 804                     "/linuxaudio/downloads/REV-plugins-"
 805                     version ".tar.bz2"))
 806               (sha256
 807                (base32
 808                 "1ikpinxm00pkfi259bnkzhsy3miagrjgdihaaf5x4v7zac29j3g7"))))
 809     (build-system gnu-build-system)
 810     (arguments
 811      `(#:tests? #f ; no "check" target
 812        #:phases
 813        (modify-phases %standard-phases
 814          ;; no configure script
 815          (delete 'configure)
 816          (add-before 'install 'prepare-target-directory
 817            (lambda* (#:key outputs #:allow-other-keys)
 818              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 819              #t))
 820          (add-after 'unpack 'override-target-directory
 821            (lambda* (#:key outputs #:allow-other-keys)
 822              (substitute* "Makefile"
 823                (("/usr") (assoc-ref outputs "out")))
 824              #t)))))
 825     (home-page "https://kokkinizita.linuxaudio.org")
 826     (synopsis "LADSPA reverb plugin")
 827     (description
 828      "This package provides a stereo reverb LADSPA plugin based on the
 829 well-known greverb.")
 830     (license license:gpl2+)))
 831
 832 (define-public fil-plugins
 833   (package
 834     (name "fil-plugins")
 835     (version "0.3.0")
 836     (source (origin
 837               (method url-fetch)
 838               (uri (string-append
 839                     "http://kokkinizita.linuxaudio.org"
 840                     "/linuxaudio/downloads/FIL-plugins-"
 841                     version ".tar.bz2"))
 842               (sha256
 843                (base32
 844                 "1scfv9j7jrp50r565haa4rvxn1vk2ss86xssl5qgcr8r45qz42qw"))))
 845     (build-system gnu-build-system)
 846     (arguments
 847      `(#:tests? #f ; no "check" target
 848        #:phases
 849        (modify-phases %standard-phases
 850          ;; no configure script
 851          (delete 'configure)
 852          (add-before 'install 'prepare-target-directory
 853            (lambda* (#:key outputs #:allow-other-keys)
 854              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 855              #t))
 856          (add-after 'unpack 'override-target-directory
 857            (lambda* (#:key outputs #:allow-other-keys)
 858              (substitute* "Makefile"
 859                (("/usr") (assoc-ref outputs "out")))
 860              #t)))))
 861     (home-page "https://kokkinizita.linuxaudio.org")
 862     (synopsis "LADSPA four-band parametric equalizer plugin")
 863     (description
 864      "This package provides a LADSPA plugin for a four-band parametric
 865 equalizer.  Each section has an active/bypass switch, frequency, bandwidth and
 866 gain controls.  There is also a global bypass switch and gain control.
 867
 868 The 2nd order resonant filters are implemented using a Mitra-Regalia style
 869 lattice filter, which is stable even while parameters are being changed.
 870
 871 All switches and controls are internally smoothed, so they can be used 'live'
 872 without any clicks or zipper noises.  This makes this plugin suitable for use
 873 in systems that allow automation of plugin control ports, such as Ardour, or
 874 for stage use.")
 875     (license license:gpl2+)))
 876
 877 (define-public ste-plugins
 878   (package
 879     (name "ste-plugins")
 880     (version "0.0.2")
 881     (source (origin
 882               (method url-fetch)
 883               (uri (string-append
 884                     "http://kokkinizita.linuxaudio.org"
 885                     "/linuxaudio/downloads/STE-plugins-"
 886                     version ".tar.bz2"))
 887               (sha256
 888                (base32
 889                 "0s3c9w5xihs87cnd1lh9xgj3maabjdyh6bl766qp5lhkg3ax8zy6"))))
 890     (build-system gnu-build-system)
 891     (arguments
 892      `(#:tests? #f ; no "check" target
 893        #:phases
 894        (modify-phases %standard-phases
 895          ;; no configure script
 896          (delete 'configure)
 897          (add-before 'install 'prepare-target-directory
 898            (lambda* (#:key outputs #:allow-other-keys)
 899              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 900              #t))
 901          (add-after 'unpack 'override-target-directory
 902            (lambda* (#:key outputs #:allow-other-keys)
 903              (substitute* "Makefile"
 904                (("/usr") (assoc-ref outputs "out")))
 905              #t)))))
 906     (home-page "https://kokkinizita.linuxaudio.org")
 907     (synopsis "LADSPA stereo width plugin")
 908     (description
 909      "This package provides a LADSPA plugin to manipulate the stereo width of
 910 audio signals.")
 911     (license license:gpl2+)))
 912
 913 (define-public vco-plugins
 914   (package
 915     (name "vco-plugins")
 916     (version "0.3.0")
 917     (source (origin
 918               (method url-fetch)
 919               (uri (string-append
 920                     "http://kokkinizita.linuxaudio.org"
 921                     "/linuxaudio/downloads/VCO-plugins-"
 922                     version ".tar.bz2"))
 923               (sha256
 924                (base32
 925                 "1xzqdg3b07r7zww05y9bb737l9dxvfkv28m3fyak1aazaci3rsgl"))))
 926     (build-system gnu-build-system)
 927     (arguments
 928      `(#:tests? #f ; no "check" target
 929        #:phases
 930        (modify-phases %standard-phases
 931          ;; no configure script
 932          (delete 'configure)
 933          (add-before 'install 'prepare-target-directory
 934            (lambda* (#:key outputs #:allow-other-keys)
 935              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 936              #t))
 937          (add-after 'unpack 'override-target-directory
 938            (lambda* (#:key outputs #:allow-other-keys)
 939              (substitute* "Makefile"
 940                (("/usr") (assoc-ref outputs "out"))
 941                (("/bin/cp") (which "cp")))
 942              #t)))))
 943     (home-page "https://kokkinizita.linuxaudio.org")
 944     (synopsis "LADSPA plugin for synthesizer oscillators")
 945     (description
 946      "The @code{blvco} LADSPA plugin provides three anti-aliased oscillators:
 947
 948 @enumerate
 949 @item Pulse-VCO, a dirac pulse oscillator with flat amplitude spectrum
 950 @item Saw-VCO, a sawtooth oscillator with 1/F amplitude spectrum
 951 @item Rec-VCO, a square / rectange oscillator
 952 @end enumerate\n
 953
 954 All oscillators are low-pass filtered to provide waveforms similar to the
 955 output of analog synthesizers such as the Moog Voyager.")
 956     (license license:gpl2+)))
 957
 958 (define-public wah-plugins
 959   (package
 960     (name "wah-plugins")
 961     (version "0.1.0")
 962     (source (origin
 963               (method url-fetch)
 964               (uri (string-append
 965                     "http://kokkinizita.linuxaudio.org"
 966                     "/linuxaudio/downloads/WAH-plugins-"
 967                     version ".tar.bz2"))
 968               (sha256
 969                (base32
 970                 "1wkbjarxdhjixkh7d5abralj11dj2xxg644fz3ycd7qyfgfvjfgd"))))
 971     (build-system gnu-build-system)
 972     (arguments
 973      `(#:tests? #f ; no "check" target
 974        #:phases
 975        (modify-phases %standard-phases
 976          ;; no configure script
 977          (delete 'configure)
 978          (add-before 'install 'prepare-target-directory
 979            (lambda* (#:key outputs #:allow-other-keys)
 980              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 981              #t))
 982          (add-after 'unpack 'override-target-directory
 983            (lambda* (#:key outputs #:allow-other-keys)
 984              (substitute* "Makefile"
 985                (("/usr") (assoc-ref outputs "out")))
 986              #t)))))
 987     (home-page "https://kokkinizita.linuxaudio.org")
 988     (synopsis "LADSPA Autowah effect plugin")
 989     (description
 990      "This package provides a LADSPA plugin for a Wah effect with envelope
 991 follower.")
 992     (license license:gpl2+)))
 993
 994 (define-public g2reverb
 995   (package
 996     (name "g2reverb")
 997     (version "0.7.1")
 998     (source (origin
 999               (method url-fetch)
1000               (uri (string-append
1001                     "http://kokkinizita.linuxaudio.org"
1002                     "/linuxaudio/downloads/g2reverb-"
1003                     version ".tar.bz2"))
1004               (sha256
1005                (base32
1006                 "18wb8vj1kky5glr76s34awbi8qzplsmf3wjbd7a12hfv4j0bkwrj"))))
1007     (build-system gnu-build-system)
1008     (arguments
1009      `(#:tests? #f ; no "check" target
1010        #:phases
1011        (modify-phases %standard-phases
1012          ;; no configure script
1013          (delete 'configure)
1014          (add-before 'install 'prepare-target-directory
1015            (lambda* (#:key outputs #:allow-other-keys)
1016              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
1017              #t))
1018          (add-after 'unpack 'override-target-directory
1019            (lambda* (#:key outputs #:allow-other-keys)
1020              (substitute* "Makefile"
1021                (("/usr") (assoc-ref outputs "out")))
1022              #t)))))
1023     (home-page "https://kokkinizita.linuxaudio.org")
1024     (synopsis "LADSPA stereo reverb plugin")
1025     (description
1026      "This package provides a LADSPA plugin for a stereo reverb effect.")
1027     (license license:gpl2+)))
1028
1029 (define-public fluidsynth
1030   (package
1031     (name "fluidsynth")
1032     (version "1.1.9")
1033     (source (origin
1034               (method git-fetch)
1035               (uri (git-reference
1036                     (url "https://github.com/FluidSynth/fluidsynth.git")
1037                     (commit (string-append "v" version))))
1038               (file-name (string-append name "-" version "-checkout"))
1039               (sha256
1040                (base32
1041                 "0krvmb1idnf95l2ydzfcb08ayyx3n4m71hf9fgwv3srzaikvpf3q"))))
1042     (build-system cmake-build-system)
1043     (arguments
1044      '(#:tests? #f  ; no check phase
1045        #:phases
1046        (modify-phases %standard-phases
1047          (add-after 'unpack 'fix-libdir
1048            (lambda _
1049              (substitute* "CMakeLists.txt"
1050                (("LIB_SUFFIX \\$\\{_init_lib_suffix\\}")
1051                 "LIB_SUFFIX \"\""))
1052              #t)))))
1053     (inputs
1054      `(("libsndfile" ,libsndfile)
1055        ("alsa-lib" ,alsa-lib)
1056        ("jack" ,jack-1)
1057        ("ladspa" ,ladspa)
1058        ("lash" ,lash)
1059        ("readline" ,readline)
1060        ("glib" ,glib)))
1061     (native-inputs
1062      `(("pkg-config" ,pkg-config)))
1063     (home-page "http://www.fluidsynth.org/")
1064     (synopsis "SoundFont synthesizer")
1065     (description
1066      "FluidSynth is a real-time software synthesizer based on the SoundFont 2
1067 specifications.  FluidSynth reads and handles MIDI events from the MIDI input
1068 device.  It is the software analogue of a MIDI synthesizer.  FluidSynth can
1069 also play midifiles using a Soundfont.")
1070     (license license:lgpl2.1+)))
1071
1072 (define-public faad2
1073   (package
1074     (name "faad2")
1075     (version "2.7")
1076     (source (origin
1077               (method url-fetch)
1078               (uri (string-append "mirror://sourceforge/faac/faad2-src/faad2-"
1079                                   version "/faad2-" version ".zip"))
1080               (sha256
1081                (base32
1082                 "16f3l16c00sg0wkrkm3vzv0gy3g97x309vw788igs0cap2x1ak3z"))))
1083     (build-system gnu-build-system)
1084     (native-inputs
1085      `(("autoconf" ,autoconf)
1086        ("automake" ,automake)
1087        ("libtool" ,libtool)
1088        ("unzip" ,unzip)))
1089     (arguments
1090      '(#:phases
1091        (modify-phases %standard-phases
1092          (add-after 'unpack 'bootstrap
1093            (lambda _
1094              (substitute* "bootstrap" (("\r\n") "\n"))
1095              (zero? (system* "sh" "bootstrap")))))))
1096     (home-page "http://www.audiocoding.com/faad2.html")
1097     (synopsis "MPEG-4 and MPEG-2 AAC decoder")
1098     (description
1099      "FAAD2 is an MPEG-4 and MPEG-2 AAC decoder supporting LC, Main, LTP, SBR,
1100 PS, and DAB+.")
1101     (license license:gpl2)))
1102
1103 (define-public faust
1104   (package
1105     (name "faust")
1106     (version "0.9.90")
1107     (source (origin
1108               (method git-fetch)
1109               (uri (git-reference
1110                     (url "https://github.com/grame-cncm/faust.git")
1111                     (commit (string-append "v"
1112                                            (string-map (lambda (c)
1113                                                          (if (char=? c #\.) #\- c))
1114                                                        version)))))
1115               (file-name (string-append "faust-" version "-checkout"))
1116               (sha256
1117                (base32
1118                 "0qc6iwjd3i80jdyjc186c6ywipmjzl8wlsp4050pbr56q4rlkd4z"))))
1119     (build-system gnu-build-system)
1120     (arguments
1121      `(#:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
1122        #:tests? #f
1123        #:phases
1124        (modify-phases %standard-phases
1125          ;; no "configure" script
1126          (delete 'configure)
1127          ;; Files appear under $out/share/faust that are read-only.  The
1128          ;; install phase tries to overwrite them and fails, so we change
1129          ;; the permissions first.
1130          (add-before 'install 'fix-permissions
1131            (lambda _
1132              (for-each (lambda (file)
1133                          (chmod file #o644))
1134                        (find-files "architecture/max-msp" ".*"))
1135              #t)))))
1136     (native-inputs
1137      `(("unzip" ,unzip)))
1138     (home-page "http://faust.grame.fr/")
1139     (synopsis "Signal processing language")
1140     (description
1141      "Faust is a programming language for realtime audio signal processing.")
1142     (license license:gpl2+)))
1143
1144 (define-public faust-2
1145   (package
1146     (inherit faust)
1147     (version "2.1.0")
1148     (source (origin
1149               (method git-fetch)
1150               (uri (git-reference
1151                     (url "https://github.com/grame-cncm/faust.git")
1152                     (commit (string-append "v"
1153                                            (string-map (lambda (c)
1154                                                          (if (char=? c #\.) #\- c))
1155                                                        version)))))
1156               (sha256
1157                (base32
1158                 "06km0ygwxxwgw1lqldccqidxhmjfz8ck0wnbd95qk5sg8sbpc068"))))
1159     (build-system gnu-build-system)
1160     (arguments
1161      (substitute-keyword-arguments (package-arguments faust)
1162        ((#:make-flags flags)
1163         `(list (string-append "prefix=" (assoc-ref %outputs "out"))
1164                "world"))))
1165     (native-inputs
1166      `(("llvm" ,llvm-with-rtti)
1167        ("which" ,which)
1168        ("xxd" ,xxd)
1169        ("ctags" ,emacs-minimal)  ; for ctags
1170        ("pkg-config" ,pkg-config)))
1171     (inputs
1172      `(("libsndfile" ,libsndfile)
1173        ("libmicrohttpd" ,libmicrohttpd)
1174        ("ncurses" ,ncurses)
1175        ("openssl" ,openssl)
1176        ("zlib" ,zlib)))))
1177
1178 (define-public freepats
1179   (package
1180     (name "freepats")
1181     (version "20060219")
1182     (source (origin
1183               (method url-fetch)
1184               (uri (string-append "http://freepats.zenvoid.org/freepats-"
1185                                   version ".tar.bz2"))
1186               (sha256
1187                (base32
1188                 "12iw36rd94zirll96cd5k0va7p5hxmf2shvjlhzihcmjaw8flq82"))))
1189     (build-system trivial-build-system)
1190     (arguments
1191      `(#:modules ((guix build utils))
1192        #:builder (begin
1193                    (use-modules (guix build utils))
1194                    (let ((out (string-append %output "/share/freepats")))
1195                      (setenv "PATH" (string-append
1196                                      (assoc-ref %build-inputs "bzip2") "/bin:"
1197                                      (assoc-ref %build-inputs "tar") "/bin"))
1198                      (system* "tar" "xvf" (assoc-ref %build-inputs "source"))
1199                      (chdir "freepats")
1200                      ;; Use absolute pattern references
1201                      (substitute* "freepats.cfg"
1202                        (("Tone_000") (string-append out "/Tone_000"))
1203                        (("Drum_000") (string-append out "/Drum_000")))
1204                      (mkdir-p out)
1205                      (copy-recursively "." out)))))
1206     (native-inputs
1207      `(("tar" ,tar)
1208        ("bzip2" ,bzip2)))
1209     (home-page "http://freepats.zenvoid.org")
1210     (synopsis "GUS compatible patches for MIDI players")
1211     (description
1212      "FreePats is a project to create a free and open set of GUS compatible
1213 patches that can be used with softsynths such as Timidity and WildMidi.")
1214     ;; GPLv2+ with exception for compositions using these patches.
1215     (license license:gpl2+)))
1216
1217 (define-public guitarix
1218   (package
1219     (name "guitarix")
1220     (version "0.36.1")
1221     (source (origin
1222              (method url-fetch)
1223              (uri (string-append
1224                    "mirror://sourceforge/guitarix/guitarix/guitarix2-"
1225                    version ".tar.xz"))
1226              (sha256
1227               (base32
1228                "1g5949jwh2n755xjs3kcbdb8a1wxr5mn0m115wdnk27dxcdn93b0"))))
1229     (build-system waf-build-system)
1230     (arguments
1231      `(#:tests? #f ; no "check" target
1232        #:python ,python-2
1233        #:configure-flags
1234        (list
1235         ;; Add the output lib directory to the RUNPATH.
1236         (string-append "--ldflags=-Wl,-rpath=" %output "/lib")
1237         "--cxxflags=-std=c++11")))
1238     (inputs
1239      `(("libsndfile" ,libsndfile)
1240        ("boost" ,boost)
1241        ("avahi" ,avahi)
1242        ("eigen" ,eigen)
1243        ("lv2" ,lv2)
1244        ("lilv" ,lilv)
1245        ("ladspa" ,ladspa)
1246        ("jack" ,jack-1)
1247        ("gtkmm" ,gtkmm-2)
1248        ("gtk+" ,gtk+-2)
1249        ("fftwf" ,fftwf)
1250        ("lrdf" ,lrdf)
1251        ("zita-resampler" ,zita-resampler)
1252        ("zita-convolver" ,zita-convolver)))
1253     (native-inputs
1254      `(("gperf" ,gperf)
1255        ("faust" ,faust)
1256        ("intltool" ,intltool)
1257        ("gettext" ,gettext-minimal)
1258        ("pkg-config" ,pkg-config)))
1259     (native-search-paths
1260      (list (search-path-specification
1261             (variable "LV2_PATH")
1262             (files '("lib/lv2")))))
1263     (home-page "http://guitarix.org/")
1264     (synopsis "Virtual guitar amplifier")
1265     (description "Guitarix is a virtual guitar amplifier running JACK.
1266 Guitarix takes the signal from your guitar as a mono-signal from your sound
1267 card.  The input is processed by a main amp and a rack-section.  Both can be
1268 routed separately and deliver a processed stereo-signal via JACK.  You may
1269 fill the rack with effects from more than 25 built-in modules including stuff
1270 from a simple noise gate to modulation effects like flanger, phaser or
1271 auto-wah.")
1272     (license license:gpl2+)))
1273
1274 (define-public guitarix-lv2
1275   (package (inherit guitarix)
1276     (name "guitarix-lv2")
1277     (arguments
1278      (substitute-keyword-arguments (package-arguments guitarix)
1279        ((#:configure-flags flags)
1280         `(cons "--lv2-only" ,flags))))))
1281
1282 (define-public rakarrack
1283   (package
1284     (name "rakarrack")
1285     (version "0.6.1")
1286     (source (origin
1287               (method url-fetch)
1288               (uri (string-append "mirror://sourceforge/rakarrack/rakarrack/"
1289                                   "rakarrack-" version "/rakarrack-"
1290                                   version ".tar.bz2"))
1291               (sha256
1292                (base32
1293                 "1rpf63pdn54c4yg13k7cb1w1c7zsvl97c4qxcpz41c8l91xd55kn"))
1294               (modules '((guix build utils)))
1295               (snippet
1296                '(begin
1297                   (substitute* '("src/process.C"
1298                                  "src/global.h")
1299                     (("#include <Fl/") "#include <FL/"))
1300                   #t))))
1301     (build-system gnu-build-system)
1302     (inputs
1303      `(("alsa-utils" ,alsa-utils)
1304        ("fltk" ,fltk)
1305        ("libx11" ,libx11)
1306        ("libxext" ,libxext)
1307        ("libxfixes" ,libxfixes)
1308        ("libxft" ,libxft)
1309        ("libxrender" ,libxrender)
1310        ("libxpm" ,libxpm)
1311        ("fontconfig" ,fontconfig)
1312        ("freetype" ,freetype)
1313        ("jack" ,jack-1)
1314        ("alsa-lib" ,alsa-lib)
1315        ("libsndfile" ,libsndfile)
1316        ("libsamplerate" ,libsamplerate)
1317        ("zlib" ,zlib)))
1318     (home-page "http://rakarrack.sourceforge.net/")
1319     (synopsis "Audio effects processor")
1320     (description
1321      "Rakarrack is a richly featured multi-effects processor emulating a
1322 guitar effects pedalboard.  Effects include compressor, expander, noise gate,
1323 equalizers, exciter, flangers, chorus, various delay and reverb effects,
1324 distortion modules and many more.  Most of the effects engine is built from
1325 modules found in the excellent software synthesizer ZynAddSubFX.  Presets and
1326 user interface are optimized for guitar, but Rakarrack processes signals in
1327 stereo while it does not apply internal band-limiting filtering, and thus is
1328 well suited to all musical instruments and vocals.")
1329     ;; The code is explicitly licensed under the GPL version 2 only.
1330     (license license:gpl2)))
1331
1332 (define-public ir
1333   (package
1334     (name "ir")
1335     (version "1.3.2")
1336     (source (origin
1337              (method url-fetch)
1338              ;; The original home-page is gone. Download the tarball from an
1339              ;; archive mirror instead.
1340              (uri (list (string-append
1341                          "https://web.archive.org/web/20150803095032/"
1342                          "http://factorial.hu/system/files/ir.lv2-"
1343                          version ".tar.gz")
1344                         (string-append
1345                          "https://mirrors.kernel.org/gentoo/distfiles/ir.lv2-"
1346                          version ".tar.gz")))
1347              (sha256
1348               (base32
1349                "1jh2z01l9m4ar7yz0n911df07dygc7n4cl59p7qdjbh0nvkm747g"))))
1350     (build-system gnu-build-system)
1351     (arguments
1352      `(#:tests? #f                              ; no tests
1353        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1354        #:phases (modify-phases %standard-phases
1355                   (delete 'configure))))        ; no configure script
1356     (inputs
1357      `(("libsndfile" ,libsndfile)
1358        ("libsamplerate" ,libsamplerate)
1359        ("lv2" ,lv2)
1360        ("glib" ,glib)
1361        ("gtk+" ,gtk+-2)
1362        ("zita-convolver" ,zita-convolver)))
1363     (native-inputs
1364      `(("pkg-config" ,pkg-config)))
1365     (native-search-paths
1366      (list (search-path-specification
1367             (variable "LV2_PATH")
1368             (files '("lib/lv2")))))
1369     ;; Link to an archived copy of the home-page since the original is gone.
1370     (home-page (string-append "https://web.archive.org/web/20150803095032/"
1371                               "http://factorial.hu/plugins/lv2/ir"))
1372     (synopsis "LV2 convolution reverb")
1373     (description
1374      "IR is a low-latency, real-time, high performance signal convolver
1375 especially for creating reverb effects.  It supports impulse responses with 1,
1376 2 or 4 channels, in any soundfile format supported by libsndfile.")
1377     (license license:gpl2+)))
1378
1379 (define-public jack-1
1380   (package
1381     (name "jack")
1382     (version "0.125.0")
1383     (source (origin
1384              (method url-fetch)
1385              (uri (string-append
1386                    "http://jackaudio.org/downloads/jack-audio-connection-kit-"
1387                    version
1388                    ".tar.gz"))
1389              (sha256
1390               (base32
1391                "0i6l25dmfk2ji2lrakqq9icnwjxklgcjzzk65dmsff91z2zva5rm"))))
1392     (build-system gnu-build-system)
1393     (inputs
1394      `(("alsa-lib" ,alsa-lib)
1395        ("readline" ,readline)))
1396     ;; uuid.h is included in the JACK type headers
1397     ;; db.h is included in the libjack metadata headers
1398     (propagated-inputs
1399      `(("libuuid" ,util-linux)
1400        ("bdb" ,bdb)))
1401     (native-inputs
1402      `(("pkg-config" ,pkg-config)))
1403     (home-page "http://jackaudio.org/")
1404     (synopsis "JACK audio connection kit")
1405     (description
1406      "JACK is a low-latency audio server.  It can connect a number of
1407 different applications to an audio device, as well as allowing them to share
1408 audio between themselves.  JACK is different from other audio server efforts
1409 in that it has been designed from the ground up to be suitable for
1410 professional audio work.  This means that it focuses on two key areas:
1411 synchronous execution of all clients, and low latency operation.")
1412     ;; Most files are licensed under the GPL. However, the libjack/ tree is
1413     ;; licensed under the LGPL in order to allow for proprietary usage.
1414     (license (list license:gpl2+ license:lgpl2.1+))))
1415
1416 ;; Packages depending on JACK should always prefer jack-1.  Both jack-1 and
1417 ;; jack-2 implement the same API.  JACK2 is provided primarily as a client
1418 ;; program for users who might benefit from the D-BUS features.
1419 (define-public jack-2
1420   (package (inherit jack-1)
1421     (name "jack2")
1422     (version "1.9.12")
1423     (source (origin
1424              (method url-fetch)
1425              (uri (string-append "https://github.com/jackaudio/jack2/releases/"
1426                                  "download/v" version "/jack2-"
1427                                  version ".tar.gz"))
1428              (file-name (string-append name "-" version ".tar.gz"))
1429              (sha256
1430               (base32
1431                "0crf4y9a5j9miw8r5ji4l3w5w0y2frrf7xyfsfdgacnw6vwy5vyy"))))
1432     (build-system waf-build-system)
1433     (arguments
1434      `(#:python ,python-2
1435        #:tests? #f  ; no check target
1436        #:configure-flags '("--dbus"
1437                            "--alsa")
1438        #:phases
1439        (modify-phases %standard-phases
1440          (add-before
1441           'configure 'set-linkflags
1442           (lambda _
1443             ;; Add $libdir to the RUNPATH of all the binaries.
1444             (substitute* "wscript"
1445               ((".*CFLAGS.*-Wall.*" m)
1446                (string-append m
1447                               "    conf.env.append_unique('LINKFLAGS',"
1448                               "'-Wl,-rpath=" %output "/lib')\n")))))
1449          (add-after 'install 'wrap-python-scripts
1450           (lambda* (#:key inputs outputs #:allow-other-keys)
1451             ;; Make sure 'jack_control' runs with the correct PYTHONPATH.
1452             (let* ((out (assoc-ref outputs "out"))
1453                    (path (getenv "PYTHONPATH")))
1454               (wrap-program (string-append out "/bin/jack_control")
1455                 `("PYTHONPATH" ":" prefix (,path))))
1456             #t)))))
1457     (inputs
1458      `(("alsa-lib" ,alsa-lib)
1459        ("dbus" ,dbus)
1460        ("expat" ,expat)
1461        ("libsamplerate" ,libsamplerate)
1462        ("opus" ,opus)
1463        ("python2-dbus" ,python2-dbus)
1464        ("readline" ,readline)))
1465     (native-inputs
1466      `(("pkg-config" ,pkg-config)))
1467     ;; Most files are under GPLv2+, but some headers are under LGPLv2.1+
1468     (license (list license:gpl2+ license:lgpl2.1+))))
1469
1470 (define-public jalv
1471   (package
1472     (name "jalv")
1473     (version "1.6.0")
1474     (source (origin
1475               (method url-fetch)
1476               (uri (string-append "http://download.drobilla.net/jalv-"
1477                                   version ".tar.bz2"))
1478               (sha256
1479                (base32
1480                 "1x2wpzzx2cgvz3dgdcgsj8dr0w3zsasy62mvl199bsdj5fbjaili"))))
1481     (build-system waf-build-system)
1482     (arguments
1483      `(#:tests? #f ; no check target
1484        #:phases
1485        (modify-phases %standard-phases
1486          (add-before
1487           'configure 'set-flags
1488           (lambda _
1489             ;; Compile with C++11, required by gtkmm.
1490             (setenv "CXXFLAGS" "-std=c++11")
1491             #t)))))
1492     (inputs
1493      `(("lv2" ,lv2)
1494        ("lilv" ,lilv)
1495        ("suil" ,suil)
1496        ("gtk" ,gtk+)
1497        ("gtkmm" ,gtkmm)
1498        ("jack" ,jack-1)))
1499     (native-inputs
1500      `(("pkg-config" ,pkg-config)))
1501     (home-page "http://drobilla.net/software/jalv/")
1502     (synopsis "Simple LV2 host for JACK")
1503     (description
1504      "Jalv is a simple but fully featured LV2 host for JACK.  It runs LV2
1505 plugins and exposes their ports as JACK ports, essentially making any LV2
1506 plugin function as a JACK application.")
1507     (license license:isc)))
1508
1509 (define-public ladspa
1510   (package
1511     (name "ladspa")
1512     (version "1.13")
1513     (source
1514      (origin
1515        (method url-fetch)
1516        ;; Since the official link is dead,
1517        ;; we download the tarball from Debian or Internet Archive.
1518        (uri (list (string-append "http://http.debian.net"
1519                                  "/debian/pool/main/l/ladspa-sdk/ladspa-sdk_"
1520                                  version ".orig.tar.gz")
1521                   (string-append "https://web.archive.org/web/20140717172251/"
1522                                  "http://www.ladspa.org/download/ladspa_sdk_"
1523                                  version ".tgz")))
1524        (sha256
1525         (base32
1526          "0srh5n2l63354bc0srcrv58rzjkn4gv8qjqzg8dnq3rs4m7kzvdm"))))
1527     (build-system gnu-build-system)
1528     (arguments
1529      `(#:tests? #f  ; the "test" target is a listening test only
1530        #:phases
1531        (alist-replace
1532         'configure
1533         (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
1534           (chdir "src")
1535           (let ((out (assoc-ref outputs "out")))
1536             (substitute* "makefile"
1537               (("/usr/lib/ladspa/") (string-append out "/lib/ladspa/"))
1538               (("/usr/include/")    (string-append out "/include/"))
1539               (("/usr/bin/")        (string-append out "/bin/"))
1540               (("-mkdirhier")       "mkdir -p")
1541               (("^CC.*")            "CC = gcc\n")
1542               (("^CPP.*")           "CPP = g++\n"))))
1543         (alist-delete 'build %standard-phases))))
1544     ;; Since the home page is gone, we provide a link to the archived version.
1545     (home-page
1546      "https://web.archive.org/web/20140729190945/http://www.ladspa.org/")
1547     (synopsis "Linux Audio Developer's Simple Plugin API (LADSPA)")
1548     (description
1549      "LADSPA is a standard that allows software audio processors and effects
1550 to be plugged into a wide range of audio synthesis and recording packages.")
1551     (license license:lgpl2.1+)))
1552
1553 (define-public lash
1554   (package
1555     (name "lash")
1556     (version "0.6.0-rc2")
1557     (source (origin
1558               (method url-fetch)
1559               ;; The tilde is not permitted in the builder name, but is used
1560               ;; in the tarball.
1561               (uri (string-append
1562                     "mirror://savannah/lash/lash-"
1563                     (string-join (string-split version #\-) "~")
1564                     ".tar.bz2"))
1565               (file-name (string-append name "-" version ".tar.bz2"))
1566               (sha256
1567                (base32
1568                 "12z1vx3krrzsfccpah9xjs68900xvr7bw92wx8np5871i2yv47iw"))))
1569     (build-system gnu-build-system)
1570     (arguments
1571      '(#:phases
1572        (modify-phases %standard-phases
1573          ;; lashd embeds an ancient version of sigsegv so we just skip it
1574          (add-after 'unpack 'skip-lashd
1575            (lambda _
1576              (substitute* '("Makefile.am" "Makefile.in")
1577                (("lashd ") ""))
1578              #t)))
1579        #:configure-flags '("--disable-static")))
1580     (inputs
1581      `(("bdb" ,bdb)
1582        ("gtk" ,gtk+-2)
1583        ("jack" ,jack-1)
1584        ("readline" ,readline)
1585        ("python" ,python-2)))
1586     ;; According to pkg-config, packages depending on lash also need to have
1587     ;; at least the following packages declared as inputs.
1588     (propagated-inputs
1589      `(("alsa-lib" ,alsa-lib)
1590        ("dbus" ,dbus)
1591        ("libxml2" ,libxml2)))
1592     (native-inputs
1593      `(("pkg-config" ,pkg-config)))
1594     (home-page "http://www.nongnu.org/lash/")
1595     (synopsis "Audio application session manager")
1596     (description
1597      "LASH is a session management system for audio applications.  It allows
1598 you to save and restore audio sessions consisting of multiple interconneced
1599 applications, restoring program state (i.e. loaded patches) and the
1600 connections between them.")
1601     (license license:gpl2+)))
1602
1603 (define-public libbs2b
1604   (package
1605     (name "libbs2b")
1606     (version "3.1.0")
1607     (source (origin
1608               (method url-fetch)
1609               (uri (string-append "mirror://sourceforge/bs2b/libbs2b/" version
1610                                   "/libbs2b-" version ".tar.lzma"))
1611               (sha256
1612                (base32
1613                 "1mcc4gjkmphczjybnsrip3gq1f974knzys7x49bv197xk3fn8wdr"))))
1614     (build-system gnu-build-system)
1615     (native-inputs `(("pkg-config" ,pkg-config)))
1616     (inputs `(("libsndfile" ,libsndfile)))
1617     (home-page "https://sourceforge.net/projects/bs2b/")
1618     (synopsis "Bauer stereophonic-to-binaural DSP")
1619     (description
1620      "The Bauer stereophonic-to-binaural DSP (bs2b) library and plugins is
1621 designed to improve headphone listening of stereo audio records.  Recommended
1622 for headphone prolonged listening to disable superstereo fatigue without
1623 essential distortions.")
1624     (license license:expat)))
1625
1626 (define-public liblo
1627   (package
1628     (name "liblo")
1629     (version "0.28")
1630     (source (origin
1631              (method url-fetch)
1632              (uri (string-append "mirror://sourceforge/liblo/liblo/" version
1633                                  "/liblo-" version ".tar.gz"))
1634              (sha256
1635               (base32
1636                "02drgnpirvl2ihvzgsmn02agr5sj3vipzzw9vma56qlkgfvak56s"))))
1637     (build-system gnu-build-system)
1638     (arguments
1639      `(;; liblo test FAILED
1640        ;; liblo server error 19 in setsockopt(IP_ADD_MEMBERSHIP): No such device
1641        #:tests? #f))
1642     (home-page "http://liblo.sourceforge.net")
1643     (synopsis "Implementation of the Open Sound Control protocol")
1644     (description
1645      "liblo is a lightweight library that provides an easy to use
1646 implementation of the Open Sound Control (OSC) protocol.")
1647     (license license:lgpl2.1+)))
1648
1649 (define-public python-pyliblo
1650   (package
1651     (name "python-pyliblo")
1652     (version "0.10.0")
1653     (source (origin
1654              (method url-fetch)
1655              (uri (string-append "http://das.nasophon.de/download/pyliblo-"
1656                                  version ".tar.gz"))
1657              (sha256
1658               (base32
1659                "13vry6xhxm7adnbyj28w1kpwrh0kf7nw83cz1yq74wl21faz2rzw"))))
1660     (build-system python-build-system)
1661     (arguments `(#:tests? #f)) ;no tests
1662     (native-inputs
1663      `(("python-cython" ,python-cython)))
1664     (inputs
1665      `(("liblo" ,liblo)))
1666     (home-page "http://das.nasophon.de/pyliblo/")
1667     (synopsis "Python bindings for liblo")
1668     (description
1669      "Pyliblo is a Python wrapper for the liblo Open Sound Control (OSC)
1670 library.  It supports almost the complete functionality of liblo, allowing you
1671 to send and receive OSC messages using a nice and simple Python API.  Also
1672 included are the command line utilities @code{send_osc} and @code{dump_osc}.")
1673     (license license:lgpl2.1+)))
1674
1675 (define-public python2-pyliblo
1676   (package-with-python2 python-pyliblo))
1677
1678 (define-public lilv
1679   (package
1680     (name "lilv")
1681     (version "0.24.2")
1682     (source (origin
1683              (method url-fetch)
1684              (uri (string-append "http://download.drobilla.net/lilv-"
1685                                  version ".tar.bz2"))
1686              (sha256
1687               (base32
1688                "08m5a372pr1l7aii9s3pic5nm68gynx1n1bc7bnlswziq6qnbv7p"))))
1689     (build-system waf-build-system)
1690     (arguments
1691      `(#:tests? #f ; no check target
1692        #:phases
1693        (modify-phases %standard-phases
1694          (add-before
1695           'configure 'set-ldflags
1696           (lambda* (#:key outputs #:allow-other-keys)
1697             (setenv "LDFLAGS"
1698                     (string-append "-Wl,-rpath="
1699                                    (assoc-ref outputs "out") "/lib")))))))
1700     ;; required by lilv-0.pc
1701     (propagated-inputs
1702      `(("serd" ,serd)
1703        ("sord" ,sord)
1704        ("sratom" ,sratom)))
1705     (inputs
1706      `(("lv2" ,lv2)))
1707     (native-inputs
1708      `(("pkg-config" ,pkg-config)))
1709     (home-page "http://drobilla.net/software/lilv/")
1710     (synopsis "Library to simplify use of LV2 plugins in applications")
1711     (description
1712      "Lilv is a C library to make the use of LV2 plugins as simple as possible
1713 for applications.  Lilv is the successor to SLV2, rewritten to be
1714 significantly faster and have minimal dependencies.")
1715     (license license:isc)))
1716
1717 (define-public lv2
1718   (package
1719     (name "lv2")
1720     (version "1.14.0")
1721     (source (origin
1722              (method url-fetch)
1723              (uri (string-append "http://lv2plug.in/spec/lv2-"
1724                                  version ".tar.bz2"))
1725              (sha256
1726               (base32
1727                "0chxwys3vnn3nxc9x2vchm74s9sx0vfra6y893byy12ci61jc1dq"))))
1728     (build-system waf-build-system)
1729     (arguments
1730      `(#:tests? #f  ; no check target
1731        #:configure-flags '("--no-plugins")))
1732     (inputs
1733      ;; Leaving off cairo and gtk+-2.0 which are needed for example plugins
1734      `(("libsndfile" ,libsndfile)))
1735     (native-inputs
1736      `(("pkg-config" ,pkg-config)))
1737     (home-page "http://lv2plug.in/")
1738     (synopsis "LV2 audio plugin specification")
1739     (description
1740      "LV2 is an open specification for audio plugins and host applications.
1741 At its core, LV2 is a simple stable interface, accompanied by extensions which
1742 add functionality to support the needs of increasingly powerful audio
1743 software.")
1744     (license license:isc)))
1745
1746 (define-public lv2-devel
1747   (let ((commit "39c7c726cd52b2863fcea356cafe1bcab2ba7f37")
1748         (revision "1"))
1749     (package (inherit lv2)
1750       (name "lv2-devel")
1751       (version (string-append "1.15.3-" revision "." (string-take commit 7)))
1752       (source (origin
1753                 (method git-fetch)
1754                 (uri (git-reference
1755                       (url "http://lv2plug.in/git/lv2.git")
1756                       (commit commit)))
1757                 (sha256
1758                  (base32
1759                   "1gp2rd99dfmpibvpixrqn115mrhybzf3if3h8bssf6siyi13f29r")))))))
1760
1761 (define-public lv2-mda-piano
1762   (package
1763     (name "lv2-mda-piano")
1764     (version "0.0.2")
1765     (source (origin
1766               (method git-fetch)
1767               (uri (git-reference
1768                     (url "http://git.elephly.net/software/lv2-mdametapiano.git")
1769                     (commit version)))
1770               (sha256
1771                (base32
1772                 "07lywf6lpfpndg3i9w752mmlg2hgn1bwp23h8b0mdj6awh67abqd"))))
1773     (build-system gnu-build-system)
1774     (arguments
1775      `(#:make-flags (list
1776                      "TYPE=mdaPiano"
1777                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
1778        #:tests? #f ; no check target
1779        #:phases (modify-phases %standard-phases (delete 'configure))))
1780     (inputs
1781      `(("lv2" ,lv2)
1782        ("lvtk" ,lvtk)))
1783     (native-inputs
1784      `(("pkg-config" ,pkg-config)))
1785     (native-search-paths
1786      (list (search-path-specification
1787             (variable "LV2_PATH")
1788             (files '("lib/lv2")))))
1789     (home-page "http://elephly.net/lv2/mdapiano.html")
1790     (synopsis "LV2 port of the mda Piano plugin")
1791     (description "An LV2 port of the mda Piano VSTi.")
1792     (license license:gpl3+)))
1793
1794 (define-public lv2-mda-epiano
1795   (package (inherit lv2-mda-piano)
1796     (name "lv2-mda-epiano")
1797     (arguments
1798      `(#:make-flags (list
1799                      "TYPE=mdaEPiano"
1800                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
1801        #:tests? #f ; no check target
1802        #:phases (modify-phases %standard-phases (delete 'configure))))
1803     (home-page "http://elephly.net/lv2/mdaepiano.html")
1804     (synopsis "LV2 port of the mda EPiano plugin")
1805     (description "An LV2 port of the mda EPiano VSTi.")))
1806
1807 (define-public lvtk
1808   (package
1809     (name "lvtk")
1810     (version "1.2.0")
1811     (source (origin
1812              (method url-fetch)
1813              (uri (string-append "https://github.com/lvtk/lvtk/archive/"
1814                                  version
1815                                  ".tar.gz"))
1816              (file-name (string-append name "-" version ".tar.gz"))
1817              (sha256
1818               (base32
1819                "03nbj2cqcklqwh50zj2gwm07crh5iwqbpxbpzwbg5hvgl4k4rnjd"))))
1820     (build-system waf-build-system)
1821     (arguments
1822      `(#:tests? #f  ; no check target
1823        #:python ,python-2
1824        #:configure-flags
1825        (list (string-append "--boost-includes="
1826                             (assoc-ref %build-inputs "boost")
1827                             "/include"))
1828        #:phases (modify-phases %standard-phases
1829                   (add-before
1830                    'configure 'set-flags
1831                    (lambda* (#:key inputs #:allow-other-keys)
1832                      ;; See e.g. https://github.com/lvtk/lvtk/issues/21
1833                      (setenv "LDFLAGS"
1834                              (string-append
1835                               "-L" (assoc-ref inputs "boost") "/lib "
1836                               "-lboost_system"))
1837                      ;; Needed for gtkmm
1838                      (substitute* '("src/wscript_build"
1839                                     "examples/wscript_build")
1840                        (("cxxflags.*= \\[" line)
1841                         (string-append line "\"-std=c++11\", ")))
1842                      #t)))))
1843     (inputs
1844      `(("boost" ,boost)
1845        ("gtkmm" ,gtkmm-2)
1846        ("lv2" ,lv2)))
1847     (native-inputs
1848      `(("pkg-config" ,pkg-config)))
1849     (home-page "https://github.com/lvtk/lvtk")
1850     (synopsis "C++ libraries for LV2 plugins")
1851     (description
1852      "The LV2 Toolkit (LVTK) contains libraries that wrap the LV2 C API and
1853 extensions into easy to use C++ classes.  It is the successor of
1854 lv2-c++-tools.")
1855     (license license:gpl3+)))
1856
1857 (define-public openal
1858   (package
1859     (name "openal")
1860     (version "1.17.2")
1861     (source (origin
1862               (method url-fetch)
1863               (uri (string-append
1864                     "http://kcat.strangesoft.net/openal-releases/openal-soft-"
1865                     version ".tar.bz2"))
1866               (sha256
1867                (base32
1868                 "051k5fy8pk4fd9ha3qaqcv08xwbks09xl5qs4ijqq2qz5xaghhd3"))))
1869     (build-system cmake-build-system)
1870     (arguments
1871      `(#:tests? #f  ; no check target
1872        #:phases
1873        (modify-phases %standard-phases
1874          (add-after
1875           'unpack 'use-full-library-paths
1876           (lambda* (#:key inputs #:allow-other-keys)
1877             (substitute* "Alc/backends/pulseaudio.c"
1878               (("#define PALIB \"libpulse\\.so\\.0\"")
1879                (string-append "#define PALIB \""
1880                               (assoc-ref inputs "pulseaudio")
1881                               "/lib/libpulse.so.0"
1882                               "\"")))
1883             (substitute* "Alc/backends/alsa.c"
1884               (("LoadLib\\(\"libasound\\.so\\.2\"\\)")
1885                (string-append "LoadLib(\""
1886                               (assoc-ref inputs "alsa-lib")
1887                               "/lib/libasound.so.2"
1888                               "\")")))
1889             #t)))))
1890     (inputs
1891      `(("alsa-lib" ,alsa-lib)
1892        ("pulseaudio" ,pulseaudio)))
1893     (synopsis "3D audio API")
1894     (description
1895      "OpenAL provides capabilities for playing audio in a virtual 3D
1896 environment.  Distance attenuation, doppler shift, and directional sound
1897 emitters are among the features handled by the API.  More advanced effects,
1898 including air absorption, occlusion, and environmental reverb, are available
1899 through the EFX extension.  It also facilitates streaming audio, multi-channel
1900 buffers, and audio capture.")
1901     (home-page "http://kcat.strangesoft.net/openal.html")
1902     (license license:lgpl2.0+)))
1903
1904 (define-public freealut
1905   (package
1906     (name "freealut")
1907     (version "1.1.0")
1908     (source (origin
1909               (method url-fetch)
1910               ;; Upstream url is unclear, many systems use Fedora, there is also
1911               ;; https://github.com/vancegroup/freealut though the status of it
1912               ;; (official? unofficial?) is not clear.
1913               (uri (string-append
1914                     "https://pkgs.fedoraproject.org/repo/pkgs/" name "/" name "-"
1915                     version ".tar.gz" "/e089b28a0267faabdb6c079ee173664a/" name
1916                     "-" version ".tar.gz"))
1917               (sha256
1918                (base32
1919                 "0kzlil6112x2429nw6mycmif8y6bxr2cwjcvp18vh6s7g63ymlb0"))))
1920     (build-system cmake-build-system)
1921     (arguments
1922      `(#:tests? #f))  ; no check target
1923     (inputs
1924      `(("openal" ,openal)))
1925     (synopsis "Free implementation of OpenAL's ALUT standard")
1926     (description "freealut is the OpenAL Utility Toolkit.")
1927     (home-page "http://kcat.strangesoft.net/openal.html")
1928     (license license:lgpl2.0)))
1929
1930 (define-public patchage
1931   (package
1932     (name "patchage")
1933     (version "1.0.0")
1934     (source (origin
1935               (method url-fetch)
1936               (uri (string-append "http://download.drobilla.net/patchage-"
1937                                   version
1938                                   ".tar.bz2"))
1939               (sha256
1940                (base32
1941                 "1agdpwwi42176l4mxj0c4fsvdiv1ig56bfnnx0msckxmy57df8bb"))))
1942     (build-system waf-build-system)
1943     (arguments `(#:tests? #f)) ; no check target
1944     (inputs
1945      `(("alsa-lib" ,alsa-lib)
1946        ("boost" ,boost)
1947        ("jack" ,jack-1)
1948        ("ganv" ,ganv)
1949        ("glibmm" ,glibmm)
1950        ("gtkmm" ,gtkmm-2)
1951        ("dbus-glib" ,dbus-glib)))
1952     (native-inputs
1953      `(("pkg-config" ,pkg-config)))
1954     (home-page "http://drobilla.net/software/patchage/")
1955     (synopsis "Modular patch bay for audio and MIDI systems")
1956     (description
1957      "Patchage is a modular patch bay for audio and MIDI systems based on JACK
1958 and ALSA.")
1959     (license license:gpl3+)))
1960
1961 (define-public qjackctl
1962   (package
1963     (name "qjackctl")
1964     (version "0.5.0")
1965     (source (origin
1966               (method url-fetch)
1967               (uri (string-append "mirror://sourceforge/qjackctl/qjackctl/"
1968                                   version "/qjackctl-" version ".tar.gz"))
1969               (sha256
1970                (base32
1971                 "0lx81dfwanc10vrny1vzi0wx73ph82dlz99ffjzsigj3cqzz6x4s"))))
1972     (build-system gnu-build-system)
1973     (arguments
1974      '(#:tests? #f)) ; no check target
1975     (inputs
1976      `(("jack" ,jack-1)
1977        ("alsa-lib" ,alsa-lib)
1978        ("qtbase" ,qtbase)
1979        ("qtx11extras" ,qtx11extras)))
1980     (native-inputs
1981      `(("pkg-config" ,pkg-config)
1982        ("qttools" ,qttools)))
1983     (home-page "https://qjackctl.sourceforge.io/")
1984     (synopsis "Jack server control application")
1985     (description "Control a Jack server.  Allows you to plug various sources
1986 into various outputs and to start, stop and configure jackd")
1987     (license license:gpl2+)))
1988
1989 (define-public qjackrcd
1990   (package
1991     (name "qjackrcd")
1992     (version "1.2.2")
1993     (source (origin
1994               (method git-fetch)
1995               (uri (git-reference
1996                     (url "https://github.com/orouits/qjackrcd.git")
1997                     (commit (string-append "v" version))))
1998               (sha256
1999                (base32
2000                 "1l5iq2mkqd4gn9yr8xbh9qlpp1clcflazychl4vhdbz0bzq4c6al"))))
2001     (build-system gnu-build-system)
2002     (arguments
2003      `(#:phases
2004        (modify-phases %standard-phases
2005          (replace 'configure
2006            (lambda* (#:key outputs #:allow-other-keys)
2007              (zero? (system* "qmake"
2008                              (string-append "PREFIX="
2009                                             (assoc-ref outputs "out")))))))))
2010     (native-inputs
2011      `(("qtbase" ,qtbase))) ; for qmake
2012     (inputs
2013      `(("jack" ,jack-1)
2014        ("libsndfile" ,libsndfile)
2015        ("qtbase" ,qtbase)))
2016     (home-page "https://sourceforge.net/projects/qjackrcd/")
2017     (synopsis "Stereo audio recorder for JACK")
2018     (description "QJackRcd is a simple graphical stereo recorder for JACK
2019 supporting silence processing for automatic pause, file splitting, and
2020 background file post-processing.")
2021     (license license:gpl2+)))
2022
2023 (define-public raul
2024   (package
2025     (name "raul")
2026     (version "0.8.0")
2027     (source (origin
2028               (method url-fetch)
2029               (uri (string-append "http://download.drobilla.net/raul-"
2030                                   version ".tar.bz2"))
2031               (sha256
2032                (base32
2033                 "09ms40xc1x6qli6lxkwn5ibqh62nl9w7dq0b6jh1q2zvnrxwsd8b"))))
2034     (build-system waf-build-system)
2035     (arguments
2036      `(#:python ,python-2
2037        #:tests? #f)) ; no check target
2038     (inputs
2039      `(("glib" ,glib)
2040        ("boost" ,boost)))
2041     (native-inputs
2042      `(("pkg-config" ,pkg-config)))
2043     (home-page "http://drobilla.net/software/raul/")
2044     (synopsis "Real-time audio utility library")
2045     (description
2046      "Raul (Real-time Audio Utility Library) is a C++ utility library primarily
2047 aimed at audio/musical applications.")
2048     (license license:gpl2+)))
2049
2050 (define-public raul-devel
2051   (let ((commit "4db870b2b20b0a608ec0283139056b836c5b1624")
2052         (revision "1"))
2053     (package (inherit raul)
2054       (name "raul")
2055       (version (string-append "0.8.9-" revision "."
2056                               (string-take commit 9)))
2057       (source (origin
2058                 (method git-fetch)
2059                 (uri (git-reference
2060                       (url "http://git.drobilla.net/raul.git")
2061                       (commit commit)))
2062                 (file-name (string-append name "-" version "-checkout"))
2063                 (sha256
2064                  (base32
2065                   "04fajrass3ymr72flx5js5vxc601ccrmx8ny8scp0rw7j0igyjdr")))))))
2066
2067 (define-public rubberband
2068   (package
2069     (name "rubberband")
2070     (version "1.8.1")
2071     (source (origin
2072               (method url-fetch)
2073               (uri
2074                (string-append "https://bitbucket.org/breakfastquay/rubberband/get/v"
2075                               version
2076                               ".tar.bz2"))
2077               (sha256
2078                (base32
2079                 "05amrbrxx0da3w7m237q51799r8xgs4ffqabi2qv06hq8dpcj386"))))
2080     (build-system gnu-build-system)
2081     (arguments `(#:tests? #f)) ; no check target
2082     (inputs
2083      `(("ladspa" ,ladspa)
2084        ("libsamplerate" ,libsamplerate)
2085        ("vamp" ,vamp)))
2086     (native-inputs
2087      `(("pkg-config" ,pkg-config)))
2088     (home-page "http://breakfastquay.com/rubberband/")
2089     (synopsis "Audio time-stretching and pitch-shifting library")
2090     (description
2091      "Rubber Band is a library and utility program that permits changing the
2092 tempo and pitch of an audio recording independently of one another.")
2093     (license license:gpl2+)))
2094
2095 (define-public rtmidi
2096   (package
2097     (name "rtmidi")
2098     (version "2.1.0")
2099     (source (origin
2100               (method url-fetch)
2101               (uri
2102                (string-append "https://github.com/powertab/rtmidi/archive/"
2103                               version ".tar.gz"))
2104               (file-name (string-append name "-" version ".tar.gz"))
2105               (sha256
2106                (base32
2107                 "0d49lapnmdgmjxh4vw57h6xk74nn5r0zwysv7jbd7m8kqhpq5rjj"))))
2108     (build-system gnu-build-system)
2109     (arguments
2110      `(#:tests? #f ;no "check" target
2111        #:phases (modify-phases %standard-phases
2112                   (add-after
2113                    'unpack 'autoconf
2114                    (lambda _ (zero? (system* "autoreconf" "-vfi"))))
2115                   (add-before
2116                    'build 'fix-makefile
2117                    (lambda _
2118                      (substitute* "Makefile"
2119                        (("/bin/ln") "ln")
2120                        (("RtMidi.h RtError.h") "RtMidi.h"))
2121                      #t))
2122                   (add-before
2123                    'install 'make-target-dirs
2124                    (lambda _
2125                      (let ((out (assoc-ref %outputs "out")))
2126                        (mkdir-p (string-append out "/bin"))
2127                        (mkdir (string-append out "/lib"))
2128                        (mkdir (string-append out "/include")))
2129                      #t)))))
2130     (inputs
2131      `(("jack" ,jack-1)
2132        ("alsa-lib" ,alsa-lib)))
2133     (native-inputs
2134      `(("autoconf" ,autoconf)
2135        ("automake" ,automake)
2136        ("libtool" ,libtool)
2137        ("pkg-config" ,pkg-config)))
2138     (home-page "https://github.com/powertab/rtmidi")
2139     (synopsis "Cross-platform MIDI library for C++")
2140     (description
2141      "RtMidi is a set of C++ classes (RtMidiIn, RtMidiOut, and API specific
2142 classes) that provide a common cross-platform API for realtime MIDI
2143 input/output.")
2144     (license license:expat)))
2145
2146 (define-public sratom
2147   (package
2148     (name "sratom")
2149     (version "0.6.0")
2150     (source (origin
2151              (method url-fetch)
2152              (uri (string-append "http://download.drobilla.net/sratom-"
2153                                  version ".tar.bz2"))
2154              (sha256
2155               (base32
2156                "0hrxd9i66s06bpn6i3s9ka95134g3sm8yscmif7qgdzhyjqw42j4"))))
2157     (build-system waf-build-system)
2158     (arguments `(#:tests? #f)) ; no check target
2159     (inputs
2160      `(("lv2" ,lv2)
2161        ("serd" ,serd)
2162        ("sord" ,sord)))
2163     (native-inputs
2164      `(("pkg-config" ,pkg-config)))
2165     (home-page "http://drobilla.net/software/sratom/")
2166     (synopsis "Library for serialising LV2 atoms to/from RDF")
2167     (description
2168      "Sratom is a library for serialising LV2 atoms to/from RDF, particularly
2169 the Turtle syntax.")
2170     (license license:isc)))
2171
2172 (define-public suil
2173   (package
2174     (name "suil")
2175     (version "0.10.0")
2176     (source (origin
2177              (method url-fetch)
2178              (uri (string-append "http://download.drobilla.net/suil-"
2179                                  version ".tar.bz2"))
2180              (sha256
2181               (base32
2182                "0j489gm3fhnmwmbgw30bvd4byw1vsy4yazdlnji8jzhcz0qwb5cq"))))
2183     (build-system waf-build-system)
2184     (arguments
2185      `(#:tests? #f ; no check target
2186        #:configure-flags
2187        '("CXXFLAGS=-std=gnu++11")))
2188     (inputs
2189      `(("lv2" ,lv2)
2190        ("gtk+" ,gtk+-2)
2191        ("gtk+" ,gtk+)
2192        ("qt" ,qtbase)))
2193     (native-inputs
2194      `(("pkg-config" ,pkg-config)))
2195     (home-page "http://drobilla.net/software/suil/")
2196     (synopsis "Library for loading and wrapping LV2 plugin UIs")
2197     (description
2198      "Suil is a lightweight C library for loading and wrapping LV2 plugin UIs.
2199
2200 Suil makes it possible to load a UI of a toolkit in a host using another
2201 toolkit.  The API is designed such that hosts do not need to explicitly
2202 support specific toolkits – if Suil supports a particular toolkit, then UIs in
2203 that toolkit will work in all hosts that use Suil automatically.
2204
2205 Suil currently supports every combination of Gtk, Qt, and X11.")
2206     (license license:isc)))
2207
2208 (define-public timidity++
2209   (package
2210     (name "timidity++")
2211     (version "2.14.0")
2212     (source (origin
2213               (method url-fetch)
2214               (uri (string-append "mirror://sourceforge/timidity/TiMidity++"
2215                                   "/TiMidity++-" version
2216                                   "/TiMidity++-" version ".tar.bz2"))
2217               (sha256
2218                (base32
2219                 "0xk41w4qbk23z1fvqdyfblbz10mmxsllw0svxzjw5sa9y11vczzr"))))
2220     (build-system gnu-build-system)
2221     (arguments
2222      '(#:configure-flags
2223        (list "--enable-audio=alsa,flac,jack,ao,vorbis,speex"
2224              "--enable-ncurses"
2225              "--enable-server"
2226              "--enable-alsaseq"
2227              (string-append "--with-default-path="
2228                             (assoc-ref %outputs "out") "/etc/timidity"))
2229        #:phases
2230        (modify-phases %standard-phases
2231          (add-after 'install 'install-config
2232            (lambda _
2233              (let ((out (string-append (assoc-ref %outputs "out")
2234                                        "/etc/timidity")))
2235                (mkdir-p out)
2236                (call-with-output-file
2237                    (string-append out "/timidity.cfg")
2238                  (lambda (port)
2239                    (format port (string-append "source "
2240                                                (assoc-ref %build-inputs "freepats")
2241                                                "/share/freepats/freepats.cfg")))))
2242              #t)))))
2243     (inputs
2244      `(("alsa-lib" ,alsa-lib)
2245        ("ao" ,ao)
2246        ("flac" ,flac)
2247        ("jack" ,jack-1)
2248        ("libogg" ,libogg)
2249        ("speex" ,speex)
2250        ("ncurses" ,ncurses)
2251        ("freepats" ,freepats)))
2252     (native-inputs
2253      `(("pkg-config" ,pkg-config)))
2254     (home-page "http://timidity.sourceforge.net/")
2255     (synopsis "Software synthesizer for playing MIDI files")
2256     (description
2257      "TiMidity++ is a software synthesizer.  It can play MIDI files by
2258 converting them into PCM waveform data; give it a MIDI data along with digital
2259 instrument data files, then it synthesizes them in real-time, and plays.  It
2260 can not only play sounds, but also can save the generated waveforms into hard
2261 disks as various audio file formats.")
2262     (license license:gpl2+)))
2263
2264 (define-public vamp
2265   (package
2266     (name "vamp")
2267     (version "2.6")
2268     (source (origin
2269               (method url-fetch)
2270               (uri (string-append
2271                     "https://code.soundsoftware.ac.uk"
2272                     "/attachments/download/1520/vamp-plugin-sdk-"
2273                     version ".tar.gz"))
2274               (sha256
2275                (base32
2276                 "0pzq0yy2kdl3jgfc2aqmh5m55nk1ild0hq8mydiiw35c6y0mglyh"))))
2277     (build-system gnu-build-system)
2278     (arguments
2279      `(#:tests? #f                      ; no check target
2280        #:phases
2281        (modify-phases %standard-phases
2282          (add-after 'install 'remove-libvamp-hostsdk.la
2283            (lambda* (#:key outputs #:allow-other-keys)
2284              ;; https://bugs.launchpad.net/ubuntu/+source/vamp-plugin-sdk/+bug/1253656
2285              (for-each delete-file
2286                        (let ((out (assoc-ref outputs "out")))
2287                          (list (string-append out "/lib/libvamp-sdk.la")
2288                                (string-append out "/lib/libvamp-hostsdk.la"))))
2289              #t)))))
2290     (inputs
2291      `(("libsndfile" ,libsndfile)))
2292     (native-inputs
2293      `(("pkg-config" ,pkg-config)))
2294     (home-page "http://vamp-plugins.org")
2295     (synopsis "Modular and extensible audio processing system")
2296     (description
2297      "Vamp is an audio processing plugin system for plugins that extract
2298 descriptive information from audio data — typically referred to as audio
2299 analysis plugins or audio feature extraction plugins.")
2300     (license
2301      (license:x11-style
2302       "https://code.soundsoftware.ac.uk/projects/vamp-plugin-sdk/repository/entry/COPYING"))))
2303
2304 (define-public libsbsms
2305   (package
2306     (name "libsbsms")
2307     (version "2.0.2")
2308     (source
2309      (origin
2310        (method url-fetch)
2311        (uri (string-append "mirror://sourceforge/sbsms/sbsms/" version
2312                            "/libsbsms-" version ".tar.gz"))
2313        (sha256
2314         (base32 "1vmf84iy4dkwxv887grnlsfk43fmhd9gbg26gc2kgcv40sbkvayf"))))
2315     (build-system gnu-build-system)
2316     (native-inputs `(("automake" ,automake)))
2317     (arguments
2318      `(#:configure-flags
2319        ;; Disable the use of SSE unless on x86_64.
2320        ,(if (not (string-prefix? "x86_64" (or (%current-target-system)
2321                                               (%current-system))))
2322             ''("--disable-sse")
2323             ''())
2324        #:phases
2325        (modify-phases %standard-phases
2326          (add-after
2327           'unpack 'fix-ar-lib-path
2328           (lambda* (#:key inputs #:allow-other-keys)
2329             ;; Originally a symlink to '/usr/local/share/automake-1.12/ar-lib'.
2330             (delete-file "ar-lib")
2331             (symlink
2332              (string-append (assoc-ref inputs "automake") "/share/automake-"
2333                             ,(package-version automake) "/ar-lib")
2334              "ar-lib"))))))
2335     (home-page "http://sbsms.sourceforge.net/")
2336     (synopsis "Library for time stretching and pitch scaling of audio")
2337     (description
2338      "SBSMS (Subband Sinusoidal Modeling Synthesis) is software for time
2339 stretching and pitch scaling of audio.  This package contains the library.")
2340     ;; There is no explicit declaration of a license, but a COPYING file
2341     ;; containing gpl2.
2342     (license license:gpl2)))
2343
2344 (define-public wavpack
2345   (package
2346     (name "wavpack")
2347     (version "5.1.0")
2348     (source (origin
2349               (method url-fetch)
2350               (uri (string-append "http://www.wavpack.com/"
2351                                   name "-" version ".tar.bz2"))
2352               (sha256
2353                (base32
2354                 "0i19c6krc0p9krwrqy9s5xahaafigqzxcn31piidmlaqadyn4f8r"))))
2355     (build-system gnu-build-system)
2356     (home-page "http://www.wavpack.com/")
2357     (synopsis "Hybrid lossless audio codec")
2358     (description
2359      "WavPack is an audio compression format with lossless, lossy and hybrid
2360 compression modes.  This package contains command-line programs and library to
2361 encode and decode wavpack files.")
2362     (license license:bsd-3)))
2363
2364 (define-public libmodplug
2365   (package
2366     (name "libmodplug")
2367     (version "0.8.8.5")
2368     (source (origin
2369               (method url-fetch)
2370               (uri (string-append
2371                     "mirror://sourceforge/modplug-xmms/"
2372                     name "/" version "/" name "-" version ".tar.gz"))
2373               (sha256
2374                (base32
2375                 "1bfsladg7h6vnii47dd66f5vh1ir7qv12mfb8n36qiwrxq92sikp"))))
2376     (build-system gnu-build-system)
2377     (home-page "http://modplug-xmms.sourceforge.net/")
2378     (synopsis "Mod file playing library")
2379     (description
2380      "Libmodplug renders mod music files as raw audio data, for playing or
2381 conversion.  mod, .s3m, .it, .xm, and a number of lesser-known formats are
2382 supported.  Optional features include high-quality resampling, bass expansion,
2383 surround and reverb.")
2384     (license license:public-domain)))
2385
2386 (define-public libxmp
2387   (package
2388     (name "libxmp")
2389     (version "4.4.1")
2390     (source (origin
2391               (method url-fetch)
2392               (uri (string-append "mirror://sourceforge/xmp/libxmp/" version "/"
2393                                   name "-" version ".tar.gz"))
2394               (sha256
2395                (base32
2396                 "1kycz4jsyvmf7ny9227b497wc7y5ligydi6fvvldmkf8hk63ad9m"))))
2397     (build-system gnu-build-system)
2398     (home-page "http://xmp.sourceforge.net/")
2399     (synopsis "Module player library")
2400     (description
2401      "Libxmp is a library that renders module files to PCM data.  It supports
2402 over 90 mainstream and obscure module formats including Protracker (MOD),
2403 Scream Tracker 3 (S3M), Fast Tracker II (XM), and Impulse Tracker (IT).")
2404     (license license:lgpl2.1+)))
2405
2406 (define-public xmp
2407   (package
2408     (name "xmp")
2409     (version "4.1.0")
2410     (source (origin
2411               (method url-fetch)
2412               (uri (string-append "mirror://sourceforge/xmp/xmp/" version "/"
2413                                   name "-" version ".tar.gz"))
2414               (sha256
2415                (base32
2416                 "17i8fc7x7yn3z1x963xp9iv108gxfakxmdgmpv3mlm438w3n3g8x"))))
2417     (build-system gnu-build-system)
2418     (native-inputs
2419      `(("pkg-config" ,pkg-config)))
2420     (inputs
2421      `(("libxmp" ,libxmp)
2422        ("pulseaudio" ,pulseaudio)))
2423     (home-page "http://xmp.sourceforge.net/")
2424     (synopsis "Extended module player")
2425     (description
2426      "Xmp is a portable module player that plays over 90 mainstream and
2427 obscure module formats, including Protracker MOD, Fasttracker II XM, Scream
2428 Tracker 3 S3M and Impulse Tracker IT files.")
2429     (license license:gpl2+)))
2430
2431 (define-public soundtouch
2432   (package
2433     (name "soundtouch")
2434     (version "1.8.0")
2435     (source
2436      (origin
2437        (method url-fetch)
2438        (uri
2439         (string-append
2440          "http://www.surina.net/soundtouch/soundtouch-" version ".tar.gz"))
2441        (sha256
2442         (base32 "0sqn3wk4qz20vf0vz853l6dl1gnj1yhqxfwxqsc5lp529kbn2h9x"))))
2443     (build-system gnu-build-system)
2444     (native-inputs
2445      `(("autoconf" ,autoconf)
2446        ("automake" ,automake)
2447        ("libtool" ,libtool)
2448        ("file" ,file)))
2449     (arguments
2450      '(#:phases
2451        (modify-phases %standard-phases
2452          (add-after 'unpack 'bootstrap
2453            (lambda _
2454              (zero? (system* "sh" "bootstrap")))))))
2455     (home-page "http://www.surina.net/soundtouch/")
2456     (synopsis
2457      "Audio processing library for changing tempo, pitch and playback rate")
2458     (description
2459      "SoundTouch is an audio processing library for changing the tempo, pitch
2460 and playback rates of audio streams or audio files.  It is intended for
2461 application developers writing sound processing tools that require tempo/pitch
2462 control functionality, or just for playing around with the sound effects.")
2463     (license license:lgpl2.1+)))
2464
2465 (define-public sox
2466   (package
2467     (name "sox")
2468     (version "14.4.2")
2469     (source (origin
2470               (method url-fetch)
2471               (uri (string-append "mirror://sourceforge/sox/sox/" version "/"
2472                                   name "-" version ".tar.bz2"))
2473               (sha256
2474                (base32
2475                 "170lx90r1nlnb2j6lg00524iwvqy72p48vii4xc5prrh8dnrb9l1"))))
2476     (build-system gnu-build-system)
2477     (arguments
2478      '(#:configure-flags
2479        ;; The upstream asks to identify the distribution to diagnose SoX
2480        ;; bug reports.
2481        '("--with-distro=Guix System Distribution")))
2482     (native-inputs
2483      `(("pkg-config" ,pkg-config)))
2484     (inputs
2485      `(("alsa-lib" ,alsa-lib)
2486        ("ao" ,ao)
2487        ("flac" ,flac)
2488        ("lame" ,lame)
2489        ("libid3tag" ,libid3tag)
2490        ("libltdl" ,libltdl)
2491        ("libmad" ,libmad)
2492        ("libpng" ,libpng)
2493        ("libvorbis" ,libvorbis)
2494        ("pulseaudio" ,pulseaudio)))
2495     (home-page "http://sox.sourceforge.net")
2496     (synopsis "Sound processing utility")
2497     (description
2498      "SoX (Sound eXchange) is a command line utility that can convert
2499 various formats of computer audio files to other formats.  It can also
2500 apply various effects to these sound files, and, as an added bonus, SoX
2501 can play and record audio files.")
2502     ;; sox.c is distributed under GPL, while the files that make up
2503     ;; libsox are licensed under LGPL.
2504     (license (list license:gpl2+ license:lgpl2.1+))))
2505
2506 (define-public soxr
2507   (package
2508     (name "soxr")
2509     (version "0.1.2")
2510     (source
2511      (origin
2512        (method url-fetch)
2513        (uri
2514         (string-append "mirror://sourceforge/soxr/soxr-" version
2515                        "-Source.tar.xz"))
2516        (sha256
2517         (base32 "0xf2w3piwz9gfr1xqyrj4k685q5dy53kq3igv663i4f4y4sg9rjl"))))
2518     (build-system cmake-build-system)
2519     (arguments '(#:tests? #f))          ;no 'check' target
2520     (home-page "https://sourceforge.net/p/soxr/wiki/Home/")
2521     (synopsis "One-dimensional sample-rate conversion library")
2522     (description
2523      "The SoX Resampler library (libsoxr) performs one-dimensional sample-rate
2524 conversion.  It may be used, for example, to resample PCM-encoded audio.")
2525     (license license:lgpl2.1+)))
2526
2527 (define-public twolame
2528   (package
2529     (name "twolame")
2530     (version "0.3.13")
2531     (source
2532      (origin
2533        (method url-fetch)
2534        (uri (string-append "mirror://sourceforge/twolame/twolame/" version
2535                            "/twolame-" version ".tar.gz"))
2536        (sha256
2537         (base32 "0ahiqqng5pidwhj1wzph4vxxgxxgcfa3gl0gywipzx2ii7s35wwq"))
2538        (modules '((guix build utils)))
2539        ;; The tests break with Perl 5.24:
2540        ;; https://github.com/njh/twolame/issues/21
2541        ;; TODO: Remove this snippet when upgrading twolame.
2542        (snippet
2543         '(begin
2544            (substitute* "tests/test.pl" (("\\(@_\\)") "($_[0])"))
2545            #t))))
2546     (build-system gnu-build-system)
2547     (inputs
2548      `(("libsndfile" ,libsndfile)))
2549     (native-inputs
2550      `(("perl" ,perl)
2551        ("which" ,which)))               ;used in tests/test.pl
2552     (home-page "http://www.twolame.org/")
2553     (synopsis "MPEG Audio Layer 2 (MP2) encoder")
2554     (description
2555      "TwoLAME is an optimised MPEG Audio Layer 2 (MP2) encoder based on
2556 tooLAME by Mike Cheng, which in turn is based upon the ISO dist10 code and
2557 portions of LAME.")
2558     (license license:lgpl2.1+)))
2559
2560 (define-public portaudio
2561   (package
2562     (name "portaudio")
2563     (version "190600.20161030")
2564     (source
2565      (origin
2566        (method url-fetch)
2567        (uri (string-append
2568              "http://www.portaudio.com/archives/pa_stable_v"
2569              (string-map (lambda (c) (if (char=? c #\.) #\_ c)) version)
2570              ".tgz"))
2571        (sha256
2572         (base32 "04qmin6nj144b8qb9kkd9a52xfvm0qdgm8bg8jbl7s3frmyiv8pm"))
2573        (patches (search-patches "portaudio-audacity-compat.patch"))))
2574     (build-system gnu-build-system)
2575     (inputs
2576      ;; TODO: Add ASIHPI.
2577      `(("alsa-lib" ,alsa-lib)
2578        ("jack" ,jack-1)))
2579     (native-inputs
2580      `(("autoconf" ,autoconf)
2581        ("automake" ,automake)
2582        ("libtool" ,libtool)
2583        ("pkg-config" ,pkg-config)))
2584     (arguments
2585      '(#:phases
2586        ;; Autoreconf is necessary because the audacity-compat patch modifies
2587        ;; .in files.
2588        (modify-phases %standard-phases
2589          (add-after 'unpack 'autoreconf
2590            (lambda _
2591              (zero? (system* "autoreconf" "-vif")))))
2592        #:tests? #f))                    ;no 'check' target
2593     (home-page "http://www.portaudio.com/")
2594     (synopsis "Audio I/O library")
2595     (description
2596      "PortAudio is a portable C/C++ audio I/O library providing a simple API
2597 to record and/or play sound using a callback function or a blocking read/write
2598 interface.")
2599     (license license:expat)))
2600
2601 (define-public qsynth
2602   (package
2603     (name "qsynth")
2604     (version "0.5.0")
2605     (source
2606      (origin
2607        (method url-fetch)
2608        (uri (string-append "mirror://sourceforge/qsynth/qsynth/" version
2609                            "/qsynth-" version ".tar.gz"))
2610        (sha256
2611         (base32
2612          "1sr6vrz8z9r99j9xcix86lgcqldragb2ajmq1bnhr58d99sda584"))))
2613     (build-system gnu-build-system)
2614     (arguments
2615      `(#:tests? #f ; no "check" phase
2616        #:configure-flags
2617        '("CXXFLAGS=-std=gnu++11")))
2618     (native-inputs
2619      `(("qttools" ,qttools)
2620        ("pkg-config" ,pkg-config)))
2621     (inputs
2622      `(("fluidsynth" ,fluidsynth)
2623        ("qtbase" ,qtbase)
2624        ("qtx11extras" ,qtx11extras)))
2625     (home-page "http://qsynth.sourceforge.net")
2626     (synopsis "Graphical user interface for FluidSynth")
2627     (description
2628      "Qsynth is a GUI front-end application for the FluidSynth SoundFont
2629 synthesizer written in C++.")
2630     (license license:gpl2+)))
2631
2632 (define-public rsound
2633   (package
2634     (name "rsound")
2635     (version "1.1")
2636     (source
2637      (origin
2638        (method url-fetch)
2639        (uri (string-append "https://github.com/Themaister/RSound/archive/v"
2640                            version ".tar.gz"))
2641        (file-name (string-append name "-" version))
2642        (sha256
2643         (base32 "1wzs40c0k5zpkmm5ffl6c17xmr399sxli7ys0fbb9ib0fd334knx"))))
2644     (build-system gnu-build-system)
2645     (inputs
2646      `(("alsa-lib" ,alsa-lib)
2647        ("jack" ,jack-1)
2648        ("ao" ,ao)
2649        ("libsamplerate" ,libsamplerate)
2650        ("openal" ,openal)
2651        ("portaudio" ,portaudio)
2652        ("pulseaudio" ,pulseaudio)))
2653     (arguments
2654      '(#:phases
2655        (modify-phases %standard-phases
2656          (replace 'configure
2657            (lambda* (#:key outputs #:allow-other-keys)
2658              (setenv "CC" "gcc")
2659              (zero?
2660               (system* "./configure"
2661                        (string-append "--prefix=" (assoc-ref outputs "out")))))))
2662        ;; No 'check' target.
2663        #:tests? #f))
2664     (home-page "http://themaister.net/rsound.html")
2665     (synopsis "Networked audio system")
2666     (description
2667      "RSound allows you to send audio from an application and transfer it
2668 directly to a different computer on your LAN network.  It is an audio daemon
2669 with a much different focus than most other audio daemons.")
2670     (license license:gpl3+)))
2671
2672 (define-public xjackfreak
2673   (package
2674     (name "xjackfreak")
2675     (version "1.0")
2676     (source (origin
2677               (method url-fetch)
2678               (uri (string-append
2679                     "https://github.com/johnhldavis/xjackfreak/archive/v"
2680                     version ".tar.gz"))
2681               (file-name (string-append name "-" version ".tar.gz"))
2682               (sha256
2683                (base32
2684                 "0xj6gpxfnw9jbdgwgm0x23xgfvj2kwmwb1nk0drw8lxgcchkq7d9"))))
2685     (build-system gnu-build-system)
2686     (arguments
2687      `(#:make-flags
2688        (list (string-append "docdir=" (assoc-ref %outputs "out")
2689                             "/share/doc/xjackfreak"))))
2690     (inputs
2691      `(("jack" ,jack-1)
2692        ("libx11" ,libx11)
2693        ("libxt" ,libxt)
2694        ("libxext" ,libxext)))
2695     (native-inputs
2696      `(("pkg-config" ,pkg-config)))
2697     (home-page "https://github.com/johnhldavis/xjackfreak")
2698     (synopsis "JACK audio frequency analyzer and display")
2699     (description
2700      "XJackFreak is an audio analysis and equalizing tool for the Jack Audio
2701 Connection Kit.  It can display the FFT of any input, modify it and output the
2702 result.")
2703     (license license:gpl3+)))
2704
2705 (define-public zita-convolver
2706   (package
2707     (name "zita-convolver")
2708     (version "3.1.0")
2709     (source (origin
2710               (method url-fetch)
2711               (uri (string-append
2712                     "http://kokkinizita.linuxaudio.org"
2713                     "/linuxaudio/downloads/zita-convolver-"
2714                     version ".tar.bz2"))
2715               (snippet
2716                ;; Don't optimize for a specific processor architecture.
2717                '(substitute* "libs/Makefile"
2718                   (("^CXXFLAGS \\+= -march=native") "")))
2719               (modules '((guix build utils)))
2720               (sha256
2721                (base32
2722                 "14qrnczhp5mbwhky64il7kxc4hl1mmh495v60va7i2qnhasr6zmz"))))
2723     (build-system gnu-build-system)
2724     (arguments
2725      `(#:tests? #f ; no "check" target
2726        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2727        #:phases
2728        (modify-phases %standard-phases
2729          (add-after 'unpack 'patch-makefile-and-enter-directory
2730            (lambda _
2731              (substitute* "libs/Makefile"
2732                (("ldconfig") "true")
2733                (("^LIBDIR =.*") "LIBDIR = lib\n"))
2734              (chdir "libs") #t))
2735          (add-after 'install 'install-symlink
2736            (lambda _
2737              (symlink "libzita-convolver.so"
2738                       (string-append (assoc-ref %outputs "out")
2739                                      "/lib/libzita-convolver.so.3"))))
2740          ;; no configure script
2741          (delete 'configure))))
2742     (inputs `(("fftwf" ,fftwf)))
2743     (home-page "https://kokkinizita.linuxaudio.org")
2744     (synopsis "Fast, partitioned convolution engine library")
2745     (description
2746      "Zita convolver is a C++ library providing a real-time convolution
2747 engine.")
2748     (license license:gpl3+)))
2749
2750 (define-public zita-resampler
2751   (package
2752     (name "zita-resampler")
2753     (version "1.3.0")
2754     (source (origin
2755               (method url-fetch)
2756               (uri (string-append
2757                     "http://kokkinizita.linuxaudio.org"
2758                     "/linuxaudio/downloads/zita-resampler-"
2759                     version ".tar.bz2"))
2760               (snippet
2761                ;; Don't optimize for a specific processor architecture.
2762                '(substitute* '("apps/Makefile" "libs/Makefile")
2763                   (("^CXXFLAGS \\+= -march=native") "")))
2764               (modules '((guix build utils)))
2765               (sha256
2766                (base32
2767                 "0r9ary5sc3y8vba5pad581ha7mgsrlyai83w7w4x2fmhfy64q0wq"))))
2768     (build-system gnu-build-system)
2769     (arguments
2770      `(#:tests? #f ; no "check" target
2771        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2772        #:phases
2773        (modify-phases %standard-phases
2774          (add-after
2775           'unpack 'patch-makefile-and-enter-directory
2776           (lambda _
2777             (substitute* "libs/Makefile"
2778               (("ldconfig") "true")
2779               (("^LIBDIR =.*") "LIBDIR = lib\n"))
2780             (chdir "libs")
2781             #t))
2782          (add-after
2783           'install 'install-symlink
2784           (lambda _
2785             (symlink "libzita-resampler.so"
2786                      (string-append (assoc-ref %outputs "out")
2787                                     "/lib/libzita-resampler.so.1"))))
2788          ;; no configure script
2789          (delete 'configure))))
2790     (home-page "https://kokkinizita.linuxaudio.org/linuxaudio/zita-resampler/resampler.html")
2791     (synopsis "C++ library for resampling audio signals")
2792     (description
2793      "Libzita-resampler is a C++ library for resampling audio signals.  It is
2794 designed to be used within a real-time processing context, to be fast, and to
2795 provide high-quality sample rate conversion.")
2796     (license license:gpl3+)))
2797
2798 (define-public zita-alsa-pcmi
2799   (package
2800     (name "zita-alsa-pcmi")
2801     (version "0.2.0")
2802     (source (origin
2803               (method url-fetch)
2804               (uri (string-append
2805                     "http://kokkinizita.linuxaudio.org"
2806                     "/linuxaudio/downloads/zita-alsa-pcmi-"
2807                     version ".tar.bz2"))
2808               (sha256
2809                (base32
2810                 "1rgv332g82rrrlm4vdam6p2pyrisxbi7b3izfaa0pcjglafsy7j9"))))
2811     (build-system gnu-build-system)
2812     (arguments
2813      `(#:tests? #f ; no "check" target
2814        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2815        #:phases
2816        (modify-phases %standard-phases
2817          (add-after 'unpack 'patch-makefile-and-enter-directory
2818            (lambda _
2819              (substitute* "libs/Makefile"
2820                (("ldconfig") "true")
2821                (("^LIBDIR =.*") "LIBDIR = lib\n"))
2822              (chdir "libs")
2823              #t))
2824          (add-after 'install 'install-symlink
2825            (lambda _
2826              (symlink "libzita-alsa-pcmi.so"
2827                       (string-append (assoc-ref %outputs "out")
2828                                      "/lib/libzita-alsa-pcmi.so.0"))))
2829           ;; no configure script
2830           (delete 'configure))))
2831     (inputs
2832      `(("alsa-lib" ,alsa-lib)
2833        ("fftw" ,fftw)))
2834     (home-page "https://kokkinizita.linuxaudio.org")
2835     (synopsis "C++ wrapper around the ALSA API")
2836     (description
2837      "Zita-alsa-pcmi is a C++ wrapper around the ALSA API.  It provides easy
2838 access to ALSA PCM devices, taking care of the many functions required to
2839 open, initialise and use a hw: device in mmap mode, and providing floating
2840 point audio data.")
2841     (license license:gpl3+)))
2842
2843 (define-public cuetools
2844   (package
2845     (name "cuetools")
2846     (version "1.4.1")
2847     (source (origin
2848              (method url-fetch)
2849              (uri (string-append "https://github.com/svend/cuetools/archive/"
2850                                  version ".tar.gz"))
2851              (file-name (string-append name "-" version ".tar.gz"))
2852              (sha256
2853               (base32
2854                "01xi3rvdmil9nawsha04iagjylqr1l9v9vlzk99scs8c207l58i4"))))
2855     (build-system gnu-build-system)
2856     ;; The source tarball is not bootstrapped.
2857     (arguments
2858      `(#:phases
2859         (modify-phases %standard-phases
2860           (add-after 'unpack 'bootstrap
2861             (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
2862     ;; Bootstrapping tools
2863     (native-inputs
2864      `(("autoconf" ,autoconf)
2865        ("automake" ,automake)
2866        ("flex" ,flex)
2867        ("bison" ,bison)))
2868     (synopsis "Cue and toc file parsers and utilities")
2869     (description "Cuetools is a set of programs that are useful for manipulating
2870 and using CUE sheet (cue) files and Table of Contents (toc) files.  CUE and TOC
2871 files are a way to represent the layout of a data or audio CD in a
2872 machine-readable ASCII format.")
2873     (home-page "https://github.com/svend/cuetools")
2874     (license license:gpl2+)))
2875
2876 (define-public shntool
2877   (package
2878     (name "shntool")
2879     (version "3.0.10")
2880     (source (origin
2881              (method url-fetch)
2882              (uri (string-append "http://etree.org/shnutils/shntool/dist/src/"
2883                                  "shntool-" version ".tar.gz"))
2884              (sha256
2885               (base32
2886                "00i1rbjaaws3drkhiczaign3lnbhr161b7rbnjr8z83w8yn2wc3l"))))
2887     (build-system gnu-build-system)
2888     (synopsis "WAVE audio data processing tool")
2889     (description "shntool is a multi-purpose WAVE data processing and reporting
2890 utility.  File formats are abstracted from its core, so it can process any file
2891 that contains WAVE data, compressed or not---provided there exists a format
2892 module to handle that particular file type.  It can also generate CUE files, and
2893 use them split WAVE data into multiple files.")
2894     (home-page "http://etree.org/shnutils/shntool/")
2895     ;; 'install-sh' bears the x11 license
2896     (license (list license:gpl2+ license:x11))))
2897
2898 (define-public dcadec
2899   (package
2900     (name "dcadec")
2901     (version "0.2.0")
2902     (source (origin
2903               (method url-fetch)
2904               (uri (string-append "https://github.com/foo86/dcadec/archive/v"
2905                                   version ".tar.gz"))
2906               (file-name (string-append name "-" version ".tar.gz"))
2907               (sha256
2908                (base32
2909                 "0i0dpypgqkhhi4v1fmsp2way6w9kbcix3c7q79pmg39yvrzj17gd"))))
2910     (build-system gnu-build-system)
2911     (arguments
2912      ;; Test files are missing: https://github.com/foo86/dcadec/issues/53
2913      '(#:tests? #f
2914        #:make-flags
2915        (list "CC=gcc"
2916              ;; Build shared library.
2917              "CONFIG_SHARED=1"
2918              (string-append "PREFIX=" (assoc-ref %outputs "out"))
2919              ;; Set proper runpath.
2920              (string-append "LDFLAGS=-Wl,-rpath="
2921                             (assoc-ref %outputs "out")
2922                             "/lib"))
2923        #:phases
2924        (modify-phases %standard-phases
2925          ;; No configure script, just a hand-written Makefile.
2926          (delete 'configure))))
2927     (synopsis "DTS Coherent Acoustics decoder")
2928     (description "Dcadec is a DTS Coherent Acoustics surround sound decoder
2929 with support for HD extensions.")
2930     (home-page "https://github.com/foo86/dcadec")
2931     (license license:lgpl2.1+)))
2932
2933 (define-public bs1770gain
2934   (package
2935     (name "bs1770gain")
2936     (version "0.4.12")
2937     (source
2938      (origin
2939        (method url-fetch)
2940        (uri (string-append "mirror://sourceforge/bs1770gain/bs1770gain/"
2941                            version "/bs1770gain-" version ".tar.gz"))
2942        (sha256
2943         (base32
2944          "0n9skdap1vnl6w52fx0gsrjlk7w3xgdwi62ycyf96h29rx059z6a"))))
2945     (build-system gnu-build-system)
2946     (inputs `(("ffmpeg" ,ffmpeg)
2947               ("sox" ,sox)))
2948     (home-page "http://bs1770gain.sourceforge.net/")
2949     (synopsis "Tool to adjust loudness of media files")
2950     (description
2951      "BS1770GAIN is a loudness scanner compliant with ITU-R BS.1770 and its
2952 flavors EBU R128, ATSC A/85, and ReplayGain 2.0.  It helps normalizing the
2953 loudness of audio and video files to the same level.")
2954     (license license:gpl2+)))
2955
2956 (define-public filteraudio
2957   (let ((revision "1")
2958         (commit "2fc669581e2a0ff87fba8de85861b49133306094"))
2959     (package
2960       (name "filteraudio")
2961       (version (string-append "0.0.0-" revision "."
2962                               (string-take commit 7)))
2963       (source
2964        (origin
2965          (method git-fetch)
2966          (uri (git-reference
2967                (url "https://github.com/irungentoo/filter_audio.git")
2968                (commit commit)))
2969          (file-name (string-append name "-" version "-checkout"))
2970          (sha256
2971           (base32
2972            "0hbb290n3wb23f2k692a6bhc23nnqmxqi9sc9j15pnya8wifw64g"))))
2973       (build-system gnu-build-system)
2974       (arguments
2975        '(#:make-flags (list (string-append "PREFIX=" %output)
2976                             "CC=gcc")
2977          #:tests? #f ; No tests
2978          #:phases
2979          (modify-phases %standard-phases
2980            ;; No configure script
2981            (delete 'configure))))
2982       (synopsis "Lightweight audio filtering library")
2983       (description "An easy to use audio filtering library made from webrtc
2984 code, used in @code{libtoxcore}.")
2985       (home-page "https://github.com/irungentoo/filter_audio")
2986       (license license:bsd-3))))
2987
2988 (define-public gsm
2989   (package
2990     (name "gsm")
2991     (version "1.0.17")
2992     (source
2993      (origin
2994        (method url-fetch)
2995        (uri
2996         (string-append "http://www.quut.com/" name "/" name
2997                        "-" version ".tar.gz"))
2998        (sha256
2999         (base32
3000          "00bns0d4wwrvc60lj2w7wz4yk49q1f6rpdrwqzrxsha9d78mfnl5"))))
3001     (build-system gnu-build-system)
3002     (arguments
3003      `(#:test-target "tst"
3004        #:phases
3005        (modify-phases %standard-phases
3006          (add-before 'install 'pre-install
3007            (lambda _
3008              (let ((out (assoc-ref %outputs "out")))
3009                (substitute* "Makefile"
3010                  (("INSTALL_ROOT\t=")
3011                   (string-append "INSTALL_ROOT\t=\t" out)))
3012                (mkdir-p (string-append out "/inc"))
3013                (mkdir-p (string-append out "/man"))
3014                (mkdir-p (string-append out "/man/man1"))
3015                (mkdir-p (string-append out "/man/man3"))
3016                (mkdir-p (string-append out "/bin"))
3017                (mkdir-p (string-append out "/lib")))))
3018          (add-after 'install 'post-install
3019            (lambda _
3020              (let ((out (assoc-ref %outputs "out")))
3021                (rename-file (string-append out "/inc")
3022                             (string-append out "/include"))
3023                (mkdir-p (string-append out "/include/gsm"))
3024                (copy-recursively "inc"
3025                                  (string-append out "/include/gsm")))))
3026          (delete 'configure))))
3027     (synopsis "GSM 06.10 lossy speech compression library")
3028     (description "This C library provides an encoder and a decoder for the GSM
3029 06.10 RPE-LTP lossy speech compression algorithm.")
3030     (home-page "http://quut.com/gsm/")
3031     (license (license:non-copyleft "file://COPYRIGHT"))))
3032
3033 (define-public python-pyalsaaudio
3034   (package
3035     (name "python-pyalsaaudio")
3036     (version "0.8.4")
3037     (source (origin
3038               (method url-fetch)
3039               (uri (pypi-uri "pyalsaaudio" version))
3040               (sha256
3041                (base32
3042                 "1180ypn9596rq4b7y7dyv627j1q0fqilmkkrckclnzsdakdgis44"))))
3043     (build-system python-build-system)
3044     (arguments
3045      `(#:tests? #f))                   ; tests require access to ALSA devices.
3046     (inputs
3047      `(("alsa-lib" ,alsa-lib)))
3048     (home-page "http://larsimmisch.github.io/pyalsaaudio/")
3049     (synopsis "ALSA wrappers for Python")
3050     (description
3051      "This package contains wrappers for accessing the ALSA API from Python.
3052 It is currently fairly complete for PCM devices, and has some support for
3053 mixers.")
3054     (license license:psfl)))
3055
3056 (define-public python2-pyalsaaudio
3057   (package-with-python2 python-pyalsaaudio))
3058
3059 (define-public bluez-alsa
3060   (package
3061     (name "bluez-alsa")
3062     (version "1.2.0")
3063     (source (origin
3064               ;; The tarballs are mere snapshots and don't contain a
3065               ;; bootstrapped build system.
3066               (method git-fetch)
3067               (uri (git-reference
3068                     (url "https://github.com/Arkq/bluez-alsa.git")
3069                     (commit (string-append "v" version))))
3070               (file-name (string-append name "-" version "-checkout"))
3071               (sha256
3072                (base32
3073                 "1qinf41wl2ihx54zmmhanycihwjkn7dn1cicq6pp4rqbiv79b95x"))))
3074     (build-system gnu-build-system)
3075     (arguments
3076      `(#:phases
3077        (modify-phases %standard-phases
3078          (add-after 'unpack 'bootstrap
3079            (lambda _
3080              (zero? (system* "autoreconf" "-vif")))))))
3081     (native-inputs
3082      `(("autoconf" ,autoconf)
3083        ("automake" ,automake)
3084        ("libtool" ,libtool)
3085        ("pkg-config" ,pkg-config)))
3086     (inputs
3087      `(("alsa-lib" ,alsa-lib)
3088        ("bluez" ,bluez)
3089        ("glib" ,glib)
3090        ("libbsd" ,libbsd)
3091        ("ncurses" ,ncurses)
3092        ("ortp" ,ortp)
3093        ("sbc" ,sbc)))
3094     (home-page "https://github.com/Arkq/bluez-alsa")
3095     (synopsis "Bluetooth ALSA backend")
3096     (description "This project is a rebirth of a direct integration between
3097 Bluez and ALSA.  Since Bluez >= 5, the build-in integration has been removed
3098 in favor of 3rd party audio applications.  From now on, Bluez acts as a
3099 middleware between an audio application, which implements Bluetooth audio
3100 profile, and a Bluetooth audio device.  BlueALSA registers all known Bluetooth
3101 audio profiles in Bluez, so in theory every Bluetooth device (with audio
3102 capabilities) can be connected.  In order to access the audio stream, one has
3103 to connect to the ALSA PCM device called @code{bluealsa}.  The device is based
3104 on the ALSA software PCM plugin.")
3105     (license license:expat)))
3106
3107 (define-public snd
3108   (package
3109     (name "snd")
3110     (version "17.7")
3111     (source (origin
3112               (method url-fetch)
3113               (uri (string-append "ftp://ccrma-ftp.stanford.edu/pub/Lisp/"
3114                                   "snd-" version ".tar.gz"))
3115               (sha256
3116                (base32
3117                 "1vm0dy5qlycqkima7y5ajzvazyjybifa803fabjcpncjz08c26vp"))))
3118     (build-system glib-or-gtk-build-system)
3119     (arguments
3120      '(#:tests? #f                      ; no tests
3121        #:out-of-source? #f              ; for the 'install-doc' phase
3122        #:configure-flags
3123        (let* ((out (assoc-ref %outputs "out"))
3124               (docdir (string-append out "/share/doc/snd")))
3125          (list "--with-alsa" "--with-jack" "--with-gmp"
3126                (string-append "--with-doc-dir=" docdir)))
3127        #:phases
3128        (modify-phases %standard-phases
3129          (add-after 'install 'install-doc
3130            (lambda* (#:key outputs #:allow-other-keys)
3131              (let* ((out (assoc-ref outputs "out"))
3132                     (docdir (string-append out "/share/doc/snd")))
3133                (mkdir-p docdir)
3134                (for-each
3135                 (lambda (f)
3136                   (install-file f docdir))
3137                 (find-files "." "\\.html$|COPYING"))
3138                (copy-recursively "pix" (string-append docdir "/pix"))
3139                #t))))))
3140     (native-inputs
3141      `(("pkg-config" ,pkg-config)))
3142     (inputs
3143      `(("alsa-lib" ,alsa-lib)
3144        ("fftw" ,fftw)
3145        ("flac" ,flac)
3146        ("gmp" ,gmp)
3147        ("gsl" ,gsl)
3148        ("gtk+" ,gtk+)
3149        ("jack" ,jack-1)
3150        ("libsamplerate" ,libsamplerate)
3151        ("mpc" ,mpc)
3152        ("mpfr" ,mpfr)
3153        ("mpg123" ,mpg123)
3154        ("speex" ,speex)
3155        ("timidity++" ,timidity++)
3156        ("vorbis-tools" ,vorbis-tools)
3157        ("wavpack" ,wavpack)))
3158     (synopsis "Sound editor")
3159     (home-page "https://ccrma.stanford.edu/software/snd/")
3160     (description
3161      "Snd is a sound editor modelled loosely after Emacs.  It can be
3162 customized and extended using either the s7 Scheme implementation (included in
3163 the Snd sources), Ruby, or Forth.")
3164     (license (license:non-copyleft "file://COPYING"))))
3165
3166 (define-public noise-repellent
3167   (package
3168     (name "noise-repellent")
3169     (version "0.1.4")
3170     (source (origin
3171               (method git-fetch)
3172               (uri (git-reference
3173                     (url "https://github.com/lucianodato/noise-repellent.git")
3174                     (commit version)))
3175               (file-name (string-append name "-" version "-checkout"))
3176               (sha256
3177                (base32
3178                 "0rd3dlmk3vivjmcr6x2x860y0j1d49c2j95j6ny50v184mwvn11j"))))
3179     (build-system gnu-build-system)
3180     (arguments
3181      `(#:make-flags
3182        (list "CC=gcc"
3183              (string-append "PREFIX=" (assoc-ref %outputs "out")))
3184        #:tests? #f ; there are none
3185        #:phases
3186        (modify-phases %standard-phases
3187          (delete 'configure))))
3188     (inputs
3189      `(("lv2" ,lv2)
3190        ("fftwf" ,fftwf)))
3191     (native-inputs
3192      `(("pkg-config" ,pkg-config)))
3193     (home-page "https://github.com/lucianodato/noise-repellent")
3194     (synopsis "LV2 plugin for broadband noise reduction")
3195     (description "Noise Repellent is an LV2 plugin to reduce noise.  It has
3196 the following features:
3197
3198 @enumerate
3199 @item Spectral gating and spectral subtraction suppression rule
3200 @item Adaptive and manual noise thresholds estimation
3201 @item Adjustable noise floor
3202 @item Adjustable offset of thresholds to perform over-subtraction
3203 @item Time smoothing and a masking estimation to reduce artifacts
3204 @item Basic onset detector to avoid transients suppression
3205 @item Whitening of the noise floor to mask artifacts and to recover higher
3206   frequencies
3207 @item Option to listen to the residual signal
3208 @item Soft bypass
3209 @item Noise profile saved with the session
3210 @end enumerate
3211 ")
3212     (license license:lgpl3+)))
3213
3214 (define-public cli-visualizer
3215   (package
3216     (name "cli-visualizer")
3217     (version "1.6")
3218     (source
3219      (origin
3220        (method url-fetch)
3221        (uri (string-append "https://github.com/dpayne/cli-visualizer/archive/"
3222                            version ".tar.gz"))
3223        (file-name (string-append name "-" version ".tar.gz"))
3224        (sha256
3225         (base32
3226          "07zkm87f2fr8kc6531zrkya7q81sdanm6813y2f54mg13g41y6hi"))))
3227     (build-system gnu-build-system)
3228     (native-inputs
3229      `(("which" ,which)))
3230     (inputs
3231      `(("fftw" ,fftw)
3232        ("googletest" ,googletest)
3233        ("ncurses" ,ncurses)
3234        ("pulseaudio" ,pulseaudio)))
3235     (arguments
3236      '(#:test-target "test"
3237        #:make-flags
3238        (list (string-append "PREFIX=" %output "/bin/") "ENABLE_PULSE=1")
3239        #:phases
3240        (modify-phases %standard-phases
3241          (add-after 'unpack 'remove-sudo
3242            (lambda _
3243              (substitute* "install.sh" (("sudo") ""))
3244              #t))
3245          (add-before 'check 'set-check-environment
3246            (lambda _
3247              (setenv "CXX" "g++")
3248              (setenv "CC" "gcc")
3249              #t))
3250          (add-before 'install 'make-prefix
3251            (lambda _
3252              (mkdir-p (string-append (assoc-ref %outputs "out") "/bin"))
3253              #t))
3254          (add-after 'install 'data
3255            (lambda _
3256              (for-each (lambda (file)
3257                          (install-file file
3258                                        (string-append (assoc-ref %outputs "out")
3259                                                       "/share/doc")))
3260                        (find-files "examples"))
3261              #t)))))
3262     (home-page "https://github.com/dpayne/cli-visualizer/")
3263     (synopsis "Command-line audio visualizer")
3264     (description "@code{cli-visualizer} displays fast-Fourier
3265 transforms (FFTs) of the sound being played, as well as other graphical
3266 representations.")
3267     (license license:expat)))
3268
3269 (define-public cava
3270   (package
3271     (name "cava")
3272     (version "0.6.0")
3273     (source (origin
3274               (method url-fetch)
3275               (uri (string-append
3276                     "https://github.com/karlstav/cava/archive/"
3277                     version ".tar.gz"))
3278               (file-name (string-append name "-" version ".tar.gz"))
3279               (sha256
3280                (base32
3281                 "1p24lz3h4d0h82ffylqr7mq8a8x1c66flm2r2bsv1liw51n1rma2"))))
3282     (build-system gnu-build-system)
3283     (native-inputs
3284      `(("autoconf" ,autoconf)
3285        ("automake" ,automake)
3286        ("libtool" ,libtool)))
3287     (inputs
3288      `(("fftw" ,fftw)
3289        ("ncurses" ,ncurses)
3290        ("pulseaudio" ,pulseaudio)))
3291     (arguments
3292      `(#:configure-flags
3293        (list (string-append "PREFIX=" %output)
3294              (string-append "FONT_DIR=" %output "/usr/share/consolefonts"))
3295        #:make-flags
3296        (let ((lib (string-append %output "/lib")))
3297          (list (string-append "cava_LDFLAGS = -L" lib " -Wl,-rpath " lib)))
3298        #:phases
3299        (modify-phases %standard-phases
3300          (add-after 'unpack 'bootstrap
3301            (lambda* (#:key outputs #:allow-other-keys)
3302              (setenv "HOME" (getcwd))
3303              (invoke "sh" "autogen.sh")))
3304          (add-before 'build 'make-cava-ldflags
3305            (lambda* (#:key outputs #:allow-other-keys)
3306              (mkdir-p (string-append (assoc-ref outputs "out") "/lib"))))
3307          (add-after 'install 'data
3308            (lambda* (#:key outputs #:allow-other-keys)
3309              (for-each (lambda (file)
3310                          (install-file file
3311                                        (string-append (assoc-ref outputs "out")
3312                                                       "/share/doc/examples")))
3313                        (find-files "example_files")))))))
3314     (home-page "https://karlstav.github.io/cava/")
3315     (synopsis "Console audio visualizer for ALSA, MPD, and PulseAudio")
3316     (description "C.A.V.A. is a bar audio spectrum visualizer for the terminal
3317 using ALSA, MPD, PulseAudio, or a FIFO buffer as its input.")
3318     (license license:expat)))