gnu/packages/audio.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2015, 2016, 2017, 2018, 2019 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, 2018, 2019 Efraim Flashner <efraim@flashner.co.il>
   8 ;;; Copyright © 2016, 2017 Alex Griffin <a@ajgrf.com>
   9 ;;; Copyright © 2016 ng0 <ng0@n0.is>
  10 ;;; Copyright © 2016 Lukas Gradl <lgradl@openmailbox.org>
  11 ;;; Copyright © 2016, 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
  12 ;;; Copyright © 2018, 2020 Oleg Pykhalov <go.wigust@gmail.com>
  13 ;;; Copyright © 2018 okapi <okapi@firemail.cc>
  14 ;;; Copyright © 2018 Maxim Cournoyer <maxim.cournoyer@gmail.com>
  15 ;;; Copyright © 2018 Clément Lassieur <clement@lassieur.org>
  16 ;;; Copyright © 2018 Brett Gilio <brettg@gnu.org>
  17 ;;; Copyright © 2018, 2019 Marius Bakke <mbakke@fastmail.com>
  18 ;;; Copyright © 2018 Thorsten Wilms <t_w_@freenet.de>
  19 ;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
  20 ;;; Copyright © 2018 Brendan Tildesley <mail@brendan.scot>
  21 ;;; Copyright © 2019 Pierre Langlois <pierre.langlois@gmx.com>
  22 ;;; Copyright © 2019 Leo Famulari <leo@famulari.name>
  23 ;;; Copyright © 2019 Rutger Helling <rhelling@mykolab.com>
  24 ;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net>
  25 ;;; Copyright © 2019 Mathieu Othacehe <m.othacehe@gmail.com>
  26 ;;; Copyright © 2019 Alexandros Theodotou <alex@zrythm.org>
  27 ;;; Copyright © 2019 Christopher Lemmer Webber <cwebber@dustycloud.org>
  28 ;;; Copyright © 2019 Jan Wielkiewicz <tona_kosmicznego_smiecia@interia.pl>
  29 ;;; Copyright © 2019 Hartmt Goebel <h.goebel@crazy-compilers.com>
  30 ;;; Copyright © 2019 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  31 ;;;
  32 ;;; This file is part of GNU Guix.
  33 ;;;
  34 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  35 ;;; under the terms of the GNU General Public License as published by
  36 ;;; the Free Software Foundation; either version 3 of the License, or (at
  37 ;;; your option) any later version.
  38 ;;;
  39 ;;; GNU Guix is distributed in the hope that it will be useful, but
  40 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  41 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  42 ;;; GNU General Public License for more details.
  43 ;;;
  44 ;;; You should have received a copy of the GNU General Public License
  45 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  46
  47 (define-module (gnu packages audio)
  48   #:use-module (guix packages)
  49   #:use-module (guix download)
  50   #:use-module (guix git-download)
  51   #:use-module (guix utils)
  52   #:use-module ((guix licenses) #:prefix license:)
  53   #:use-module (guix build-system gnu)
  54   #:use-module (guix build-system waf)
  55   #:use-module (guix build-system trivial)
  56   #:use-module (guix build-system cmake)
  57   #:use-module (guix build-system python)
  58   #:use-module (guix build-system glib-or-gtk)
  59   #:use-module (gnu packages)
  60   #:use-module (gnu packages algebra)
  61   #:use-module (gnu packages autotools)
  62   #:use-module (gnu packages avahi)
  63   #:use-module (gnu packages boost)
  64   #:use-module (gnu packages backup)
  65   #:use-module (gnu packages base)
  66   #:use-module (gnu packages bison)
  67   #:use-module (gnu packages check)
  68   #:use-module (gnu packages compression)
  69   #:use-module (gnu packages curl)
  70   #:use-module (gnu packages dbm)
  71   #:use-module (gnu packages documentation)
  72   #:use-module (gnu packages emacs)
  73   #:use-module (gnu packages file)
  74   #:use-module (gnu packages flex)
  75   #:use-module (gnu packages fltk)
  76   #:use-module (gnu packages fontutils)
  77   #:use-module (gnu packages gcc)
  78   #:use-module (gnu packages gettext)
  79   #:use-module (gnu packages glib)
  80   #:use-module (gnu packages gtk)
  81   #:use-module (gnu packages gnome)
  82   #:use-module (gnu packages gnunet) ; libmicrohttpd
  83   #:use-module (gnu packages gperf)
  84   #:use-module (gnu packages icu4c)
  85   #:use-module (gnu packages image)
  86   #:use-module (gnu packages ncurses)
  87   #:use-module (gnu packages onc-rpc)
  88   #:use-module (gnu packages qt)
  89   #:use-module (gnu packages libbsd)
  90   #:use-module (gnu packages linux)
  91   #:use-module (gnu packages libusb)
  92   #:use-module (gnu packages llvm)
  93   #:use-module (gnu packages mp3) ;taglib
  94   #:use-module (gnu packages perl)
  95   #:use-module (gnu packages pkg-config)
  96   #:use-module (gnu packages pulseaudio)  ;libsndfile, libsamplerate
  97   #:use-module (gnu packages python)
  98   #:use-module (gnu packages python-xyz)
  99   #:use-module (gnu packages rdf)
 100   #:use-module (gnu packages readline)
 101   #:use-module (gnu packages sdl)
 102   #:use-module (gnu packages serialization)
 103   #:use-module (gnu packages telephony)
 104   #:use-module (gnu packages tls)
 105   #:use-module (gnu packages video)
 106   #:use-module (gnu packages vim) ;xxd
 107   #:use-module (gnu packages webkit)
 108   #:use-module (gnu packages wxwidgets)
 109   #:use-module (gnu packages xiph)
 110   #:use-module (gnu packages xml)
 111   #:use-module (gnu packages xorg)
 112   #:use-module (gnu packages maths)
 113   #:use-module (gnu packages multiprecision)
 114   #:use-module (gnu packages music)
 115   #:use-module (srfi srfi-1)
 116   #:use-module (srfi srfi-26))
 117
 118 (define-public alsa-modular-synth
 119   (package
 120     (name "alsa-modular-synth")
 121     (version "2.1.2")
 122     (source (origin
 123               (method url-fetch)
 124               (uri (string-append "mirror://sourceforge/alsamodular/alsamodular"
 125                                   "/" version "/ams-" version ".tar.bz2"))
 126               (sha256
 127                (base32
 128                 "1azbrhpfk4nnybr7kgmc7w6al6xnzppg853vas8gmkh185kk11l0"))))
 129     (build-system gnu-build-system)
 130     (arguments
 131      `(#:configure-flags
 132        '("--enable-qt5"
 133          "CXXFLAGS=-std=gnu++11")
 134        #:phases
 135        (modify-phases %standard-phases
 136          ;; Insert an extra space between linker flags.
 137          (add-before 'configure 'add-missing-space
 138            (lambda _
 139              (substitute* "configure"
 140                (("LIBS\\+=\\$LIBSsave") "LIBS+=\" $LIBSsave\"")
 141                (("CFLAGS\\+=\\$CFLAGSsave") "CFLAGS+=\" $CFLAGSsave\""))
 142              #t)))))
 143     (inputs
 144      `(("alsa-lib" ,alsa-lib)
 145        ;; We cannot use zita-alsa-pcmi (the successor of clalsadrv) due to
 146        ;; license incompatibility.
 147        ("clalsadrv" ,clalsadrv)
 148        ("fftw" ,fftw)
 149        ("jack" ,jack-1)
 150        ("ladspa" ,ladspa)
 151        ("liblo" ,liblo)
 152        ("qtbase" ,qtbase)
 153        ("qttools" ,qttools)))
 154     (native-inputs
 155      `(("pkg-config" ,pkg-config)
 156        ("gcc" ,gcc-5)))
 157     (home-page "http://alsamodular.sourceforge.net/")
 158     (synopsis "Realtime modular synthesizer and effect processor")
 159     (description
 160      "AlsaModularSynth is a digital implementation of a classical analog
 161 modular synthesizer system.  It uses virtual control voltages to control the
 162 parameters of the modules.  The control voltages which control the frequency
 163 e.g. of the VCO (Voltage Controlled Oscillator) and VCF (Voltage Controlled
 164 Filter) modules follow the convention of 1V / Octave.")
 165     (license license:gpl2)))
 166
 167 (define-public aubio
 168   (package
 169     (name "aubio")
 170     (version "0.4.9")
 171     (source (origin
 172              (method url-fetch)
 173              (uri (string-append
 174                    "https://aubio.org/pub/aubio-" version ".tar.bz2"))
 175              (sha256
 176               (base32
 177                "1npks71ljc48w6858l9bq30kaf5nph8z0v61jkfb70xb9np850nl"))))
 178     (build-system waf-build-system)
 179     (arguments
 180      `(#:tests? #f                      ; no check target
 181        #:configure-flags
 182        (list
 183         (string-append "LDFLAGS=-Wl,-rpath=" (assoc-ref %outputs "out") "/lib")
 184         "--enable-fftw3f"
 185         "--enable-jack"
 186         "--enable-sndfile"
 187         "--enable-samplerate"
 188         "--enable-avcodec")
 189        #:python ,python-2))
 190     (inputs
 191      `(("jack" ,jack-1)
 192        ("libsndfile" ,libsndfile)
 193        ("libsamplerate" ,libsamplerate)
 194        ("fftwf" ,fftwf)
 195        ("ffmpeg" ,ffmpeg))) ; for libavcodec
 196     (native-inputs
 197      `(("pkg-config" ,pkg-config)))
 198     (home-page "https://aubio.org/")
 199     (synopsis "Library for audio labelling")
 200     (description
 201      "aubio is a tool designed for the extraction of annotations from audio
 202 signals.  Its features include segmenting a sound file before each of its
 203 attacks, performing pitch detection, tapping the beat and producing MIDI
 204 streams from live audio.")
 205     (license license:gpl3+)))
 206
 207 (define (ardour-rpath-phase major-version)
 208   `(lambda* (#:key outputs #:allow-other-keys)
 209      (let ((libdir (string-append (assoc-ref outputs "out")
 210                                   "/lib/ardour" ,major-version)))
 211        (substitute* "wscript"
 212          (("linker_flags = \\[\\]")
 213           (string-append "linker_flags = [\""
 214                          "-Wl,-rpath="
 215                          libdir ":"
 216                          libdir "/backends" ":"
 217                          libdir "/engines" ":"
 218                          libdir "/panners" ":"
 219                          libdir "/surfaces" ":"
 220                          libdir "/vamp" "\"]"))))
 221      #t))
 222
 223 (define-public ardour
 224   (package
 225     (name "ardour")
 226     (version "5.12")
 227     (source (origin
 228               (method git-fetch)
 229               (uri (git-reference
 230                     (url "https://git.ardour.org/ardour/ardour.git")
 231                     (commit version)))
 232               (snippet
 233                ;; Ardour expects this file to exist at build time.  The revision
 234                ;; is the output of
 235                ;;    git describe HEAD | sed 's/^[A-Za-z]*+//'
 236                `(call-with-output-file
 237                     "libs/ardour/revision.cc"
 238                   (lambda (port)
 239                     (format port ,(string-append "#include \"ardour/revision.h\"
 240 namespace ARDOUR { const char* revision = \"" version "\" ; }"))
 241                     #t)))
 242               (sha256
 243                (base32
 244                 "0mla5lm51ryikc2rrk53max2m7a5ds6i1ai921l2h95wrha45nkr"))
 245               (file-name (string-append name "-" version))))
 246     (build-system waf-build-system)
 247     (arguments
 248      `(#:configure-flags '("--cxx11"          ; required by gtkmm
 249                            "--no-phone-home"  ; don't contact ardour.org
 250                            "--freedesktop"    ; build .desktop file
 251                            "--test")          ; build unit tests
 252        #:phases
 253        (modify-phases %standard-phases
 254          (add-after 'unpack 'set-rpath-in-LDFLAGS
 255           ,(ardour-rpath-phase (version-major version)))
 256          (add-after 'install 'install-freedesktop-files
 257            (lambda* (#:key outputs #:allow-other-keys)
 258              (let* ((out   (assoc-ref outputs "out"))
 259                     (share (string-append out "/share"))
 260                     (ver   ,(version-major version)))
 261                (for-each
 262                  (lambda (size)
 263                    (let ((dir (string-append share "/icons/hicolor/"
 264                                              size "x" size "/apps")))
 265                      (mkdir-p dir)
 266                      (copy-file
 267                        (string-append "gtk2_ardour/resources/Ardour-icon_"
 268                                       size "px.png")
 269                        (string-append dir "/ardour" ver ".png"))))
 270                  '("16" "22" "32" "48" "256"))
 271                (install-file (string-append "build/gtk2_ardour/ardour"
 272                                             ver ".desktop")
 273                              (string-append share "/applications/"))
 274                (install-file (string-append "build/gtk2_ardour/ardour"
 275                                             ver ".appdata.xml")
 276                              (string-append share "/appdata/")))
 277              #t)))
 278        #:test-target "test"
 279        #:python ,python-2))
 280     (inputs
 281      `(("alsa-lib" ,alsa-lib)
 282        ("atkmm" ,atkmm)
 283        ("aubio" ,aubio)
 284        ("boost" ,boost)
 285        ("cairomm" ,cairomm)
 286        ("curl" ,curl)
 287        ("eudev" ,eudev)
 288        ("fftw" ,fftw)
 289        ("fftwf" ,fftwf)
 290        ("flac" ,flac)
 291        ("glibmm" ,glibmm)
 292        ("gtkmm" ,gtkmm-2)
 293        ("jack" ,jack-1)
 294        ("libarchive" ,libarchive)
 295        ("libart-lgpl" ,libart-lgpl)
 296        ("libgnomecanvasmm" ,libgnomecanvasmm)
 297        ("liblo" ,liblo)
 298        ("libogg" ,libogg)
 299        ("libsamplerate" ,libsamplerate)
 300        ("libsndfile" ,libsndfile)
 301        ("libusb" ,libusb)
 302        ("libvorbis" ,libvorbis)
 303        ("libxml2" ,libxml2)
 304        ("lilv" ,lilv)
 305        ("lrdf" ,lrdf)
 306        ("lv2" ,lv2)
 307        ("pangomm" ,pangomm)
 308        ("python-rdflib" ,python-rdflib)
 309        ("readline" ,readline)
 310        ("redland" ,redland)
 311        ("rubberband" ,rubberband)
 312        ("serd" ,serd)
 313        ("sord" ,sord)
 314        ("sratom" ,sratom)
 315        ("suil" ,suil)
 316        ("taglib" ,taglib)
 317        ("vamp" ,vamp)))
 318     (native-inputs
 319      `(("cppunit" ,cppunit)
 320        ("gettext" ,gettext-minimal)
 321        ("itstool" ,itstool)
 322        ("perl" ,perl)
 323        ("pkg-config" ,pkg-config)))
 324     (home-page "http://ardour.org")
 325     (synopsis "Digital audio workstation")
 326     (description
 327      "Ardour is a multi-channel digital audio workstation, allowing users to
 328 record, edit, mix and master audio and MIDI projects.  It is targeted at audio
 329 engineers, musicians, soundtrack editors and composers.")
 330     (license license:gpl2+)))
 331
 332 (define-public audacity
 333   (package
 334     (name "audacity")
 335     (version "2.3.3")
 336     (source
 337      (origin
 338        (method git-fetch)
 339        (uri (git-reference
 340              (url "https://github.com/audacity/audacity.git")
 341              (commit (string-append "Audacity-" version))))
 342        (file-name (git-file-name name version))
 343        (sha256
 344         (base32
 345          "0707fsnrl4vjalsi21w4blwgz024qhd0w8rdd5j5vpxf5lyk2rbk"))
 346        (patches (search-patches "audacity-build-with-system-portaudio.patch"))
 347        (modules '((guix build utils)))
 348        (snippet
 349         ;; Remove bundled libraries.
 350         '(begin
 351            (for-each
 352             (lambda (dir)
 353               (delete-file-recursively (string-append "lib-src/" dir)))
 354             '("expat" "ffmpeg" "lame" "libflac" "libid3tag" "libmad" "libogg"
 355               "libsndfile" "libsoxr" "libvamp" "libvorbis" "lv2"
 356               "portaudio-v19" "portmidi" "soundtouch" "twolame"
 357               ;; FIXME: these libraries have not been packaged yet:
 358               ;; "libnyquist"
 359               ;; "libscorealign"
 360               ;; "libwidgetextra"
 361               ;; "portburn"
 362               ;; "portsmf"
 363               ;; "portmixer"
 364
 365               ;; FIXME: we have this library, but it differs in that the Slide
 366               ;; class does not have a member "getInverseStretchedTime".
 367               ;; "sbsms"
 368               ))
 369            #t))))
 370     (build-system glib-or-gtk-build-system)
 371     (inputs
 372      `(("wxwidgets" ,wxwidgets)
 373        ("gtk+" ,gtk+)
 374        ("alsa-lib" ,alsa-lib)
 375        ("jack" ,jack-1)
 376        ("expat" ,expat)
 377        ("ffmpeg" ,ffmpeg)
 378        ("lame" ,lame)
 379        ("flac" ,flac)
 380        ("libid3tag" ,libid3tag)
 381        ("libmad" ,libmad)
 382        ;;("libsbsms" ,libsbsms)         ;bundled version is modified
 383        ("libsndfile" ,libsndfile)
 384        ("soundtouch" ,soundtouch)
 385        ("soxr" ,soxr)                   ;replaces libsamplerate
 386        ("twolame" ,twolame)
 387        ("vamp" ,vamp)
 388        ("libvorbis" ,libvorbis)
 389        ("lv2" ,lv2)
 390        ("lilv" ,lilv)                   ;for lv2
 391        ("suil" ,suil)                   ;for lv2
 392        ("portaudio" ,portaudio)
 393        ("portmidi" ,portmidi)))
 394     (native-inputs
 395      `(("autoconf" ,autoconf)
 396        ("automake" ,automake)
 397        ("gettext" ,gettext-minimal)     ;for msgfmt
 398        ("libtool" ,libtool)
 399        ("pkg-config" ,pkg-config)
 400        ("python" ,python-2)
 401        ("which" ,which)))
 402     (arguments
 403      `(#:configure-flags
 404        (let ((libid3tag (assoc-ref %build-inputs "libid3tag"))
 405              (libmad (assoc-ref %build-inputs "libmad"))
 406              (portmidi (assoc-ref %build-inputs "portmidi")))
 407          (list
 408           ;; Loading FFmpeg dynamically is problematic.
 409           "--disable-dynamic-loading"
 410           ;; SSE instructions are available on Intel systems only.
 411           ,@(if (any (cute string-prefix? <> (or (%current-target-system)
 412                                                  (%current-system)))
 413                     '("x64_64" "i686"))
 414               '()
 415               '("--enable-sse=no"))
 416           ;; portmidi, libid3tag and libmad provide no .pc files, so
 417           ;; pkg-config fails to find them.  Force their inclusion.
 418           (string-append "ID3TAG_CFLAGS=-I" libid3tag "/include")
 419           (string-append "ID3TAG_LIBS=-L" libid3tag "/lib -lid3tag -lz")
 420           (string-append "LIBMAD_CFLAGS=-I" libmad "/include")
 421           (string-append "LIBMAD_LIBS=-L" libmad "/lib -lmad")
 422           (string-append "PORTMIDI_CFLAGS=-I" portmidi "/include")
 423           (string-append "PORTMIDI_LIBS=-L" portmidi "/lib -lportmidi")
 424           "EXPAT_USE_SYSTEM=yes"
 425           "FFMPEG_USE_SYSTEM=yes"
 426           "LAME_USE_SYSTEM=yes"
 427           "LIBFLAC_USE_SYSTEM=yes"
 428           "LIBID3TAG_USE_SYSTEM=yes"
 429           "LIBMAD_USE_SYSTEM=yes"
 430           "USE_LOCAL_LIBNYQUIST="      ;not packaged yet
 431           ;;"LIBSBSMS_USE_SYSTEM=yes"  ;bundled version is patched
 432           "LIBSNDFILE_USE_SYSTEM=yes"
 433           "LIBSOUNDTOUCH_USE_SYSTEM=yes"
 434           "LIBSOXR_USE_SYSTEM=yes"
 435           "LIBTWOLAME_USE_SYSTEM=yes"
 436           "LIBVAMP_USE_SYSTEM=yes"
 437           "LIBVORBIS_USE_SYSTEM=yes"
 438           "LV2_USE_SYSTEM=yes"
 439           "PORTAUDIO_USE_SYSTEM=yes"))
 440        #:phases
 441        (modify-phases %standard-phases
 442          (add-after 'unpack 'fix-sbsms-check
 443            (lambda _
 444              ;; This check is wrong: there is no 2.2.0 release; not even the
 445              ;; bundled sources match this release string.
 446              (substitute* '("m4/audacity_checklib_libsbsms.m4"
 447                             "configure")
 448                (("sbsms >= 2.2.0") "sbsms >= 2.0.0"))
 449              #t))
 450          (add-after 'unpack 'use-upstream-headers
 451            (lambda* (#:key inputs #:allow-other-keys)
 452              (substitute* '("src/NoteTrack.cpp"
 453                             "src/AudioIO.cpp"
 454                             "src/AudioIO.h"
 455                             "src/AudioIOBase.cpp")
 456                (("../lib-src/portmidi/pm_common/portmidi.h") "portmidi.h")
 457                (("../lib-src/portmidi/porttime/porttime.h") "porttime.h"))
 458              (substitute* "src/prefs/MidiIOPrefs.cpp"
 459                (("../../lib-src/portmidi/pm_common/portmidi.h") "portmidi.h"))
 460              #t)))
 461        ;; The test suite is not "well exercised" according to the developers,
 462        ;; and fails with various errors.  See
 463        ;; <http://sourceforge.net/p/audacity/mailman/message/33524292/>.
 464        #:tests? #f))
 465     (home-page "https://www.audacityteam.org/")
 466     (synopsis "Software for recording and editing sounds")
 467     (description
 468      "Audacity is a multi-track audio editor designed for recording, playing
 469 and editing digital audio.  It features digital effects and spectrum analysis
 470 tools.")
 471     (license license:gpl2+)))
 472
 473 (define-public audiofile
 474   (package
 475     (name "audiofile")
 476     (version "0.3.6")
 477     (source
 478      (origin
 479        (method url-fetch)
 480        (uri (string-append
 481              "https://audiofile.68k.org/audiofile-" version ".tar.gz"))
 482        (sha256
 483         (base32 "0rb927zknk9kmhprd8rdr4azql4gn2dp75a36iazx2xhkbqhvind"))
 484        (patches
 485         ;; CVE references according to nixpgs
 486         (search-patches
 487          "audiofile-fix-datatypes-in-tests.patch"
 488          "audiofile-fix-sign-conversion.patch"
 489          "audiofile-hurd.patch"
 490          "audiofile-CVE-2015-7747.patch"
 491          ;; CVE-2017-6829:
 492          "audiofile-Fix-index-overflow-in-IMA.cpp.patch"
 493          ;; CVE-2017-6827, CVE-2017-6828, CVE-2017-6832, CVE-2017-6835,
 494          ;; CVE-2017-6837:
 495          "audiofile-Check-the-number-of-coefficients.patch"
 496          ;; CVE-2017-6839:
 497          "audiofile-Fix-overflow-in-MSADPCM-decodeSam.patch"
 498          ;; CVE-2017-6830, CVE-2017-6834, CVE-2017-6836, CVE-2017-6838:
 499          "audiofile-Fix-multiply-overflow-sfconvert.patch"
 500          "audiofile-signature-of-multiplyCheckOverflow.patch"
 501          ;; CVE-2017-6831:
 502          "audiofile-Fail-on-error-in-parseFormat.patch"
 503          ;; CVE-2017-6833:
 504          "audiofile-division-by-zero-BlockCodec-runPull.patch"
 505          "audiofile-CVE-2018-13440.patch"
 506          "audiofile-CVE-2018-17095.patch"))))
 507     (build-system gnu-build-system)
 508     (inputs
 509      `(("alsa-lib" ,alsa-lib)))
 510     (home-page "https://audiofile.68k.org/")
 511     (synopsis "Library to handle various audio file formats")
 512     (description "This is an open-source version of SGI's audiofile library.
 513 It provides a uniform programming interface for processing of audio data to
 514 and from audio files of many common formats.
 515
 516 Currently supported file formats include AIFF/AIFF-C, WAVE, and NeXT/Sun
 517 .snd/.au, BICS, and raw data.  Supported compression formats are currently
 518 G.711 mu-law and A-law.")
 519     (license license:lgpl2.1+)))
 520
 521 (define-public autotalent
 522   (package
 523     (name "autotalent")
 524     (version "0.2")
 525     (source (origin
 526               (method url-fetch)
 527               (uri (string-append "http://tombaran.info/autotalent-"
 528                                   version ".tar.gz"))
 529               (sha256
 530                (base32
 531                 "1n04qm66f14195ly6gsy3ra7v2j7zad5n19d8dwfmh0qs6h9hphh"))))
 532     (build-system gnu-build-system)
 533     (arguments
 534      `(#:tests? #f ; no check target
 535        #:phases
 536        (modify-phases %standard-phases
 537          ;; no configure script
 538          (delete 'configure)
 539          (add-before 'install 'prepare-target-directory
 540            (lambda* (#:key outputs #:allow-other-keys)
 541              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 542              #t))
 543          (add-after 'unpack 'override-target-directory
 544            (lambda* (#:key outputs #:allow-other-keys)
 545              (substitute* "Makefile"
 546                (("/usr/lib64/ladspa")
 547                 (string-append (assoc-ref outputs "out") "/lib/ladspa")))
 548              #t)))))
 549     (inputs
 550      `(("ladspa" ,ladspa)))
 551     (home-page "http://tombaran.info/autotalent.html")
 552     (synopsis "Pitch-correction LADSPA audio plugin")
 553     (description
 554      "Autotalent is a LADSPA plugin for real-time pitch-correction.  Among its
 555 controls are allowable notes, strength of correction, LFO for vibrato and
 556 formant warp.")
 557     ;; All code except the FFT routine is licensed under GPLv2+.
 558     ;; The FFT routine is under BSD-3.
 559     (license license:gpl2+)))
 560
 561 (define-public azr3
 562   (package
 563     (name "azr3")
 564     (version "1.2.3")
 565     (source (origin
 566               (method url-fetch)
 567               (uri (string-append "mirror://savannah/ll-plugins/azr3-jack-"
 568                                   version
 569                                   ".tar.bz2"))
 570               (sha256
 571                (base32
 572                 "18mdw6nc0vgj6k9rsy0x8w64wvzld0frqshrxxbxfj9qi9843vlc"))
 573               (patches (search-patches "azr3.patch"))))
 574     (build-system gnu-build-system)
 575     (arguments
 576      `(#:tests? #f ; no check target
 577        #:make-flags
 578        (list "LV2PEG=ttl2c"
 579              (string-append "prefix=" %output)
 580              (string-append "pkgdatadir=" %output "/share/azr3-jack"))
 581        #:phases
 582        (modify-phases %standard-phases
 583          (add-before 'install 'fix-timestamp
 584            (lambda _
 585              (let ((early-1980 315619200)) ; 1980-01-02 UTC
 586                (utime "azr3.1" early-1980 early-1980))
 587              #t)))))
 588     (inputs
 589      `(("gtkmm" ,gtkmm-2)
 590        ("lvtk" ,lvtk)
 591        ("jack" ,jack-1)
 592        ("lash" ,lash)))
 593     (native-inputs
 594      `(("pkg-config" ,pkg-config)))
 595     (home-page "http://ll-plugins.nongnu.org/azr3/")
 596     (synopsis "Tonewheel organ synthesizer")
 597     (description
 598      "AZR-3 is a port of the free VST plugin AZR-3.  It is a tonewheel organ
 599 with drawbars, distortion and rotating speakers.  The organ has three
 600 sections, two polyphonic sections with nine drawbars each and one monophonic
 601 bass section with five drawbars.  A standalone JACK application and LV2
 602 plugins are provided.")
 603     (license license:gpl2)))
 604
 605 (define-public calf
 606   (package
 607     (name "calf")
 608     (version "0.90.3")
 609     (source (origin
 610               (method url-fetch)
 611               (uri (string-append "https://calf-studio-gear.org/files/calf-"
 612                                   version ".tar.gz"))
 613               (sha256
 614                (base32
 615                 "17x4hylgq4dn9qycsdacfxy64f5cv57n2qgkvsdp524gnqzw4az3"))))
 616     (build-system gnu-build-system)
 617     (inputs
 618      `(("fluidsynth" ,fluidsynth)
 619        ("expat" ,expat)
 620        ("glib" ,glib)
 621        ("gtk" ,gtk+-2)
 622        ("cairo" ,cairo)
 623        ("lash" ,lash)
 624        ("jack" ,jack-1)
 625        ("lv2" ,lv2)
 626        ("ladspa" ,ladspa)
 627        ("fftw" ,fftw)))
 628     (native-inputs
 629      `(("pkg-config" ,pkg-config)))
 630     (native-search-paths
 631      (list (search-path-specification
 632             (variable "LV2_PATH")
 633             (files '("lib/lv2")))))
 634     (home-page "http://calf.sourceforge.net/")
 635     (synopsis "Audio plug-in pack for LV2 and JACK environments")
 636     (description
 637      "Calf Studio Gear is an audio plug-in pack for LV2 and JACK environments.
 638 The suite contains lots of effects (delay, modulation, signal processing,
 639 filters, equalizers, dynamics, distortion and mastering effects),
 640 instruments (SF2 player, organ simulator and a monophonic synthesizer) and
 641 tools (analyzer, mono/stereo tools, crossovers).")
 642     ;; calfjackhost is released under GPLv2+
 643     ;; The plugins are released under LGPLv2.1+
 644     (license (list license:lgpl2.1+ license:gpl2+))))
 645
 646 (define-public caps-plugins-lv2
 647   (package
 648     (name "caps-plugins-lv2")
 649     (version "0.9.24") ; version that has been ported.
 650     (source
 651      (origin
 652        ;; The Github project hasn't tagged a release.
 653        (method git-fetch)
 654        (uri (git-reference
 655              ;; Actually https://github.com/moddevices/caps-lv2.git, but it's
 656              ;; missing fixes for newer glibc, so using the origin of a pull
 657              ;; request regarding this issue:
 658              (url "https://github.com/jujudusud/caps-lv2.git")
 659              (commit "9c9478b7fbd8f9714f552ebe2a6866398b0babfb")))
 660        (file-name (git-file-name name version))
 661        (sha256
 662         (base32
 663          "1idfnazin3cca41zw1a8vwgnxjnkrap7bxxjamjqvgpmvydgcam1"))))
 664     (build-system gnu-build-system)
 665     (arguments
 666      `(#:tests? #f ; no check target
 667        #:phases
 668        (modify-phases %standard-phases
 669          ;; no configure script
 670          (delete 'configure)
 671          (add-after 'unpack 'override-target-directory
 672            (lambda* (#:key outputs #:allow-other-keys)
 673              (substitute* (find-files "plugins" "Makefile")
 674                (("/usr/local")(assoc-ref outputs "out")))
 675              #t)))))
 676     (inputs
 677      `(("lv2" ,lv2)))
 678     ;; home-page of the original LADSPA version: http://quitte.de/dsp/caps.html
 679     (home-page "https://github.com/moddevices/caps-lv2")
 680     (synopsis "LV2 port of the CAPS audio plugin colection")
 681     (description
 682      "LV2 port of CAPS, a collection of audio plugins comprising basic virtual
 683 guitar amplification and a small range of classic effects, signal processors and
 684 generators of mostly elementary and occasionally exotic nature.")
 685     (license license:gpl3+)))
 686
 687 (define-public infamous-plugins
 688   (package
 689     (name "infamous-plugins")
 690     (version "0.2.04")
 691     (source (origin
 692               (method git-fetch)
 693               (uri (git-reference
 694                     (url "https://github.com/ssj71/infamousPlugins.git")
 695                     (commit (string-append "v" version))))
 696               (file-name (git-file-name name version))
 697               (sha256
 698                (base32
 699                 "0hmqk80w4qxq09iag7b7srf2g0wigkyhzq0ywxvhz2iz0hq9k0dh"))))
 700     (build-system cmake-build-system)
 701     (arguments
 702      `(#:tests? #f                      ; there are no tests
 703        #:phases
 704        (modify-phases %standard-phases
 705          (add-after 'unpack 'remove-compiler-flags
 706            (lambda _
 707              (substitute* (find-files "." "CMakeLists.txt")
 708                (("-msse2 -mfpmath=sse") ""))
 709              #t)))))
 710     (inputs
 711      `(("cairo" ,cairo)
 712        ("fftwf" ,fftwf)
 713        ("lv2" ,lv2)
 714        ("ntk" ,ntk)
 715        ("zita-resampler" ,zita-resampler)))
 716     (native-inputs
 717      `(("pkg-config" ,pkg-config)))
 718     (home-page "https://ssj71.github.io/infamousPlugins")
 719     (synopsis "LV2 plugins for live use")
 720     (description
 721      "The infamous plugins are a collection of LV2 audio plugins for live
 722 performances.  The plugins include a cellular automaton synthesizer, an
 723 envelope follower, distortion effects, tape effects and more.")
 724     (license license:gpl2+)))
 725
 726 (define-public swh-plugins
 727   (package
 728     (name "swh-plugins")
 729     (version "0.4.17")
 730     (source (origin
 731               (method git-fetch)
 732               (uri (git-reference
 733                     (url "https://github.com/swh/ladspa.git")
 734                     (commit (string-append "v" version))))
 735               (file-name (git-file-name name version))
 736               (sha256
 737                (base32
 738                 "1c98z2xxz9pgcb4dg99gz8qrylh5cnag0j18a52d88ifsy24isvq"))))
 739     (native-inputs
 740      `(("autoconf" ,autoconf)
 741        ("automake" ,automake)
 742        ("gettext" ,gettext-minimal) ;for autopoint
 743        ("libtool" ,libtool)
 744        ("perl" ,perl)
 745        ("pkg-config" ,pkg-config)
 746        ("which" ,which)))
 747     (inputs
 748      `(("fftwf" ,fftwf)
 749        ("perl-xml-parser" ,perl-xml-parser)))
 750     (build-system gnu-build-system)
 751     (home-page "http://plugin.org.uk")
 752     (synopsis "The SWH Plugins package for the LADSPA plugin system")
 753     (description "This package provides Steve Harris's LADSPA plugins.")
 754     (license license:gpl2+)))
 755
 756 (define-public swh-plugins-lv2
 757   (package
 758     (name "swh-plugins-lv2")
 759     (version "1.0.16")
 760     (source (origin
 761               (method git-fetch)
 762               (uri (git-reference
 763                     (url "https://github.com/swh/lv2.git")
 764                     (commit (string-append "v" version))))
 765               (file-name (git-file-name name version))
 766               (sha256
 767                (base32
 768                 "0y7nnww864mm4k6ayy2lhcws3wlbhb2gkyjbrwk921fvc18qk9mz"))))
 769     (build-system gnu-build-system)
 770     (arguments
 771      `(#:tests? #f ; no check target
 772        #:make-flags (list "CC=gcc"
 773                           (string-append "PREFIX="
 774                                          (assoc-ref %outputs "out")))
 775        #:phases
 776        (modify-phases %standard-phases
 777          ;; no configure script
 778          (delete 'configure)
 779          (add-after 'unpack 'patch-makefile-and-enter-directory
 780            ;; The default install target doesn't install, but the
 781            ;; "install-system" target does.
 782            (lambda _
 783              (substitute* "Makefile"
 784                (("install:") "install: install-system"))
 785              #t)))))
 786     (inputs
 787      `(("lv2" ,lv2)
 788        ("fftwf" ,fftwf)))
 789     (native-inputs
 790      `(("libxslt" ,libxslt)
 791        ("pkg-config" ,pkg-config)))
 792     (home-page "http://plugin.org.uk")
 793     (synopsis "SWH plugins in LV2 format")
 794     (description
 795      "Swh-plugins-lv2 is a collection of audio plugins in LV2 format.  Plugin
 796 classes include: dynamics (compressor, limiter), time (delay, chorus,
 797 flanger), ringmodulator, distortion, filters, pitchshift, oscillators,
 798 emulation (valve, tape), bit fiddling (decimator, pointer-cast), etc.")
 799     (license license:gpl3+)))
 800
 801 (define-public csound
 802   (package
 803     (name "csound")
 804     (version "6.13.0")
 805     (source (origin
 806               (method git-fetch)
 807               (uri (git-reference
 808                     (url "https://github.com/csound/csound.git")
 809                     (commit version)))
 810               (file-name (git-file-name name version))
 811               (sha256
 812                (base32
 813                 "14822ybqyp31z18gky2y9zadr9dkbhabg97y139py73w7v3af1bh"))))
 814     (build-system cmake-build-system)
 815     (inputs
 816      `(("alsa-lib" ,alsa-lib)
 817        ("boost" ,boost)
 818        ("pulseaudio" ,pulseaudio)
 819        ("libsndfile" ,libsndfile)
 820        ("liblo" ,liblo)
 821        ("ladspa" ,ladspa)
 822        ("jack" ,jack-1)
 823        ("gettext" ,gettext-minimal)))
 824     (native-inputs
 825      `(("bison" ,bison)
 826        ("flex" ,flex)
 827        ("zlib" ,zlib)))
 828     (home-page "https://csound.com/")
 829     (synopsis "Sound and music computing system")
 830     (description
 831      "Csound is a user-programmable and user-extensible sound processing
 832 language and software synthesizer.")
 833     (license license:lgpl2.1+)))
 834
 835 (define-public clalsadrv
 836   (package
 837     (name "clalsadrv")
 838     (version "2.0.0")
 839     (source (origin
 840               (method url-fetch)
 841               (uri (string-append
 842                     "http://kokkinizita.linuxaudio.org"
 843                     "/linuxaudio/downloads/clalsadrv-"
 844                     version ".tar.bz2"))
 845               (sha256
 846                (base32
 847                 "0bsacx3l9065gk8g4137qmz2ij7s9x06aldvacinzlcslw7bd1kq"))))
 848     (build-system gnu-build-system)
 849     (arguments
 850      `(#:tests? #f ; no "check" target
 851        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
 852        #:phases
 853        (modify-phases %standard-phases
 854          (add-after 'unpack 'patch-makefile-and-enter-directory
 855            (lambda _
 856              (substitute* "libs/Makefile"
 857                (("/sbin/ldconfig") "true")
 858                (("^LIBDIR =.*") "LIBDIR = lib\n"))
 859              (chdir "libs")
 860              #t))
 861          (add-after 'install 'install-symlink
 862            (lambda _
 863              (symlink "libclalsadrv.so"
 864                       (string-append (assoc-ref %outputs "out")
 865                                      "/lib/libclalsadrv.so.2"))
 866              #t))
 867          ;; no configure script
 868          (delete 'configure))))
 869     (inputs
 870      `(("alsa-lib" ,alsa-lib)
 871        ("fftw" ,fftw)))
 872     (home-page "https://kokkinizita.linuxaudio.org")
 873     (synopsis "C++ wrapper around the ALSA API")
 874     (description
 875      "clalsadrv is a C++ wrapper around the ALSA API simplifying access to
 876 ALSA PCM devices.")
 877     (license license:gpl2+)))
 878
 879 (define-public amb-plugins
 880   (package
 881     (name "amb-plugins")
 882     (version "0.8.1")
 883     (source (origin
 884               (method url-fetch)
 885               (uri (string-append
 886                     "http://kokkinizita.linuxaudio.org"
 887                     "/linuxaudio/downloads/AMB-plugins-"
 888                     version ".tar.bz2"))
 889               (sha256
 890                (base32
 891                 "0x4blm4visjqj0ndqr0cg776v3b7lvplpc8cgi9n51llhavn0jpl"))))
 892     (build-system gnu-build-system)
 893     (arguments
 894      `(#:tests? #f ; no "check" target
 895        #:phases
 896        (modify-phases %standard-phases
 897          ;; no configure script
 898          (delete 'configure)
 899          (add-before 'install 'prepare-target-directory
 900            (lambda* (#:key outputs #:allow-other-keys)
 901              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 902              #t))
 903          (add-after 'unpack 'override-target-directory-and-tool-paths
 904            (lambda* (#:key outputs #:allow-other-keys)
 905              (substitute* "Makefile"
 906                (("/usr/lib/ladspa")
 907                 (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 908                (("/usr/bin/install") (which "install"))
 909                (("/bin/rm") "#"))
 910              #t)))))
 911     (home-page "https://kokkinizita.linuxaudio.org")
 912     (synopsis "LADSPA ambisonics plugins")
 913     (description
 914      "The AMB plugins are a set of LADSPA ambisonics plugins, mainly to be
 915 used within Ardour.  Features include: mono and stereo to B-format panning,
 916 horizontal rotator, square, hexagon and cube decoders.")
 917     (license license:gpl2+)))
 918
 919 (define-public mcp-plugins
 920   (package
 921     (name "mcp-plugins")
 922     (version "0.4.0")
 923     (source (origin
 924               (method url-fetch)
 925               (uri (string-append
 926                     "http://kokkinizita.linuxaudio.org"
 927                     "/linuxaudio/downloads/MCP-plugins-"
 928                     version ".tar.bz2"))
 929               (sha256
 930                (base32
 931                 "06a9r1l85jmg7l1cvc3788mk8ra0xagjfy1rmhw3b80y4n0vlnvc"))))
 932     (build-system gnu-build-system)
 933     (arguments
 934      `(#:tests? #f ; no "check" target
 935        #:phases
 936        (modify-phases %standard-phases
 937          ;; no configure script
 938          (delete 'configure)
 939          (add-before 'install 'prepare-target-directory
 940            (lambda* (#:key outputs #:allow-other-keys)
 941              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 942              #t))
 943          (add-after 'unpack 'override-target-directory
 944            (lambda* (#:key outputs #:allow-other-keys)
 945              (substitute* "Makefile"
 946                (("/usr") (assoc-ref outputs "out")))
 947              #t)))))
 948     (home-page "https://kokkinizita.linuxaudio.org")
 949     (synopsis "Chorus, phaser, and vintage high-pass and low-pass filters")
 950     (description
 951      "This package provides various LADSPA plugins.  @code{cs_chorus} and
 952 @code{cs_phaser} provide chorus and phaser effects, respectively;
 953 @code{mvclpf24} provides four implementations of the low-pass filter used in
 954 vintage Moog synthesizers; @code{mvchpf24} is based on the voltage-controlled
 955 high-pass filter by Robert Moog.  The filters attempt to accurately emulate
 956 the non-linear circuit elements of their original analog counterparts.")
 957     (license license:gpl2+)))
 958
 959 (define-public rev-plugins
 960   (package
 961     (name "rev-plugins")
 962     (version "0.7.1")
 963     (source (origin
 964               (method url-fetch)
 965               (uri (string-append
 966                     "http://kokkinizita.linuxaudio.org"
 967                     "/linuxaudio/downloads/REV-plugins-"
 968                     version ".tar.bz2"))
 969               (sha256
 970                (base32
 971                 "1ikpinxm00pkfi259bnkzhsy3miagrjgdihaaf5x4v7zac29j3g7"))))
 972     (build-system gnu-build-system)
 973     (arguments
 974      `(#:tests? #f ; no "check" target
 975        #:phases
 976        (modify-phases %standard-phases
 977          ;; no configure script
 978          (delete 'configure)
 979          (add-before 'install 'prepare-target-directory
 980            (lambda* (#:key outputs #:allow-other-keys)
 981              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
 982              #t))
 983          (add-after 'unpack 'override-target-directory
 984            (lambda* (#:key outputs #:allow-other-keys)
 985              (substitute* "Makefile"
 986                (("/usr") (assoc-ref outputs "out")))
 987              #t)))))
 988     (home-page "https://kokkinizita.linuxaudio.org")
 989     (synopsis "LADSPA reverb plugin")
 990     (description
 991      "This package provides a stereo reverb LADSPA plugin based on the
 992 well-known greverb.")
 993     (license license:gpl2+)))
 994
 995 (define-public fil-plugins
 996   (package
 997     (name "fil-plugins")
 998     (version "0.3.0")
 999     (source (origin
1000               (method url-fetch)
1001               (uri (string-append
1002                     "http://kokkinizita.linuxaudio.org"
1003                     "/linuxaudio/downloads/FIL-plugins-"
1004                     version ".tar.bz2"))
1005               (sha256
1006                (base32
1007                 "1scfv9j7jrp50r565haa4rvxn1vk2ss86xssl5qgcr8r45qz42qw"))))
1008     (build-system gnu-build-system)
1009     (arguments
1010      `(#:tests? #f ; no "check" target
1011        #:phases
1012        (modify-phases %standard-phases
1013          ;; no configure script
1014          (delete 'configure)
1015          (add-before 'install 'prepare-target-directory
1016            (lambda* (#:key outputs #:allow-other-keys)
1017              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
1018              #t))
1019          (add-after 'unpack 'override-target-directory
1020            (lambda* (#:key outputs #:allow-other-keys)
1021              (substitute* "Makefile"
1022                (("/usr") (assoc-ref outputs "out")))
1023              #t)))))
1024     (home-page "https://kokkinizita.linuxaudio.org")
1025     (synopsis "LADSPA four-band parametric equalizer plugin")
1026     (description
1027      "This package provides a LADSPA plugin for a four-band parametric
1028 equalizer.  Each section has an active/bypass switch, frequency, bandwidth and
1029 gain controls.  There is also a global bypass switch and gain control.
1030
1031 The 2nd order resonant filters are implemented using a Mitra-Regalia style
1032 lattice filter, which is stable even while parameters are being changed.
1033
1034 All switches and controls are internally smoothed, so they can be used @code{live}
1035 without any clicks or zipper noises.  This makes this plugin suitable for use
1036 in systems that allow automation of plugin control ports, such as Ardour, or
1037 for stage use.")
1038     (license license:gpl2+)))
1039
1040 (define-public ste-plugins
1041   (package
1042     (name "ste-plugins")
1043     (version "0.0.2")
1044     (source (origin
1045               (method url-fetch)
1046               (uri (string-append
1047                     "http://kokkinizita.linuxaudio.org"
1048                     "/linuxaudio/downloads/STE-plugins-"
1049                     version ".tar.bz2"))
1050               (sha256
1051                (base32
1052                 "0s3c9w5xihs87cnd1lh9xgj3maabjdyh6bl766qp5lhkg3ax8zy6"))))
1053     (build-system gnu-build-system)
1054     (arguments
1055      `(#:tests? #f ; no "check" target
1056        #:phases
1057        (modify-phases %standard-phases
1058          ;; no configure script
1059          (delete 'configure)
1060          (add-before 'install 'prepare-target-directory
1061            (lambda* (#:key outputs #:allow-other-keys)
1062              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
1063              #t))
1064          (add-after 'unpack 'override-target-directory
1065            (lambda* (#:key outputs #:allow-other-keys)
1066              (substitute* "Makefile"
1067                (("/usr") (assoc-ref outputs "out")))
1068              #t)))))
1069     (home-page "https://kokkinizita.linuxaudio.org")
1070     (synopsis "LADSPA stereo width plugin")
1071     (description
1072      "This package provides a LADSPA plugin to manipulate the stereo width of
1073 audio signals.")
1074     (license license:gpl2+)))
1075
1076 (define-public vco-plugins
1077   (package
1078     (name "vco-plugins")
1079     (version "0.3.0")
1080     (source (origin
1081               (method url-fetch)
1082               (uri (string-append
1083                     "http://kokkinizita.linuxaudio.org"
1084                     "/linuxaudio/downloads/VCO-plugins-"
1085                     version ".tar.bz2"))
1086               (sha256
1087                (base32
1088                 "1xzqdg3b07r7zww05y9bb737l9dxvfkv28m3fyak1aazaci3rsgl"))))
1089     (build-system gnu-build-system)
1090     (arguments
1091      `(#:tests? #f ; no "check" target
1092        #:phases
1093        (modify-phases %standard-phases
1094          ;; no configure script
1095          (delete 'configure)
1096          (add-before 'install 'prepare-target-directory
1097            (lambda* (#:key outputs #:allow-other-keys)
1098              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
1099              #t))
1100          (add-after 'unpack 'override-target-directory
1101            (lambda* (#:key outputs #:allow-other-keys)
1102              (substitute* "Makefile"
1103                (("/usr") (assoc-ref outputs "out"))
1104                (("/bin/cp") (which "cp")))
1105              #t)))))
1106     (home-page "https://kokkinizita.linuxaudio.org")
1107     (synopsis "LADSPA plugin for synthesizer oscillators")
1108     (description
1109      "The @code{blvco} LADSPA plugin provides three anti-aliased oscillators:
1110
1111 @enumerate
1112 @item Pulse-VCO, a dirac pulse oscillator with flat amplitude spectrum
1113 @item Saw-VCO, a sawtooth oscillator with 1/F amplitude spectrum
1114 @item Rec-VCO, a square / rectangle oscillator
1115 @end enumerate\n
1116
1117 All oscillators are low-pass filtered to provide waveforms similar to the
1118 output of analog synthesizers such as the Moog Voyager.")
1119     (license license:gpl2+)))
1120
1121 (define-public wah-plugins
1122   (package
1123     (name "wah-plugins")
1124     (version "0.1.0")
1125     (source (origin
1126               (method url-fetch)
1127               (uri (string-append
1128                     "http://kokkinizita.linuxaudio.org"
1129                     "/linuxaudio/downloads/WAH-plugins-"
1130                     version ".tar.bz2"))
1131               (sha256
1132                (base32
1133                 "1wkbjarxdhjixkh7d5abralj11dj2xxg644fz3ycd7qyfgfvjfgd"))))
1134     (build-system gnu-build-system)
1135     (arguments
1136      `(#:tests? #f ; no "check" target
1137        #:phases
1138        (modify-phases %standard-phases
1139          ;; no configure script
1140          (delete 'configure)
1141          (add-before 'install 'prepare-target-directory
1142            (lambda* (#:key outputs #:allow-other-keys)
1143              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
1144              #t))
1145          (add-after 'unpack 'override-target-directory
1146            (lambda* (#:key outputs #:allow-other-keys)
1147              (substitute* "Makefile"
1148                (("/usr") (assoc-ref outputs "out")))
1149              #t)))))
1150     (home-page "https://kokkinizita.linuxaudio.org")
1151     (synopsis "LADSPA Autowah effect plugin")
1152     (description
1153      "This package provides a LADSPA plugin for a Wah effect with envelope
1154 follower.")
1155     (license license:gpl2+)))
1156
1157 (define-public g2reverb
1158   (package
1159     (name "g2reverb")
1160     (version "0.7.1")
1161     (source (origin
1162               (method url-fetch)
1163               (uri (string-append
1164                     "http://kokkinizita.linuxaudio.org"
1165                     "/linuxaudio/downloads/g2reverb-"
1166                     version ".tar.bz2"))
1167               (sha256
1168                (base32
1169                 "18wb8vj1kky5glr76s34awbi8qzplsmf3wjbd7a12hfv4j0bkwrj"))))
1170     (build-system gnu-build-system)
1171     (arguments
1172      `(#:tests? #f ; no "check" target
1173        #:phases
1174        (modify-phases %standard-phases
1175          ;; no configure script
1176          (delete 'configure)
1177          (add-before 'install 'prepare-target-directory
1178            (lambda* (#:key outputs #:allow-other-keys)
1179              (mkdir-p (string-append (assoc-ref outputs "out") "/lib/ladspa"))
1180              #t))
1181          (add-after 'unpack 'override-target-directory
1182            (lambda* (#:key outputs #:allow-other-keys)
1183              (substitute* "Makefile"
1184                (("/usr") (assoc-ref outputs "out")))
1185              #t)))))
1186     (home-page "https://kokkinizita.linuxaudio.org")
1187     (synopsis "LADSPA stereo reverb plugin")
1188     (description
1189      "This package provides a LADSPA plugin for a stereo reverb effect.")
1190     (license license:gpl2+)))
1191
1192 (define-public fluidsynth
1193   (package
1194     (name "fluidsynth")
1195     (version "2.1.0")
1196     (source (origin
1197               (method git-fetch)
1198               (uri (git-reference
1199                     (url "https://github.com/FluidSynth/fluidsynth.git")
1200                     (commit (string-append "v" version))))
1201               (file-name (git-file-name name version))
1202               (sha256
1203                (base32
1204                 "0jhla1641rx77va4b6n4shn8srj87rpwvp170byj1bg8z8g89ji1"))))
1205     (build-system cmake-build-system)
1206     (arguments
1207      '(#:tests? #f                      ; no check target
1208        #:phases
1209        (modify-phases %standard-phases
1210          (add-after 'unpack 'fix-libdir
1211            (lambda _
1212              ;; Install libraries to /lib, not /lib64.
1213              (substitute* "CMakeLists.txt"
1214                (("LIB_SUFFIX \\$\\{_init_lib_suffix\\}")
1215                 "LIB_SUFFIX \"\""))
1216              #t)))))
1217     (inputs
1218      `(("libsndfile" ,libsndfile)
1219        ("alsa-lib" ,alsa-lib)
1220        ("jack" ,jack-1)
1221        ("ladspa" ,ladspa)
1222        ("lash" ,lash)
1223        ("readline" ,readline)
1224        ("glib" ,glib)))
1225     (native-inputs
1226      `(("pkg-config" ,pkg-config)))
1227     (home-page "http://www.fluidsynth.org/")
1228     (synopsis "SoundFont synthesizer")
1229     (description
1230      "FluidSynth is a real-time software synthesizer based on the SoundFont 2
1231 specifications.  FluidSynth reads and handles MIDI events from the MIDI input
1232 device.  It is the software analogue of a MIDI synthesizer.  FluidSynth can
1233 also play midifiles using a Soundfont.")
1234     (license license:lgpl2.1+)))
1235
1236 ;; gzdoom@3.3.0 and lmms@1.1.3 requires this version.  Remove once no longer
1237 ;; needed.
1238 (define-public fluidsynth-1
1239   (package
1240     (inherit fluidsynth)
1241     (version "1.1.11")
1242     (source (origin
1243               (inherit (package-source fluidsynth))
1244               (uri (git-reference
1245                     (url "https://github.com/FluidSynth/fluidsynth")
1246                     (commit (string-append "v" version))))
1247               (file-name (git-file-name "fluidsynth" version))
1248               (sha256
1249                (base32
1250                 "0n75jq3xgq46hfmjkaaxz3gic77shs4fzajq40c8gk043i84xbdh"))))))
1251
1252 (define-public faad2
1253   (package
1254     (name "faad2")
1255     (version "2.8.6")
1256     (source (origin
1257               (method url-fetch)
1258               (uri (string-append "mirror://sourceforge/faac/faad2-src/faad2-"
1259                                   (version-major+minor version) ".0/"
1260                                   "faad2-" version ".tar.gz"))
1261               (sha256
1262                (base32
1263                 "089zqykqgmmysznvk0bi2pfvdqwclnn540d0zks83sv2pynpfjb5"))))
1264     (build-system gnu-build-system)
1265     (home-page "https://www.audiocoding.com/faad2.html")
1266     (synopsis "MPEG-4 and MPEG-2 AAC decoder")
1267     (description
1268      "FAAD2 is an MPEG-4 and MPEG-2 AAC decoder supporting LC, Main, LTP, SBR,
1269 PS, and DAB+.")
1270     (license license:gpl2)))
1271
1272 (define-public faust
1273   (package
1274     (name "faust")
1275     (version "0.9.90")
1276     (source (origin
1277               (method git-fetch)
1278               (uri (git-reference
1279                     (url "https://github.com/grame-cncm/faust.git")
1280                     (commit (string-append "v"
1281                                            (string-map (lambda (c)
1282                                                          (if (char=? c #\.) #\- c))
1283                                                        version)))))
1284               (file-name (string-append "faust-" version "-checkout"))
1285               (sha256
1286                (base32
1287                 "0qc6iwjd3i80jdyjc186c6ywipmjzl8wlsp4050pbr56q4rlkd4z"))))
1288     (build-system gnu-build-system)
1289     (arguments
1290      `(#:make-flags (list (string-append "prefix=" (assoc-ref %outputs "out")))
1291        #:tests? #f
1292        #:phases
1293        (modify-phases %standard-phases
1294          ;; no "configure" script
1295          (delete 'configure)
1296          ;; Files appear under $out/share/faust that are read-only.  The
1297          ;; install phase tries to overwrite them and fails, so we change
1298          ;; the permissions first.
1299          (add-before 'install 'fix-permissions
1300            (lambda _
1301              (for-each (lambda (file)
1302                          (chmod file #o644))
1303                        (find-files "architecture/max-msp" ".*"))
1304              #t)))))
1305     (native-inputs
1306      `(("unzip" ,unzip)))
1307     (home-page "http://faust.grame.fr/")
1308     (synopsis "Signal processing language")
1309     (description
1310      "Faust is a programming language for realtime audio signal processing.")
1311     (license license:gpl2+)))
1312
1313 (define-public faust-2
1314   (package
1315     (inherit faust)
1316     (version "2.5.23")
1317     (source (origin
1318               (method url-fetch)
1319               (uri (string-append "https://github.com/grame-cncm/faust/"
1320                                   "releases/download/" version
1321                                   "/faust-" version ".tar.gz"))
1322               (sha256
1323                (base32
1324                 "1yz5jnr76hh7rmxkpdi7gyrw1wp4gyqfpq8zyl97qdi5ga5gjznq"))))
1325     (build-system gnu-build-system)
1326     (arguments
1327      (substitute-keyword-arguments (package-arguments faust)
1328        ((#:make-flags flags)
1329         `(list (string-append "prefix=" (assoc-ref %outputs "out"))
1330                "world"))))
1331     (native-inputs
1332      `(("llvm" ,llvm-3.8)
1333        ("which" ,which)
1334        ("xxd" ,xxd)
1335        ("ctags" ,emacs-minimal)  ; for ctags
1336        ("pkg-config" ,pkg-config)))
1337     (inputs
1338      `(("libsndfile" ,libsndfile)
1339        ("libmicrohttpd" ,libmicrohttpd)
1340        ("ncurses" ,ncurses)
1341        ("openssl" ,openssl)
1342        ("zlib" ,zlib)))))
1343
1344 (define-public freepats
1345   (package
1346     (name "freepats")
1347     (version "20060219")
1348     (source (origin
1349               (method url-fetch)
1350               (uri (string-append "http://freepats.zenvoid.org/freepats-"
1351                                   version ".tar.bz2"))
1352               (sha256
1353                (base32
1354                 "12iw36rd94zirll96cd5k0va7p5hxmf2shvjlhzihcmjaw8flq82"))))
1355     (build-system trivial-build-system)
1356     (arguments
1357      `(#:modules ((guix build utils))
1358        #:builder (begin
1359                    (use-modules (guix build utils))
1360                    (let ((out (string-append %output "/share/freepats")))
1361                      (setenv "PATH" (string-append
1362                                      (assoc-ref %build-inputs "bzip2") "/bin:"
1363                                      (assoc-ref %build-inputs "tar") "/bin"))
1364                      (invoke "tar" "xvf" (assoc-ref %build-inputs "source"))
1365                      (chdir "freepats")
1366                      ;; Use absolute pattern references
1367                      (substitute* "freepats.cfg"
1368                        (("Tone_000") (string-append out "/Tone_000"))
1369                        (("Drum_000") (string-append out "/Drum_000")))
1370                      (mkdir-p out)
1371                      (copy-recursively "." out)
1372                      #t))))
1373     (native-inputs
1374      `(("tar" ,tar)
1375        ("bzip2" ,bzip2)))
1376     (home-page "http://freepats.zenvoid.org")
1377     (synopsis "GUS compatible patches for MIDI players")
1378     (description
1379      "FreePats is a project to create a free and open set of GUS compatible
1380 patches that can be used with softsynths such as Timidity and WildMidi.")
1381     ;; GPLv2+ with exception for compositions using these patches.
1382     (license license:gpl2+)))
1383
1384 (define-public guitarix
1385   (package
1386     (name "guitarix")
1387     (version "0.38.1")
1388     (source (origin
1389              (method url-fetch)
1390              (uri (string-append
1391                    "mirror://sourceforge/guitarix/guitarix/guitarix2-"
1392                    version ".tar.xz"))
1393              (sha256
1394               (base32
1395                "0bw7xnrx062nwb1bfj9x660h7069ncmz77szcs8icpqxrvhs7z80"))))
1396     (build-system waf-build-system)
1397     (arguments
1398      `(#:tests? #f ; no "check" target
1399        #:python ,python-2
1400        #:configure-flags
1401        (list
1402         ;; Add the output lib directory to the RUNPATH.
1403         (string-append "--ldflags=-Wl,-rpath=" %output "/lib"))
1404        #:phases
1405        (modify-phases %standard-phases
1406          (add-after 'unpack 'fix-boost-includes
1407            (lambda _
1408              (substitute* "src/headers/gx_internal_plugins.h"
1409                (("namespace gx_jack" m)
1410                 (string-append "#include <boost/noncopyable.hpp>\n" m)))
1411              (substitute* '("src/headers/gx_system.h"
1412                             "src/headers/gx_parameter.h"
1413                             "src/headers/gx_json.h")
1414                (("namespace gx_system" m)
1415                 (string-append "#include <boost/noncopyable.hpp>\n" m)))
1416              #t)))))
1417     (inputs
1418      `(("libsndfile" ,libsndfile)
1419        ("boost" ,boost)
1420        ("curl" ,curl)
1421        ("avahi" ,avahi)
1422        ("eigen" ,eigen)
1423        ("lv2" ,lv2)
1424        ("lilv" ,lilv)
1425        ("ladspa" ,ladspa)
1426        ("jack" ,jack-1)
1427        ("gtkmm" ,gtkmm-2)
1428        ("gtk+" ,gtk+-2)
1429        ("fftwf" ,fftwf)
1430        ("lrdf" ,lrdf)
1431        ("zita-resampler" ,zita-resampler)
1432        ("zita-convolver" ,zita-convolver)))
1433     (native-inputs
1434      `(("gperf" ,gperf)
1435        ("faust" ,faust)
1436        ("intltool" ,intltool)
1437        ("gettext" ,gettext-minimal)
1438        ("pkg-config" ,pkg-config)))
1439     (native-search-paths
1440      (list (search-path-specification
1441             (variable "LV2_PATH")
1442             (files '("lib/lv2")))))
1443     (home-page "http://guitarix.org/")
1444     (synopsis "Virtual guitar amplifier")
1445     (description "Guitarix is a virtual guitar amplifier running JACK.
1446 Guitarix takes the signal from your guitar as a mono-signal from your sound
1447 card.  The input is processed by a main amp and a rack-section.  Both can be
1448 routed separately and deliver a processed stereo-signal via JACK.  You may
1449 fill the rack with effects from more than 25 built-in modules including stuff
1450 from a simple noise gate to modulation effects like flanger, phaser or
1451 auto-wah.")
1452     (license license:gpl2+)))
1453
1454 (define-public guitarix-lv2
1455   (package (inherit guitarix)
1456     (name "guitarix-lv2")
1457     (arguments
1458      (substitute-keyword-arguments (package-arguments guitarix)
1459        ((#:configure-flags flags)
1460         `(cons "--no-standalone" ,flags))))))
1461
1462 (define-public rakarrack
1463   (package
1464     (name "rakarrack")
1465     (version "0.6.1")
1466     (source (origin
1467               (method url-fetch)
1468               (uri (string-append "mirror://sourceforge/rakarrack/rakarrack/"
1469                                   "rakarrack-" version "/rakarrack-"
1470                                   version ".tar.bz2"))
1471               (sha256
1472                (base32
1473                 "1rpf63pdn54c4yg13k7cb1w1c7zsvl97c4qxcpz41c8l91xd55kn"))
1474               (modules '((guix build utils)))
1475               (snippet
1476                '(begin
1477                   (substitute* '("src/process.C"
1478                                  "src/global.h")
1479                     (("#include <Fl/") "#include <FL/"))
1480                   #t))))
1481     (build-system gnu-build-system)
1482     (inputs
1483      `(("alsa-utils" ,alsa-utils)
1484        ("fltk" ,fltk)
1485        ("libx11" ,libx11)
1486        ("libxext" ,libxext)
1487        ("libxfixes" ,libxfixes)
1488        ("libxft" ,libxft)
1489        ("libxrender" ,libxrender)
1490        ("libxpm" ,libxpm)
1491        ("fontconfig" ,fontconfig)
1492        ("freetype" ,freetype)
1493        ("jack" ,jack-1)
1494        ("alsa-lib" ,alsa-lib)
1495        ("libsndfile" ,libsndfile)
1496        ("libsamplerate" ,libsamplerate)
1497        ("zlib" ,zlib)))
1498     (home-page "http://rakarrack.sourceforge.net/")
1499     (synopsis "Audio effects processor")
1500     (description
1501      "Rakarrack is a richly featured multi-effects processor emulating a
1502 guitar effects pedalboard.  Effects include compressor, expander, noise gate,
1503 equalizers, exciter, flangers, chorus, various delay and reverb effects,
1504 distortion modules and many more.  Most of the effects engine is built from
1505 modules found in the excellent software synthesizer ZynAddSubFX.  Presets and
1506 user interface are optimized for guitar, but Rakarrack processes signals in
1507 stereo while it does not apply internal band-limiting filtering, and thus is
1508 well suited to all musical instruments and vocals.")
1509     ;; The code is explicitly licensed under the GPL version 2 only.
1510     (license license:gpl2)))
1511
1512 (define-public ir
1513   (package
1514     (name "ir")
1515     (version "1.3.2")
1516     (source (origin
1517              (method url-fetch)
1518              ;; The original home-page is gone. Download the tarball from an
1519              ;; archive mirror instead.
1520              (uri (list (string-append
1521                          "https://web.archive.org/web/20150803095032/"
1522                          "http://factorial.hu/system/files/ir.lv2-"
1523                          version ".tar.gz")
1524                         (string-append
1525                          "https://mirrors.kernel.org/gentoo/distfiles/ir.lv2-"
1526                          version ".tar.gz")))
1527              (sha256
1528               (base32
1529                "1jh2z01l9m4ar7yz0n911df07dygc7n4cl59p7qdjbh0nvkm747g"))))
1530     (build-system gnu-build-system)
1531     (arguments
1532      `(#:tests? #f                              ; no tests
1533        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1534        #:phases (modify-phases %standard-phases
1535                   (delete 'configure))))        ; no configure script
1536     (inputs
1537      `(("libsndfile" ,libsndfile)
1538        ("libsamplerate" ,libsamplerate)
1539        ("lv2" ,lv2)
1540        ("glib" ,glib)
1541        ("gtk+" ,gtk+-2)
1542        ("zita-convolver" ,zita-convolver)))
1543     (native-inputs
1544      `(("pkg-config" ,pkg-config)))
1545     (native-search-paths
1546      (list (search-path-specification
1547             (variable "LV2_PATH")
1548             (files '("lib/lv2")))))
1549     ;; Link to an archived copy of the home-page since the original is gone.
1550     (home-page (string-append "https://web.archive.org/web/20150803095032/"
1551                               "http://factorial.hu/plugins/lv2/ir"))
1552     (synopsis "LV2 convolution reverb")
1553     (description
1554      "IR is a low-latency, real-time, high performance signal convolver
1555 especially for creating reverb effects.  It supports impulse responses with 1,
1556 2 or 4 channels, in any soundfile format supported by libsndfile.")
1557     (license license:gpl2+)))
1558
1559 (define-public jack-1
1560   (package
1561     (name "jack")
1562     (version "0.125.0")
1563     (source (origin
1564              (method url-fetch)
1565              (uri (string-append
1566                    "http://jackaudio.org/downloads/jack-audio-connection-kit-"
1567                    version
1568                    ".tar.gz"))
1569              (sha256
1570               (base32
1571                "0i6l25dmfk2ji2lrakqq9icnwjxklgcjzzk65dmsff91z2zva5rm"))))
1572     (build-system gnu-build-system)
1573     (arguments
1574      `(#:phases (modify-phases %standard-phases
1575                   (add-after 'unpack 'patch-configure
1576                     (lambda _
1577                       (substitute* "configure"
1578                         ;; Install to <out/lib> regardless of platform.
1579                         (("libnn=lib64") "libnn=lib"))
1580                       #t)))))
1581     (inputs
1582      `(("alsa-lib" ,alsa-lib)
1583        ("readline" ,readline)))
1584     ;; uuid.h is included in the JACK type headers
1585     ;; db.h is included in the libjack metadata headers
1586     (propagated-inputs
1587      `(("libuuid" ,util-linux)
1588        ("bdb" ,bdb)))
1589     (native-inputs
1590      `(("pkg-config" ,pkg-config)))
1591     (home-page "http://jackaudio.org/")
1592     (synopsis "JACK audio connection kit")
1593     (description
1594      "JACK is a low-latency audio server.  It can connect a number of
1595 different applications to an audio device, as well as allowing them to share
1596 audio between themselves.  JACK is different from other audio server efforts
1597 in that it has been designed from the ground up to be suitable for
1598 professional audio work.  This means that it focuses on two key areas:
1599 synchronous execution of all clients, and low latency operation.")
1600     ;; Most files are licensed under the GPL. However, the libjack/ tree is
1601     ;; licensed under the LGPL in order to allow for proprietary usage.
1602     (license (list license:gpl2+ license:lgpl2.1+))))
1603
1604 ;; Packages depending on JACK should always prefer jack-1.  Both jack-1 and
1605 ;; jack-2 implement the same API.  JACK2 is provided primarily as a client
1606 ;; program for users who might benefit from the D-BUS features.
1607 (define-public jack-2
1608   (package (inherit jack-1)
1609     (name "jack2")
1610     (version "1.9.13")
1611     (source (origin
1612              (method url-fetch)
1613              (uri (string-append "https://github.com/jackaudio/jack2/releases/"
1614                                  "download/v" version "/jack2-"
1615                                  version ".tar.gz"))
1616              (file-name (string-append name "-" version ".tar.gz"))
1617              (sha256
1618               (base32
1619                "1d1d403jn4366mqig6g8ghr8057b3rn7gs26b5p3rkal34j20qw2"))))
1620     (build-system waf-build-system)
1621     (arguments
1622      `(#:tests? #f  ; no check target
1623        #:configure-flags '("--dbus"
1624                            "--alsa")
1625        #:phases
1626        (modify-phases %standard-phases
1627          (add-before 'configure 'set-linkflags
1628            (lambda _
1629              ;; Add $libdir to the RUNPATH of all the binaries.
1630              (substitute* "wscript"
1631                ((".*CFLAGS.*-Wall.*" m)
1632                 (string-append m
1633                                "    conf.env.append_unique('LINKFLAGS',"
1634                                "'-Wl,-rpath=" %output "/lib')\n")))
1635              #t))
1636          (add-after 'install 'wrap-python-scripts
1637            (lambda* (#:key inputs outputs #:allow-other-keys)
1638              ;; Make sure 'jack_control' runs with the correct PYTHONPATH.
1639              (let* ((out (assoc-ref outputs "out"))
1640                     (path (getenv "PYTHONPATH")))
1641                (wrap-program (string-append out "/bin/jack_control")
1642                  `("PYTHONPATH" ":" prefix (,path))))
1643              #t)))))
1644     (inputs
1645      `(("alsa-lib" ,alsa-lib)
1646        ("dbus" ,dbus)
1647        ("expat" ,expat)
1648        ("libsamplerate" ,libsamplerate)
1649        ("opus" ,opus)
1650        ("python-dbus" ,python-dbus)
1651        ("readline" ,readline)))
1652     (native-inputs
1653      `(("pkg-config" ,pkg-config)))
1654     ;; Most files are under GPLv2+, but some headers are under LGPLv2.1+
1655     (license (list license:gpl2+ license:lgpl2.1+))))
1656
1657 (define-public jalv
1658   (package
1659     (name "jalv")
1660     (version "1.6.4")
1661     (source (origin
1662               (method url-fetch)
1663               (uri (string-append "https://download.drobilla.net/jalv-"
1664                                   version ".tar.bz2"))
1665               (sha256
1666                (base32
1667                 "1wwfn7yzbs37s2rdlfjgks63svd5g14yyzd2gdl7h0z12qncwsy2"))))
1668     (build-system waf-build-system)
1669     (arguments
1670      `(#:tests? #f                      ; no check target
1671        #:python ,python-2))
1672     (inputs
1673      `(("lv2" ,lv2)
1674        ("lilv" ,lilv)
1675        ("suil" ,suil)
1676        ("gtk2" ,gtk+-2)
1677        ("gtk3" ,gtk+)
1678        ("gtkmm" ,gtkmm-2)
1679        ("qtbase" ,qtbase)
1680        ("jack" ,jack-1)))
1681     (native-inputs
1682      `(("pkg-config" ,pkg-config)))
1683     (home-page "https://drobilla.net/software/jalv/")
1684     (synopsis "Simple LV2 host for JACK")
1685     (description
1686      "Jalv is a simple but fully featured LV2 host for JACK.  It runs LV2
1687 plugins and exposes their ports as JACK ports, essentially making any LV2
1688 plugin function as a JACK application.")
1689     (license license:isc)))
1690
1691 (define-public ladspa
1692   (package
1693     (name "ladspa")
1694     (version "1.13")
1695     (source
1696      (origin
1697        (method url-fetch)
1698        ;; Since the official link is dead,
1699        ;; we download the tarball from Debian or Internet Archive.
1700        (uri (list (string-append "http://http.debian.net"
1701                                  "/debian/pool/main/l/ladspa-sdk/ladspa-sdk_"
1702                                  version ".orig.tar.gz")
1703                   (string-append "https://web.archive.org/web/20140717172251/"
1704                                  "http://www.ladspa.org/download/ladspa_sdk_"
1705                                  version ".tgz")))
1706        (sha256
1707         (base32
1708          "0srh5n2l63354bc0srcrv58rzjkn4gv8qjqzg8dnq3rs4m7kzvdm"))))
1709     (build-system gnu-build-system)
1710     (arguments
1711      `(#:tests? #f  ; the "test" target is a listening test only
1712        #:phases
1713        (modify-phases %standard-phases
1714          (replace 'configure
1715            (lambda* (#:key inputs outputs #:allow-other-keys #:rest args)
1716              (chdir "src")
1717              (let ((out (assoc-ref outputs "out")))
1718                (substitute* "makefile"
1719                  (("/usr/lib/ladspa/") (string-append out "/lib/ladspa/"))
1720                  (("/usr/include/")    (string-append out "/include/"))
1721                  (("/usr/bin/")        (string-append out "/bin/"))
1722                  (("-mkdirhier")       "mkdir -p")
1723                  (("^CC.*")            "CC = gcc\n")
1724                  (("^CPP.*")           "CPP = g++\n")))
1725              #t))
1726          (delete 'build))))
1727     ;; Since the home page is gone, we provide a link to the archived version.
1728     (home-page
1729      "https://web.archive.org/web/20140729190945/http://www.ladspa.org/")
1730     (synopsis "Linux Audio Developer's Simple Plugin API (LADSPA)")
1731     (description
1732      "LADSPA is a standard that allows software audio processors and effects
1733 to be plugged into a wide range of audio synthesis and recording packages.")
1734     (license license:lgpl2.1+)))
1735
1736 (define-public lash
1737   (package
1738     (name "lash")
1739     (version "0.6.0-rc2")
1740     (source (origin
1741               (method url-fetch)
1742               ;; The tilde is not permitted in the builder name, but is used
1743               ;; in the tarball.
1744               (uri (string-append
1745                     "mirror://savannah/lash/lash-"
1746                     (string-join (string-split version #\-) "~")
1747                     ".tar.bz2"))
1748               (file-name (string-append name "-" version ".tar.bz2"))
1749               (sha256
1750                (base32
1751                 "12z1vx3krrzsfccpah9xjs68900xvr7bw92wx8np5871i2yv47iw"))))
1752     (build-system gnu-build-system)
1753     (arguments
1754      '(;; Glibc no longer includes Sun RPC support, so tell the build system
1755        ;; to use libtirpc instead.
1756        #:make-flags (list (string-append "CFLAGS=-I"
1757                                          (assoc-ref %build-inputs "libtirpc")
1758                                          "/include/tirpc -ltirpc"))
1759        #:phases
1760        (modify-phases %standard-phases
1761          ;; lashd embeds an ancient version of sigsegv so we just skip it
1762          (add-after 'unpack 'skip-lashd
1763            (lambda _
1764              (substitute* '("Makefile.am" "Makefile.in")
1765                (("lashd ") ""))
1766              #t)))
1767        #:configure-flags '("--disable-static")))
1768     (inputs
1769      `(("bdb" ,bdb)
1770        ("gtk" ,gtk+-2)
1771        ("jack" ,jack-1)
1772        ("libtirpc" ,libtirpc)
1773        ("readline" ,readline)
1774        ("python" ,python-2)))
1775     ;; According to pkg-config, packages depending on lash also need to have
1776     ;; at least the following packages declared as inputs.
1777     (propagated-inputs
1778      `(("alsa-lib" ,alsa-lib)
1779        ("dbus" ,dbus)
1780        ("libxml2" ,libxml2)))
1781     (native-inputs
1782      `(("pkg-config" ,pkg-config)))
1783     (home-page "https://www.nongnu.org/lash/")
1784     (synopsis "Audio application session manager")
1785     (description
1786      "LASH is a session management system for audio applications.  It allows
1787 you to save and restore audio sessions consisting of multiple interconneced
1788 applications, restoring program state (i.e. loaded patches) and the
1789 connections between them.")
1790     (license license:gpl2+)))
1791
1792 (define-public libbs2b
1793   (package
1794     (name "libbs2b")
1795     (version "3.1.0")
1796     (source (origin
1797               (method url-fetch)
1798               (uri (string-append "mirror://sourceforge/bs2b/libbs2b/" version
1799                                   "/libbs2b-" version ".tar.lzma"))
1800               (sha256
1801                (base32
1802                 "1mcc4gjkmphczjybnsrip3gq1f974knzys7x49bv197xk3fn8wdr"))))
1803     (build-system gnu-build-system)
1804     (native-inputs `(("pkg-config" ,pkg-config)))
1805     (inputs `(("libsndfile" ,libsndfile)))
1806     (home-page "https://sourceforge.net/projects/bs2b/")
1807     (synopsis "Bauer stereophonic-to-binaural DSP")
1808     (description
1809      "The Bauer stereophonic-to-binaural DSP (bs2b) library and plugins is
1810 designed to improve headphone listening of stereo audio records.  Recommended
1811 for headphone prolonged listening to disable superstereo fatigue without
1812 essential distortions.")
1813     (license license:expat)))
1814
1815 (define-public liblo
1816   (package
1817     (name "liblo")
1818     (version "0.30")
1819     (source (origin
1820              (method url-fetch)
1821              (uri (string-append "mirror://sourceforge/liblo/liblo/" version
1822                                  "/liblo-" version ".tar.gz"))
1823              (sha256
1824               (base32
1825                "06wdjzxjdshr6hyl4c94yvg3jixiylap8yjs8brdfpm297gck9rh"))))
1826     (build-system gnu-build-system)
1827     (arguments
1828      `(;; liblo test FAILED
1829        ;; liblo server error 19 in setsockopt(IP_ADD_MEMBERSHIP): No such device
1830        #:tests? #f))
1831     (home-page "http://liblo.sourceforge.net")
1832     (synopsis "Implementation of the Open Sound Control protocol")
1833     (description
1834      "liblo is a lightweight library that provides an easy to use
1835 implementation of the Open Sound Control (@dfn{OSC}) protocol.")
1836     (license license:lgpl2.1+)))
1837
1838 (define-public python-pyaudio
1839   (package
1840     (name "python-pyaudio")
1841     (version "0.2.11")
1842     (source
1843      (origin
1844        (method url-fetch)
1845        (uri (pypi-uri "PyAudio" version))
1846        (sha256
1847         (base32
1848          "0x7vdsigm7xgvyg3shd3lj113m8zqj2pxmrgdyj66kmnw0qdxgwk"))))
1849     (build-system python-build-system)
1850     (inputs
1851      `(("portaudio" ,portaudio)))
1852     (home-page "https://people.csail.mit.edu/hubert/pyaudio/")
1853     (synopsis "Bindings for PortAudio v19")
1854     (description "This package provides bindings for PortAudio v19, the
1855 cross-platform audio input/output stream library.")
1856     (license license:expat)))
1857
1858 (define-public python2-pyaudio
1859   (package-with-python2 python-pyaudio))
1860
1861 (define-public python-pyliblo
1862   (package
1863     (name "python-pyliblo")
1864     (version "0.10.0")
1865     (source (origin
1866              (method url-fetch)
1867              (uri (string-append "http://das.nasophon.de/download/pyliblo-"
1868                                  version ".tar.gz"))
1869              (sha256
1870               (base32
1871                "13vry6xhxm7adnbyj28w1kpwrh0kf7nw83cz1yq74wl21faz2rzw"))))
1872     (build-system python-build-system)
1873     (arguments `(#:tests? #f)) ;no tests
1874     (native-inputs
1875      `(("python-cython" ,python-cython)))
1876     (inputs
1877      `(("liblo" ,liblo)))
1878     (home-page "http://das.nasophon.de/pyliblo/")
1879     (synopsis "Python bindings for liblo")
1880     (description
1881      "Pyliblo is a Python wrapper for the liblo Open Sound Control (OSC)
1882 library.  It supports almost the complete functionality of liblo, allowing you
1883 to send and receive OSC messages using a nice and simple Python API.  Also
1884 included are the command line utilities @code{send_osc} and @code{dump_osc}.")
1885     (license license:lgpl2.1+)))
1886
1887 (define-public python2-pyliblo
1888   (package-with-python2 python-pyliblo))
1889
1890 (define-public lilv
1891   (package
1892     (name "lilv")
1893     (version "0.24.6")
1894     (source (origin
1895              (method url-fetch)
1896              (uri (string-append "https://download.drobilla.net/lilv-"
1897                                  version ".tar.bz2"))
1898              (sha256
1899               (base32
1900                "1p3hafsxgs5d4za7n66lf5nz74qssfqpmk520cm7iq2njvvlqm2z"))))
1901     (build-system waf-build-system)
1902     (arguments
1903      `(#:tests? #f                      ; no check target
1904        #:phases
1905        (modify-phases %standard-phases
1906          (add-before 'configure 'set-ldflags
1907           (lambda* (#:key outputs #:allow-other-keys)
1908             (setenv "LDFLAGS"
1909                     (string-append "-Wl,-rpath="
1910                                    (assoc-ref outputs "out") "/lib"))
1911             #t))
1912          (add-after 'unpack 'full-store-path-to-shared-library
1913            (lambda* (#:key outputs #:allow-other-keys)
1914              (with-directory-excursion "bindings/python"
1915                (substitute* "lilv.py"
1916                  (("liblilv-0.so") (string-append (assoc-ref outputs "out")
1917                                                   "/lib/liblilv-0.so"))))
1918              #t)))))
1919     ;; Required by lilv-0.pc.
1920     (propagated-inputs
1921      `(("lv2" ,lv2)
1922        ("serd" ,serd)
1923        ("sord" ,sord)
1924        ("sratom" ,sratom)))
1925     (native-inputs
1926      `(("python" ,python)
1927        ("pkg-config" ,pkg-config)))
1928     (home-page "https://drobilla.net/software/lilv")
1929     (synopsis "Library to simplify use of LV2 plugins in applications")
1930     (description
1931      "Lilv is a C library to make the use of LV2 plugins as simple as possible
1932 for applications.  Lilv is the successor to SLV2, rewritten to be
1933 significantly faster and have minimal dependencies.")
1934     (license license:isc)))
1935
1936 (define-public lv2
1937   (package
1938     (name "lv2")
1939     (version "1.16.0")
1940     (source (origin
1941              (method url-fetch)
1942              (uri (string-append "http://lv2plug.in/spec/lv2-"
1943                                  version ".tar.bz2"))
1944              (sha256
1945               (base32
1946                "1ppippbpdpv13ibs06b0bixnazwfhiw0d0ja6hx42jnkgdyp5hyy"))))
1947     (build-system waf-build-system)
1948     (arguments
1949      `(#:tests? #f  ; no check target
1950        #:configure-flags '("--no-plugins")))
1951     (inputs
1952      ;; Leaving off cairo and gtk+-2.0 which are needed for example plugins
1953      `(("libsndfile" ,libsndfile)))
1954     (native-inputs
1955      `(("pkg-config" ,pkg-config)))
1956     (home-page "http://lv2plug.in/")
1957     (synopsis "LV2 audio plugin specification")
1958     (description
1959      "LV2 is an open specification for audio plugins and host applications.
1960 At its core, LV2 is a simple stable interface, accompanied by extensions which
1961 add functionality to support the needs of increasingly powerful audio
1962 software.")
1963     (license license:isc)))
1964
1965 (define-public lv2-mda-piano
1966   (package
1967     (name "lv2-mda-piano")
1968     (version "0.0.2")
1969     (source (origin
1970               (method git-fetch)
1971               (uri (git-reference
1972                     (url "http://git.elephly.net/software/lv2-mdametapiano.git")
1973                     (commit version)))
1974               (file-name (git-file-name name version))
1975               (sha256
1976                (base32
1977                 "07lywf6lpfpndg3i9w752mmlg2hgn1bwp23h8b0mdj6awh67abqd"))))
1978     (build-system gnu-build-system)
1979     (arguments
1980      `(#:make-flags (list
1981                      "TYPE=mdaPiano"
1982                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
1983        #:tests? #f ; no check target
1984        #:phases (modify-phases %standard-phases (delete 'configure))))
1985     (inputs
1986      `(("lv2" ,lv2)
1987        ("lvtk" ,lvtk)))
1988     (native-inputs
1989      `(("pkg-config" ,pkg-config)))
1990     (native-search-paths
1991      (list (search-path-specification
1992             (variable "LV2_PATH")
1993             (files '("lib/lv2")))))
1994     (home-page "http://elephly.net/lv2/mdapiano.html")
1995     (synopsis "LV2 port of the mda Piano plugin")
1996     (description "An LV2 port of the mda Piano VSTi.")
1997     (license license:gpl3+)))
1998
1999 (define-public lv2-mda-epiano
2000   (package (inherit lv2-mda-piano)
2001     (name "lv2-mda-epiano")
2002     (arguments
2003      `(#:make-flags (list
2004                      "TYPE=mdaEPiano"
2005                      (string-append "PREFIX=" (assoc-ref %outputs "out")))
2006        #:tests? #f ; no check target
2007        #:phases (modify-phases %standard-phases (delete 'configure))))
2008     (home-page "http://elephly.net/lv2/mdaepiano.html")
2009     (synopsis "LV2 port of the mda EPiano plugin")
2010     (description "An LV2 port of the mda EPiano VSTi.")))
2011
2012 (define-public lvtk
2013   (package
2014     (name "lvtk")
2015     (version "1.2.0")
2016     (source (origin
2017              (method git-fetch)
2018              (uri (git-reference
2019                    (url "https://github.com/lvtk/lvtk.git")
2020                    (commit version)))
2021              (file-name (git-file-name name version))
2022              (sha256
2023               (base32
2024                "1b01zvzl70ana6l1kn8fgyr7msnn3c7x61cgw7fdpp50322352p8"))))
2025     (build-system waf-build-system)
2026     (arguments
2027      `(#:tests? #f  ; no check target
2028        #:python ,python-2
2029        #:configure-flags
2030        (list (string-append "--boost-includes="
2031                             (assoc-ref %build-inputs "boost")
2032                             "/include"))))
2033     (inputs
2034      `(("boost" ,boost)
2035        ("gtkmm" ,gtkmm-2)
2036        ("lv2" ,lv2)))
2037     (native-inputs
2038      `(("pkg-config" ,pkg-config)))
2039     (home-page "https://github.com/lvtk/lvtk")
2040     (synopsis "C++ libraries for LV2 plugins")
2041     (description
2042      "The LV2 Toolkit (LVTK) contains libraries that wrap the LV2 C API and
2043 extensions into easy to use C++ classes.  It is the successor of
2044 lv2-c++-tools.")
2045     (license license:gpl3+)))
2046
2047 (define-public openal
2048   (package
2049     (name "openal")
2050     (version "1.20.0")
2051     (source (origin
2052               (method url-fetch)
2053               (uri (string-append
2054                     "https://openal-soft.org/openal-releases/openal-soft-"
2055                     version ".tar.bz2"))
2056               (sha256
2057                (base32
2058                 "03p6s5gap0lvig2fs0a8nib5rxsc24dbqjsydpwvlm5l49wlk2f0"))))
2059     (build-system cmake-build-system)
2060     (arguments
2061      `(#:tests? #f  ; no check target
2062        #:phases
2063        (modify-phases %standard-phases
2064          (add-after
2065           'unpack 'use-full-library-paths
2066           (lambda* (#:key inputs #:allow-other-keys)
2067             (substitute* "alc/backends/pulseaudio.cpp"
2068               (("#define PALIB \"libpulse\\.so\\.0\"")
2069                (string-append "#define PALIB \""
2070                               (assoc-ref inputs "pulseaudio")
2071                               "/lib/libpulse.so.0"
2072                               "\"")))
2073             (substitute* "alc/backends/alsa.cpp"
2074               (("LoadLib\\(\"libasound\\.so\\.2\"\\)")
2075                (string-append "LoadLib(\""
2076                               (assoc-ref inputs "alsa-lib")
2077                               "/lib/libasound.so.2"
2078                               "\")")))
2079             #t)))))
2080     (inputs
2081      `(("alsa-lib" ,alsa-lib)
2082        ("pulseaudio" ,pulseaudio)))
2083     (synopsis "3D audio API")
2084     (description
2085      "OpenAL provides capabilities for playing audio in a virtual 3D
2086 environment.  Distance attenuation, doppler shift, and directional sound
2087 emitters are among the features handled by the API.  More advanced effects,
2088 including air absorption, occlusion, and environmental reverb, are available
2089 through the EFX extension.  It also facilitates streaming audio, multi-channel
2090 buffers, and audio capture.")
2091     (home-page "https://openal-soft.org/")
2092     (license license:lgpl2.0+)))
2093
2094 (define-public freealut
2095   (package
2096     (name "freealut")
2097     (version "1.1.0")
2098     (source (origin
2099               (method url-fetch)
2100               ;; Upstream url is unclear, many systems use Fedora, there is also
2101               ;; https://github.com/vancegroup/freealut though the status of it
2102               ;; (official? unofficial?) is not clear.
2103               (uri (string-append
2104                     "https://pkgs.fedoraproject.org/repo/pkgs/" name "/" name "-"
2105                     version ".tar.gz" "/e089b28a0267faabdb6c079ee173664a/" name
2106                     "-" version ".tar.gz"))
2107               (sha256
2108                (base32
2109                 "0kzlil6112x2429nw6mycmif8y6bxr2cwjcvp18vh6s7g63ymlb0"))))
2110     (build-system cmake-build-system)
2111     (arguments
2112      `(#:tests? #f))  ; no check target
2113     (inputs
2114      `(("openal" ,openal)))
2115     (synopsis "Free implementation of OpenAL's ALUT standard")
2116     (description "freealut is the OpenAL Utility Toolkit.")
2117     (home-page "http://kcat.strangesoft.net/openal.html")
2118     (license license:lgpl2.0)))
2119
2120 (define-public patchage
2121   (package
2122     (name "patchage")
2123     (version "1.0.0")
2124     (source (origin
2125               (method url-fetch)
2126               (uri (string-append "https://download.drobilla.net/patchage-"
2127                                   version
2128                                   ".tar.bz2"))
2129               (sha256
2130                (base32
2131                 "1agdpwwi42176l4mxj0c4fsvdiv1ig56bfnnx0msckxmy57df8bb"))))
2132     (build-system waf-build-system)
2133     (arguments
2134      `(#:tests? #f ; no check target
2135        #:python ,python-2))
2136     (inputs
2137      `(("alsa-lib" ,alsa-lib)
2138        ("boost" ,boost)
2139        ("jack" ,jack-1)
2140        ("ganv" ,ganv)
2141        ("glibmm" ,glibmm)
2142        ("gtkmm" ,gtkmm-2)
2143        ("dbus-glib" ,dbus-glib)))
2144     (native-inputs
2145      `(("pkg-config" ,pkg-config)))
2146     (home-page "https://drobilla.net/software/patchage/")
2147     (synopsis "Modular patch bay for audio and MIDI systems")
2148     (description
2149      "Patchage is a modular patch bay for audio and MIDI systems based on JACK
2150 and ALSA.")
2151     (license license:gpl3+)))
2152
2153 (define-public pcaudiolib
2154   (package
2155     (name "pcaudiolib")
2156     (version "1.1")
2157     (home-page "https://github.com/espeak-ng/pcaudiolib")
2158     (source (origin
2159               (method git-fetch)
2160               (uri (git-reference (url home-page) (commit version)))
2161               (file-name (git-file-name name version))
2162               (sha256
2163                (base32
2164                 "0c55hlqqh0m7bcb3nlgv1s4a22s5bgczr1cakjh3767rjb10khi0"))))
2165     (build-system gnu-build-system)
2166     (arguments
2167      `(#:configure-flags '("--disable-static")))
2168     (native-inputs
2169      `(("autoconf" ,autoconf)
2170        ("automake" ,automake)
2171        ("libtool" ,libtool)
2172        ("pkg-config" ,pkg-config)
2173        ("which" ,which)))
2174     (inputs
2175      `(("alsa-lib" ,alsa-lib)
2176        ("pulseaudio" ,pulseaudio)))
2177     (synopsis "Portable C audio library")
2178     (description
2179      "The Portable C Audio Library (pcaudiolib) provides a C@tie{}API to
2180 different audio devices such as ALSA or PulseAudio.")
2181     (license (list license:gpl3+
2182                    ;; The bundled TPCircularBuffer uses a custom license.
2183                    (license:non-copyleft
2184                     "file://src/TPCircularBuffer/README.markdown")))))
2185
2186 (define-public qjackctl
2187   (package
2188     (name "qjackctl")
2189     (version "0.5.9")
2190     (source (origin
2191               (method url-fetch)
2192               (uri (string-append "mirror://sourceforge/qjackctl/qjackctl/"
2193                                   version "/qjackctl-" version ".tar.gz"))
2194               (sha256
2195                (base32
2196                 "1saywsda9m124rmjp7i3n0llryaliabjxhqhvqr6dm983qy7pypk"))))
2197     (build-system gnu-build-system)
2198     (arguments
2199      '(#:tests? #f))                    ; no check target
2200     (inputs
2201      `(("jack" ,jack-1)
2202        ("alsa-lib" ,alsa-lib)
2203        ("qtbase" ,qtbase)
2204        ("qtx11extras" ,qtx11extras)))
2205     (native-inputs
2206      `(("pkg-config" ,pkg-config)
2207        ("qttools" ,qttools)))
2208     (home-page "https://qjackctl.sourceforge.io/")
2209     (synopsis "Jack server control application")
2210     (description "Control a Jack server.  Allows you to plug various sources
2211 into various outputs and to start, stop and configure jackd")
2212     (license license:gpl2+)))
2213
2214 (define-public qjackrcd
2215   (package
2216     (name "qjackrcd")
2217     (version "1.2.2")
2218     (source (origin
2219               (method git-fetch)
2220               (uri (git-reference
2221                     (url "https://github.com/orouits/qjackrcd.git")
2222                     (commit (string-append "v" version))))
2223               (file-name (git-file-name name version))
2224               (sha256
2225                (base32
2226                 "1l5iq2mkqd4gn9yr8xbh9qlpp1clcflazychl4vhdbz0bzq4c6al"))))
2227     (build-system gnu-build-system)
2228     (arguments
2229      `(#:phases
2230        (modify-phases %standard-phases
2231          (replace 'configure
2232            (lambda* (#:key outputs #:allow-other-keys)
2233              (invoke "qmake"
2234                      (string-append "PREFIX="
2235                                     (assoc-ref outputs "out"))))))))
2236     (native-inputs
2237      `(("qtbase" ,qtbase))) ; for qmake
2238     (inputs
2239      `(("jack" ,jack-1)
2240        ("libsndfile" ,libsndfile)
2241        ("qtbase" ,qtbase)))
2242     (home-page "https://sourceforge.net/projects/qjackrcd/")
2243     (synopsis "Stereo audio recorder for JACK")
2244     (description "QJackRcd is a simple graphical stereo recorder for JACK
2245 supporting silence processing for automatic pause, file splitting, and
2246 background file post-processing.")
2247     (license license:gpl2+)))
2248
2249 (define-public supercollider
2250   (package
2251     (name "supercollider")
2252     (version "3.10.3")
2253     (source (origin
2254               (method url-fetch)
2255               (uri (string-append
2256                     "https://github.com/supercollider/supercollider"
2257                     "/releases/download/Version-" version
2258                     "/SuperCollider-" version "-Source-linux.tar.bz2"))
2259               (patches
2260                (search-patches "supercollider-boost-1.70-build-fix.patch"))
2261               (sha256
2262                (base32
2263                 "0srm6wbazidkrd4ckjy4ypyhkdwcnx2i7k9msjyngalh0mrc9zz1"))))
2264     (build-system cmake-build-system)
2265     (arguments
2266      `(#:configure-flags '("-DSYSTEM_BOOST=on" "-DSYSTEM_YAMLCPP=on"
2267                            "-DSC_QT=off"
2268                            "-DSC_EL=off") ;scel is packaged individually as
2269                                           ;emacs-scel.
2270        #:modules ((guix build utils)
2271                   (guix build cmake-build-system)
2272                   (ice-9 ftw))
2273        #:phases
2274        (modify-phases %standard-phases
2275          (add-after 'unpack 'rm-bundled-libs
2276            (lambda _
2277              ;; The build system doesn't allow us to unbundle the following
2278              ;; libraries.  hidapi is also heavily patched and upstream not
2279              ;; actively maintained.
2280              (let ((keep-dirs '("nova-simd" "nova-tt" "hidapi" "TLSF-2.4.6"
2281                                 "oscpack_1_1_0" "." "..")))
2282                (with-directory-excursion "./external_libraries"
2283                  (for-each
2284                   delete-file-recursively
2285                   (scandir "."
2286                            (lambda (x)
2287                              (and (eq? (stat:type (stat x)) 'directory)
2288                                   (not (member (basename x) keep-dirs))))))))
2289              #t))
2290          ;; Some tests are broken (see:
2291          ;; https://github.com/supercollider/supercollider/issues/3555 and
2292          ;; https://github.com/supercollider/supercollider/issues/1736
2293          (add-after 'rm-bundled-libs 'disable-broken-tests
2294            (lambda _
2295              (substitute* "testsuite/server/supernova/CMakeLists.txt"
2296                (("server_test.cpp")
2297                 "")
2298                (("perf_counter_test.cpp")
2299                 ""))
2300              (delete-file "testsuite/server/supernova/server_test.cpp")
2301              (delete-file "testsuite/server/supernova/perf_counter_test.cpp")
2302              (substitute* "testsuite/CMakeLists.txt"
2303                (("add_subdirectory\\(sclang\\)")
2304                 ""))
2305              (delete-file "testsuite/sclang/CMakeLists.txt")
2306              #t)))))
2307     (native-inputs
2308      `(("pkg-config" ,pkg-config)))
2309     (inputs
2310      `(("jack" ,jack-1)
2311        ("libsndfile" ,libsndfile)
2312        ("fftw" ,fftw)
2313        ("libxt" ,libxt)
2314        ("readline" ,readline)           ;readline support for sclang's CLI
2315        ("alsa" ,alsa-lib)               ;for sclang's MIDI interface
2316        ("eudev" ,eudev)                 ;for user interactions with devices
2317        ("avahi" ,avahi)                 ;zeroconf service discovery support
2318        ("icu4c" ,icu4c)
2319        ("boost" ,boost)
2320        ("boost-sync" ,boost-sync)
2321        ("yaml-cpp" ,yaml-cpp)))
2322     (home-page "https://github.com/supercollider/supercollider")
2323     (synopsis "Synthesis engine and programming language")
2324     (description "SuperCollider is a synthesis engine (@code{scsynth} or
2325 @code{supernova}) and programming language (@code{sclang}).  It can be used
2326 for experimenting with sound synthesis and algorithmic composition.
2327
2328 SuperCollider requires jackd to be installed in your user profile and your
2329 user must be allowed to access the realtime features of the kernel.  Search
2330 for \"realtime\" in the index of the Guix manual to learn how to achieve this
2331 using Guix System.")
2332     (license license:gpl2+)))
2333
2334 (define-public raul
2335   (package
2336     (name "raul")
2337     (version "0.8.0")
2338     (source (origin
2339               (method url-fetch)
2340               (uri (string-append "https://download.drobilla.net/raul-"
2341                                   version ".tar.bz2"))
2342               (sha256
2343                (base32
2344                 "09ms40xc1x6qli6lxkwn5ibqh62nl9w7dq0b6jh1q2zvnrxwsd8b"))))
2345     (build-system waf-build-system)
2346     (arguments
2347      `(#:python ,python-2
2348        #:tests? #f)) ; no check target
2349     (inputs
2350      `(("glib" ,glib)
2351        ("boost" ,boost)))
2352     (native-inputs
2353      `(("pkg-config" ,pkg-config)))
2354     (home-page "https://drobilla.net/software/raul/")
2355     (synopsis "Real-time audio utility library")
2356     (description
2357      "Raul (Real-time Audio Utility Library) is a C++ utility library primarily
2358 aimed at audio/musical applications.")
2359     (license license:gpl2+)))
2360
2361 (define-public raul-devel
2362   (let ((commit "4db870b2b20b0a608ec0283139056b836c5b1624")
2363         (revision "1"))
2364     (package (inherit raul)
2365       (name "raul")
2366       (version (string-append "0.8.9-" revision "."
2367                               (string-take commit 9)))
2368       (source (origin
2369                 (method git-fetch)
2370                 (uri (git-reference
2371                       (url "https://git.drobilla.net/raul.git")
2372                       (commit commit)))
2373                 (file-name (string-append name "-" version "-checkout"))
2374                 (sha256
2375                  (base32
2376                   "04fajrass3ymr72flx5js5vxc601ccrmx8ny8scp0rw7j0igyjdr")))))))
2377
2378 (define-public resample
2379   (package
2380     (name "resample")
2381     (version "1.8.1")
2382     (source (origin
2383               (method url-fetch)
2384               (uri (string-append "https://ccrma.stanford.edu/~jos/gz/resample-"
2385                                   version
2386                                   ".tar.gz"))
2387               (sha256 (base32
2388                        "074zj8ydp05yy1hjcglfv3hkvj4cm50f9nralka1992pm6yf8yvy"))))
2389     (build-system gnu-build-system)
2390     (native-inputs
2391      `(("autoconf" ,autoconf)
2392        ("automake" ,automake)
2393        ("pkg-config" ,pkg-config)
2394        ("libtool" ,libtool)))
2395     (synopsis "Real-time library for sampling rate conversion")
2396     (description "The @command{resample} software package contains free
2397 sampling-rate conversion and filter design utilities.")
2398     (home-page "https://ccrma.stanford.edu/~jos/resample/Free_Resampling_Software.html")
2399     (license license:lgpl2.1+)))
2400
2401 (define-public rubberband
2402   (package
2403     (name "rubberband")
2404     (version "1.8.2")
2405     (source (origin
2406               (method url-fetch)
2407               (uri
2408                (string-append "https://bitbucket.org/breakfastquay/rubberband/get/v"
2409                               version
2410                               ".tar.bz2"))
2411               (file-name (string-append name "-" version ".tar.bz2"))
2412               (sha256
2413                (base32
2414                 "0462fmjnfqpv2qi0s6ny42drqarkr0xy9lw8frjmfgzyzl5n9294"))))
2415     (build-system gnu-build-system)
2416     (arguments
2417      `(#:tests? #f                      ; no check target
2418        #:phases
2419        (modify-phases %standard-phases
2420          (add-after 'unpack 'skip-jni-installation
2421            ;; ‘make install’ unconditionally installs librubberband-jni.so,
2422            ;; which is never built by ‘make all’.  Skip it.
2423            (lambda _
2424              (substitute* "Makefile.in"
2425                ((".*cp -f \\$\\(JNI_TARGET\\).*") ""))
2426              #t)))))
2427     (inputs
2428      `(("ladspa" ,ladspa)
2429        ("libsamplerate" ,libsamplerate)
2430        ("vamp" ,vamp)))
2431     (native-inputs
2432      `(("pkg-config" ,pkg-config)))
2433     (home-page "https://breakfastquay.com/rubberband/")
2434     (synopsis "Audio time-stretching and pitch-shifting library")
2435     (description
2436      "Rubber Band is a library and utility program that permits changing the
2437 tempo and pitch of an audio recording independently of one another.")
2438     (license license:gpl2+)))
2439
2440 (define-public rtmidi
2441   (package
2442     (name "rtmidi")
2443     (version "4.0.0")
2444     (source (origin
2445               (method url-fetch)
2446               (uri (string-append "https://www.music.mcgill.ca/~gary/rtmidi"
2447                                   "/release/rtmidi-" version ".tar.gz"))
2448               (file-name (string-append "rtmidi-" version ".tar.gz"))
2449               (sha256
2450                (base32
2451                 "1k962ljpnwyjw9jjiky2372khhri1wqvrj5qsalfpys31xqzw31p"))))
2452     (build-system gnu-build-system)
2453     (arguments
2454      `(#:phases
2455        (modify-phases %standard-phases
2456          (add-before 'bootstrap 'noconfigure
2457            (lambda _
2458              (setenv "NOCONFIGURE" "yes")
2459              #t)))))
2460     (inputs
2461      `(("jack" ,jack-1)
2462        ("alsa-lib" ,alsa-lib)))
2463     (native-inputs
2464      `(("autoconf" ,autoconf)
2465        ("automake" ,automake)
2466        ("libtool" ,libtool)
2467        ("pkg-config" ,pkg-config)))
2468     (home-page "https://www.music.mcgill.ca/~gary/rtmidi")
2469     (synopsis "Cross-platform MIDI library for C++")
2470     (description
2471      "RtMidi is a set of C++ classes (RtMidiIn, RtMidiOut, and API specific
2472 classes) that provide a common cross-platform API for realtime MIDI
2473 input/output.")
2474     (license license:expat)))
2475
2476 (define-public sratom
2477   (package
2478     (name "sratom")
2479     (version "0.6.4")
2480     (source (origin
2481               (method url-fetch)
2482               (uri (string-append "https://download.drobilla.net/sratom-"
2483                                   version ".tar.bz2"))
2484               (sha256
2485                (base32
2486                 "0vh0biy3ngpzzgdml309c2mqz8xq9q0hlblczb4c6alhp0a8yv0l"))))
2487     (build-system waf-build-system)
2488     (arguments `(#:tests? #f))          ;no check target
2489     (propagated-inputs
2490      ;; In Requires of sratom-0.pc.
2491      `(("lv2" ,lv2)
2492        ("serd" ,serd)
2493        ("sord" ,sord)))
2494     (native-inputs
2495      `(("pkg-config" ,pkg-config)))
2496     (home-page "https://drobilla.net/software/sratom/")
2497     (synopsis "Library for serialising LV2 atoms to/from RDF")
2498     (description
2499      "Sratom is a library for serialising LV2 atoms to/from RDF, particularly
2500 the Turtle syntax.")
2501     (license license:isc)))
2502
2503 (define-public suil
2504   (package
2505     (name "suil")
2506     (version "0.10.6")
2507     (source (origin
2508               (method url-fetch)
2509               (uri (string-append "https://download.drobilla.net/suil-"
2510                                   version ".tar.bz2"))
2511               (sha256
2512                (base32
2513                 "0z4v01pjw4wh65x38w6icn28wdwxz13ayl8hvn4p1g9kmamp1z06"))))
2514     (build-system waf-build-system)
2515     (arguments
2516      `(#:tests? #f))                    ;no check target
2517     (inputs
2518      `(("lv2" ,lv2)
2519        ("gtk+" ,gtk+-2)
2520        ("gtk+" ,gtk+)
2521        ("qt" ,qtbase)))
2522     (native-inputs
2523      `(("pkg-config" ,pkg-config)))
2524     (home-page "https://drobilla.net/software/suil/")
2525     (synopsis "Library for loading and wrapping LV2 plugin UIs")
2526     (description
2527      "Suil is a lightweight C library for loading and wrapping LV2 plugin UIs.
2528
2529 Suil makes it possible to load a UI of a toolkit in a host using another
2530 toolkit.  The API is designed such that hosts do not need to explicitly
2531 support specific toolkits – if Suil supports a particular toolkit, then UIs in
2532 that toolkit will work in all hosts that use Suil automatically.
2533
2534 Suil currently supports every combination of Gtk, Qt, and X11.")
2535     (license license:isc)))
2536
2537 (define-public timidity++
2538   (package
2539     (name "timidity++")
2540     (version "2.14.0")
2541     (source (origin
2542               (method url-fetch)
2543               (uri (string-append "mirror://sourceforge/timidity/TiMidity++"
2544                                   "/TiMidity++-" version
2545                                   "/TiMidity++-" version ".tar.bz2"))
2546               (sha256
2547                (base32
2548                 "0xk41w4qbk23z1fvqdyfblbz10mmxsllw0svxzjw5sa9y11vczzr"))))
2549     (build-system gnu-build-system)
2550     (arguments
2551      '(#:configure-flags
2552        (list "--enable-audio=alsa,flac,jack,ao,vorbis,speex"
2553              "--enable-ncurses"
2554              "--enable-server"
2555              "--enable-alsaseq"
2556              (string-append "--with-default-path="
2557                             (assoc-ref %outputs "out") "/etc/timidity"))
2558        #:phases
2559        (modify-phases %standard-phases
2560          (add-after 'install 'install-config
2561            (lambda _
2562              (let ((out (string-append (assoc-ref %outputs "out")
2563                                        "/etc/timidity")))
2564                (mkdir-p out)
2565                (call-with-output-file
2566                    (string-append out "/timidity.cfg")
2567                  (lambda (port)
2568                    (format port (string-append "source "
2569                                                (assoc-ref %build-inputs "freepats")
2570                                                "/share/freepats/freepats.cfg")))))
2571              #t)))))
2572     (inputs
2573      `(("alsa-lib" ,alsa-lib)
2574        ("ao" ,ao)
2575        ("flac" ,flac)
2576        ("jack" ,jack-1)
2577        ("libogg" ,libogg)
2578        ("libvorbis" ,libvorbis)
2579        ("speex" ,speex)
2580        ("ncurses" ,ncurses)
2581        ("freepats" ,freepats)))
2582     (native-inputs
2583      `(("pkg-config" ,pkg-config)))
2584     (home-page "http://timidity.sourceforge.net/")
2585     (synopsis "Software synthesizer for playing MIDI files")
2586     (description
2587      "TiMidity++ is a software synthesizer.  It can play MIDI files by
2588 converting them into PCM waveform data; give it a MIDI data along with digital
2589 instrument data files, then it synthesizes them in real-time, and plays.  It
2590 can not only play sounds, but also can save the generated waveforms into hard
2591 disks as various audio file formats.")
2592     (license license:gpl2+)))
2593
2594 (define-public vamp
2595   (package
2596     (name "vamp")
2597     (version "2.6")
2598     (source (origin
2599               (method url-fetch)
2600               (uri (string-append
2601                     "https://code.soundsoftware.ac.uk"
2602                     "/attachments/download/1520/vamp-plugin-sdk-"
2603                     version ".tar.gz"))
2604               (sha256
2605                (base32
2606                 "0pzq0yy2kdl3jgfc2aqmh5m55nk1ild0hq8mydiiw35c6y0mglyh"))))
2607     (build-system gnu-build-system)
2608     (arguments
2609      `(#:tests? #f                      ; no check target
2610        #:phases
2611        (modify-phases %standard-phases
2612          (add-after 'install 'remove-libvamp-hostsdk.la
2613            (lambda* (#:key outputs #:allow-other-keys)
2614              ;; https://bugs.launchpad.net/ubuntu/+source/vamp-plugin-sdk/+bug/1253656
2615              (for-each delete-file
2616                        (let ((out (assoc-ref outputs "out")))
2617                          (list (string-append out "/lib/libvamp-sdk.la")
2618                                (string-append out "/lib/libvamp-hostsdk.la"))))
2619              #t)))))
2620     (inputs
2621      `(("libsndfile" ,libsndfile)))
2622     (native-inputs
2623      `(("pkg-config" ,pkg-config)))
2624     (home-page "http://vamp-plugins.org")
2625     (synopsis "Modular and extensible audio processing system")
2626     (description
2627      "Vamp is an audio processing plugin system for plugins that extract
2628 descriptive information from audio data — typically referred to as audio
2629 analysis plugins or audio feature extraction plugins.")
2630     (license
2631      (license:x11-style
2632       "https://code.soundsoftware.ac.uk/projects/vamp-plugin-sdk/repository/entry/COPYING"))))
2633
2634 (define-public libsbsms
2635   (package
2636     (name "libsbsms")
2637     (version "2.0.2")
2638     (source
2639      (origin
2640        (method url-fetch)
2641        (uri (string-append "mirror://sourceforge/sbsms/sbsms/" version
2642                            "/libsbsms-" version ".tar.gz"))
2643        (sha256
2644         (base32 "1vmf84iy4dkwxv887grnlsfk43fmhd9gbg26gc2kgcv40sbkvayf"))))
2645     (build-system gnu-build-system)
2646     (native-inputs `(("automake" ,automake)))
2647     (arguments
2648      `(#:configure-flags
2649        ;; Disable the use of SSE unless on x86_64.
2650        ,(if (not (string-prefix? "x86_64" (or (%current-target-system)
2651                                               (%current-system))))
2652             ''("--disable-sse")
2653             ''())
2654        #:phases
2655        (modify-phases %standard-phases
2656          (add-after
2657           'unpack 'fix-ar-lib-path
2658           (lambda* (#:key inputs #:allow-other-keys)
2659             ;; Originally a symlink to '/usr/local/share/automake-1.12/ar-lib'.
2660             (delete-file "ar-lib")
2661             (symlink
2662              (string-append (assoc-ref inputs "automake") "/share/automake-"
2663                             ,(package-version automake) "/ar-lib")
2664              "ar-lib")
2665             #t)))))
2666     (home-page "http://sbsms.sourceforge.net/")
2667     (synopsis "Library for time stretching and pitch scaling of audio")
2668     (description
2669      "SBSMS (Subband Sinusoidal Modeling Synthesis) is software for time
2670 stretching and pitch scaling of audio.  This package contains the library.")
2671     ;; There is no explicit declaration of a license, but a COPYING file
2672     ;; containing gpl2.
2673     (license license:gpl2)))
2674
2675 (define-public wavpack
2676   (package
2677     (name "wavpack")
2678     (version "5.1.0")
2679     (source (origin
2680               (method url-fetch)
2681               (uri (string-append "http://www.wavpack.com/"
2682                                   name "-" version ".tar.bz2"))
2683               (patches (search-patches "wavpack-CVE-2018-6767.patch"
2684                                        "wavpack-CVE-2018-7253.patch"
2685                                        "wavpack-CVE-2018-7254.patch"))
2686               (sha256
2687                (base32
2688                 "0i19c6krc0p9krwrqy9s5xahaafigqzxcn31piidmlaqadyn4f8r"))))
2689     (build-system gnu-build-system)
2690     (home-page "http://www.wavpack.com/")
2691     (synopsis "Hybrid lossless audio codec")
2692     (description
2693      "WavPack is an audio compression format with lossless, lossy and hybrid
2694 compression modes.  This package contains command-line programs and library to
2695 encode and decode wavpack files.")
2696     (license license:bsd-3)))
2697
2698 (define-public libmodplug
2699   (package
2700     (name "libmodplug")
2701     (version "0.8.9.0")
2702     (source (origin
2703               (method url-fetch)
2704               (uri (string-append
2705                     "mirror://sourceforge/modplug-xmms/"
2706                     name "/" version "/" name "-" version ".tar.gz"))
2707               (sha256
2708                (base32
2709                 "1pnri98a603xk47smnxr551svbmgbzcw018mq1k6srbrq6kaaz25"))))
2710     (build-system gnu-build-system)
2711     (home-page "http://modplug-xmms.sourceforge.net/")
2712     (synopsis "Mod file playing library")
2713     (description
2714      "Libmodplug renders mod music files as raw audio data, for playing or
2715 conversion.  mod, .s3m, .it, .xm, and a number of lesser-known formats are
2716 supported.  Optional features include high-quality resampling, bass expansion,
2717 surround and reverb.")
2718     (license license:public-domain)))
2719
2720 (define-public libxmp
2721   (package
2722     (name "libxmp")
2723     (version "4.4.1")
2724     (source (origin
2725               (method url-fetch)
2726               (uri (string-append "mirror://sourceforge/xmp/libxmp/" version "/"
2727                                   name "-" version ".tar.gz"))
2728               (sha256
2729                (base32
2730                 "1kycz4jsyvmf7ny9227b497wc7y5ligydi6fvvldmkf8hk63ad9m"))))
2731     (build-system gnu-build-system)
2732     (home-page "http://xmp.sourceforge.net/")
2733     (synopsis "Module player library")
2734     (description
2735      "Libxmp is a library that renders module files to PCM data.  It supports
2736 over 90 mainstream and obscure module formats including Protracker (MOD),
2737 Scream Tracker 3 (S3M), Fast Tracker II (XM), and Impulse Tracker (IT).")
2738     (license license:lgpl2.1+)))
2739
2740 (define-public xmp
2741   (package
2742     (name "xmp")
2743     (version "4.1.0")
2744     (source (origin
2745               (method url-fetch)
2746               (uri (string-append "mirror://sourceforge/xmp/xmp/" version "/"
2747                                   name "-" version ".tar.gz"))
2748               (sha256
2749                (base32
2750                 "17i8fc7x7yn3z1x963xp9iv108gxfakxmdgmpv3mlm438w3n3g8x"))))
2751     (build-system gnu-build-system)
2752     (native-inputs
2753      `(("pkg-config" ,pkg-config)))
2754     (inputs
2755      `(("libxmp" ,libxmp)
2756        ("pulseaudio" ,pulseaudio)))
2757     (home-page "http://xmp.sourceforge.net/")
2758     (synopsis "Extended module player")
2759     (description
2760      "Xmp is a portable module player that plays over 90 mainstream and
2761 obscure module formats, including Protracker MOD, Fasttracker II XM, Scream
2762 Tracker 3 S3M and Impulse Tracker IT files.")
2763     (license license:gpl2+)))
2764
2765 (define-public soundtouch
2766   (package
2767     (name "soundtouch")
2768     (version "2.1.2")
2769     (source
2770      (origin
2771        (method git-fetch)
2772        (uri (git-reference
2773              (url "https://gitlab.com/soundtouch/soundtouch.git")
2774              (commit version)))
2775        (file-name (git-file-name name version))
2776        (sha256
2777         (base32 "174wgm3s0inmbnkrlnspxjwm2014qhjhkbdqa5r8rbfi0nzqxzsz"))))
2778     (build-system gnu-build-system)
2779     (native-inputs
2780      `(("autoconf" ,autoconf)
2781        ("automake" ,automake)
2782        ("libtool" ,libtool)
2783        ("file" ,file)))
2784     (home-page "https://www.surina.net/soundtouch/")
2785     (synopsis
2786      "Audio processing library for changing tempo, pitch and playback rate")
2787     (description
2788      "SoundTouch is an audio processing library for changing the tempo, pitch
2789 and playback rates of audio streams or audio files.  It is intended for
2790 application developers writing sound processing tools that require tempo/pitch
2791 control functionality, or just for playing around with the sound effects.")
2792     (license license:lgpl2.1+)))
2793
2794 (define-public sox
2795   (package
2796     (name "sox")
2797     (version "14.4.2")
2798     (source (origin
2799               (method url-fetch)
2800               (uri (string-append "mirror://sourceforge/sox/sox/" version "/"
2801                                   name "-" version ".tar.bz2"))
2802               (sha256
2803                (base32
2804                 "170lx90r1nlnb2j6lg00524iwvqy72p48vii4xc5prrh8dnrb9l1"))))
2805     (build-system gnu-build-system)
2806     (arguments
2807      '(#:configure-flags
2808        ;; The upstream asks to identify the distribution to diagnose SoX
2809        ;; bug reports.
2810        '("--with-distro=Guix System Distribution")))
2811     (native-inputs
2812      `(("pkg-config" ,pkg-config)))
2813     (inputs
2814      `(("alsa-lib" ,alsa-lib)
2815        ("ao" ,ao)
2816        ("flac" ,flac)
2817        ("lame" ,lame)
2818        ("libid3tag" ,libid3tag)
2819        ("libltdl" ,libltdl)
2820        ("libmad" ,libmad)
2821        ("libpng" ,libpng)
2822        ("libvorbis" ,libvorbis)
2823        ("pulseaudio" ,pulseaudio)))
2824     (home-page "http://sox.sourceforge.net")
2825     (synopsis "Sound processing utility")
2826     (description
2827      "SoX (Sound eXchange) is a command line utility that can convert
2828 various formats of computer audio files to other formats.  It can also
2829 apply various effects to these sound files, and, as an added bonus, SoX
2830 can play and record audio files.")
2831     ;; sox.c is distributed under GPL, while the files that make up
2832     ;; libsox are licensed under LGPL.
2833     (license (list license:gpl2+ license:lgpl2.1+))))
2834
2835 (define-public soxr
2836   (package
2837     (name "soxr")
2838     (version "0.1.3")
2839     (source
2840      (origin
2841        (method url-fetch)
2842        (uri
2843         (string-append "mirror://sourceforge/soxr/soxr-" version
2844                        "-Source.tar.xz"))
2845        (sha256
2846         (base32 "12aql6svkplxq5fjycar18863hcq84c5kx8g6f4rj0lcvigw24di"))))
2847     (build-system cmake-build-system)
2848     (arguments '(#:tests? #f))          ;no 'check' target
2849     (home-page "https://sourceforge.net/p/soxr/wiki/Home/")
2850     (synopsis "One-dimensional sample-rate conversion library")
2851     (description
2852      "The SoX Resampler library (libsoxr) performs one-dimensional sample-rate
2853 conversion.  It may be used, for example, to resample PCM-encoded audio.")
2854     (license license:lgpl2.1+)))
2855
2856 (define-public twolame
2857   (package
2858     (name "twolame")
2859     (version "0.4.0")
2860     (source
2861      (origin
2862        (method url-fetch)
2863        (uri (string-append "mirror://sourceforge/twolame/twolame/" version
2864                            "/twolame-" version ".tar.gz"))
2865        (sha256
2866         (base32 "0zf8sxqb02w07ah55b1y7ab643zmpbhn62spa9pqra0rc17l4dfc"))))
2867     (build-system gnu-build-system)
2868     (inputs
2869      `(("libsndfile" ,libsndfile)))
2870     (native-inputs
2871      `(("perl" ,perl)
2872        ("which" ,which)))               ;used in tests/test.pl
2873     (home-page "http://www.twolame.org/")
2874     (synopsis "MPEG Audio Layer 2 (MP2) encoder")
2875     (description
2876      "TwoLAME is an optimised MPEG Audio Layer 2 (MP2) encoder based on
2877 tooLAME by Mike Cheng, which in turn is based upon the ISO dist10 code and
2878 portions of LAME.")
2879     (license license:lgpl2.1+)))
2880
2881 (define-public portaudio
2882   (package
2883     (name "portaudio")
2884     (version "190600.20161030")
2885     (source
2886      (origin
2887        (method url-fetch)
2888        (uri (string-append
2889              "http://www.portaudio.com/archives/pa_stable_v"
2890              (string-map (lambda (c) (if (char=? c #\.) #\_ c)) version)
2891              ".tgz"))
2892        (sha256
2893         (base32 "04qmin6nj144b8qb9kkd9a52xfvm0qdgm8bg8jbl7s3frmyiv8pm"))
2894        (patches (search-patches "portaudio-audacity-compat.patch"))))
2895     (build-system gnu-build-system)
2896     (inputs
2897      ;; TODO: Add ASIHPI.
2898      `(("alsa-lib" ,alsa-lib)
2899        ("jack" ,jack-1)))
2900     ;; Autoreconf is necessary because the audacity-compat patch modifies .in
2901     ;; files.
2902     (native-inputs
2903      `(("autoconf" ,autoconf)
2904        ("automake" ,automake)
2905        ("libtool" ,libtool)
2906        ("pkg-config" ,pkg-config)))
2907     (arguments
2908      '(#:tests? #f                      ;no 'check' target
2909        #:parallel-build? #f             ;fails on some systems
2910        #:configure-flags '("--with-pic"
2911                            "--enable-cxx"
2912                            ;; XXX: The following prevents a build error
2913                            ;; because of missing depcomp when C++ bindings are
2914                            ;; requested.
2915                            "--disable-dependency-tracking")
2916        #:phases
2917        (modify-phases %standard-phases
2918          ;; This is needed for linking the static libraries
2919          (add-after 'unpack 'build-only-position-independent-code
2920            (lambda _
2921              (substitute* "configure.in"
2922                (("AC_PROG_LIBTOOL" m)
2923                 (string-append m "\nAM_PROG_AR\nLT_INIT([pic-only])")))
2924              (delete-file "configure")
2925              #t))
2926          ;; Some headers are not installed by default, but are needed by
2927          ;; packages like Kaldi.
2928          (add-after 'install 'install-missing-headers
2929            (lambda* (#:key outputs #:allow-other-keys)
2930              (install-file "src/common/pa_ringbuffer.h"
2931                            (string-append (assoc-ref outputs "out") "/include"))
2932              #t)))))
2933     (home-page "http://www.portaudio.com/")
2934     (synopsis "Audio I/O library")
2935     (description
2936      "PortAudio is a portable C/C++ audio I/O library providing a simple API
2937 to record and/or play sound using a callback function or a blocking read/write
2938 interface.")
2939     (license license:expat)))
2940
2941 (define-public qsynth
2942   (package
2943     (name "qsynth")
2944     (version "0.5.7")
2945     (source
2946      (origin
2947        (method url-fetch)
2948        (uri (string-append "mirror://sourceforge/qsynth/qsynth/" version
2949                            "/qsynth-" version ".tar.gz"))
2950        (sha256
2951         (base32 "18im4w8agj60nkppwbkxqnhpp13z5li3w30kklv4lgs20rvgbvl6"))))
2952     (build-system gnu-build-system)
2953     (arguments
2954      `(#:tests? #f))                    ; no "check" phase
2955     (native-inputs
2956      `(("qttools" ,qttools)
2957        ("pkg-config" ,pkg-config)))
2958     (inputs
2959      `(("fluidsynth" ,fluidsynth)
2960        ("qtbase" ,qtbase)
2961        ("qtx11extras" ,qtx11extras)))
2962     (home-page "https://qsynth.sourceforge.io")
2963     (synopsis "Graphical user interface for FluidSynth")
2964     (description
2965      "Qsynth is a GUI front-end application for the FluidSynth SoundFont
2966 synthesizer written in C++.")
2967     (license license:gpl2+)))
2968
2969 (define-public rsound
2970   (package
2971     (name "rsound")
2972     (version "1.1")
2973     (source
2974      (origin
2975        (method git-fetch)
2976        (uri (git-reference
2977              (url "https://github.com/Themaister/RSound.git")
2978              (commit (string-append "v" version))))
2979        (file-name (git-file-name name version))
2980        (sha256
2981         (base32 "0gspmr3klwnq98h17p5hc6ifygya4p80g4g8r7a1qavm3mv19waf"))))
2982     (build-system gnu-build-system)
2983     (inputs
2984      `(("alsa-lib" ,alsa-lib)
2985        ("jack" ,jack-1)
2986        ("ao" ,ao)
2987        ("libsamplerate" ,libsamplerate)
2988        ("openal" ,openal)
2989        ("portaudio" ,portaudio)
2990        ("pulseaudio" ,pulseaudio)))
2991     (arguments
2992      '(#:phases
2993        (modify-phases %standard-phases
2994          (replace 'configure
2995            (lambda* (#:key outputs #:allow-other-keys)
2996              (setenv "CC" "gcc")
2997              (invoke "./configure"
2998                      (string-append "--prefix=" (assoc-ref outputs "out"))))))
2999        ;; No 'check' target.
3000        #:tests? #f))
3001     (home-page "http://themaister.net/rsound.html")
3002     (synopsis "Networked audio system")
3003     (description
3004      "RSound allows you to send audio from an application and transfer it
3005 directly to a different computer on your LAN network.  It is an audio daemon
3006 with a much different focus than most other audio daemons.")
3007     (license license:gpl3+)))
3008
3009 (define-public xjackfreak
3010   (package
3011     (name "xjackfreak")
3012     (version "1.0")
3013     (source (origin
3014               (method git-fetch)
3015               (uri (git-reference
3016                     (url "https://github.com/johnhldavis/xjackfreak.git")
3017                     (commit (string-append "v" version))))
3018               (file-name (git-file-name name version))
3019               (sha256
3020                (base32
3021                 "18c546qidbrj0f5wfiq5llii2192xpln0ab3r4vpr7i3wybxqjfz"))))
3022     (build-system gnu-build-system)
3023     (arguments
3024      `(#:make-flags
3025        (list (string-append "docdir=" (assoc-ref %outputs "out")
3026                             "/share/doc/xjackfreak"))))
3027     (inputs
3028      `(("jack" ,jack-1)
3029        ("libx11" ,libx11)
3030        ("libxt" ,libxt)
3031        ("libxext" ,libxext)))
3032     (native-inputs
3033      `(("pkg-config" ,pkg-config)))
3034     (home-page "https://github.com/johnhldavis/xjackfreak")
3035     (synopsis "JACK audio frequency analyzer and display")
3036     (description
3037      "XJackFreak is an audio analysis and equalizing tool for the Jack Audio
3038 Connection Kit.  It can display the FFT of any input, modify it and output the
3039 result.")
3040     (license license:gpl3+)))
3041
3042 (define-public zita-convolver
3043   (package
3044     (name "zita-convolver")
3045     (version "4.0.3")
3046     (source (origin
3047               (method url-fetch)
3048               (uri (string-append
3049                     "http://kokkinizita.linuxaudio.org"
3050                     "/linuxaudio/downloads/zita-convolver-"
3051                     version ".tar.bz2"))
3052               (snippet
3053                ;; Don't optimize for a specific processor architecture.
3054                '(begin
3055                   (substitute* "source/Makefile"
3056                     (("^CXXFLAGS \\+= -march=native") ""))
3057                   #t))
3058               (modules '((guix build utils)))
3059               (sha256
3060                (base32
3061                 "0prji66p86z2bzminywkwchr5bfgxcg2i8y803pydd1hzf2198cs"))))
3062     (build-system gnu-build-system)
3063     (arguments
3064      `(#:tests? #f ; no "check" target
3065        #:make-flags
3066        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
3067              (string-append "SUFFIX="))
3068        #:phases
3069        (modify-phases %standard-phases
3070          (add-after 'unpack 'patch-makefile-and-enter-directory
3071            (lambda _
3072              (substitute* "source/Makefile"
3073                (("ldconfig") "true")
3074                (("^LIBDIR =.*") "LIBDIR = lib\n"))
3075              (chdir "source")
3076              #t))
3077          (add-after 'install 'install-symlink
3078            (lambda _
3079              (symlink "libzita-convolver.so"
3080                       (string-append (assoc-ref %outputs "out")
3081                                      "/lib/libzita-convolver.so.4"))
3082              #t))
3083          ;; no configure script
3084          (delete 'configure))))
3085     (inputs `(("fftwf" ,fftwf)))
3086     (home-page "https://kokkinizita.linuxaudio.org")
3087     (synopsis "Fast, partitioned convolution engine library")
3088     (description
3089      "Zita convolver is a C++ library providing a real-time convolution
3090 engine.")
3091     (license license:gpl3+)))
3092
3093 (define-public zita-resampler
3094   (package
3095     (name "zita-resampler")
3096     (version "1.3.0")
3097     (source (origin
3098               (method url-fetch)
3099               (uri (string-append
3100                     "http://kokkinizita.linuxaudio.org"
3101                     "/linuxaudio/downloads/zita-resampler-"
3102                     version ".tar.bz2"))
3103               (snippet
3104                ;; Don't optimize for a specific processor architecture.
3105                '(begin
3106                   (substitute* '("apps/Makefile" "libs/Makefile")
3107                     (("^CXXFLAGS \\+= -march=native") ""))
3108                   #t))
3109               (modules '((guix build utils)))
3110               (sha256
3111                (base32
3112                 "0r9ary5sc3y8vba5pad581ha7mgsrlyai83w7w4x2fmhfy64q0wq"))))
3113     (build-system gnu-build-system)
3114     (arguments
3115      `(#:tests? #f ; no "check" target
3116        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3117        #:phases
3118        (modify-phases %standard-phases
3119          (add-after
3120           'unpack 'patch-makefile-and-enter-directory
3121           (lambda _
3122             (substitute* "libs/Makefile"
3123               (("ldconfig") "true")
3124               (("^LIBDIR =.*") "LIBDIR = lib\n"))
3125             (chdir "libs")
3126             #t))
3127          (add-after
3128           'install 'install-symlink
3129           (lambda _
3130             (symlink "libzita-resampler.so"
3131                      (string-append (assoc-ref %outputs "out")
3132                                     "/lib/libzita-resampler.so.1"))
3133             #t))
3134          ;; no configure script
3135          (delete 'configure))))
3136     (home-page "https://kokkinizita.linuxaudio.org/linuxaudio/zita-resampler/resampler.html")
3137     (synopsis "C++ library for resampling audio signals")
3138     (description
3139      "Libzita-resampler is a C++ library for resampling audio signals.  It is
3140 designed to be used within a real-time processing context, to be fast, and to
3141 provide high-quality sample rate conversion.")
3142     (license license:gpl3+)))
3143
3144 (define-public zita-alsa-pcmi
3145   (package
3146     (name "zita-alsa-pcmi")
3147     (version "0.2.0")
3148     (source (origin
3149               (method url-fetch)
3150               (uri (string-append
3151                     "http://kokkinizita.linuxaudio.org"
3152                     "/linuxaudio/downloads/zita-alsa-pcmi-"
3153                     version ".tar.bz2"))
3154               (sha256
3155                (base32
3156                 "1rgv332g82rrrlm4vdam6p2pyrisxbi7b3izfaa0pcjglafsy7j9"))))
3157     (build-system gnu-build-system)
3158     (arguments
3159      `(#:tests? #f ; no "check" target
3160        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3161        #:phases
3162        (modify-phases %standard-phases
3163          (add-after 'unpack 'patch-makefile-and-enter-directory
3164            (lambda _
3165              (substitute* "libs/Makefile"
3166                (("ldconfig") "true")
3167                (("^LIBDIR =.*") "LIBDIR = lib\n"))
3168              (chdir "libs")
3169              #t))
3170          (add-after 'install 'install-symlink
3171            (lambda _
3172              (symlink "libzita-alsa-pcmi.so"
3173                       (string-append (assoc-ref %outputs "out")
3174                                      "/lib/libzita-alsa-pcmi.so.0"))
3175              #t))
3176           ;; no configure script
3177           (delete 'configure))))
3178     (inputs
3179      `(("alsa-lib" ,alsa-lib)
3180        ("fftw" ,fftw)))
3181     (home-page "https://kokkinizita.linuxaudio.org")
3182     (synopsis "C++ wrapper around the ALSA API")
3183     (description
3184      "Zita-alsa-pcmi is a C++ wrapper around the ALSA API.  It provides easy
3185 access to ALSA PCM devices, taking care of the many functions required to
3186 open, initialise and use a hw: device in mmap mode, and providing floating
3187 point audio data.")
3188     (license license:gpl3+)))
3189
3190 (define-public cuetools
3191   (package
3192     (name "cuetools")
3193     (version "1.4.1")
3194     (source (origin
3195              (method git-fetch)
3196              (uri (git-reference
3197                    (url "https://github.com/svend/cuetools.git")
3198                    (commit version)))
3199              (file-name (git-file-name name version))
3200              (sha256
3201               (base32
3202                "02ksv1ahf1v4cr2xbclsfv5x17m9ivzbssb5r8xjm97yh8a7spa3"))))
3203     (build-system gnu-build-system)
3204     ;; The source checkout is not bootstrapped.
3205     (native-inputs
3206      `(("autoconf" ,autoconf)
3207        ("automake" ,automake)
3208        ("flex" ,flex)
3209        ("bison" ,bison)))
3210     (synopsis "Cue and toc file parsers and utilities")
3211     (description "Cuetools is a set of programs that are useful for manipulating
3212 and using CUE sheet (cue) files and Table of Contents (toc) files.  CUE and TOC
3213 files are a way to represent the layout of a data or audio CD in a
3214 machine-readable ASCII format.")
3215     (home-page "https://github.com/svend/cuetools")
3216     (license license:gpl2+)))
3217
3218 (define-public shntool
3219   (package
3220     (name "shntool")
3221     (version "3.0.10")
3222     (source (origin
3223              (method url-fetch)
3224              (uri (string-append "http://etree.org/shnutils/shntool/dist/src/"
3225                                  "shntool-" version ".tar.gz"))
3226              (sha256
3227               (base32
3228                "00i1rbjaaws3drkhiczaign3lnbhr161b7rbnjr8z83w8yn2wc3l"))))
3229     (build-system gnu-build-system)
3230     (synopsis "WAVE audio data processing tool")
3231     (description "shntool is a multi-purpose WAVE data processing and reporting
3232 utility.  File formats are abstracted from its core, so it can process any file
3233 that contains WAVE data, compressed or not---provided there exists a format
3234 module to handle that particular file type.  It can also generate CUE files, and
3235 use them split WAVE data into multiple files.")
3236     (home-page "http://etree.org/shnutils/shntool/")
3237     ;; 'install-sh' bears the x11 license
3238     (license (list license:gpl2+ license:x11))))
3239
3240 (define-public dcadec
3241   (package
3242     (name "dcadec")
3243     (version "0.2.0")
3244     (source (origin
3245               (method git-fetch)
3246               (uri (git-reference
3247                     (url "https://github.com/foo86/dcadec.git")
3248                     (commit (string-append "v" version))))
3249               (file-name (git-file-name name version))
3250               (sha256
3251                (base32
3252                 "07nd0ajizrp1w02bsyfcv18431r8m8rq8gjfmz9wmckpg7cxj2hs"))))
3253     (build-system gnu-build-system)
3254     (arguments
3255      ;; Test files are missing: https://github.com/foo86/dcadec/issues/53
3256      '(#:tests? #f
3257        #:make-flags
3258        (list "CC=gcc"
3259              ;; Build shared library.
3260              "CONFIG_SHARED=1"
3261              (string-append "PREFIX=" (assoc-ref %outputs "out"))
3262              ;; Set proper runpath.
3263              (string-append "LDFLAGS=-Wl,-rpath="
3264                             (assoc-ref %outputs "out")
3265                             "/lib"))
3266        #:phases
3267        (modify-phases %standard-phases
3268          ;; No configure script, just a hand-written Makefile.
3269          (delete 'configure))))
3270     (synopsis "DTS Coherent Acoustics decoder")
3271     (description "Dcadec is a DTS Coherent Acoustics surround sound decoder
3272 with support for HD extensions.")
3273     (home-page "https://github.com/foo86/dcadec")
3274     (license license:lgpl2.1+)))
3275
3276 (define-public bs1770gain
3277   (package
3278     (name "bs1770gain")
3279     (version "0.6.5")
3280     (source
3281      (origin
3282        (method url-fetch)
3283        (uri (string-append "mirror://sourceforge/bs1770gain/bs1770gain/"
3284                            version "/bs1770gain-" version ".tar.gz"))
3285        (sha256
3286         (base32 "15nvlh9bg0a52cpg2mii17mlzmxszwivjjalbb4np1v5nj8l5fk6"))
3287        (modules '((guix build utils)))
3288        (snippet
3289         '(begin
3290            ;; XXX
3291            (substitute* (find-files "." "\\.[ch]$")
3292              (("^ \\* N..o.*") ""))
3293            (substitute* "libbg/bgx.c"
3294              (("#define BG.* ") "#define BS ")
3295              (("BG.*NO?.*N.*S.*E.*N.*SE?") "NO")
3296              (("\"( #|N).*\"") "\"\""))
3297            (substitute* (list "config.h"
3298                               "configure.ac"
3299                               "configure")
3300              (("https?://bs1770gain[^/]*/")
3301               "https://manpages.debian.org/sid/bs1770gain/bs1770gain.1.en.html"))
3302            #t))))
3303     (build-system gnu-build-system)
3304     (inputs `(("ffmpeg" ,ffmpeg)
3305               ("sox" ,sox)))
3306     (home-page "https://manpages.debian.org/sid/bs1770gain/bs1770gain.1.en.html")
3307     (synopsis "Tool to adjust loudness of media files")
3308     (description
3309      "BS1770GAIN is a loudness scanner compliant with ITU-R BS.1770 and its
3310 flavors EBU R128, ATSC A/85, and ReplayGain 2.0.  It helps normalizing the
3311 loudness of audio and video files to the same level.")
3312     (license license:gpl2+)))
3313
3314 (define-public filteraudio
3315   (let ((revision "1")
3316         (commit "2fc669581e2a0ff87fba8de85861b49133306094"))
3317     (package
3318       (name "filteraudio")
3319       (version (string-append "0.0.0-" revision "."
3320                               (string-take commit 7)))
3321       (source
3322        (origin
3323          (method git-fetch)
3324          (uri (git-reference
3325                (url "https://github.com/irungentoo/filter_audio.git")
3326                (commit commit)))
3327          (file-name (string-append name "-" version "-checkout"))
3328          (sha256
3329           (base32
3330            "0hbb290n3wb23f2k692a6bhc23nnqmxqi9sc9j15pnya8wifw64g"))))
3331       (build-system gnu-build-system)
3332       (arguments
3333        '(#:make-flags (list (string-append "PREFIX=" %output)
3334                             "CC=gcc")
3335          #:tests? #f ; No tests
3336          #:phases
3337          (modify-phases %standard-phases
3338            ;; No configure script
3339            (delete 'configure))))
3340       (synopsis "Lightweight audio filtering library")
3341       (description "An easy to use audio filtering library made from webrtc
3342 code, used in @code{libtoxcore}.")
3343       (home-page "https://github.com/irungentoo/filter_audio")
3344       (license license:bsd-3))))
3345
3346 (define-public gsm
3347   (package
3348     (name "gsm")
3349     (version "1.0.18")
3350     (source
3351      (origin
3352        (method url-fetch)
3353        (uri
3354         (string-append "http://www.quut.com/" name "/" name
3355                        "-" version ".tar.gz"))
3356        (sha256
3357         (base32
3358          "041amvpz8cvxykl3pwqldrzxligmmzcg8ncdnxbg32rlqf3q1xh4"))))
3359     (build-system gnu-build-system)
3360     (arguments
3361      `(#:test-target "tst"
3362        #:phases
3363        (modify-phases %standard-phases
3364          (add-before 'install 'pre-install
3365            (lambda _
3366              (let ((out (assoc-ref %outputs "out")))
3367                (substitute* "Makefile"
3368                  (("INSTALL_ROOT\t=")
3369                   (string-append "INSTALL_ROOT\t=\t" out)))
3370                (mkdir-p (string-append out "/inc"))
3371                (mkdir-p (string-append out "/man"))
3372                (mkdir-p (string-append out "/man/man1"))
3373                (mkdir-p (string-append out "/man/man3"))
3374                (mkdir-p (string-append out "/bin"))
3375                (mkdir-p (string-append out "/lib")))
3376              #t))
3377          (add-after 'install 'post-install
3378            (lambda _
3379              (let ((out (assoc-ref %outputs "out")))
3380                (rename-file (string-append out "/inc")
3381                             (string-append out "/include"))
3382                (mkdir-p (string-append out "/include/gsm"))
3383                (copy-recursively "inc"
3384                                  (string-append out "/include/gsm")))
3385              #t))
3386          (delete 'configure))))         ; no configure script
3387     (synopsis "GSM 06.10 lossy speech compression library")
3388     (description "This C library provides an encoder and a decoder for the GSM
3389 06.10 RPE-LTP lossy speech compression algorithm.")
3390     (home-page "http://quut.com/gsm/")
3391     (license (license:non-copyleft "file://COPYRIGHT"))))
3392
3393 (define-public python-pyalsaaudio
3394   (package
3395     (name "python-pyalsaaudio")
3396     (version "0.8.4")
3397     (source (origin
3398               (method url-fetch)
3399               (uri (pypi-uri "pyalsaaudio" version))
3400               (sha256
3401                (base32
3402                 "1180ypn9596rq4b7y7dyv627j1q0fqilmkkrckclnzsdakdgis44"))))
3403     (build-system python-build-system)
3404     (arguments
3405      `(#:tests? #f))                   ; tests require access to ALSA devices.
3406     (inputs
3407      `(("alsa-lib" ,alsa-lib)))
3408     (home-page "http://larsimmisch.github.io/pyalsaaudio/")
3409     (synopsis "ALSA wrappers for Python")
3410     (description
3411      "This package contains wrappers for accessing the ALSA API from Python.
3412 It is currently fairly complete for PCM devices, and has some support for
3413 mixers.")
3414     (license license:psfl)))
3415
3416 (define-public python2-pyalsaaudio
3417   (package-with-python2 python-pyalsaaudio))
3418
3419 (define-public bluez-alsa
3420   (package
3421     (name "bluez-alsa")
3422     (version "2.0.0")
3423     (source (origin
3424               ;; The tarballs are mere snapshots and don't contain a
3425               ;; bootstrapped build system.
3426               (method git-fetch)
3427               (uri (git-reference
3428                     (url "https://github.com/Arkq/bluez-alsa.git")
3429                     (commit (string-append "v" version))))
3430               (file-name (git-file-name name version))
3431               (sha256
3432                (base32
3433                 "08mppgnjf1j2733bk9yf0cny6rfxxwiys0s62lz2zd2lpdl6d9lz"))))
3434     (build-system gnu-build-system)
3435     (arguments
3436      `(#:configure-flags
3437        (list (string-append "--with-alsaplugindir="
3438                             (assoc-ref %outputs "out")
3439                             "/lib/alsa-lib")
3440              (string-append "--with-dbusconfdir="
3441                             (assoc-ref %outputs "out")
3442                             "/etc/dbus-1/system.d"))))
3443     (native-inputs
3444      `(("autoconf" ,autoconf)
3445        ("automake" ,automake)
3446        ("libtool" ,libtool)
3447        ("pkg-config" ,pkg-config)))
3448     (inputs
3449      `(("alsa-lib" ,alsa-lib)
3450        ("bluez" ,bluez)
3451        ("dbus" ,dbus)
3452        ("glib" ,glib)
3453        ("libbsd" ,libbsd)
3454        ("ncurses" ,ncurses)
3455        ("ortp" ,ortp)
3456        ("sbc" ,sbc)))
3457     (home-page "https://github.com/Arkq/bluez-alsa")
3458     (synopsis "Bluetooth ALSA backend")
3459     (description "This project is a rebirth of a direct integration between
3460 Bluez and ALSA.  Since Bluez >= 5, the build-in integration has been removed
3461 in favor of 3rd party audio applications.  From now on, Bluez acts as a
3462 middleware between an audio application, which implements Bluetooth audio
3463 profile, and a Bluetooth audio device.  BlueALSA registers all known Bluetooth
3464 audio profiles in Bluez, so in theory every Bluetooth device (with audio
3465 capabilities) can be connected.  In order to access the audio stream, one has
3466 to connect to the ALSA PCM device called @code{bluealsa}.  The device is based
3467 on the ALSA software PCM plugin.")
3468     (license license:expat)))
3469
3470 (define-public snd
3471   (package
3472     (name "snd")
3473     (version "19.9")
3474     (source (origin
3475               (method url-fetch)
3476               (uri (string-append "ftp://ccrma-ftp.stanford.edu/pub/Lisp/"
3477                                   "snd-" version ".tar.gz"))
3478               (sha256
3479                (base32
3480                 "13s8fahpsjygjdrcwmprcrz23ny3klaj2rh2xzdv3bfs69gxvhys"))))
3481     (build-system glib-or-gtk-build-system)
3482     (arguments
3483      `(#:tests? #f                      ; no tests
3484        #:out-of-source? #f              ; for the 'install-doc' phase
3485        #:configure-flags
3486        (let* ((out (assoc-ref %outputs "out"))
3487               (docdir (string-append out "/share/doc/"
3488                                      ,name "-" ,version)))
3489          (list "--with-alsa" "--with-jack" "--with-gmp"
3490                (string-append "--with-doc-dir=" docdir)))
3491        #:phases
3492        (modify-phases %standard-phases
3493          (add-after 'install 'install-doc
3494            (lambda* (#:key outputs #:allow-other-keys)
3495              (let* ((out (assoc-ref outputs "out"))
3496                     (doc (string-append out "/share/doc/"
3497                                         ,name "-" ,version)))
3498                (for-each
3499                 (lambda (f)
3500                   (install-file f doc))
3501                 (find-files "." "\\.html$"))
3502                (copy-recursively "pix" (string-append doc "/pix"))
3503                #t))))))
3504     (native-inputs
3505      `(("pkg-config" ,pkg-config)))
3506     (inputs
3507      `(("alsa-lib" ,alsa-lib)
3508        ("fftw" ,fftw)
3509        ("flac" ,flac)
3510        ("gmp" ,gmp)
3511        ("gsl" ,gsl)
3512        ("gtk+" ,gtk+)
3513        ("jack" ,jack-1)
3514        ("libsamplerate" ,libsamplerate)
3515        ("mpc" ,mpc)
3516        ("mpfr" ,mpfr)
3517        ("mpg123" ,mpg123)
3518        ("speex" ,speex)
3519        ("timidity++" ,timidity++)
3520        ("vorbis-tools" ,vorbis-tools)
3521        ("wavpack" ,wavpack)))
3522     (synopsis "Sound editor")
3523     (home-page "https://ccrma.stanford.edu/software/snd/")
3524     (description
3525      "Snd is a sound editor modelled loosely after Emacs.  It can be
3526 customized and extended using either the s7 Scheme implementation (included in
3527 the Snd sources), Ruby, or Forth.")
3528     (license (license:non-copyleft "file://COPYING"))))
3529
3530 (define-public noise-repellent
3531   (package
3532     (name "noise-repellent")
3533     (version "0.1.4")
3534     (source (origin
3535               (method git-fetch)
3536               (uri (git-reference
3537                     (url "https://github.com/lucianodato/noise-repellent.git")
3538                     (commit version)))
3539               (file-name (string-append name "-" version "-checkout"))
3540               (sha256
3541                (base32
3542                 "0rd3dlmk3vivjmcr6x2x860y0j1d49c2j95j6ny50v184mwvn11j"))))
3543     (build-system gnu-build-system)
3544     (arguments
3545      `(#:make-flags
3546        (list "CC=gcc"
3547              (string-append "PREFIX=" (assoc-ref %outputs "out")))
3548        #:tests? #f ; there are none
3549        #:phases
3550        (modify-phases %standard-phases
3551          (delete 'configure))))
3552     (inputs
3553      `(("lv2" ,lv2)
3554        ("fftwf" ,fftwf)))
3555     (native-inputs
3556      `(("pkg-config" ,pkg-config)))
3557     (home-page "https://github.com/lucianodato/noise-repellent")
3558     (synopsis "LV2 plugin for broadband noise reduction")
3559     (description "Noise Repellent is an LV2 plugin to reduce noise.  It has
3560 the following features:
3561
3562 @enumerate
3563 @item Spectral gating and spectral subtraction suppression rule
3564 @item Adaptive and manual noise thresholds estimation
3565 @item Adjustable noise floor
3566 @item Adjustable offset of thresholds to perform over-subtraction
3567 @item Time smoothing and a masking estimation to reduce artifacts
3568 @item Basic onset detector to avoid transients suppression
3569 @item Whitening of the noise floor to mask artifacts and to recover higher
3570   frequencies
3571 @item Option to listen to the residual signal
3572 @item Soft bypass
3573 @item Noise profile saved with the session
3574 @end enumerate
3575 ")
3576     (license license:lgpl3+)))
3577
3578 (define-public cli-visualizer
3579   (package
3580     (name "cli-visualizer")
3581     (version "1.6")
3582     (source
3583      (origin
3584        (method git-fetch)
3585        (uri (git-reference
3586              (url "https://github.com/dpayne/cli-visualizer.git")
3587              (commit version)))
3588        (file-name (git-file-name name version))
3589        (sha256
3590         (base32
3591          "0mirp8bk398di5xyq95iprmdyvplfghxqmrfj7jdnpy554vx7ppc"))))
3592     (build-system gnu-build-system)
3593     (native-inputs
3594      `(("which" ,which)))
3595     (inputs
3596      `(("fftw" ,fftw)
3597        ;; TODO: Try using the latest googletest for versions > 1.6.
3598        ("googletest" ,googletest-1.8)
3599        ("ncurses" ,ncurses)
3600        ("pulseaudio" ,pulseaudio)))
3601     (arguments
3602      '(#:test-target "test"
3603        #:make-flags
3604        (list (string-append "PREFIX=" %output "/bin/") "ENABLE_PULSE=1")
3605        #:phases
3606        (modify-phases %standard-phases
3607          (add-after 'unpack 'remove-sudo
3608            (lambda _
3609              (substitute* "install.sh" (("sudo") ""))
3610              #t))
3611          (add-before 'check 'set-check-environment
3612            (lambda _
3613              (setenv "CXX" "g++")
3614              (setenv "CC" "gcc")
3615              #t))
3616          (add-before 'install 'make-prefix
3617            (lambda _
3618              (mkdir-p (string-append (assoc-ref %outputs "out") "/bin"))
3619              #t))
3620          (add-after 'install 'data
3621            (lambda _
3622              (for-each (lambda (file)
3623                          (install-file file
3624                                        (string-append (assoc-ref %outputs "out")
3625                                                       "/share/doc")))
3626                        (find-files "examples"))
3627              #t)))))
3628     (home-page "https://github.com/dpayne/cli-visualizer/")
3629     (synopsis "Command-line audio visualizer")
3630     (description "@code{cli-visualizer} displays fast-Fourier
3631 transforms (FFTs) of the sound being played, as well as other graphical
3632 representations.")
3633     (license license:expat)))
3634
3635 (define-public cava
3636   (package
3637     (name "cava")
3638     (version "0.6.1")
3639     (source (origin
3640               (method git-fetch)
3641               (uri (git-reference
3642                     (url "https://github.com/karlstav/cava.git")
3643                     (commit version)))
3644               (file-name (git-file-name name version))
3645               (sha256
3646                (base32
3647                 "1kvhqgijs29909w3sq9m0bslx2zxxn4b3i07kdz4hb0dqkppxpjy"))))
3648     (build-system gnu-build-system)
3649     (native-inputs
3650      `(("autoconf" ,autoconf)
3651        ("automake" ,automake)
3652        ("libtool" ,libtool)))
3653     (inputs
3654      `(("fftw" ,fftw)
3655        ("ncurses" ,ncurses)
3656        ("pulseaudio" ,pulseaudio)))
3657     (arguments
3658      `(#:configure-flags
3659        (list (string-append "PREFIX=" %output)
3660              (string-append "FONT_DIR=" %output "/share/consolefonts"))
3661        #:make-flags
3662        (let ((lib (string-append %output "/lib")))
3663          (list (string-append "cava_LDFLAGS = -L" lib " -Wl,-rpath " lib)))
3664        #:phases
3665        (modify-phases %standard-phases
3666          (replace 'bootstrap
3667            (lambda* (#:key outputs #:allow-other-keys)
3668              (setenv "HOME" (getcwd))
3669              (invoke "sh" "autogen.sh")))
3670          (add-before 'build 'make-cava-ldflags
3671            (lambda* (#:key outputs #:allow-other-keys)
3672              (mkdir-p (string-append (assoc-ref outputs "out") "/lib"))
3673              #t))
3674          (add-after 'install 'data
3675            (lambda* (#:key outputs #:allow-other-keys)
3676              (for-each (lambda (file)
3677                          (install-file file
3678                                        (string-append (assoc-ref outputs "out")
3679                                                       "/share/doc/examples")))
3680                        (find-files "example_files"))
3681              #t)))))
3682     (home-page "https://karlstav.github.io/cava/")
3683     (synopsis "Console audio visualizer for ALSA, MPD, and PulseAudio")
3684     (description "C.A.V.A. is a bar audio spectrum visualizer for the terminal
3685 using ALSA, MPD, PulseAudio, or a FIFO buffer as its input.")
3686     (license license:expat)))
3687
3688 (define-public fluid-3
3689   (let ((commit "871c8ce2002e8b3c198f532fdb4fbcce7914f951"))
3690     (package
3691       (name "fluid-3")
3692       (version "2.1")
3693       (source
3694        (origin
3695          (method url-fetch)
3696          ;; Only one file is required, but the release bundles the whole
3697          ;; software which is 50MiB as tar and 200MiB unpacked. The website
3698          ;; directly links the soundfont release to the github file download.
3699          (uri (string-append "https://github.com/musescore/MuseScore/raw/"
3700                              commit "/share/sound/FluidR3Mono_GM.sf3"))
3701          (file-name (string-append name "-" version ".sf3"))
3702          (sha256
3703           (base32
3704            "1hjfg5i15bw9279007xs92zsggjgn4s4k9pc00s851l3kvc6dkfg"))))
3705       (build-system trivial-build-system)
3706       (arguments
3707        `(#:modules ((guix build utils))
3708          #:builder
3709          (begin
3710            (use-modules (guix build utils))
3711            (let ((file (assoc-ref %build-inputs "source"))
3712                  (out (string-append %output "/share/soundfonts")))
3713              (mkdir-p out)
3714              (copy-file file (string-append out "/FluidR3Mono_GM.sf3"))
3715              #t))))
3716       (home-page  "https://github.com/musescore/MuseScore/tree/master/share/sound")
3717       (synopsis "Pro-quality GM soundfont")
3718       (description "Fluid-3 is Frank Wen's pro-quality GM soundfont.")
3719       (license license:expat))))
3720
3721 (define-public libfdk
3722   (let ((commit "2326faaf8f2cdf2c3a9108ccdaf1d7551aec543e")
3723         (revision "0"))
3724     (package
3725       (name "libfdk")
3726       ;; The latest upstream revision, with many bug fixes.
3727       (version (git-version "0.1.6" revision commit))
3728       (source
3729         (origin
3730           (method git-fetch)
3731           (uri (git-reference
3732                  (url "https://github.com/mstorsjo/fdk-aac")
3733                  (commit commit)))
3734           (file-name (git-file-name name version))
3735           (sha256
3736            (base32
3737             "0yy6ndd9d61bwl283vl1r5kva2a4acc0f4r9g0sza156f2abr9ws"))))
3738       (build-system gnu-build-system)
3739       (native-inputs
3740        `(("autoconf" ,autoconf)
3741          ("automake" ,automake)
3742          ("libtool" ,libtool)))
3743       (home-page "https://github.com/mstorsjo/fdk-aac")
3744       (synopsis "Fraunhofer FDK AAC library")
3745       (description "FDK is a library for encoding and decoding Advanced Audio
3746 Coding (AAC) format audio, developed by Fraunhofer IIS, and included as part of
3747 Android.  It supports several Audio Object Types including MPEG-2 and MPEG-4 AAC
3748 LC, HE-AAC (AAC LC + SBR), HE-AACv2 (LC + SBR + PS) as well AAC-LD (low delay)
3749 and AAC-ELD (enhanced low delay) for real-time communication.  The encoding
3750 library supports sample rates up to 96 kHz and up to eight channels (7.1
3751 surround).")
3752       (license (license:fsf-free "https://github.com/mstorsjo/fdk-aac/blob/master/NOTICE"
3753                                  "https://www.gnu.org/licenses/license-list.html#fdk")))))
3754
3755 (define-public libopenshot-audio
3756   (package
3757     (name "libopenshot-audio")
3758     (version "0.1.8")
3759     (source (origin
3760               (method git-fetch)
3761               (uri (git-reference
3762                     (url "https://github.com/OpenShot/libopenshot-audio")
3763                     (commit (string-append "v" version))))
3764               (file-name (git-file-name name version))
3765               (sha256
3766                (base32
3767                 "1fvp6nmf30xzkmcznakh8dv5vn9d7nq051pqcqv638hsfppkmcrl"))))
3768     (build-system cmake-build-system)
3769     (inputs
3770      `(("alsa-lib" ,alsa-lib)
3771        ;; The following are for JUCE GUI components:
3772        ("libx11" ,libx11)
3773        ("freetype" ,freetype)
3774        ("libxrandr" ,libxrandr)
3775        ("libxinerama" ,libxinerama)
3776        ("libxcursor" ,libxcursor)))
3777     (arguments
3778      `(#:tests? #f                      ;there are no tests
3779        #:configure-flags
3780        (list (string-append "-DCMAKE_CXX_FLAGS=-I"
3781                             (assoc-ref %build-inputs "freetype")
3782                             "/include/freetype2"))))
3783     (home-page "https://openshot.org")
3784     (synopsis "Audio editing and playback for OpenShot")
3785     (description "OpenShot Audio Library (libopenshot-audio) allows
3786 high-quality editing and playback of audio, and is based on the JUCE
3787 library.")
3788     (license license:lgpl3+)))
3789
3790 (define-public faudio
3791   (package
3792     (name "faudio")
3793     (version "19.11")
3794     (source
3795      (origin
3796        (method git-fetch)
3797        (uri (git-reference
3798              (url "https://github.com/FNA-XNA/FAudio.git")
3799              (commit version)))
3800        (file-name (git-file-name name version))
3801        (sha256
3802         (base32 "0ckpr6ffz8ssfh1y850dhip5s5jv0j6n90qz5yx1v9d6gpwf08rp"))))
3803     (arguments
3804      '(#:tests? #f                      ; No tests.
3805        #:configure-flags '("-DFFMPEG=ON")))
3806     (build-system cmake-build-system)
3807     (native-inputs `(("pkg-config" ,pkg-config)))
3808     (inputs `(("ffmpeg" ,ffmpeg)
3809               ("sdl2" ,sdl2)))
3810     (home-page "https://github.com/FNA-XNA/FAudio")
3811     (synopsis "XAudio reimplementation")
3812     (description "FAudio is an XAudio reimplementation that focuses solely on
3813 developing fully accurate DirectX Audio runtime libraries.")
3814     (license license:zlib)))
3815
3816 (define-public gnaural
3817   (package
3818     (name "gnaural")
3819     (version "20110606")
3820     (source
3821      (origin
3822        (method url-fetch)
3823        (uri (string-append "mirror://sourceforge/gnaural/Gnaural/gnaural_"
3824                            version ".tar.xz"))
3825        (sha256
3826         (base32
3827          "1gq519c0imsh57zklyi0f8h64l3ai48lh672c834470z8c6kvbfi"))))
3828     (build-system gnu-build-system)
3829     (inputs
3830      `(("alsa-lib" ,alsa-lib)
3831        ("gtk+" ,gtk+-2)
3832        ("libsndfile" ,libsndfile)
3833        ("portaudio" ,portaudio)))
3834     (native-inputs
3835      `(("pkg-config" ,pkg-config)))
3836     (home-page "http://gnaural.sourceforge.net/")
3837     (synopsis "Binaural beat synthesizer")
3838     (description "Gnaural is a programmable auditory binaural beat synthesizer
3839 intended to be used for brainwave entrainment.  Gnaural supports creation of
3840 binaural beat tracks of different frequencies and exporting of tracks into
3841 different audio formats.  Gnaural can also be linked over the internet with
3842 other Gnaural instances, allowing synchronous sessions between many users.")
3843     (license license:gpl2+)))
3844
3845 (define-public darkice
3846   (package
3847     (name "darkice")
3848     (version "1.3")
3849     (source (origin
3850               (method url-fetch)
3851               (uri (string-append "mirror://sourceforge/darkice/darkice/"
3852                                   version "/darkice-" version ".tar.gz"))
3853               (sha256
3854                (base32 "1rlxds7ssq7nk2in4s46xws7xy9ylxsqgcz85hxjgh17lsm0y39c"))
3855               (patches
3856                (search-patches "darkice-workaround-fpermissive-error.patch"))))
3857     (build-system gnu-build-system)
3858     (native-inputs `(("pkg-config" ,pkg-config)))
3859     (inputs `(("lame" ,lame)
3860               ("libvorbis" ,libvorbis)
3861               ("opus" ,opus)
3862               ("twolame" ,twolame)
3863               ("alsa-lib" ,alsa-lib)
3864               ("pulseaudio" ,pulseaudio)
3865               ("jack" ,jack-1)
3866               ("libsamplerate" ,libsamplerate)))
3867     (arguments
3868      `(#:configure-flags
3869        (list (string-append "--with-lame-prefix="
3870                             (assoc-ref %build-inputs "lame")))))
3871     (home-page "http://www.darkice.org/")
3872     (synopsis "Live audio streamer")
3873     (description "DarkIce is a live audio streamer.  It takes audio input from
3874 a sound card, encodes it into Ogg Vorbis and/or mp3, and sends the audio
3875 stream to one or more IceCast and/or ShoutCast servers.")
3876     (license license:gpl3+)))
3877
3878 (define-public libltc
3879   (package
3880     (name "libltc")
3881     (version "1.3.1")
3882     (source
3883      (origin
3884        (method url-fetch)
3885        (uri
3886         (string-append "https://github.com/x42/libltc/releases/download/v"
3887                        version "/libltc-" version ".tar.gz"))
3888        (sha256
3889         (base32
3890          "173h9dgmain3nyrwk6q2d7yl4fnh4vacag4s2p01n5b7nyrkxrjh"))))
3891     (build-system gnu-build-system)
3892     (arguments
3893      `(#:parallel-tests? #f))           ;tests fail otherwise
3894     (native-inputs
3895      `(("doxygen" ,doxygen)
3896        ("pkg-config" ,pkg-config)))
3897     (synopsis "Encode or decode Linear/Longitudinal Time Code (LTC) audio")
3898     (description "Libltc is a POSIX-C Library for handling
3899 @dfn{Linear/Longitudinal Time Code} (LTC) data.")
3900     (home-page "https://x42.github.io/libltc/")
3901     (license license:lgpl3+)))
3902
3903 (define-public redkite
3904   (package
3905     (name "redkite")
3906     (version "0.6.2")
3907     (source
3908      (origin
3909        (method git-fetch)
3910        (uri (git-reference
3911              (url "https://gitlab.com/geontime/redkite.git")
3912              (commit (string-append "v" version))))
3913        (file-name (git-file-name name version))
3914        (sha256
3915         (base32
3916          "1i874izajbdhlfacwwj84qrsxf7g4y6nblzxalrkzaap9sa7d1r6"))))
3917     (build-system cmake-build-system)
3918     (arguments
3919      `(#:tests? #f))                    ;no tests included
3920     (inputs
3921      `(("cairo" ,cairo)))
3922     (native-inputs
3923      `(("pkg-config", pkg-config)))
3924     (synopsis "Small GUI toolkit")
3925     (description "Redkite is a small GUI toolkit developed in C++17 and
3926 inspired from other well known GUI toolkits such as Qt and GTK.  It is
3927 minimal on purpose and is intended to be statically linked to applications,
3928 therefore satisfying any requirements they may have to be self contained,
3929 as is the case with audio plugins.")
3930     (home-page "https://gitlab.com/geontime/redkite")
3931     (license license:gpl3+)))
3932
3933 (define-public carla
3934   (package
3935     (name "carla")
3936     (version "2.0.0")
3937     (source
3938      (origin
3939        (method git-fetch)
3940        (uri
3941         (git-reference
3942          (url "https://github.com/falkTX/Carla.git")
3943          (commit (string-append "v" version))))
3944        (file-name (git-file-name name version))
3945        (sha256
3946         (base32
3947          "0fqgncqlr86n38yy7pa118mswfacmfczj7w9xx6c6k0jav3wk29k"))))
3948     (build-system gnu-build-system)
3949     (arguments
3950      `(#:tests? #f                      ; no "check" target
3951        #:make-flags
3952        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3953        #:phases
3954        (modify-phases %standard-phases
3955          (add-before 'build 'set-CC-variable-and-show-features
3956            (lambda _
3957              (setenv "CC" "gcc")
3958              (invoke "make" "features")))
3959          (delete 'configure))))
3960     (inputs
3961      `(("alsa-lib" ,alsa-lib)
3962        ("ffmpeg" ,ffmpeg)
3963        ("fluidsynth" ,fluidsynth)
3964        ("file" ,file)
3965        ("liblo" ,liblo)
3966        ("libsndfile" ,libsndfile)
3967        ("gtk+" ,gtk+)
3968        ("python-pyliblo" ,python-pyliblo)
3969        ("python-pyqt" ,python-pyqt)
3970        ("python-rdflib" ,python-rdflib)
3971        ;; python-pyqt shows the following error without python-wrapper:
3972        ;; Error while finding module specification for 'PyQt5.uic.pyuic'
3973        ;; (ModuleNotFoundError: No module named 'PyQt5')
3974        ("python-wrapper" ,python-wrapper)
3975        ("libx11" ,libx11)
3976        ("qtbase" ,qtbase)
3977        ("zlib" ,zlib)))
3978     (native-inputs
3979      `(("pkg-config" ,pkg-config)))
3980     (home-page "https://kx.studio/Applications:Carla")
3981     (synopsis "Audio plugin host")
3982     (description "Carla is a modular audio plugin host, with features like
3983 transport control, automation of parameters via MIDI CC and remote control
3984 over OSC.  Carla currently supports LADSPA (including LRDF), DSSI, LV2, VST2,
3985 and VST3 plugin formats, plus SF2 and SFZ file support.  It uses JACK as the
3986 default and preferred audio driver but also supports native drivers like ALSA.")
3987     (license license:gpl2+)))
3988
3989 (define-public ecasound
3990   (package
3991     (name "ecasound")
3992     (version "2.9.2")
3993     (source (origin
3994               (method url-fetch)
3995               (uri (string-append "http://nosignal.fi/download/ecasound-"
3996                                   version ".tar.gz"))
3997               (sha256
3998                (base32 "15rcs28fq2wfvfs66p5na7adq88b55qszbhshpizgdbyqzgr2jf1"))))
3999     (build-system gnu-build-system)
4000     (native-inputs `(("pkg-config" ,pkg-config)))
4001     ;; would be nice to add mikmod to inputs if that gets packaged
4002     ;; eventually
4003     (inputs `(("alsa-lib" ,alsa-lib)
4004               ("jack" ,jack-1)
4005               ("mpg123" ,mpg123)
4006               ("lame" ,lame)
4007               ("vorbis-tools" ,vorbis-tools)
4008               ("faad2" ,faad2)
4009               ("flac" ,flac)
4010               ("timidity++" ,timidity++)
4011               ("libsndfile" ,libsndfile)
4012               ("libsamplerate" ,libsamplerate)
4013               ("ncurses" ,ncurses)
4014               ("ladspa" ,ladspa)
4015               ("lilv" ,lilv)))
4016     (home-page "http://nosignal.fi/ecasound/index.php")
4017     (synopsis "Multitrack audio processing")
4018     (description "Ecasound is a software package designed for multitrack audio
4019 processing. It can be used for simple tasks like audio playback, recording and
4020 format conversions, as well as for multitrack effect processing, mixing,
4021 recording and signal recycling. Ecasound supports a wide range of audio inputs,
4022 outputs and effect algorithms. Effects and audio objects can be combined in
4023 various ways, and their parameters can be controlled by operator objects like
4024 oscillators and MIDI-CCs. A versatile console mode user-interface is included
4025 in the package.")
4026     ;; As an exception to the above, the C, C++ and python implementations
4027     ;; of the Ecasound Control Interface (ECI) are licensed under the LGPL
4028     ;; (see the file 'COPYING.LGPL'). This allows writing ECI applications
4029     ;; that are not licensed under GPL.
4030     (license (list license:gpl2 license:lgpl2.1))))