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 "https://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.2.0")
2679     (source (origin
2680               (method url-fetch)
2681               (uri (string-append "http://www.wavpack.com/"
2682                                   "wavpack-" version ".tar.xz"))
2683               (sha256
2684                (base32
2685                 "1qvpvfx30kvrkw7y1g6r8xj109wszg1z0qmkfm17wf3flb7v3rbp"))))
2686     (build-system gnu-build-system)
2687     (arguments
2688      '(#:configure-flags '("--disable-static")))
2689     (home-page "http://www.wavpack.com/")
2690     (synopsis "Hybrid lossless audio codec")
2691     (description
2692      "WavPack is an audio compression format with lossless, lossy and hybrid
2693 compression modes.  This package contains command-line programs and library to
2694 encode and decode wavpack files.")
2695     (license license:bsd-3)))
2696
2697 (define-public libmodplug
2698   (package
2699     (name "libmodplug")
2700     (version "0.8.9.0")
2701     (source (origin
2702               (method url-fetch)
2703               (uri (string-append
2704                     "mirror://sourceforge/modplug-xmms/"
2705                     name "/" version "/" name "-" version ".tar.gz"))
2706               (sha256
2707                (base32
2708                 "1pnri98a603xk47smnxr551svbmgbzcw018mq1k6srbrq6kaaz25"))))
2709     (build-system gnu-build-system)
2710     (home-page "http://modplug-xmms.sourceforge.net/")
2711     (synopsis "Mod file playing library")
2712     (description
2713      "Libmodplug renders mod music files as raw audio data, for playing or
2714 conversion.  mod, .s3m, .it, .xm, and a number of lesser-known formats are
2715 supported.  Optional features include high-quality resampling, bass expansion,
2716 surround and reverb.")
2717     (license license:public-domain)))
2718
2719 (define-public libxmp
2720   (package
2721     (name "libxmp")
2722     (version "4.4.1")
2723     (source (origin
2724               (method url-fetch)
2725               (uri (string-append "mirror://sourceforge/xmp/libxmp/" version "/"
2726                                   name "-" version ".tar.gz"))
2727               (sha256
2728                (base32
2729                 "1kycz4jsyvmf7ny9227b497wc7y5ligydi6fvvldmkf8hk63ad9m"))))
2730     (build-system gnu-build-system)
2731     (home-page "http://xmp.sourceforge.net/")
2732     (synopsis "Module player library")
2733     (description
2734      "Libxmp is a library that renders module files to PCM data.  It supports
2735 over 90 mainstream and obscure module formats including Protracker (MOD),
2736 Scream Tracker 3 (S3M), Fast Tracker II (XM), and Impulse Tracker (IT).")
2737     (license license:lgpl2.1+)))
2738
2739 (define-public xmp
2740   (package
2741     (name "xmp")
2742     (version "4.1.0")
2743     (source (origin
2744               (method url-fetch)
2745               (uri (string-append "mirror://sourceforge/xmp/xmp/" version "/"
2746                                   name "-" version ".tar.gz"))
2747               (sha256
2748                (base32
2749                 "17i8fc7x7yn3z1x963xp9iv108gxfakxmdgmpv3mlm438w3n3g8x"))))
2750     (build-system gnu-build-system)
2751     (native-inputs
2752      `(("pkg-config" ,pkg-config)))
2753     (inputs
2754      `(("libxmp" ,libxmp)
2755        ("pulseaudio" ,pulseaudio)))
2756     (home-page "http://xmp.sourceforge.net/")
2757     (synopsis "Extended module player")
2758     (description
2759      "Xmp is a portable module player that plays over 90 mainstream and
2760 obscure module formats, including Protracker MOD, Fasttracker II XM, Scream
2761 Tracker 3 S3M and Impulse Tracker IT files.")
2762     (license license:gpl2+)))
2763
2764 (define-public soundtouch
2765   (package
2766     (name "soundtouch")
2767     (version "2.1.2")
2768     (source
2769      (origin
2770        (method git-fetch)
2771        (uri (git-reference
2772              (url "https://gitlab.com/soundtouch/soundtouch.git")
2773              (commit version)))
2774        (file-name (git-file-name name version))
2775        (sha256
2776         (base32 "174wgm3s0inmbnkrlnspxjwm2014qhjhkbdqa5r8rbfi0nzqxzsz"))))
2777     (build-system gnu-build-system)
2778     (native-inputs
2779      `(("autoconf" ,autoconf)
2780        ("automake" ,automake)
2781        ("libtool" ,libtool)
2782        ("file" ,file)))
2783     (home-page "https://www.surina.net/soundtouch/")
2784     (synopsis
2785      "Audio processing library for changing tempo, pitch and playback rate")
2786     (description
2787      "SoundTouch is an audio processing library for changing the tempo, pitch
2788 and playback rates of audio streams or audio files.  It is intended for
2789 application developers writing sound processing tools that require tempo/pitch
2790 control functionality, or just for playing around with the sound effects.")
2791     (license license:lgpl2.1+)))
2792
2793 (define-public sox
2794   (package
2795     (name "sox")
2796     (version "14.4.2")
2797     (source (origin
2798               (method url-fetch)
2799               (uri (string-append "mirror://sourceforge/sox/sox/" version "/"
2800                                   name "-" version ".tar.bz2"))
2801               (sha256
2802                (base32
2803                 "170lx90r1nlnb2j6lg00524iwvqy72p48vii4xc5prrh8dnrb9l1"))))
2804     (build-system gnu-build-system)
2805     (arguments
2806      '(#:configure-flags
2807        ;; The upstream asks to identify the distribution to diagnose SoX
2808        ;; bug reports.
2809        '("--with-distro=Guix System Distribution")))
2810     (native-inputs
2811      `(("pkg-config" ,pkg-config)))
2812     (inputs
2813      `(("alsa-lib" ,alsa-lib)
2814        ("ao" ,ao)
2815        ("flac" ,flac)
2816        ("lame" ,lame)
2817        ("libid3tag" ,libid3tag)
2818        ("libltdl" ,libltdl)
2819        ("libmad" ,libmad)
2820        ("libpng" ,libpng)
2821        ("libvorbis" ,libvorbis)
2822        ("pulseaudio" ,pulseaudio)))
2823     (home-page "http://sox.sourceforge.net")
2824     (synopsis "Sound processing utility")
2825     (description
2826      "SoX (Sound eXchange) is a command line utility that can convert
2827 various formats of computer audio files to other formats.  It can also
2828 apply various effects to these sound files, and, as an added bonus, SoX
2829 can play and record audio files.")
2830     ;; sox.c is distributed under GPL, while the files that make up
2831     ;; libsox are licensed under LGPL.
2832     (license (list license:gpl2+ license:lgpl2.1+))))
2833
2834 (define-public soxr
2835   (package
2836     (name "soxr")
2837     (version "0.1.3")
2838     (source
2839      (origin
2840        (method url-fetch)
2841        (uri
2842         (string-append "mirror://sourceforge/soxr/soxr-" version
2843                        "-Source.tar.xz"))
2844        (sha256
2845         (base32 "12aql6svkplxq5fjycar18863hcq84c5kx8g6f4rj0lcvigw24di"))))
2846     (build-system cmake-build-system)
2847     (arguments '(#:tests? #f))          ;no 'check' target
2848     (home-page "https://sourceforge.net/p/soxr/wiki/Home/")
2849     (synopsis "One-dimensional sample-rate conversion library")
2850     (description
2851      "The SoX Resampler library (libsoxr) performs one-dimensional sample-rate
2852 conversion.  It may be used, for example, to resample PCM-encoded audio.")
2853     (license license:lgpl2.1+)))
2854
2855 (define-public twolame
2856   (package
2857     (name "twolame")
2858     (version "0.4.0")
2859     (source
2860      (origin
2861        (method url-fetch)
2862        (uri (string-append "mirror://sourceforge/twolame/twolame/" version
2863                            "/twolame-" version ".tar.gz"))
2864        (sha256
2865         (base32 "0zf8sxqb02w07ah55b1y7ab643zmpbhn62spa9pqra0rc17l4dfc"))))
2866     (build-system gnu-build-system)
2867     (inputs
2868      `(("libsndfile" ,libsndfile)))
2869     (native-inputs
2870      `(("perl" ,perl)
2871        ("which" ,which)))               ;used in tests/test.pl
2872     (home-page "http://www.twolame.org/")
2873     (synopsis "MPEG Audio Layer 2 (MP2) encoder")
2874     (description
2875      "TwoLAME is an optimised MPEG Audio Layer 2 (MP2) encoder based on
2876 tooLAME by Mike Cheng, which in turn is based upon the ISO dist10 code and
2877 portions of LAME.")
2878     (license license:lgpl2.1+)))
2879
2880 (define-public portaudio
2881   (package
2882     (name "portaudio")
2883     (version "190600.20161030")
2884     (source
2885      (origin
2886        (method url-fetch)
2887        (uri (string-append
2888              "http://www.portaudio.com/archives/pa_stable_v"
2889              (string-map (lambda (c) (if (char=? c #\.) #\_ c)) version)
2890              ".tgz"))
2891        (sha256
2892         (base32 "04qmin6nj144b8qb9kkd9a52xfvm0qdgm8bg8jbl7s3frmyiv8pm"))
2893        (patches (search-patches "portaudio-audacity-compat.patch"))))
2894     (build-system gnu-build-system)
2895     (inputs
2896      ;; TODO: Add ASIHPI.
2897      `(("alsa-lib" ,alsa-lib)
2898        ("jack" ,jack-1)))
2899     ;; Autoreconf is necessary because the audacity-compat patch modifies .in
2900     ;; files.
2901     (native-inputs
2902      `(("autoconf" ,autoconf)
2903        ("automake" ,automake)
2904        ("libtool" ,libtool)
2905        ("pkg-config" ,pkg-config)))
2906     (arguments
2907      '(#:tests? #f                      ;no 'check' target
2908        #:parallel-build? #f             ;fails on some systems
2909        #:configure-flags '("--with-pic"
2910                            "--enable-cxx"
2911                            ;; XXX: The following prevents a build error
2912                            ;; because of missing depcomp when C++ bindings are
2913                            ;; requested.
2914                            "--disable-dependency-tracking")
2915        #:phases
2916        (modify-phases %standard-phases
2917          ;; This is needed for linking the static libraries
2918          (add-after 'unpack 'build-only-position-independent-code
2919            (lambda _
2920              (substitute* "configure.in"
2921                (("AC_PROG_LIBTOOL" m)
2922                 (string-append m "\nAM_PROG_AR\nLT_INIT([pic-only])")))
2923              (delete-file "configure")
2924              #t))
2925          ;; Some headers are not installed by default, but are needed by
2926          ;; packages like Kaldi.
2927          (add-after 'install 'install-missing-headers
2928            (lambda* (#:key outputs #:allow-other-keys)
2929              (install-file "src/common/pa_ringbuffer.h"
2930                            (string-append (assoc-ref outputs "out") "/include"))
2931              #t)))))
2932     (home-page "http://www.portaudio.com/")
2933     (synopsis "Audio I/O library")
2934     (description
2935      "PortAudio is a portable C/C++ audio I/O library providing a simple API
2936 to record and/or play sound using a callback function or a blocking read/write
2937 interface.")
2938     (license license:expat)))
2939
2940 (define-public qsynth
2941   (package
2942     (name "qsynth")
2943     (version "0.5.7")
2944     (source
2945      (origin
2946        (method url-fetch)
2947        (uri (string-append "mirror://sourceforge/qsynth/qsynth/" version
2948                            "/qsynth-" version ".tar.gz"))
2949        (sha256
2950         (base32 "18im4w8agj60nkppwbkxqnhpp13z5li3w30kklv4lgs20rvgbvl6"))))
2951     (build-system gnu-build-system)
2952     (arguments
2953      `(#:tests? #f))                    ; no "check" phase
2954     (native-inputs
2955      `(("qttools" ,qttools)
2956        ("pkg-config" ,pkg-config)))
2957     (inputs
2958      `(("fluidsynth" ,fluidsynth)
2959        ("qtbase" ,qtbase)
2960        ("qtx11extras" ,qtx11extras)))
2961     (home-page "https://qsynth.sourceforge.io")
2962     (synopsis "Graphical user interface for FluidSynth")
2963     (description
2964      "Qsynth is a GUI front-end application for the FluidSynth SoundFont
2965 synthesizer written in C++.")
2966     (license license:gpl2+)))
2967
2968 (define-public rsound
2969   (package
2970     (name "rsound")
2971     (version "1.1")
2972     (source
2973      (origin
2974        (method git-fetch)
2975        (uri (git-reference
2976              (url "https://github.com/Themaister/RSound.git")
2977              (commit (string-append "v" version))))
2978        (file-name (git-file-name name version))
2979        (sha256
2980         (base32 "0gspmr3klwnq98h17p5hc6ifygya4p80g4g8r7a1qavm3mv19waf"))))
2981     (build-system gnu-build-system)
2982     (inputs
2983      `(("alsa-lib" ,alsa-lib)
2984        ("jack" ,jack-1)
2985        ("ao" ,ao)
2986        ("libsamplerate" ,libsamplerate)
2987        ("openal" ,openal)
2988        ("portaudio" ,portaudio)
2989        ("pulseaudio" ,pulseaudio)))
2990     (arguments
2991      '(#:phases
2992        (modify-phases %standard-phases
2993          (replace 'configure
2994            (lambda* (#:key outputs #:allow-other-keys)
2995              (setenv "CC" "gcc")
2996              (invoke "./configure"
2997                      (string-append "--prefix=" (assoc-ref outputs "out"))))))
2998        ;; No 'check' target.
2999        #:tests? #f))
3000     (home-page "http://themaister.net/rsound.html")
3001     (synopsis "Networked audio system")
3002     (description
3003      "RSound allows you to send audio from an application and transfer it
3004 directly to a different computer on your LAN network.  It is an audio daemon
3005 with a much different focus than most other audio daemons.")
3006     (license license:gpl3+)))
3007
3008 (define-public xjackfreak
3009   (package
3010     (name "xjackfreak")
3011     (version "1.0")
3012     (source (origin
3013               (method git-fetch)
3014               (uri (git-reference
3015                     (url "https://github.com/johnhldavis/xjackfreak.git")
3016                     (commit (string-append "v" version))))
3017               (file-name (git-file-name name version))
3018               (sha256
3019                (base32
3020                 "18c546qidbrj0f5wfiq5llii2192xpln0ab3r4vpr7i3wybxqjfz"))))
3021     (build-system gnu-build-system)
3022     (arguments
3023      `(#:make-flags
3024        (list (string-append "docdir=" (assoc-ref %outputs "out")
3025                             "/share/doc/xjackfreak"))))
3026     (inputs
3027      `(("jack" ,jack-1)
3028        ("libx11" ,libx11)
3029        ("libxt" ,libxt)
3030        ("libxext" ,libxext)))
3031     (native-inputs
3032      `(("pkg-config" ,pkg-config)))
3033     (home-page "https://github.com/johnhldavis/xjackfreak")
3034     (synopsis "JACK audio frequency analyzer and display")
3035     (description
3036      "XJackFreak is an audio analysis and equalizing tool for the Jack Audio
3037 Connection Kit.  It can display the FFT of any input, modify it and output the
3038 result.")
3039     (license license:gpl3+)))
3040
3041 (define-public zita-convolver
3042   (package
3043     (name "zita-convolver")
3044     (version "4.0.3")
3045     (source (origin
3046               (method url-fetch)
3047               (uri (string-append
3048                     "http://kokkinizita.linuxaudio.org"
3049                     "/linuxaudio/downloads/zita-convolver-"
3050                     version ".tar.bz2"))
3051               (snippet
3052                ;; Don't optimize for a specific processor architecture.
3053                '(begin
3054                   (substitute* "source/Makefile"
3055                     (("^CXXFLAGS \\+= -march=native") ""))
3056                   #t))
3057               (modules '((guix build utils)))
3058               (sha256
3059                (base32
3060                 "0prji66p86z2bzminywkwchr5bfgxcg2i8y803pydd1hzf2198cs"))))
3061     (build-system gnu-build-system)
3062     (arguments
3063      `(#:tests? #f ; no "check" target
3064        #:make-flags
3065        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
3066              (string-append "SUFFIX="))
3067        #:phases
3068        (modify-phases %standard-phases
3069          (add-after 'unpack 'patch-makefile-and-enter-directory
3070            (lambda _
3071              (substitute* "source/Makefile"
3072                (("ldconfig") "true")
3073                (("^LIBDIR =.*") "LIBDIR = lib\n"))
3074              (chdir "source")
3075              #t))
3076          (add-after 'install 'install-symlink
3077            (lambda _
3078              (symlink "libzita-convolver.so"
3079                       (string-append (assoc-ref %outputs "out")
3080                                      "/lib/libzita-convolver.so.4"))
3081              #t))
3082          ;; no configure script
3083          (delete 'configure))))
3084     (inputs `(("fftwf" ,fftwf)))
3085     (home-page "https://kokkinizita.linuxaudio.org")
3086     (synopsis "Fast, partitioned convolution engine library")
3087     (description
3088      "Zita convolver is a C++ library providing a real-time convolution
3089 engine.")
3090     (license license:gpl3+)))
3091
3092 (define-public zita-resampler
3093   (package
3094     (name "zita-resampler")
3095     (version "1.3.0")
3096     (source (origin
3097               (method url-fetch)
3098               (uri (string-append
3099                     "http://kokkinizita.linuxaudio.org"
3100                     "/linuxaudio/downloads/zita-resampler-"
3101                     version ".tar.bz2"))
3102               (snippet
3103                ;; Don't optimize for a specific processor architecture.
3104                '(begin
3105                   (substitute* '("apps/Makefile" "libs/Makefile")
3106                     (("^CXXFLAGS \\+= -march=native") ""))
3107                   #t))
3108               (modules '((guix build utils)))
3109               (sha256
3110                (base32
3111                 "0r9ary5sc3y8vba5pad581ha7mgsrlyai83w7w4x2fmhfy64q0wq"))))
3112     (build-system gnu-build-system)
3113     (arguments
3114      `(#:tests? #f ; no "check" target
3115        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3116        #:phases
3117        (modify-phases %standard-phases
3118          (add-after
3119           'unpack 'patch-makefile-and-enter-directory
3120           (lambda _
3121             (substitute* "libs/Makefile"
3122               (("ldconfig") "true")
3123               (("^LIBDIR =.*") "LIBDIR = lib\n"))
3124             (chdir "libs")
3125             #t))
3126          (add-after
3127           'install 'install-symlink
3128           (lambda _
3129             (symlink "libzita-resampler.so"
3130                      (string-append (assoc-ref %outputs "out")
3131                                     "/lib/libzita-resampler.so.1"))
3132             #t))
3133          ;; no configure script
3134          (delete 'configure))))
3135     (home-page "https://kokkinizita.linuxaudio.org/linuxaudio/zita-resampler/resampler.html")
3136     (synopsis "C++ library for resampling audio signals")
3137     (description
3138      "Libzita-resampler is a C++ library for resampling audio signals.  It is
3139 designed to be used within a real-time processing context, to be fast, and to
3140 provide high-quality sample rate conversion.")
3141     (license license:gpl3+)))
3142
3143 (define-public zita-alsa-pcmi
3144   (package
3145     (name "zita-alsa-pcmi")
3146     (version "0.2.0")
3147     (source (origin
3148               (method url-fetch)
3149               (uri (string-append
3150                     "http://kokkinizita.linuxaudio.org"
3151                     "/linuxaudio/downloads/zita-alsa-pcmi-"
3152                     version ".tar.bz2"))
3153               (sha256
3154                (base32
3155                 "1rgv332g82rrrlm4vdam6p2pyrisxbi7b3izfaa0pcjglafsy7j9"))))
3156     (build-system gnu-build-system)
3157     (arguments
3158      `(#:tests? #f ; no "check" target
3159        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3160        #:phases
3161        (modify-phases %standard-phases
3162          (add-after 'unpack 'patch-makefile-and-enter-directory
3163            (lambda _
3164              (substitute* "libs/Makefile"
3165                (("ldconfig") "true")
3166                (("^LIBDIR =.*") "LIBDIR = lib\n"))
3167              (chdir "libs")
3168              #t))
3169          (add-after 'install 'install-symlink
3170            (lambda _
3171              (symlink "libzita-alsa-pcmi.so"
3172                       (string-append (assoc-ref %outputs "out")
3173                                      "/lib/libzita-alsa-pcmi.so.0"))
3174              #t))
3175           ;; no configure script
3176           (delete 'configure))))
3177     (inputs
3178      `(("alsa-lib" ,alsa-lib)
3179        ("fftw" ,fftw)))
3180     (home-page "https://kokkinizita.linuxaudio.org")
3181     (synopsis "C++ wrapper around the ALSA API")
3182     (description
3183      "Zita-alsa-pcmi is a C++ wrapper around the ALSA API.  It provides easy
3184 access to ALSA PCM devices, taking care of the many functions required to
3185 open, initialise and use a hw: device in mmap mode, and providing floating
3186 point audio data.")
3187     (license license:gpl3+)))
3188
3189 (define-public cuetools
3190   (package
3191     (name "cuetools")
3192     (version "1.4.1")
3193     (source (origin
3194              (method git-fetch)
3195              (uri (git-reference
3196                    (url "https://github.com/svend/cuetools.git")
3197                    (commit version)))
3198              (file-name (git-file-name name version))
3199              (sha256
3200               (base32
3201                "02ksv1ahf1v4cr2xbclsfv5x17m9ivzbssb5r8xjm97yh8a7spa3"))))
3202     (build-system gnu-build-system)
3203     ;; The source checkout is not bootstrapped.
3204     (native-inputs
3205      `(("autoconf" ,autoconf)
3206        ("automake" ,automake)
3207        ("flex" ,flex)
3208        ("bison" ,bison)))
3209     (synopsis "Cue and toc file parsers and utilities")
3210     (description "Cuetools is a set of programs that are useful for manipulating
3211 and using CUE sheet (cue) files and Table of Contents (toc) files.  CUE and TOC
3212 files are a way to represent the layout of a data or audio CD in a
3213 machine-readable ASCII format.")
3214     (home-page "https://github.com/svend/cuetools")
3215     (license license:gpl2+)))
3216
3217 (define-public shntool
3218   (package
3219     (name "shntool")
3220     (version "3.0.10")
3221     (source (origin
3222              (method url-fetch)
3223              (uri (string-append "http://etree.org/shnutils/shntool/dist/src/"
3224                                  "shntool-" version ".tar.gz"))
3225              (sha256
3226               (base32
3227                "00i1rbjaaws3drkhiczaign3lnbhr161b7rbnjr8z83w8yn2wc3l"))))
3228     (build-system gnu-build-system)
3229     (synopsis "WAVE audio data processing tool")
3230     (description "shntool is a multi-purpose WAVE data processing and reporting
3231 utility.  File formats are abstracted from its core, so it can process any file
3232 that contains WAVE data, compressed or not---provided there exists a format
3233 module to handle that particular file type.  It can also generate CUE files, and
3234 use them split WAVE data into multiple files.")
3235     (home-page "http://etree.org/shnutils/shntool/")
3236     ;; 'install-sh' bears the x11 license
3237     (license (list license:gpl2+ license:x11))))
3238
3239 (define-public dcadec
3240   (package
3241     (name "dcadec")
3242     (version "0.2.0")
3243     (source (origin
3244               (method git-fetch)
3245               (uri (git-reference
3246                     (url "https://github.com/foo86/dcadec.git")
3247                     (commit (string-append "v" version))))
3248               (file-name (git-file-name name version))
3249               (sha256
3250                (base32
3251                 "07nd0ajizrp1w02bsyfcv18431r8m8rq8gjfmz9wmckpg7cxj2hs"))))
3252     (build-system gnu-build-system)
3253     (arguments
3254      ;; Test files are missing: https://github.com/foo86/dcadec/issues/53
3255      '(#:tests? #f
3256        #:make-flags
3257        (list "CC=gcc"
3258              ;; Build shared library.
3259              "CONFIG_SHARED=1"
3260              (string-append "PREFIX=" (assoc-ref %outputs "out"))
3261              ;; Set proper runpath.
3262              (string-append "LDFLAGS=-Wl,-rpath="
3263                             (assoc-ref %outputs "out")
3264                             "/lib"))
3265        #:phases
3266        (modify-phases %standard-phases
3267          ;; No configure script, just a hand-written Makefile.
3268          (delete 'configure))))
3269     (synopsis "DTS Coherent Acoustics decoder")
3270     (description "Dcadec is a DTS Coherent Acoustics surround sound decoder
3271 with support for HD extensions.")
3272     (home-page "https://github.com/foo86/dcadec")
3273     (license license:lgpl2.1+)))
3274
3275 (define-public bs1770gain
3276   (package
3277     (name "bs1770gain")
3278     (version "0.6.5")
3279     (source
3280      (origin
3281        (method url-fetch)
3282        (uri (string-append "mirror://sourceforge/bs1770gain/bs1770gain/"
3283                            version "/bs1770gain-" version ".tar.gz"))
3284        (sha256
3285         (base32 "15nvlh9bg0a52cpg2mii17mlzmxszwivjjalbb4np1v5nj8l5fk6"))
3286        (modules '((guix build utils)))
3287        (snippet
3288         '(begin
3289            ;; XXX
3290            (substitute* (find-files "." "\\.[ch]$")
3291              (("^ \\* N..o.*") ""))
3292            (substitute* "libbg/bgx.c"
3293              (("#define BG.* ") "#define BS ")
3294              (("BG.*NO?.*N.*S.*E.*N.*SE?") "NO")
3295              (("\"( #|N).*\"") "\"\""))
3296            (substitute* (list "config.h"
3297                               "configure.ac"
3298                               "configure")
3299              (("https?://bs1770gain[^/]*/")
3300               "https://manpages.debian.org/sid/bs1770gain/bs1770gain.1.en.html"))
3301            #t))))
3302     (build-system gnu-build-system)
3303     (inputs `(("ffmpeg" ,ffmpeg)
3304               ("sox" ,sox)))
3305     (home-page "https://manpages.debian.org/sid/bs1770gain/bs1770gain.1.en.html")
3306     (synopsis "Tool to adjust loudness of media files")
3307     (description
3308      "BS1770GAIN is a loudness scanner compliant with ITU-R BS.1770 and its
3309 flavors EBU R128, ATSC A/85, and ReplayGain 2.0.  It helps normalizing the
3310 loudness of audio and video files to the same level.")
3311     (license license:gpl2+)))
3312
3313 (define-public filteraudio
3314   (let ((revision "1")
3315         (commit "2fc669581e2a0ff87fba8de85861b49133306094"))
3316     (package
3317       (name "filteraudio")
3318       (version (string-append "0.0.0-" revision "."
3319                               (string-take commit 7)))
3320       (source
3321        (origin
3322          (method git-fetch)
3323          (uri (git-reference
3324                (url "https://github.com/irungentoo/filter_audio.git")
3325                (commit commit)))
3326          (file-name (string-append name "-" version "-checkout"))
3327          (sha256
3328           (base32
3329            "0hbb290n3wb23f2k692a6bhc23nnqmxqi9sc9j15pnya8wifw64g"))))
3330       (build-system gnu-build-system)
3331       (arguments
3332        '(#:make-flags (list (string-append "PREFIX=" %output)
3333                             "CC=gcc")
3334          #:tests? #f ; No tests
3335          #:phases
3336          (modify-phases %standard-phases
3337            ;; No configure script
3338            (delete 'configure))))
3339       (synopsis "Lightweight audio filtering library")
3340       (description "An easy to use audio filtering library made from webrtc
3341 code, used in @code{libtoxcore}.")
3342       (home-page "https://github.com/irungentoo/filter_audio")
3343       (license license:bsd-3))))
3344
3345 (define-public gsm
3346   (package
3347     (name "gsm")
3348     (version "1.0.18")
3349     (source
3350      (origin
3351        (method url-fetch)
3352        (uri
3353         (string-append "http://www.quut.com/" name "/" name
3354                        "-" version ".tar.gz"))
3355        (sha256
3356         (base32
3357          "041amvpz8cvxykl3pwqldrzxligmmzcg8ncdnxbg32rlqf3q1xh4"))))
3358     (build-system gnu-build-system)
3359     (arguments
3360      `(#:test-target "tst"
3361        #:phases
3362        (modify-phases %standard-phases
3363          (add-before 'install 'pre-install
3364            (lambda _
3365              (let ((out (assoc-ref %outputs "out")))
3366                (substitute* "Makefile"
3367                  (("INSTALL_ROOT\t=")
3368                   (string-append "INSTALL_ROOT\t=\t" out)))
3369                (mkdir-p (string-append out "/inc"))
3370                (mkdir-p (string-append out "/man"))
3371                (mkdir-p (string-append out "/man/man1"))
3372                (mkdir-p (string-append out "/man/man3"))
3373                (mkdir-p (string-append out "/bin"))
3374                (mkdir-p (string-append out "/lib")))
3375              #t))
3376          (add-after 'install 'post-install
3377            (lambda _
3378              (let ((out (assoc-ref %outputs "out")))
3379                (rename-file (string-append out "/inc")
3380                             (string-append out "/include"))
3381                (mkdir-p (string-append out "/include/gsm"))
3382                (copy-recursively "inc"
3383                                  (string-append out "/include/gsm")))
3384              #t))
3385          (delete 'configure))))         ; no configure script
3386     (synopsis "GSM 06.10 lossy speech compression library")
3387     (description "This C library provides an encoder and a decoder for the GSM
3388 06.10 RPE-LTP lossy speech compression algorithm.")
3389     (home-page "http://quut.com/gsm/")
3390     (license (license:non-copyleft "file://COPYRIGHT"))))
3391
3392 (define-public python-pyalsaaudio
3393   (package
3394     (name "python-pyalsaaudio")
3395     (version "0.8.4")
3396     (source (origin
3397               (method url-fetch)
3398               (uri (pypi-uri "pyalsaaudio" version))
3399               (sha256
3400                (base32
3401                 "1180ypn9596rq4b7y7dyv627j1q0fqilmkkrckclnzsdakdgis44"))))
3402     (build-system python-build-system)
3403     (arguments
3404      `(#:tests? #f))                   ; tests require access to ALSA devices.
3405     (inputs
3406      `(("alsa-lib" ,alsa-lib)))
3407     (home-page "http://larsimmisch.github.io/pyalsaaudio/")
3408     (synopsis "ALSA wrappers for Python")
3409     (description
3410      "This package contains wrappers for accessing the ALSA API from Python.
3411 It is currently fairly complete for PCM devices, and has some support for
3412 mixers.")
3413     (license license:psfl)))
3414
3415 (define-public python2-pyalsaaudio
3416   (package-with-python2 python-pyalsaaudio))
3417
3418 (define-public bluez-alsa
3419   (package
3420     (name "bluez-alsa")
3421     (version "2.0.0")
3422     (source (origin
3423               ;; The tarballs are mere snapshots and don't contain a
3424               ;; bootstrapped build system.
3425               (method git-fetch)
3426               (uri (git-reference
3427                     (url "https://github.com/Arkq/bluez-alsa.git")
3428                     (commit (string-append "v" version))))
3429               (file-name (git-file-name name version))
3430               (sha256
3431                (base32
3432                 "08mppgnjf1j2733bk9yf0cny6rfxxwiys0s62lz2zd2lpdl6d9lz"))))
3433     (build-system gnu-build-system)
3434     (arguments
3435      `(#:configure-flags
3436        (list (string-append "--with-alsaplugindir="
3437                             (assoc-ref %outputs "out")
3438                             "/lib/alsa-lib")
3439              (string-append "--with-dbusconfdir="
3440                             (assoc-ref %outputs "out")
3441                             "/etc/dbus-1/system.d"))))
3442     (native-inputs
3443      `(("autoconf" ,autoconf)
3444        ("automake" ,automake)
3445        ("libtool" ,libtool)
3446        ("pkg-config" ,pkg-config)))
3447     (inputs
3448      `(("alsa-lib" ,alsa-lib)
3449        ("bluez" ,bluez)
3450        ("dbus" ,dbus)
3451        ("glib" ,glib)
3452        ("libbsd" ,libbsd)
3453        ("ncurses" ,ncurses)
3454        ("ortp" ,ortp)
3455        ("sbc" ,sbc)))
3456     (home-page "https://github.com/Arkq/bluez-alsa")
3457     (synopsis "Bluetooth ALSA backend")
3458     (description "This project is a rebirth of a direct integration between
3459 Bluez and ALSA.  Since Bluez >= 5, the build-in integration has been removed
3460 in favor of 3rd party audio applications.  From now on, Bluez acts as a
3461 middleware between an audio application, which implements Bluetooth audio
3462 profile, and a Bluetooth audio device.  BlueALSA registers all known Bluetooth
3463 audio profiles in Bluez, so in theory every Bluetooth device (with audio
3464 capabilities) can be connected.  In order to access the audio stream, one has
3465 to connect to the ALSA PCM device called @code{bluealsa}.  The device is based
3466 on the ALSA software PCM plugin.")
3467     (license license:expat)))
3468
3469 (define-public snd
3470   (package
3471     (name "snd")
3472     (version "19.9")
3473     (source (origin
3474               (method url-fetch)
3475               (uri (string-append "ftp://ccrma-ftp.stanford.edu/pub/Lisp/"
3476                                   "snd-" version ".tar.gz"))
3477               (sha256
3478                (base32
3479                 "13s8fahpsjygjdrcwmprcrz23ny3klaj2rh2xzdv3bfs69gxvhys"))))
3480     (build-system glib-or-gtk-build-system)
3481     (arguments
3482      `(#:tests? #f                      ; no tests
3483        #:out-of-source? #f              ; for the 'install-doc' phase
3484        #:configure-flags
3485        (let* ((out (assoc-ref %outputs "out"))
3486               (docdir (string-append out "/share/doc/"
3487                                      ,name "-" ,version)))
3488          (list "--with-alsa" "--with-jack" "--with-gmp"
3489                (string-append "--with-doc-dir=" docdir)))
3490        #:phases
3491        (modify-phases %standard-phases
3492          (add-after 'install 'install-doc
3493            (lambda* (#:key outputs #:allow-other-keys)
3494              (let* ((out (assoc-ref outputs "out"))
3495                     (doc (string-append out "/share/doc/"
3496                                         ,name "-" ,version)))
3497                (for-each
3498                 (lambda (f)
3499                   (install-file f doc))
3500                 (find-files "." "\\.html$"))
3501                (copy-recursively "pix" (string-append doc "/pix"))
3502                #t))))))
3503     (native-inputs
3504      `(("pkg-config" ,pkg-config)))
3505     (inputs
3506      `(("alsa-lib" ,alsa-lib)
3507        ("fftw" ,fftw)
3508        ("flac" ,flac)
3509        ("gmp" ,gmp)
3510        ("gsl" ,gsl)
3511        ("gtk+" ,gtk+)
3512        ("jack" ,jack-1)
3513        ("libsamplerate" ,libsamplerate)
3514        ("mpc" ,mpc)
3515        ("mpfr" ,mpfr)
3516        ("mpg123" ,mpg123)
3517        ("speex" ,speex)
3518        ("timidity++" ,timidity++)
3519        ("vorbis-tools" ,vorbis-tools)
3520        ("wavpack" ,wavpack)))
3521     (synopsis "Sound editor")
3522     (home-page "https://ccrma.stanford.edu/software/snd/")
3523     (description
3524      "Snd is a sound editor modelled loosely after Emacs.  It can be
3525 customized and extended using either the s7 Scheme implementation (included in
3526 the Snd sources), Ruby, or Forth.")
3527     (license (license:non-copyleft "file://COPYING"))))
3528
3529 (define-public noise-repellent
3530   (package
3531     (name "noise-repellent")
3532     (version "0.1.4")
3533     (source (origin
3534               (method git-fetch)
3535               (uri (git-reference
3536                     (url "https://github.com/lucianodato/noise-repellent.git")
3537                     (commit version)))
3538               (file-name (string-append name "-" version "-checkout"))
3539               (sha256
3540                (base32
3541                 "0rd3dlmk3vivjmcr6x2x860y0j1d49c2j95j6ny50v184mwvn11j"))))
3542     (build-system gnu-build-system)
3543     (arguments
3544      `(#:make-flags
3545        (list "CC=gcc"
3546              (string-append "PREFIX=" (assoc-ref %outputs "out")))
3547        #:tests? #f ; there are none
3548        #:phases
3549        (modify-phases %standard-phases
3550          (delete 'configure))))
3551     (inputs
3552      `(("lv2" ,lv2)
3553        ("fftwf" ,fftwf)))
3554     (native-inputs
3555      `(("pkg-config" ,pkg-config)))
3556     (home-page "https://github.com/lucianodato/noise-repellent")
3557     (synopsis "LV2 plugin for broadband noise reduction")
3558     (description "Noise Repellent is an LV2 plugin to reduce noise.  It has
3559 the following features:
3560
3561 @enumerate
3562 @item Spectral gating and spectral subtraction suppression rule
3563 @item Adaptive and manual noise thresholds estimation
3564 @item Adjustable noise floor
3565 @item Adjustable offset of thresholds to perform over-subtraction
3566 @item Time smoothing and a masking estimation to reduce artifacts
3567 @item Basic onset detector to avoid transients suppression
3568 @item Whitening of the noise floor to mask artifacts and to recover higher
3569   frequencies
3570 @item Option to listen to the residual signal
3571 @item Soft bypass
3572 @item Noise profile saved with the session
3573 @end enumerate
3574 ")
3575     (license license:lgpl3+)))
3576
3577 (define-public cli-visualizer
3578   (package
3579     (name "cli-visualizer")
3580     (version "1.8")
3581     (source
3582      (origin
3583        (method git-fetch)
3584        (uri (git-reference
3585              (url "https://github.com/dpayne/cli-visualizer.git")
3586              (commit (string-append "v" version))))
3587        (file-name (git-file-name name version))
3588        (sha256
3589         (base32 "003mbbwsz43mg3d7llphpypqa9g7rs1p1cdbqi1mbc2bfrc1gcq2"))))
3590     (build-system cmake-build-system)
3591     (native-inputs
3592      ;; TODO: Try using the latest googletest for versions > 1.8.
3593      `( ;; ("googletest" ,googletest-1.8)
3594        ("which" ,which)))
3595     (inputs
3596      `(("fftw" ,fftw)
3597        ("ncurses" ,ncurses)
3598        ("pulseaudio" ,pulseaudio)))
3599     (arguments
3600      '(#:tests? #f
3601        ;; XXX Enable tests after patching them to use the system googletest.
3602        ;; #:configure-flags (list "-DVIS_WITH_TESTS=true")
3603        #:phases
3604        (modify-phases %standard-phases
3605          (add-after 'install 'install-examples
3606            (lambda* (#:key outputs #:allow-other-keys)
3607              (with-directory-excursion "../source/examples"
3608                (delete-file "mac_osx_config")
3609                (for-each (lambda (file)
3610                            (install-file file
3611                                          (string-append
3612                                           (assoc-ref outputs "out")
3613                                           "/share/doc")))
3614                          (find-files ".")))
3615              #t)))))
3616     (home-page "https://github.com/dpayne/cli-visualizer/")
3617     (synopsis "Command-line audio visualizer")
3618     (description "@code{cli-visualizer} displays fast-Fourier
3619 transforms (FFTs) of the sound being played, as well as other graphical
3620 representations.")
3621     (license license:expat)))
3622
3623 (define-public cava
3624   (package
3625     (name "cava")
3626     (version "0.6.1")
3627     (source (origin
3628               (method git-fetch)
3629               (uri (git-reference
3630                     (url "https://github.com/karlstav/cava.git")
3631                     (commit version)))
3632               (file-name (git-file-name name version))
3633               (sha256
3634                (base32
3635                 "1kvhqgijs29909w3sq9m0bslx2zxxn4b3i07kdz4hb0dqkppxpjy"))))
3636     (build-system gnu-build-system)
3637     (native-inputs
3638      `(("autoconf" ,autoconf)
3639        ("automake" ,automake)
3640        ("libtool" ,libtool)))
3641     (inputs
3642      `(("fftw" ,fftw)
3643        ("ncurses" ,ncurses)
3644        ("pulseaudio" ,pulseaudio)))
3645     (arguments
3646      `(#:configure-flags
3647        (list (string-append "PREFIX=" %output)
3648              (string-append "FONT_DIR=" %output "/share/consolefonts"))
3649        #:make-flags
3650        (let ((lib (string-append %output "/lib")))
3651          (list (string-append "cava_LDFLAGS = -L" lib " -Wl,-rpath " lib)))
3652        #:phases
3653        (modify-phases %standard-phases
3654          (replace 'bootstrap
3655            (lambda* (#:key outputs #:allow-other-keys)
3656              (setenv "HOME" (getcwd))
3657              (invoke "sh" "autogen.sh")))
3658          (add-before 'build 'make-cava-ldflags
3659            (lambda* (#:key outputs #:allow-other-keys)
3660              (mkdir-p (string-append (assoc-ref outputs "out") "/lib"))
3661              #t))
3662          (add-after 'install 'data
3663            (lambda* (#:key outputs #:allow-other-keys)
3664              (for-each (lambda (file)
3665                          (install-file file
3666                                        (string-append (assoc-ref outputs "out")
3667                                                       "/share/doc/examples")))
3668                        (find-files "example_files"))
3669              #t)))))
3670     (home-page "https://karlstav.github.io/cava/")
3671     (synopsis "Console audio visualizer for ALSA, MPD, and PulseAudio")
3672     (description "C.A.V.A. is a bar audio spectrum visualizer for the terminal
3673 using ALSA, MPD, PulseAudio, or a FIFO buffer as its input.")
3674     (license license:expat)))
3675
3676 (define-public fluid-3
3677   (let ((commit "871c8ce2002e8b3c198f532fdb4fbcce7914f951"))
3678     (package
3679       (name "fluid-3")
3680       (version "2.1")
3681       (source
3682        (origin
3683          (method url-fetch)
3684          ;; Only one file is required, but the release bundles the whole
3685          ;; software which is 50MiB as tar and 200MiB unpacked. The website
3686          ;; directly links the soundfont release to the github file download.
3687          (uri (string-append "https://github.com/musescore/MuseScore/raw/"
3688                              commit "/share/sound/FluidR3Mono_GM.sf3"))
3689          (file-name (string-append name "-" version ".sf3"))
3690          (sha256
3691           (base32
3692            "1hjfg5i15bw9279007xs92zsggjgn4s4k9pc00s851l3kvc6dkfg"))))
3693       (build-system trivial-build-system)
3694       (arguments
3695        `(#:modules ((guix build utils))
3696          #:builder
3697          (begin
3698            (use-modules (guix build utils))
3699            (let ((file (assoc-ref %build-inputs "source"))
3700                  (out (string-append %output "/share/soundfonts")))
3701              (mkdir-p out)
3702              (copy-file file (string-append out "/FluidR3Mono_GM.sf3"))
3703              #t))))
3704       (home-page  "https://github.com/musescore/MuseScore/tree/master/share/sound")
3705       (synopsis "Pro-quality GM soundfont")
3706       (description "Fluid-3 is Frank Wen's pro-quality GM soundfont.")
3707       (license license:expat))))
3708
3709 (define-public libfdk
3710   (let ((commit "2326faaf8f2cdf2c3a9108ccdaf1d7551aec543e")
3711         (revision "0"))
3712     (package
3713       (name "libfdk")
3714       ;; The latest upstream revision, with many bug fixes.
3715       (version (git-version "0.1.6" revision commit))
3716       (source
3717         (origin
3718           (method git-fetch)
3719           (uri (git-reference
3720                  (url "https://github.com/mstorsjo/fdk-aac")
3721                  (commit commit)))
3722           (file-name (git-file-name name version))
3723           (sha256
3724            (base32
3725             "0yy6ndd9d61bwl283vl1r5kva2a4acc0f4r9g0sza156f2abr9ws"))))
3726       (build-system gnu-build-system)
3727       (native-inputs
3728        `(("autoconf" ,autoconf)
3729          ("automake" ,automake)
3730          ("libtool" ,libtool)))
3731       (home-page "https://github.com/mstorsjo/fdk-aac")
3732       (synopsis "Fraunhofer FDK AAC library")
3733       (description "FDK is a library for encoding and decoding Advanced Audio
3734 Coding (AAC) format audio, developed by Fraunhofer IIS, and included as part of
3735 Android.  It supports several Audio Object Types including MPEG-2 and MPEG-4 AAC
3736 LC, HE-AAC (AAC LC + SBR), HE-AACv2 (LC + SBR + PS) as well AAC-LD (low delay)
3737 and AAC-ELD (enhanced low delay) for real-time communication.  The encoding
3738 library supports sample rates up to 96 kHz and up to eight channels (7.1
3739 surround).")
3740       (license (license:fsf-free "https://github.com/mstorsjo/fdk-aac/blob/master/NOTICE"
3741                                  "https://www.gnu.org/licenses/license-list.html#fdk")))))
3742
3743 (define-public libopenshot-audio
3744   (package
3745     (name "libopenshot-audio")
3746     (version "0.1.8")
3747     (source (origin
3748               (method git-fetch)
3749               (uri (git-reference
3750                     (url "https://github.com/OpenShot/libopenshot-audio")
3751                     (commit (string-append "v" version))))
3752               (file-name (git-file-name name version))
3753               (sha256
3754                (base32
3755                 "1fvp6nmf30xzkmcznakh8dv5vn9d7nq051pqcqv638hsfppkmcrl"))))
3756     (build-system cmake-build-system)
3757     (inputs
3758      `(("alsa-lib" ,alsa-lib)
3759        ;; The following are for JUCE GUI components:
3760        ("libx11" ,libx11)
3761        ("freetype" ,freetype)
3762        ("libxrandr" ,libxrandr)
3763        ("libxinerama" ,libxinerama)
3764        ("libxcursor" ,libxcursor)))
3765     (arguments
3766      `(#:tests? #f                      ;there are no tests
3767        #:configure-flags
3768        (list (string-append "-DCMAKE_CXX_FLAGS=-I"
3769                             (assoc-ref %build-inputs "freetype")
3770                             "/include/freetype2"))))
3771     (home-page "https://openshot.org")
3772     (synopsis "Audio editing and playback for OpenShot")
3773     (description "OpenShot Audio Library (libopenshot-audio) allows
3774 high-quality editing and playback of audio, and is based on the JUCE
3775 library.")
3776     (license license:lgpl3+)))
3777
3778 (define-public faudio
3779   (package
3780     (name "faudio")
3781     (version "19.11")
3782     (source
3783      (origin
3784        (method git-fetch)
3785        (uri (git-reference
3786              (url "https://github.com/FNA-XNA/FAudio.git")
3787              (commit version)))
3788        (file-name (git-file-name name version))
3789        (sha256
3790         (base32 "0ckpr6ffz8ssfh1y850dhip5s5jv0j6n90qz5yx1v9d6gpwf08rp"))))
3791     (arguments
3792      '(#:tests? #f                      ; No tests.
3793        #:configure-flags '("-DFFMPEG=ON")))
3794     (build-system cmake-build-system)
3795     (native-inputs `(("pkg-config" ,pkg-config)))
3796     (inputs `(("ffmpeg" ,ffmpeg)
3797               ("sdl2" ,sdl2)))
3798     (home-page "https://github.com/FNA-XNA/FAudio")
3799     (synopsis "XAudio reimplementation")
3800     (description "FAudio is an XAudio reimplementation that focuses solely on
3801 developing fully accurate DirectX Audio runtime libraries.")
3802     (license license:zlib)))
3803
3804 (define-public gnaural
3805   (package
3806     (name "gnaural")
3807     (version "20110606")
3808     (source
3809      (origin
3810        (method url-fetch)
3811        (uri (string-append "mirror://sourceforge/gnaural/Gnaural/gnaural_"
3812                            version ".tar.xz"))
3813        (sha256
3814         (base32
3815          "1gq519c0imsh57zklyi0f8h64l3ai48lh672c834470z8c6kvbfi"))))
3816     (build-system gnu-build-system)
3817     (inputs
3818      `(("alsa-lib" ,alsa-lib)
3819        ("gtk+" ,gtk+-2)
3820        ("libsndfile" ,libsndfile)
3821        ("portaudio" ,portaudio)))
3822     (native-inputs
3823      `(("pkg-config" ,pkg-config)))
3824     (home-page "http://gnaural.sourceforge.net/")
3825     (synopsis "Binaural beat synthesizer")
3826     (description "Gnaural is a programmable auditory binaural beat synthesizer
3827 intended to be used for brainwave entrainment.  Gnaural supports creation of
3828 binaural beat tracks of different frequencies and exporting of tracks into
3829 different audio formats.  Gnaural can also be linked over the internet with
3830 other Gnaural instances, allowing synchronous sessions between many users.")
3831     (license license:gpl2+)))
3832
3833 (define-public darkice
3834   (package
3835     (name "darkice")
3836     (version "1.3")
3837     (source (origin
3838               (method url-fetch)
3839               (uri (string-append "mirror://sourceforge/darkice/darkice/"
3840                                   version "/darkice-" version ".tar.gz"))
3841               (sha256
3842                (base32 "1rlxds7ssq7nk2in4s46xws7xy9ylxsqgcz85hxjgh17lsm0y39c"))
3843               (patches
3844                (search-patches "darkice-workaround-fpermissive-error.patch"))))
3845     (build-system gnu-build-system)
3846     (native-inputs `(("pkg-config" ,pkg-config)))
3847     (inputs `(("lame" ,lame)
3848               ("libvorbis" ,libvorbis)
3849               ("opus" ,opus)
3850               ("twolame" ,twolame)
3851               ("alsa-lib" ,alsa-lib)
3852               ("pulseaudio" ,pulseaudio)
3853               ("jack" ,jack-1)
3854               ("libsamplerate" ,libsamplerate)))
3855     (arguments
3856      `(#:configure-flags
3857        (list (string-append "--with-lame-prefix="
3858                             (assoc-ref %build-inputs "lame")))))
3859     (home-page "http://www.darkice.org/")
3860     (synopsis "Live audio streamer")
3861     (description "DarkIce is a live audio streamer.  It takes audio input from
3862 a sound card, encodes it into Ogg Vorbis and/or mp3, and sends the audio
3863 stream to one or more IceCast and/or ShoutCast servers.")
3864     (license license:gpl3+)))
3865
3866 (define-public libltc
3867   (package
3868     (name "libltc")
3869     (version "1.3.1")
3870     (source
3871      (origin
3872        (method url-fetch)
3873        (uri
3874         (string-append "https://github.com/x42/libltc/releases/download/v"
3875                        version "/libltc-" version ".tar.gz"))
3876        (sha256
3877         (base32
3878          "173h9dgmain3nyrwk6q2d7yl4fnh4vacag4s2p01n5b7nyrkxrjh"))))
3879     (build-system gnu-build-system)
3880     (arguments
3881      `(#:parallel-tests? #f))           ;tests fail otherwise
3882     (native-inputs
3883      `(("doxygen" ,doxygen)
3884        ("pkg-config" ,pkg-config)))
3885     (synopsis "Encode or decode Linear/Longitudinal Time Code (LTC) audio")
3886     (description "Libltc is a POSIX-C Library for handling
3887 @dfn{Linear/Longitudinal Time Code} (LTC) data.")
3888     (home-page "https://x42.github.io/libltc/")
3889     (license license:lgpl3+)))
3890
3891 (define-public redkite
3892   (package
3893     (name "redkite")
3894     (version "0.6.2")
3895     (source
3896      (origin
3897        (method git-fetch)
3898        (uri (git-reference
3899              (url "https://gitlab.com/geontime/redkite.git")
3900              (commit (string-append "v" version))))
3901        (file-name (git-file-name name version))
3902        (sha256
3903         (base32
3904          "1i874izajbdhlfacwwj84qrsxf7g4y6nblzxalrkzaap9sa7d1r6"))))
3905     (build-system cmake-build-system)
3906     (arguments
3907      `(#:tests? #f))                    ;no tests included
3908     (inputs
3909      `(("cairo" ,cairo)))
3910     (native-inputs
3911      `(("pkg-config", pkg-config)))
3912     (synopsis "Small GUI toolkit")
3913     (description "Redkite is a small GUI toolkit developed in C++17 and
3914 inspired from other well known GUI toolkits such as Qt and GTK.  It is
3915 minimal on purpose and is intended to be statically linked to applications,
3916 therefore satisfying any requirements they may have to be self contained,
3917 as is the case with audio plugins.")
3918     (home-page "https://gitlab.com/geontime/redkite")
3919     (license license:gpl3+)))
3920
3921 (define-public carla
3922   (package
3923     (name "carla")
3924     (version "2.0.0")
3925     (source
3926      (origin
3927        (method git-fetch)
3928        (uri
3929         (git-reference
3930          (url "https://github.com/falkTX/Carla.git")
3931          (commit (string-append "v" version))))
3932        (file-name (git-file-name name version))
3933        (sha256
3934         (base32
3935          "0fqgncqlr86n38yy7pa118mswfacmfczj7w9xx6c6k0jav3wk29k"))))
3936     (build-system gnu-build-system)
3937     (arguments
3938      `(#:tests? #f                      ; no "check" target
3939        #:make-flags
3940        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3941        #:phases
3942        (modify-phases %standard-phases
3943          (add-before 'build 'set-CC-variable-and-show-features
3944            (lambda _
3945              (setenv "CC" "gcc")
3946              (invoke "make" "features")))
3947          (delete 'configure))))
3948     (inputs
3949      `(("alsa-lib" ,alsa-lib)
3950        ("ffmpeg" ,ffmpeg)
3951        ("fluidsynth" ,fluidsynth)
3952        ("file" ,file)
3953        ("liblo" ,liblo)
3954        ("libsndfile" ,libsndfile)
3955        ("gtk+" ,gtk+)
3956        ("python-pyliblo" ,python-pyliblo)
3957        ("python-pyqt" ,python-pyqt)
3958        ("python-rdflib" ,python-rdflib)
3959        ;; python-pyqt shows the following error without python-wrapper:
3960        ;; Error while finding module specification for 'PyQt5.uic.pyuic'
3961        ;; (ModuleNotFoundError: No module named 'PyQt5')
3962        ("python-wrapper" ,python-wrapper)
3963        ("libx11" ,libx11)
3964        ("qtbase" ,qtbase)
3965        ("zlib" ,zlib)))
3966     (native-inputs
3967      `(("pkg-config" ,pkg-config)))
3968     (home-page "https://kx.studio/Applications:Carla")
3969     (synopsis "Audio plugin host")
3970     (description "Carla is a modular audio plugin host, with features like
3971 transport control, automation of parameters via MIDI CC and remote control
3972 over OSC.  Carla currently supports LADSPA (including LRDF), DSSI, LV2, VST2,
3973 and VST3 plugin formats, plus SF2 and SFZ file support.  It uses JACK as the
3974 default and preferred audio driver but also supports native drivers like ALSA.")
3975     (license license:gpl2+)))
3976
3977 (define-public ecasound
3978   (package
3979     (name "ecasound")
3980     (version "2.9.3")
3981     (source (origin
3982               (method url-fetch)
3983               (uri (string-append "https://nosignal.fi/download/ecasound-"
3984                                   version ".tar.gz"))
3985               (sha256
3986                (base32 "1m7njfjdb7sqf0lhgc4swihgdr4snkg8v02wcly08wb5ar2fr2s6"))))
3987     (build-system gnu-build-system)
3988     (native-inputs `(("pkg-config" ,pkg-config)))
3989     ;; It would be nice to add mikmod to inputs if that gets packaged
3990     ;; eventually.
3991     (inputs `(("alsa-lib" ,alsa-lib)
3992               ("jack" ,jack-1)
3993               ("mpg123" ,mpg123)
3994               ("lame" ,lame)
3995               ("vorbis-tools" ,vorbis-tools)
3996               ("faad2" ,faad2)
3997               ("flac" ,flac)
3998               ("timidity++" ,timidity++)
3999               ("libsndfile" ,libsndfile)
4000               ("libsamplerate" ,libsamplerate)
4001               ("ncurses" ,ncurses)
4002               ("ladspa" ,ladspa)
4003               ("lilv" ,lilv)))
4004     (home-page "https://nosignal.fi/ecasound/index.php")
4005     (synopsis "Multitrack audio processing")
4006     (description "Ecasound is a software package designed for multitrack audio
4007 processing. It can be used for simple tasks like audio playback, recording and
4008 format conversions, as well as for multitrack effect processing, mixing,
4009 recording and signal recycling. Ecasound supports a wide range of audio inputs,
4010 outputs and effect algorithms. Effects and audio objects can be combined in
4011 various ways, and their parameters can be controlled by operator objects like
4012 oscillators and MIDI-CCs. A versatile console mode user-interface is included
4013 in the package.")
4014     ;; As an exception to the above, the C, C++ and python implementations
4015     ;; of the Ecasound Control Interface (ECI) are licensed under the LGPL
4016     ;; (see the file 'COPYING.LGPL'). This allows writing ECI applications
4017     ;; that are not licensed under GPL.
4018     (license (list license:gpl2 license:lgpl2.1))))