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.4")
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               (sha256
2260                (base32
2261                 "0x11g3pfw11m6v18qfpfl5w99dbmf73g4z7wvwhrj1a4qv2dn084"))))
2262     (build-system cmake-build-system)
2263     (arguments
2264      `(#:configure-flags '("-DSYSTEM_BOOST=on" "-DSYSTEM_YAMLCPP=on"
2265                            "-DSC_QT=off"
2266                            "-DSC_EL=off") ;scel is packaged individually as
2267                                           ;emacs-scel
2268        #:modules ((guix build utils)
2269                   (guix build cmake-build-system)
2270                   (ice-9 ftw))
2271        #:phases
2272        (modify-phases %standard-phases
2273          (add-after 'unpack 'rm-bundled-libs
2274            (lambda _
2275              ;; The build system doesn't allow us to unbundle the following
2276              ;; libraries.  hidapi is also heavily patched.
2277              (let ((keep-dirs '("nova-simd" "nova-tt" "hidapi" "TLSF-2.4.6"
2278                                 "oscpack_1_1_0" "." "..")))
2279                (with-directory-excursion "./external_libraries"
2280                  (for-each
2281                   delete-file-recursively
2282                   (scandir "."
2283                            (lambda (x)
2284                              (and (eq? (stat:type (stat x)) 'directory)
2285                                   (not (member (basename x) keep-dirs))))))))
2286              #t))
2287          ;; Some tests are broken (see:
2288          ;; https://github.com/supercollider/supercollider/issues/3555 and
2289          ;; https://github.com/supercollider/supercollider/issues/1736
2290          (add-after 'rm-bundled-libs 'disable-broken-tests
2291            (lambda _
2292              (substitute* "testsuite/server/supernova/CMakeLists.txt"
2293                (("server_test.cpp")
2294                 "")
2295                (("perf_counter_test.cpp")
2296                 ""))
2297              (delete-file "testsuite/server/supernova/server_test.cpp")
2298              (delete-file "testsuite/server/supernova/perf_counter_test.cpp")
2299              (substitute* "testsuite/CMakeLists.txt"
2300                (("add_subdirectory\\(sclang\\)")
2301                 ""))
2302              (delete-file "testsuite/sclang/CMakeLists.txt")
2303              #t)))))
2304     (native-inputs
2305      `(("pkg-config" ,pkg-config)))
2306     (inputs
2307      `(("jack" ,jack-1)
2308        ("libsndfile" ,libsndfile)
2309        ("fftw" ,fftw)
2310        ("libxt" ,libxt)
2311        ("readline" ,readline)           ;readline support for sclang's CLI
2312        ("alsa" ,alsa-lib)               ;for sclang's MIDI interface
2313        ("eudev" ,eudev)                 ;for user interactions with devices
2314        ("avahi" ,avahi)                 ;zeroconf service discovery support
2315        ("icu4c" ,icu4c)
2316        ("boost" ,boost)
2317        ("boost-sync" ,boost-sync)
2318        ("yaml-cpp" ,yaml-cpp)))
2319     (home-page "https://github.com/supercollider/supercollider")
2320     (synopsis "Synthesis engine and programming language")
2321     (description "SuperCollider is a synthesis engine (@code{scsynth} or
2322 @code{supernova}) and programming language (@code{sclang}).  It can be used
2323 for experimenting with sound synthesis and algorithmic composition.
2324
2325 SuperCollider requires jackd to be installed in your user profile and your
2326 user must be allowed to access the realtime features of the kernel.  Search
2327 for \"realtime\" in the index of the Guix manual to learn how to achieve this
2328 using Guix System.")
2329     (license license:gpl2+)))
2330
2331 (define-public raul
2332   (package
2333     (name "raul")
2334     (version "0.8.0")
2335     (source (origin
2336               (method url-fetch)
2337               (uri (string-append "https://download.drobilla.net/raul-"
2338                                   version ".tar.bz2"))
2339               (sha256
2340                (base32
2341                 "09ms40xc1x6qli6lxkwn5ibqh62nl9w7dq0b6jh1q2zvnrxwsd8b"))))
2342     (build-system waf-build-system)
2343     (arguments
2344      `(#:python ,python-2
2345        #:tests? #f)) ; no check target
2346     (inputs
2347      `(("glib" ,glib)
2348        ("boost" ,boost)))
2349     (native-inputs
2350      `(("pkg-config" ,pkg-config)))
2351     (home-page "https://drobilla.net/software/raul/")
2352     (synopsis "Real-time audio utility library")
2353     (description
2354      "Raul (Real-time Audio Utility Library) is a C++ utility library primarily
2355 aimed at audio/musical applications.")
2356     (license license:gpl2+)))
2357
2358 (define-public raul-devel
2359   (let ((commit "4db870b2b20b0a608ec0283139056b836c5b1624")
2360         (revision "1"))
2361     (package (inherit raul)
2362       (name "raul")
2363       (version (string-append "0.8.9-" revision "."
2364                               (string-take commit 9)))
2365       (source (origin
2366                 (method git-fetch)
2367                 (uri (git-reference
2368                       (url "https://git.drobilla.net/raul.git")
2369                       (commit commit)))
2370                 (file-name (string-append name "-" version "-checkout"))
2371                 (sha256
2372                  (base32
2373                   "04fajrass3ymr72flx5js5vxc601ccrmx8ny8scp0rw7j0igyjdr")))))))
2374
2375 (define-public resample
2376   (package
2377     (name "resample")
2378     (version "1.8.1")
2379     (source (origin
2380               (method url-fetch)
2381               (uri (string-append "https://ccrma.stanford.edu/~jos/gz/resample-"
2382                                   version
2383                                   ".tar.gz"))
2384               (sha256 (base32
2385                        "074zj8ydp05yy1hjcglfv3hkvj4cm50f9nralka1992pm6yf8yvy"))))
2386     (build-system gnu-build-system)
2387     (native-inputs
2388      `(("autoconf" ,autoconf)
2389        ("automake" ,automake)
2390        ("pkg-config" ,pkg-config)
2391        ("libtool" ,libtool)))
2392     (synopsis "Real-time library for sampling rate conversion")
2393     (description "The @command{resample} software package contains free
2394 sampling-rate conversion and filter design utilities.")
2395     (home-page "https://ccrma.stanford.edu/~jos/resample/Free_Resampling_Software.html")
2396     (license license:lgpl2.1+)))
2397
2398 (define-public rubberband
2399   (package
2400     (name "rubberband")
2401     (version "1.8.2")
2402     (source (origin
2403               (method url-fetch)
2404               (uri
2405                (string-append "https://bitbucket.org/breakfastquay/rubberband/get/v"
2406                               version
2407                               ".tar.bz2"))
2408               (file-name (string-append name "-" version ".tar.bz2"))
2409               (sha256
2410                (base32
2411                 "0462fmjnfqpv2qi0s6ny42drqarkr0xy9lw8frjmfgzyzl5n9294"))))
2412     (build-system gnu-build-system)
2413     (arguments
2414      `(#:tests? #f                      ; no check target
2415        #:phases
2416        (modify-phases %standard-phases
2417          (add-after 'unpack 'skip-jni-installation
2418            ;; ‘make install’ unconditionally installs librubberband-jni.so,
2419            ;; which is never built by ‘make all’.  Skip it.
2420            (lambda _
2421              (substitute* "Makefile.in"
2422                ((".*cp -f \\$\\(JNI_TARGET\\).*") ""))
2423              #t)))))
2424     (inputs
2425      `(("ladspa" ,ladspa)
2426        ("libsamplerate" ,libsamplerate)
2427        ("vamp" ,vamp)))
2428     (native-inputs
2429      `(("pkg-config" ,pkg-config)))
2430     (home-page "https://breakfastquay.com/rubberband/")
2431     (synopsis "Audio time-stretching and pitch-shifting library")
2432     (description
2433      "Rubber Band is a library and utility program that permits changing the
2434 tempo and pitch of an audio recording independently of one another.")
2435     (license license:gpl2+)))
2436
2437 (define-public rtmidi
2438   (package
2439     (name "rtmidi")
2440     (version "4.0.0")
2441     (source (origin
2442               (method url-fetch)
2443               (uri (string-append "https://www.music.mcgill.ca/~gary/rtmidi"
2444                                   "/release/rtmidi-" version ".tar.gz"))
2445               (file-name (string-append "rtmidi-" version ".tar.gz"))
2446               (sha256
2447                (base32
2448                 "1k962ljpnwyjw9jjiky2372khhri1wqvrj5qsalfpys31xqzw31p"))))
2449     (build-system gnu-build-system)
2450     (arguments
2451      `(#:phases
2452        (modify-phases %standard-phases
2453          (add-before 'bootstrap 'noconfigure
2454            (lambda _
2455              (setenv "NOCONFIGURE" "yes")
2456              #t)))))
2457     (inputs
2458      `(("jack" ,jack-1)
2459        ("alsa-lib" ,alsa-lib)))
2460     (native-inputs
2461      `(("autoconf" ,autoconf)
2462        ("automake" ,automake)
2463        ("libtool" ,libtool)
2464        ("pkg-config" ,pkg-config)))
2465     (home-page "https://www.music.mcgill.ca/~gary/rtmidi")
2466     (synopsis "Cross-platform MIDI library for C++")
2467     (description
2468      "RtMidi is a set of C++ classes (RtMidiIn, RtMidiOut, and API specific
2469 classes) that provide a common cross-platform API for realtime MIDI
2470 input/output.")
2471     (license license:expat)))
2472
2473 (define-public sratom
2474   (package
2475     (name "sratom")
2476     (version "0.6.4")
2477     (source (origin
2478               (method url-fetch)
2479               (uri (string-append "https://download.drobilla.net/sratom-"
2480                                   version ".tar.bz2"))
2481               (sha256
2482                (base32
2483                 "0vh0biy3ngpzzgdml309c2mqz8xq9q0hlblczb4c6alhp0a8yv0l"))))
2484     (build-system waf-build-system)
2485     (arguments `(#:tests? #f))          ;no check target
2486     (propagated-inputs
2487      ;; In Requires of sratom-0.pc.
2488      `(("lv2" ,lv2)
2489        ("serd" ,serd)
2490        ("sord" ,sord)))
2491     (native-inputs
2492      `(("pkg-config" ,pkg-config)))
2493     (home-page "https://drobilla.net/software/sratom/")
2494     (synopsis "Library for serialising LV2 atoms to/from RDF")
2495     (description
2496      "Sratom is a library for serialising LV2 atoms to/from RDF, particularly
2497 the Turtle syntax.")
2498     (license license:isc)))
2499
2500 (define-public suil
2501   (package
2502     (name "suil")
2503     (version "0.10.6")
2504     (source (origin
2505               (method url-fetch)
2506               (uri (string-append "https://download.drobilla.net/suil-"
2507                                   version ".tar.bz2"))
2508               (sha256
2509                (base32
2510                 "0z4v01pjw4wh65x38w6icn28wdwxz13ayl8hvn4p1g9kmamp1z06"))))
2511     (build-system waf-build-system)
2512     (arguments
2513      `(#:tests? #f))                    ;no check target
2514     (inputs
2515      `(("lv2" ,lv2)
2516        ("gtk+" ,gtk+-2)
2517        ("gtk+" ,gtk+)
2518        ("qt" ,qtbase)))
2519     (native-inputs
2520      `(("pkg-config" ,pkg-config)))
2521     (home-page "https://drobilla.net/software/suil/")
2522     (synopsis "Library for loading and wrapping LV2 plugin UIs")
2523     (description
2524      "Suil is a lightweight C library for loading and wrapping LV2 plugin UIs.
2525
2526 Suil makes it possible to load a UI of a toolkit in a host using another
2527 toolkit.  The API is designed such that hosts do not need to explicitly
2528 support specific toolkits – if Suil supports a particular toolkit, then UIs in
2529 that toolkit will work in all hosts that use Suil automatically.
2530
2531 Suil currently supports every combination of Gtk, Qt, and X11.")
2532     (license license:isc)))
2533
2534 (define-public timidity++
2535   (package
2536     (name "timidity++")
2537     (version "2.14.0")
2538     (source (origin
2539               (method url-fetch)
2540               (uri (string-append "mirror://sourceforge/timidity/TiMidity++"
2541                                   "/TiMidity++-" version
2542                                   "/TiMidity++-" version ".tar.bz2"))
2543               (sha256
2544                (base32
2545                 "0xk41w4qbk23z1fvqdyfblbz10mmxsllw0svxzjw5sa9y11vczzr"))))
2546     (build-system gnu-build-system)
2547     (arguments
2548      '(#:configure-flags
2549        (list "--enable-audio=alsa,flac,jack,ao,vorbis,speex"
2550              "--enable-ncurses"
2551              "--enable-server"
2552              "--enable-alsaseq"
2553              (string-append "--with-default-path="
2554                             (assoc-ref %outputs "out") "/etc/timidity"))
2555        #:phases
2556        (modify-phases %standard-phases
2557          (add-after 'install 'install-config
2558            (lambda _
2559              (let ((out (string-append (assoc-ref %outputs "out")
2560                                        "/etc/timidity")))
2561                (mkdir-p out)
2562                (call-with-output-file
2563                    (string-append out "/timidity.cfg")
2564                  (lambda (port)
2565                    (format port (string-append "source "
2566                                                (assoc-ref %build-inputs "freepats")
2567                                                "/share/freepats/freepats.cfg")))))
2568              #t)))))
2569     (inputs
2570      `(("alsa-lib" ,alsa-lib)
2571        ("ao" ,ao)
2572        ("flac" ,flac)
2573        ("jack" ,jack-1)
2574        ("libogg" ,libogg)
2575        ("libvorbis" ,libvorbis)
2576        ("speex" ,speex)
2577        ("ncurses" ,ncurses)
2578        ("freepats" ,freepats)))
2579     (native-inputs
2580      `(("pkg-config" ,pkg-config)))
2581     (home-page "http://timidity.sourceforge.net/")
2582     (synopsis "Software synthesizer for playing MIDI files")
2583     (description
2584      "TiMidity++ is a software synthesizer.  It can play MIDI files by
2585 converting them into PCM waveform data; give it a MIDI data along with digital
2586 instrument data files, then it synthesizes them in real-time, and plays.  It
2587 can not only play sounds, but also can save the generated waveforms into hard
2588 disks as various audio file formats.")
2589     (license license:gpl2+)))
2590
2591 (define-public vamp
2592   (package
2593     (name "vamp")
2594     (version "2.6")
2595     (source (origin
2596               (method url-fetch)
2597               (uri (string-append
2598                     "https://code.soundsoftware.ac.uk"
2599                     "/attachments/download/1520/vamp-plugin-sdk-"
2600                     version ".tar.gz"))
2601               (sha256
2602                (base32
2603                 "0pzq0yy2kdl3jgfc2aqmh5m55nk1ild0hq8mydiiw35c6y0mglyh"))))
2604     (build-system gnu-build-system)
2605     (arguments
2606      `(#:tests? #f                      ; no check target
2607        #:phases
2608        (modify-phases %standard-phases
2609          (add-after 'install 'remove-libvamp-hostsdk.la
2610            (lambda* (#:key outputs #:allow-other-keys)
2611              ;; https://bugs.launchpad.net/ubuntu/+source/vamp-plugin-sdk/+bug/1253656
2612              (for-each delete-file
2613                        (let ((out (assoc-ref outputs "out")))
2614                          (list (string-append out "/lib/libvamp-sdk.la")
2615                                (string-append out "/lib/libvamp-hostsdk.la"))))
2616              #t)))))
2617     (inputs
2618      `(("libsndfile" ,libsndfile)))
2619     (native-inputs
2620      `(("pkg-config" ,pkg-config)))
2621     (home-page "https://vamp-plugins.org")
2622     (synopsis "Modular and extensible audio processing system")
2623     (description
2624      "Vamp is an audio processing plugin system for plugins that extract
2625 descriptive information from audio data — typically referred to as audio
2626 analysis plugins or audio feature extraction plugins.")
2627     (license
2628      (license:x11-style
2629       "https://code.soundsoftware.ac.uk/projects/vamp-plugin-sdk/repository/entry/COPYING"))))
2630
2631 (define-public libsbsms
2632   (package
2633     (name "libsbsms")
2634     (version "2.0.2")
2635     (source
2636      (origin
2637        (method url-fetch)
2638        (uri (string-append "mirror://sourceforge/sbsms/sbsms/" version
2639                            "/libsbsms-" version ".tar.gz"))
2640        (sha256
2641         (base32 "1vmf84iy4dkwxv887grnlsfk43fmhd9gbg26gc2kgcv40sbkvayf"))))
2642     (build-system gnu-build-system)
2643     (native-inputs `(("automake" ,automake)))
2644     (arguments
2645      `(#:configure-flags
2646        ;; Disable the use of SSE unless on x86_64.
2647        ,(if (not (string-prefix? "x86_64" (or (%current-target-system)
2648                                               (%current-system))))
2649             ''("--disable-sse")
2650             ''())
2651        #:phases
2652        (modify-phases %standard-phases
2653          (add-after
2654           'unpack 'fix-ar-lib-path
2655           (lambda* (#:key inputs #:allow-other-keys)
2656             ;; Originally a symlink to '/usr/local/share/automake-1.12/ar-lib'.
2657             (delete-file "ar-lib")
2658             (symlink
2659              (string-append (assoc-ref inputs "automake") "/share/automake-"
2660                             ,(package-version automake) "/ar-lib")
2661              "ar-lib")
2662             #t)))))
2663     (home-page "http://sbsms.sourceforge.net/")
2664     (synopsis "Library for time stretching and pitch scaling of audio")
2665     (description
2666      "SBSMS (Subband Sinusoidal Modeling Synthesis) is software for time
2667 stretching and pitch scaling of audio.  This package contains the library.")
2668     ;; There is no explicit declaration of a license, but a COPYING file
2669     ;; containing gpl2.
2670     (license license:gpl2)))
2671
2672 (define-public wavpack
2673   (package
2674     (name "wavpack")
2675     (version "5.2.0")
2676     (source (origin
2677               (method url-fetch)
2678               (uri (string-append "http://www.wavpack.com/"
2679                                   "wavpack-" version ".tar.xz"))
2680               (sha256
2681                (base32
2682                 "1qvpvfx30kvrkw7y1g6r8xj109wszg1z0qmkfm17wf3flb7v3rbp"))))
2683     (build-system gnu-build-system)
2684     (arguments
2685      '(#:configure-flags '("--disable-static")))
2686     (home-page "http://www.wavpack.com/")
2687     (synopsis "Hybrid lossless audio codec")
2688     (description
2689      "WavPack is an audio compression format with lossless, lossy and hybrid
2690 compression modes.  This package contains command-line programs and library to
2691 encode and decode wavpack files.")
2692     (license license:bsd-3)))
2693
2694 (define-public libmodplug
2695   (package
2696     (name "libmodplug")
2697     (version "0.8.9.0")
2698     (source (origin
2699               (method url-fetch)
2700               (uri (string-append
2701                     "mirror://sourceforge/modplug-xmms/"
2702                     name "/" version "/" name "-" version ".tar.gz"))
2703               (sha256
2704                (base32
2705                 "1pnri98a603xk47smnxr551svbmgbzcw018mq1k6srbrq6kaaz25"))))
2706     (build-system gnu-build-system)
2707     (home-page "http://modplug-xmms.sourceforge.net/")
2708     (synopsis "Mod file playing library")
2709     (description
2710      "Libmodplug renders mod music files as raw audio data, for playing or
2711 conversion.  mod, .s3m, .it, .xm, and a number of lesser-known formats are
2712 supported.  Optional features include high-quality resampling, bass expansion,
2713 surround and reverb.")
2714     (license license:public-domain)))
2715
2716 (define-public libxmp
2717   (package
2718     (name "libxmp")
2719     (version "4.4.1")
2720     (source (origin
2721               (method url-fetch)
2722               (uri (string-append "mirror://sourceforge/xmp/libxmp/" version "/"
2723                                   name "-" version ".tar.gz"))
2724               (sha256
2725                (base32
2726                 "1kycz4jsyvmf7ny9227b497wc7y5ligydi6fvvldmkf8hk63ad9m"))))
2727     (build-system gnu-build-system)
2728     (home-page "http://xmp.sourceforge.net/")
2729     (synopsis "Module player library")
2730     (description
2731      "Libxmp is a library that renders module files to PCM data.  It supports
2732 over 90 mainstream and obscure module formats including Protracker (MOD),
2733 Scream Tracker 3 (S3M), Fast Tracker II (XM), and Impulse Tracker (IT).")
2734     (license license:lgpl2.1+)))
2735
2736 (define-public xmp
2737   (package
2738     (name "xmp")
2739     (version "4.1.0")
2740     (source (origin
2741               (method url-fetch)
2742               (uri (string-append "mirror://sourceforge/xmp/xmp/" version "/"
2743                                   name "-" version ".tar.gz"))
2744               (sha256
2745                (base32
2746                 "17i8fc7x7yn3z1x963xp9iv108gxfakxmdgmpv3mlm438w3n3g8x"))))
2747     (build-system gnu-build-system)
2748     (native-inputs
2749      `(("pkg-config" ,pkg-config)))
2750     (inputs
2751      `(("libxmp" ,libxmp)
2752        ("pulseaudio" ,pulseaudio)))
2753     (home-page "http://xmp.sourceforge.net/")
2754     (synopsis "Extended module player")
2755     (description
2756      "Xmp is a portable module player that plays over 90 mainstream and
2757 obscure module formats, including Protracker MOD, Fasttracker II XM, Scream
2758 Tracker 3 S3M and Impulse Tracker IT files.")
2759     (license license:gpl2+)))
2760
2761 (define-public soundtouch
2762   (package
2763     (name "soundtouch")
2764     (version "2.1.2")
2765     (source
2766      (origin
2767        (method git-fetch)
2768        (uri (git-reference
2769              (url "https://gitlab.com/soundtouch/soundtouch.git")
2770              (commit version)))
2771        (file-name (git-file-name name version))
2772        (sha256
2773         (base32 "174wgm3s0inmbnkrlnspxjwm2014qhjhkbdqa5r8rbfi0nzqxzsz"))))
2774     (build-system gnu-build-system)
2775     (native-inputs
2776      `(("autoconf" ,autoconf)
2777        ("automake" ,automake)
2778        ("libtool" ,libtool)
2779        ("file" ,file)))
2780     (home-page "https://www.surina.net/soundtouch/")
2781     (synopsis
2782      "Audio processing library for changing tempo, pitch and playback rate")
2783     (description
2784      "SoundTouch is an audio processing library for changing the tempo, pitch
2785 and playback rates of audio streams or audio files.  It is intended for
2786 application developers writing sound processing tools that require tempo/pitch
2787 control functionality, or just for playing around with the sound effects.")
2788     (license license:lgpl2.1+)))
2789
2790 (define-public sox
2791   (package
2792     (name "sox")
2793     (version "14.4.2")
2794     (source (origin
2795               (method url-fetch)
2796               (uri (string-append "mirror://sourceforge/sox/sox/" version "/"
2797                                   name "-" version ".tar.bz2"))
2798               (sha256
2799                (base32
2800                 "170lx90r1nlnb2j6lg00524iwvqy72p48vii4xc5prrh8dnrb9l1"))))
2801     (build-system gnu-build-system)
2802     (arguments
2803      '(#:configure-flags
2804        ;; The upstream asks to identify the distribution to diagnose SoX
2805        ;; bug reports.
2806        '("--with-distro=Guix System Distribution")))
2807     (native-inputs
2808      `(("pkg-config" ,pkg-config)))
2809     (inputs
2810      `(("alsa-lib" ,alsa-lib)
2811        ("ao" ,ao)
2812        ("flac" ,flac)
2813        ("lame" ,lame)
2814        ("libid3tag" ,libid3tag)
2815        ("libltdl" ,libltdl)
2816        ("libmad" ,libmad)
2817        ("libpng" ,libpng)
2818        ("libvorbis" ,libvorbis)
2819        ("pulseaudio" ,pulseaudio)))
2820     (home-page "http://sox.sourceforge.net")
2821     (synopsis "Sound processing utility")
2822     (description
2823      "SoX (Sound eXchange) is a command line utility that can convert
2824 various formats of computer audio files to other formats.  It can also
2825 apply various effects to these sound files, and, as an added bonus, SoX
2826 can play and record audio files.")
2827     ;; sox.c is distributed under GPL, while the files that make up
2828     ;; libsox are licensed under LGPL.
2829     (license (list license:gpl2+ license:lgpl2.1+))))
2830
2831 (define-public soxr
2832   (package
2833     (name "soxr")
2834     (version "0.1.3")
2835     (source
2836      (origin
2837        (method url-fetch)
2838        (uri
2839         (string-append "mirror://sourceforge/soxr/soxr-" version
2840                        "-Source.tar.xz"))
2841        (sha256
2842         (base32 "12aql6svkplxq5fjycar18863hcq84c5kx8g6f4rj0lcvigw24di"))))
2843     (build-system cmake-build-system)
2844     (arguments '(#:tests? #f))          ;no 'check' target
2845     (home-page "https://sourceforge.net/p/soxr/wiki/Home/")
2846     (synopsis "One-dimensional sample-rate conversion library")
2847     (description
2848      "The SoX Resampler library (libsoxr) performs one-dimensional sample-rate
2849 conversion.  It may be used, for example, to resample PCM-encoded audio.")
2850     (license license:lgpl2.1+)))
2851
2852 (define-public twolame
2853   (package
2854     (name "twolame")
2855     (version "0.4.0")
2856     (source
2857      (origin
2858        (method url-fetch)
2859        (uri (string-append "mirror://sourceforge/twolame/twolame/" version
2860                            "/twolame-" version ".tar.gz"))
2861        (sha256
2862         (base32 "0zf8sxqb02w07ah55b1y7ab643zmpbhn62spa9pqra0rc17l4dfc"))))
2863     (build-system gnu-build-system)
2864     (inputs
2865      `(("libsndfile" ,libsndfile)))
2866     (native-inputs
2867      `(("perl" ,perl)
2868        ("which" ,which)))               ;used in tests/test.pl
2869     (home-page "http://www.twolame.org/")
2870     (synopsis "MPEG Audio Layer 2 (MP2) encoder")
2871     (description
2872      "TwoLAME is an optimised MPEG Audio Layer 2 (MP2) encoder based on
2873 tooLAME by Mike Cheng, which in turn is based upon the ISO dist10 code and
2874 portions of LAME.")
2875     (license license:lgpl2.1+)))
2876
2877 (define-public portaudio
2878   (package
2879     (name "portaudio")
2880     (version "190600.20161030")
2881     (source
2882      (origin
2883        (method url-fetch)
2884        (uri (string-append
2885              "http://www.portaudio.com/archives/pa_stable_v"
2886              (string-map (lambda (c) (if (char=? c #\.) #\_ c)) version)
2887              ".tgz"))
2888        (sha256
2889         (base32 "04qmin6nj144b8qb9kkd9a52xfvm0qdgm8bg8jbl7s3frmyiv8pm"))
2890        (patches (search-patches "portaudio-audacity-compat.patch"))))
2891     (build-system gnu-build-system)
2892     (inputs
2893      ;; TODO: Add ASIHPI.
2894      `(("alsa-lib" ,alsa-lib)
2895        ("jack" ,jack-1)))
2896     ;; Autoreconf is necessary because the audacity-compat patch modifies .in
2897     ;; files.
2898     (native-inputs
2899      `(("autoconf" ,autoconf)
2900        ("automake" ,automake)
2901        ("libtool" ,libtool)
2902        ("pkg-config" ,pkg-config)))
2903     (arguments
2904      '(#:tests? #f                      ;no 'check' target
2905        #:parallel-build? #f             ;fails on some systems
2906        #:configure-flags '("--with-pic"
2907                            "--enable-cxx"
2908                            ;; XXX: The following prevents a build error
2909                            ;; because of missing depcomp when C++ bindings are
2910                            ;; requested.
2911                            "--disable-dependency-tracking")
2912        #:phases
2913        (modify-phases %standard-phases
2914          ;; This is needed for linking the static libraries
2915          (add-after 'unpack 'build-only-position-independent-code
2916            (lambda _
2917              (substitute* "configure.in"
2918                (("AC_PROG_LIBTOOL" m)
2919                 (string-append m "\nAM_PROG_AR\nLT_INIT([pic-only])")))
2920              (delete-file "configure")
2921              #t))
2922          ;; Some headers are not installed by default, but are needed by
2923          ;; packages like Kaldi.
2924          (add-after 'install 'install-missing-headers
2925            (lambda* (#:key outputs #:allow-other-keys)
2926              (install-file "src/common/pa_ringbuffer.h"
2927                            (string-append (assoc-ref outputs "out") "/include"))
2928              #t)))))
2929     (home-page "http://www.portaudio.com/")
2930     (synopsis "Audio I/O library")
2931     (description
2932      "PortAudio is a portable C/C++ audio I/O library providing a simple API
2933 to record and/or play sound using a callback function or a blocking read/write
2934 interface.")
2935     (license license:expat)))
2936
2937 (define-public qsynth
2938   (package
2939     (name "qsynth")
2940     (version "0.5.7")
2941     (source
2942      (origin
2943        (method url-fetch)
2944        (uri (string-append "mirror://sourceforge/qsynth/qsynth/" version
2945                            "/qsynth-" version ".tar.gz"))
2946        (sha256
2947         (base32 "18im4w8agj60nkppwbkxqnhpp13z5li3w30kklv4lgs20rvgbvl6"))))
2948     (build-system gnu-build-system)
2949     (arguments
2950      `(#:tests? #f))                    ; no "check" phase
2951     (native-inputs
2952      `(("qttools" ,qttools)
2953        ("pkg-config" ,pkg-config)))
2954     (inputs
2955      `(("fluidsynth" ,fluidsynth)
2956        ("qtbase" ,qtbase)
2957        ("qtx11extras" ,qtx11extras)))
2958     (home-page "https://qsynth.sourceforge.io")
2959     (synopsis "Graphical user interface for FluidSynth")
2960     (description
2961      "Qsynth is a GUI front-end application for the FluidSynth SoundFont
2962 synthesizer written in C++.")
2963     (license license:gpl2+)))
2964
2965 (define-public rsound
2966   (package
2967     (name "rsound")
2968     (version "1.1")
2969     (source
2970      (origin
2971        (method git-fetch)
2972        (uri (git-reference
2973              (url "https://github.com/Themaister/RSound.git")
2974              (commit (string-append "v" version))))
2975        (file-name (git-file-name name version))
2976        (sha256
2977         (base32 "0gspmr3klwnq98h17p5hc6ifygya4p80g4g8r7a1qavm3mv19waf"))))
2978     (build-system gnu-build-system)
2979     (inputs
2980      `(("alsa-lib" ,alsa-lib)
2981        ("jack" ,jack-1)
2982        ("ao" ,ao)
2983        ("libsamplerate" ,libsamplerate)
2984        ("openal" ,openal)
2985        ("portaudio" ,portaudio)
2986        ("pulseaudio" ,pulseaudio)))
2987     (arguments
2988      '(#:phases
2989        (modify-phases %standard-phases
2990          (replace 'configure
2991            (lambda* (#:key outputs #:allow-other-keys)
2992              (setenv "CC" "gcc")
2993              (invoke "./configure"
2994                      (string-append "--prefix=" (assoc-ref outputs "out"))))))
2995        ;; No 'check' target.
2996        #:tests? #f))
2997     (home-page "http://themaister.net/rsound.html")
2998     (synopsis "Networked audio system")
2999     (description
3000      "RSound allows you to send audio from an application and transfer it
3001 directly to a different computer on your LAN network.  It is an audio daemon
3002 with a much different focus than most other audio daemons.")
3003     (license license:gpl3+)))
3004
3005 (define-public xjackfreak
3006   (package
3007     (name "xjackfreak")
3008     (version "1.0")
3009     (source (origin
3010               (method git-fetch)
3011               (uri (git-reference
3012                     (url "https://github.com/johnhldavis/xjackfreak.git")
3013                     (commit (string-append "v" version))))
3014               (file-name (git-file-name name version))
3015               (sha256
3016                (base32
3017                 "18c546qidbrj0f5wfiq5llii2192xpln0ab3r4vpr7i3wybxqjfz"))))
3018     (build-system gnu-build-system)
3019     (arguments
3020      `(#:make-flags
3021        (list (string-append "docdir=" (assoc-ref %outputs "out")
3022                             "/share/doc/xjackfreak"))))
3023     (inputs
3024      `(("jack" ,jack-1)
3025        ("libx11" ,libx11)
3026        ("libxt" ,libxt)
3027        ("libxext" ,libxext)))
3028     (native-inputs
3029      `(("pkg-config" ,pkg-config)))
3030     (home-page "https://github.com/johnhldavis/xjackfreak")
3031     (synopsis "JACK audio frequency analyzer and display")
3032     (description
3033      "XJackFreak is an audio analysis and equalizing tool for the Jack Audio
3034 Connection Kit.  It can display the FFT of any input, modify it and output the
3035 result.")
3036     (license license:gpl3+)))
3037
3038 (define-public zita-convolver
3039   (package
3040     (name "zita-convolver")
3041     (version "4.0.3")
3042     (source (origin
3043               (method url-fetch)
3044               (uri (string-append
3045                     "http://kokkinizita.linuxaudio.org"
3046                     "/linuxaudio/downloads/zita-convolver-"
3047                     version ".tar.bz2"))
3048               (snippet
3049                ;; Don't optimize for a specific processor architecture.
3050                '(begin
3051                   (substitute* "source/Makefile"
3052                     (("^CXXFLAGS \\+= -march=native") ""))
3053                   #t))
3054               (modules '((guix build utils)))
3055               (sha256
3056                (base32
3057                 "0prji66p86z2bzminywkwchr5bfgxcg2i8y803pydd1hzf2198cs"))))
3058     (build-system gnu-build-system)
3059     (arguments
3060      `(#:tests? #f ; no "check" target
3061        #:make-flags
3062        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
3063              (string-append "SUFFIX="))
3064        #:phases
3065        (modify-phases %standard-phases
3066          (add-after 'unpack 'patch-makefile-and-enter-directory
3067            (lambda _
3068              (substitute* "source/Makefile"
3069                (("ldconfig") "true")
3070                (("^LIBDIR =.*") "LIBDIR = lib\n"))
3071              (chdir "source")
3072              #t))
3073          (add-after 'install 'install-symlink
3074            (lambda _
3075              (symlink "libzita-convolver.so"
3076                       (string-append (assoc-ref %outputs "out")
3077                                      "/lib/libzita-convolver.so.4"))
3078              #t))
3079          ;; no configure script
3080          (delete 'configure))))
3081     (inputs `(("fftwf" ,fftwf)))
3082     (home-page "https://kokkinizita.linuxaudio.org")
3083     (synopsis "Fast, partitioned convolution engine library")
3084     (description
3085      "Zita convolver is a C++ library providing a real-time convolution
3086 engine.")
3087     (license license:gpl3+)))
3088
3089 (define-public zita-resampler
3090   (package
3091     (name "zita-resampler")
3092     (version "1.3.0")
3093     (source (origin
3094               (method url-fetch)
3095               (uri (string-append
3096                     "http://kokkinizita.linuxaudio.org"
3097                     "/linuxaudio/downloads/zita-resampler-"
3098                     version ".tar.bz2"))
3099               (snippet
3100                ;; Don't optimize for a specific processor architecture.
3101                '(begin
3102                   (substitute* '("apps/Makefile" "libs/Makefile")
3103                     (("^CXXFLAGS \\+= -march=native") ""))
3104                   #t))
3105               (modules '((guix build utils)))
3106               (sha256
3107                (base32
3108                 "0r9ary5sc3y8vba5pad581ha7mgsrlyai83w7w4x2fmhfy64q0wq"))))
3109     (build-system gnu-build-system)
3110     (arguments
3111      `(#:tests? #f ; no "check" target
3112        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3113        #:phases
3114        (modify-phases %standard-phases
3115          (add-after
3116           'unpack 'patch-makefile-and-enter-directory
3117           (lambda _
3118             (substitute* "libs/Makefile"
3119               (("ldconfig") "true")
3120               (("^LIBDIR =.*") "LIBDIR = lib\n"))
3121             (chdir "libs")
3122             #t))
3123          (add-after
3124           'install 'install-symlink
3125           (lambda _
3126             (symlink "libzita-resampler.so"
3127                      (string-append (assoc-ref %outputs "out")
3128                                     "/lib/libzita-resampler.so.1"))
3129             #t))
3130          ;; no configure script
3131          (delete 'configure))))
3132     (home-page "https://kokkinizita.linuxaudio.org/linuxaudio/zita-resampler/resampler.html")
3133     (synopsis "C++ library for resampling audio signals")
3134     (description
3135      "Libzita-resampler is a C++ library for resampling audio signals.  It is
3136 designed to be used within a real-time processing context, to be fast, and to
3137 provide high-quality sample rate conversion.")
3138     (license license:gpl3+)))
3139
3140 (define-public zita-alsa-pcmi
3141   (package
3142     (name "zita-alsa-pcmi")
3143     (version "0.2.0")
3144     (source (origin
3145               (method url-fetch)
3146               (uri (string-append
3147                     "http://kokkinizita.linuxaudio.org"
3148                     "/linuxaudio/downloads/zita-alsa-pcmi-"
3149                     version ".tar.bz2"))
3150               (sha256
3151                (base32
3152                 "1rgv332g82rrrlm4vdam6p2pyrisxbi7b3izfaa0pcjglafsy7j9"))))
3153     (build-system gnu-build-system)
3154     (arguments
3155      `(#:tests? #f ; no "check" target
3156        #:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3157        #:phases
3158        (modify-phases %standard-phases
3159          (add-after 'unpack 'patch-makefile-and-enter-directory
3160            (lambda _
3161              (substitute* "libs/Makefile"
3162                (("ldconfig") "true")
3163                (("^LIBDIR =.*") "LIBDIR = lib\n"))
3164              (chdir "libs")
3165              #t))
3166          (add-after 'install 'install-symlink
3167            (lambda _
3168              (symlink "libzita-alsa-pcmi.so"
3169                       (string-append (assoc-ref %outputs "out")
3170                                      "/lib/libzita-alsa-pcmi.so.0"))
3171              #t))
3172           ;; no configure script
3173           (delete 'configure))))
3174     (inputs
3175      `(("alsa-lib" ,alsa-lib)
3176        ("fftw" ,fftw)))
3177     (home-page "https://kokkinizita.linuxaudio.org")
3178     (synopsis "C++ wrapper around the ALSA API")
3179     (description
3180      "Zita-alsa-pcmi is a C++ wrapper around the ALSA API.  It provides easy
3181 access to ALSA PCM devices, taking care of the many functions required to
3182 open, initialise and use a hw: device in mmap mode, and providing floating
3183 point audio data.")
3184     (license license:gpl3+)))
3185
3186 (define-public cuetools
3187   (package
3188     (name "cuetools")
3189     (version "1.4.1")
3190     (source (origin
3191              (method git-fetch)
3192              (uri (git-reference
3193                    (url "https://github.com/svend/cuetools.git")
3194                    (commit version)))
3195              (file-name (git-file-name name version))
3196              (sha256
3197               (base32
3198                "02ksv1ahf1v4cr2xbclsfv5x17m9ivzbssb5r8xjm97yh8a7spa3"))))
3199     (build-system gnu-build-system)
3200     ;; The source checkout is not bootstrapped.
3201     (native-inputs
3202      `(("autoconf" ,autoconf)
3203        ("automake" ,automake)
3204        ("flex" ,flex)
3205        ("bison" ,bison)))
3206     (synopsis "Cue and toc file parsers and utilities")
3207     (description "Cuetools is a set of programs that are useful for manipulating
3208 and using CUE sheet (cue) files and Table of Contents (toc) files.  CUE and TOC
3209 files are a way to represent the layout of a data or audio CD in a
3210 machine-readable ASCII format.")
3211     (home-page "https://github.com/svend/cuetools")
3212     (license license:gpl2+)))
3213
3214 (define-public shntool
3215   (package
3216     (name "shntool")
3217     (version "3.0.10")
3218     (source (origin
3219              (method url-fetch)
3220              (uri (string-append "http://etree.org/shnutils/shntool/dist/src/"
3221                                  "shntool-" version ".tar.gz"))
3222              (sha256
3223               (base32
3224                "00i1rbjaaws3drkhiczaign3lnbhr161b7rbnjr8z83w8yn2wc3l"))))
3225     (build-system gnu-build-system)
3226     (synopsis "WAVE audio data processing tool")
3227     (description "shntool is a multi-purpose WAVE data processing and reporting
3228 utility.  File formats are abstracted from its core, so it can process any file
3229 that contains WAVE data, compressed or not---provided there exists a format
3230 module to handle that particular file type.  It can also generate CUE files, and
3231 use them split WAVE data into multiple files.")
3232     (home-page "http://etree.org/shnutils/shntool/")
3233     ;; 'install-sh' bears the x11 license
3234     (license (list license:gpl2+ license:x11))))
3235
3236 (define-public dcadec
3237   (package
3238     (name "dcadec")
3239     (version "0.2.0")
3240     (source (origin
3241               (method git-fetch)
3242               (uri (git-reference
3243                     (url "https://github.com/foo86/dcadec.git")
3244                     (commit (string-append "v" version))))
3245               (file-name (git-file-name name version))
3246               (sha256
3247                (base32
3248                 "07nd0ajizrp1w02bsyfcv18431r8m8rq8gjfmz9wmckpg7cxj2hs"))))
3249     (build-system gnu-build-system)
3250     (arguments
3251      ;; Test files are missing: https://github.com/foo86/dcadec/issues/53
3252      '(#:tests? #f
3253        #:make-flags
3254        (list "CC=gcc"
3255              ;; Build shared library.
3256              "CONFIG_SHARED=1"
3257              (string-append "PREFIX=" (assoc-ref %outputs "out"))
3258              ;; Set proper runpath.
3259              (string-append "LDFLAGS=-Wl,-rpath="
3260                             (assoc-ref %outputs "out")
3261                             "/lib"))
3262        #:phases
3263        (modify-phases %standard-phases
3264          ;; No configure script, just a hand-written Makefile.
3265          (delete 'configure))))
3266     (synopsis "DTS Coherent Acoustics decoder")
3267     (description "Dcadec is a DTS Coherent Acoustics surround sound decoder
3268 with support for HD extensions.")
3269     (home-page "https://github.com/foo86/dcadec")
3270     (license license:lgpl2.1+)))
3271
3272 (define-public bs1770gain
3273   (package
3274     (name "bs1770gain")
3275     (version "0.6.5")
3276     (source
3277      (origin
3278        (method url-fetch)
3279        (uri (string-append "mirror://sourceforge/bs1770gain/bs1770gain/"
3280                            version "/bs1770gain-" version ".tar.gz"))
3281        (sha256
3282         (base32 "15nvlh9bg0a52cpg2mii17mlzmxszwivjjalbb4np1v5nj8l5fk6"))
3283        (modules '((guix build utils)))
3284        (snippet
3285         '(begin
3286            ;; XXX
3287            (substitute* (find-files "." "\\.[ch]$")
3288              (("^ \\* N..o.*") ""))
3289            (substitute* "libbg/bgx.c"
3290              (("#define BG.* ") "#define BS ")
3291              (("BG.*NO?.*N.*S.*E.*N.*SE?") "NO")
3292              (("\"( #|N).*\"") "\"\""))
3293            (substitute* (list "config.h"
3294                               "configure.ac"
3295                               "configure")
3296              (("https?://bs1770gain[^/]*/")
3297               "https://manpages.debian.org/sid/bs1770gain/bs1770gain.1.en.html"))
3298            #t))))
3299     (build-system gnu-build-system)
3300     (inputs `(("ffmpeg" ,ffmpeg)
3301               ("sox" ,sox)))
3302     (home-page "https://manpages.debian.org/sid/bs1770gain/bs1770gain.1.en.html")
3303     (synopsis "Tool to adjust loudness of media files")
3304     (description
3305      "BS1770GAIN is a loudness scanner compliant with ITU-R BS.1770 and its
3306 flavors EBU R128, ATSC A/85, and ReplayGain 2.0.  It helps normalizing the
3307 loudness of audio and video files to the same level.")
3308     (license license:gpl2+)))
3309
3310 (define-public filteraudio
3311   (let ((revision "1")
3312         (commit "2fc669581e2a0ff87fba8de85861b49133306094"))
3313     (package
3314       (name "filteraudio")
3315       (version (string-append "0.0.0-" revision "."
3316                               (string-take commit 7)))
3317       (source
3318        (origin
3319          (method git-fetch)
3320          (uri (git-reference
3321                (url "https://github.com/irungentoo/filter_audio.git")
3322                (commit commit)))
3323          (file-name (string-append name "-" version "-checkout"))
3324          (sha256
3325           (base32
3326            "0hbb290n3wb23f2k692a6bhc23nnqmxqi9sc9j15pnya8wifw64g"))))
3327       (build-system gnu-build-system)
3328       (arguments
3329        '(#:make-flags (list (string-append "PREFIX=" %output)
3330                             "CC=gcc")
3331          #:tests? #f ; No tests
3332          #:phases
3333          (modify-phases %standard-phases
3334            ;; No configure script
3335            (delete 'configure))))
3336       (synopsis "Lightweight audio filtering library")
3337       (description "An easy to use audio filtering library made from webrtc
3338 code, used in @code{libtoxcore}.")
3339       (home-page "https://github.com/irungentoo/filter_audio")
3340       (license license:bsd-3))))
3341
3342 (define-public gsm
3343   (package
3344     (name "gsm")
3345     (version "1.0.18")
3346     (source
3347      (origin
3348        (method url-fetch)
3349        (uri
3350         (string-append "http://www.quut.com/" name "/" name
3351                        "-" version ".tar.gz"))
3352        (sha256
3353         (base32
3354          "041amvpz8cvxykl3pwqldrzxligmmzcg8ncdnxbg32rlqf3q1xh4"))))
3355     (build-system gnu-build-system)
3356     (arguments
3357      `(#:test-target "tst"
3358        #:phases
3359        (modify-phases %standard-phases
3360          (add-before 'install 'pre-install
3361            (lambda _
3362              (let ((out (assoc-ref %outputs "out")))
3363                (substitute* "Makefile"
3364                  (("INSTALL_ROOT\t=")
3365                   (string-append "INSTALL_ROOT\t=\t" out)))
3366                (mkdir-p (string-append out "/inc"))
3367                (mkdir-p (string-append out "/man"))
3368                (mkdir-p (string-append out "/man/man1"))
3369                (mkdir-p (string-append out "/man/man3"))
3370                (mkdir-p (string-append out "/bin"))
3371                (mkdir-p (string-append out "/lib")))
3372              #t))
3373          (add-after 'install 'post-install
3374            (lambda _
3375              (let ((out (assoc-ref %outputs "out")))
3376                (rename-file (string-append out "/inc")
3377                             (string-append out "/include"))
3378                (mkdir-p (string-append out "/include/gsm"))
3379                (copy-recursively "inc"
3380                                  (string-append out "/include/gsm")))
3381              #t))
3382          (delete 'configure))))         ; no configure script
3383     (synopsis "GSM 06.10 lossy speech compression library")
3384     (description "This C library provides an encoder and a decoder for the GSM
3385 06.10 RPE-LTP lossy speech compression algorithm.")
3386     (home-page "http://quut.com/gsm/")
3387     (license (license:non-copyleft "file://COPYRIGHT"))))
3388
3389 (define-public python-pyalsaaudio
3390   (package
3391     (name "python-pyalsaaudio")
3392     (version "0.8.4")
3393     (source (origin
3394               (method url-fetch)
3395               (uri (pypi-uri "pyalsaaudio" version))
3396               (sha256
3397                (base32
3398                 "1180ypn9596rq4b7y7dyv627j1q0fqilmkkrckclnzsdakdgis44"))))
3399     (build-system python-build-system)
3400     (arguments
3401      `(#:tests? #f))                   ; tests require access to ALSA devices.
3402     (inputs
3403      `(("alsa-lib" ,alsa-lib)))
3404     (home-page "http://larsimmisch.github.io/pyalsaaudio/")
3405     (synopsis "ALSA wrappers for Python")
3406     (description
3407      "This package contains wrappers for accessing the ALSA API from Python.
3408 It is currently fairly complete for PCM devices, and has some support for
3409 mixers.")
3410     (license license:psfl)))
3411
3412 (define-public python2-pyalsaaudio
3413   (package-with-python2 python-pyalsaaudio))
3414
3415 (define-public bluez-alsa
3416   (package
3417     (name "bluez-alsa")
3418     (version "2.0.0")
3419     (source (origin
3420               ;; The tarballs are mere snapshots and don't contain a
3421               ;; bootstrapped build system.
3422               (method git-fetch)
3423               (uri (git-reference
3424                     (url "https://github.com/Arkq/bluez-alsa.git")
3425                     (commit (string-append "v" version))))
3426               (file-name (git-file-name name version))
3427               (sha256
3428                (base32
3429                 "08mppgnjf1j2733bk9yf0cny6rfxxwiys0s62lz2zd2lpdl6d9lz"))))
3430     (build-system gnu-build-system)
3431     (arguments
3432      `(#:configure-flags
3433        (list (string-append "--with-alsaplugindir="
3434                             (assoc-ref %outputs "out")
3435                             "/lib/alsa-lib")
3436              (string-append "--with-dbusconfdir="
3437                             (assoc-ref %outputs "out")
3438                             "/etc/dbus-1/system.d"))))
3439     (native-inputs
3440      `(("autoconf" ,autoconf)
3441        ("automake" ,automake)
3442        ("libtool" ,libtool)
3443        ("pkg-config" ,pkg-config)))
3444     (inputs
3445      `(("alsa-lib" ,alsa-lib)
3446        ("bluez" ,bluez)
3447        ("dbus" ,dbus)
3448        ("glib" ,glib)
3449        ("libbsd" ,libbsd)
3450        ("ncurses" ,ncurses)
3451        ("ortp" ,ortp)
3452        ("sbc" ,sbc)))
3453     (home-page "https://github.com/Arkq/bluez-alsa")
3454     (synopsis "Bluetooth ALSA backend")
3455     (description "This project is a rebirth of a direct integration between
3456 Bluez and ALSA.  Since Bluez >= 5, the build-in integration has been removed
3457 in favor of 3rd party audio applications.  From now on, Bluez acts as a
3458 middleware between an audio application, which implements Bluetooth audio
3459 profile, and a Bluetooth audio device.  BlueALSA registers all known Bluetooth
3460 audio profiles in Bluez, so in theory every Bluetooth device (with audio
3461 capabilities) can be connected.  In order to access the audio stream, one has
3462 to connect to the ALSA PCM device called @code{bluealsa}.  The device is based
3463 on the ALSA software PCM plugin.")
3464     (license license:expat)))
3465
3466 (define-public snd
3467   (package
3468     (name "snd")
3469     (version "19.9")
3470     (source (origin
3471               (method url-fetch)
3472               (uri (string-append "ftp://ccrma-ftp.stanford.edu/pub/Lisp/"
3473                                   "snd-" version ".tar.gz"))
3474               (sha256
3475                (base32
3476                 "13s8fahpsjygjdrcwmprcrz23ny3klaj2rh2xzdv3bfs69gxvhys"))))
3477     (build-system glib-or-gtk-build-system)
3478     (arguments
3479      `(#:tests? #f                      ; no tests
3480        #:out-of-source? #f              ; for the 'install-doc' phase
3481        #:configure-flags
3482        (let* ((out (assoc-ref %outputs "out"))
3483               (docdir (string-append out "/share/doc/"
3484                                      ,name "-" ,version)))
3485          (list "--with-alsa" "--with-jack" "--with-gmp"
3486                (string-append "--with-doc-dir=" docdir)))
3487        #:phases
3488        (modify-phases %standard-phases
3489          (add-after 'install 'install-doc
3490            (lambda* (#:key outputs #:allow-other-keys)
3491              (let* ((out (assoc-ref outputs "out"))
3492                     (doc (string-append out "/share/doc/"
3493                                         ,name "-" ,version)))
3494                (for-each
3495                 (lambda (f)
3496                   (install-file f doc))
3497                 (find-files "." "\\.html$"))
3498                (copy-recursively "pix" (string-append doc "/pix"))
3499                #t))))))
3500     (native-inputs
3501      `(("pkg-config" ,pkg-config)))
3502     (inputs
3503      `(("alsa-lib" ,alsa-lib)
3504        ("fftw" ,fftw)
3505        ("flac" ,flac)
3506        ("gmp" ,gmp)
3507        ("gsl" ,gsl)
3508        ("gtk+" ,gtk+)
3509        ("jack" ,jack-1)
3510        ("libsamplerate" ,libsamplerate)
3511        ("mpc" ,mpc)
3512        ("mpfr" ,mpfr)
3513        ("mpg123" ,mpg123)
3514        ("speex" ,speex)
3515        ("timidity++" ,timidity++)
3516        ("vorbis-tools" ,vorbis-tools)
3517        ("wavpack" ,wavpack)))
3518     (synopsis "Sound editor")
3519     (home-page "https://ccrma.stanford.edu/software/snd/")
3520     (description
3521      "Snd is a sound editor modelled loosely after Emacs.  It can be
3522 customized and extended using either the s7 Scheme implementation (included in
3523 the Snd sources), Ruby, or Forth.")
3524     (license (license:non-copyleft "file://COPYING"))))
3525
3526 (define-public noise-repellent
3527   (package
3528     (name "noise-repellent")
3529     (version "0.1.4")
3530     (source (origin
3531               (method git-fetch)
3532               (uri (git-reference
3533                     (url "https://github.com/lucianodato/noise-repellent.git")
3534                     (commit version)))
3535               (file-name (string-append name "-" version "-checkout"))
3536               (sha256
3537                (base32
3538                 "0rd3dlmk3vivjmcr6x2x860y0j1d49c2j95j6ny50v184mwvn11j"))))
3539     (build-system gnu-build-system)
3540     (arguments
3541      `(#:make-flags
3542        (list "CC=gcc"
3543              (string-append "PREFIX=" (assoc-ref %outputs "out")))
3544        #:tests? #f ; there are none
3545        #:phases
3546        (modify-phases %standard-phases
3547          (delete 'configure))))
3548     (inputs
3549      `(("lv2" ,lv2)
3550        ("fftwf" ,fftwf)))
3551     (native-inputs
3552      `(("pkg-config" ,pkg-config)))
3553     (home-page "https://github.com/lucianodato/noise-repellent")
3554     (synopsis "LV2 plugin for broadband noise reduction")
3555     (description "Noise Repellent is an LV2 plugin to reduce noise.  It has
3556 the following features:
3557
3558 @enumerate
3559 @item Spectral gating and spectral subtraction suppression rule
3560 @item Adaptive and manual noise thresholds estimation
3561 @item Adjustable noise floor
3562 @item Adjustable offset of thresholds to perform over-subtraction
3563 @item Time smoothing and a masking estimation to reduce artifacts
3564 @item Basic onset detector to avoid transients suppression
3565 @item Whitening of the noise floor to mask artifacts and to recover higher
3566   frequencies
3567 @item Option to listen to the residual signal
3568 @item Soft bypass
3569 @item Noise profile saved with the session
3570 @end enumerate
3571 ")
3572     (license license:lgpl3+)))
3573
3574 (define-public cli-visualizer
3575   (package
3576     (name "cli-visualizer")
3577     (version "1.8")
3578     (source
3579      (origin
3580        (method git-fetch)
3581        (uri (git-reference
3582              (url "https://github.com/dpayne/cli-visualizer.git")
3583              (commit (string-append "v" version))))
3584        (file-name (git-file-name name version))
3585        (sha256
3586         (base32 "003mbbwsz43mg3d7llphpypqa9g7rs1p1cdbqi1mbc2bfrc1gcq2"))))
3587     (build-system cmake-build-system)
3588     (native-inputs
3589      ;; TODO: Try using the latest googletest for versions > 1.8.
3590      `( ;; ("googletest" ,googletest-1.8)
3591        ("which" ,which)))
3592     (inputs
3593      `(("fftw" ,fftw)
3594        ("ncurses" ,ncurses)
3595        ("pulseaudio" ,pulseaudio)))
3596     (arguments
3597      '(#:tests? #f
3598        ;; XXX Enable tests after patching them to use the system googletest.
3599        ;; #:configure-flags (list "-DVIS_WITH_TESTS=true")
3600        #:phases
3601        (modify-phases %standard-phases
3602          (add-after 'install 'install-examples
3603            (lambda* (#:key outputs #:allow-other-keys)
3604              (with-directory-excursion "../source/examples"
3605                (delete-file "mac_osx_config")
3606                (for-each (lambda (file)
3607                            (install-file file
3608                                          (string-append
3609                                           (assoc-ref outputs "out")
3610                                           "/share/doc")))
3611                          (find-files ".")))
3612              #t)))))
3613     (home-page "https://github.com/dpayne/cli-visualizer/")
3614     (synopsis "Command-line audio visualizer")
3615     (description "@code{cli-visualizer} displays fast-Fourier
3616 transforms (FFTs) of the sound being played, as well as other graphical
3617 representations.")
3618     (license license:expat)))
3619
3620 (define-public cava
3621   (package
3622     (name "cava")
3623     (version "0.6.1")
3624     (source (origin
3625               (method git-fetch)
3626               (uri (git-reference
3627                     (url "https://github.com/karlstav/cava.git")
3628                     (commit version)))
3629               (file-name (git-file-name name version))
3630               (sha256
3631                (base32
3632                 "1kvhqgijs29909w3sq9m0bslx2zxxn4b3i07kdz4hb0dqkppxpjy"))))
3633     (build-system gnu-build-system)
3634     (native-inputs
3635      `(("autoconf" ,autoconf)
3636        ("automake" ,automake)
3637        ("libtool" ,libtool)))
3638     (inputs
3639      `(("fftw" ,fftw)
3640        ("ncurses" ,ncurses)
3641        ("pulseaudio" ,pulseaudio)))
3642     (arguments
3643      `(#:configure-flags
3644        (list (string-append "PREFIX=" %output)
3645              (string-append "FONT_DIR=" %output "/share/consolefonts"))
3646        #:make-flags
3647        (let ((lib (string-append %output "/lib")))
3648          (list (string-append "cava_LDFLAGS = -L" lib " -Wl,-rpath " lib)))
3649        #:phases
3650        (modify-phases %standard-phases
3651          (replace 'bootstrap
3652            (lambda* (#:key outputs #:allow-other-keys)
3653              (setenv "HOME" (getcwd))
3654              (invoke "sh" "autogen.sh")))
3655          (add-before 'build 'make-cava-ldflags
3656            (lambda* (#:key outputs #:allow-other-keys)
3657              (mkdir-p (string-append (assoc-ref outputs "out") "/lib"))
3658              #t))
3659          (add-after 'install 'data
3660            (lambda* (#:key outputs #:allow-other-keys)
3661              (for-each (lambda (file)
3662                          (install-file file
3663                                        (string-append (assoc-ref outputs "out")
3664                                                       "/share/doc/examples")))
3665                        (find-files "example_files"))
3666              #t)))))
3667     (home-page "https://karlstav.github.io/cava/")
3668     (synopsis "Console audio visualizer for ALSA, MPD, and PulseAudio")
3669     (description "C.A.V.A. is a bar audio spectrum visualizer for the terminal
3670 using ALSA, MPD, PulseAudio, or a FIFO buffer as its input.")
3671     (license license:expat)))
3672
3673 (define-public fluid-3
3674   (let ((commit "871c8ce2002e8b3c198f532fdb4fbcce7914f951"))
3675     (package
3676       (name "fluid-3")
3677       (version "2.1")
3678       (source
3679        (origin
3680          (method url-fetch)
3681          ;; Only one file is required, but the release bundles the whole
3682          ;; software which is 50MiB as tar and 200MiB unpacked. The website
3683          ;; directly links the soundfont release to the github file download.
3684          (uri (string-append "https://github.com/musescore/MuseScore/raw/"
3685                              commit "/share/sound/FluidR3Mono_GM.sf3"))
3686          (file-name (string-append name "-" version ".sf3"))
3687          (sha256
3688           (base32
3689            "1hjfg5i15bw9279007xs92zsggjgn4s4k9pc00s851l3kvc6dkfg"))))
3690       (build-system trivial-build-system)
3691       (arguments
3692        `(#:modules ((guix build utils))
3693          #:builder
3694          (begin
3695            (use-modules (guix build utils))
3696            (let ((file (assoc-ref %build-inputs "source"))
3697                  (out (string-append %output "/share/soundfonts")))
3698              (mkdir-p out)
3699              (copy-file file (string-append out "/FluidR3Mono_GM.sf3"))
3700              #t))))
3701       (home-page  "https://github.com/musescore/MuseScore/tree/master/share/sound")
3702       (synopsis "Pro-quality GM soundfont")
3703       (description "Fluid-3 is Frank Wen's pro-quality GM soundfont.")
3704       (license license:expat))))
3705
3706 (define-public libfdk
3707   (let ((commit "2326faaf8f2cdf2c3a9108ccdaf1d7551aec543e")
3708         (revision "0"))
3709     (package
3710       (name "libfdk")
3711       ;; The latest upstream revision, with many bug fixes.
3712       (version (git-version "0.1.6" revision commit))
3713       (source
3714         (origin
3715           (method git-fetch)
3716           (uri (git-reference
3717                  (url "https://github.com/mstorsjo/fdk-aac")
3718                  (commit commit)))
3719           (file-name (git-file-name name version))
3720           (sha256
3721            (base32
3722             "0yy6ndd9d61bwl283vl1r5kva2a4acc0f4r9g0sza156f2abr9ws"))))
3723       (build-system gnu-build-system)
3724       (native-inputs
3725        `(("autoconf" ,autoconf)
3726          ("automake" ,automake)
3727          ("libtool" ,libtool)))
3728       (home-page "https://github.com/mstorsjo/fdk-aac")
3729       (synopsis "Fraunhofer FDK AAC library")
3730       (description "FDK is a library for encoding and decoding Advanced Audio
3731 Coding (AAC) format audio, developed by Fraunhofer IIS, and included as part of
3732 Android.  It supports several Audio Object Types including MPEG-2 and MPEG-4 AAC
3733 LC, HE-AAC (AAC LC + SBR), HE-AACv2 (LC + SBR + PS) as well AAC-LD (low delay)
3734 and AAC-ELD (enhanced low delay) for real-time communication.  The encoding
3735 library supports sample rates up to 96 kHz and up to eight channels (7.1
3736 surround).")
3737       (license (license:fsf-free "https://github.com/mstorsjo/fdk-aac/blob/master/NOTICE"
3738                                  "https://www.gnu.org/licenses/license-list.html#fdk")))))
3739
3740 (define-public libopenshot-audio
3741   (package
3742     (name "libopenshot-audio")
3743     (version "0.1.8")
3744     (source (origin
3745               (method git-fetch)
3746               (uri (git-reference
3747                     (url "https://github.com/OpenShot/libopenshot-audio")
3748                     (commit (string-append "v" version))))
3749               (file-name (git-file-name name version))
3750               (sha256
3751                (base32
3752                 "1fvp6nmf30xzkmcznakh8dv5vn9d7nq051pqcqv638hsfppkmcrl"))))
3753     (build-system cmake-build-system)
3754     (inputs
3755      `(("alsa-lib" ,alsa-lib)
3756        ;; The following are for JUCE GUI components:
3757        ("libx11" ,libx11)
3758        ("freetype" ,freetype)
3759        ("libxrandr" ,libxrandr)
3760        ("libxinerama" ,libxinerama)
3761        ("libxcursor" ,libxcursor)))
3762     (arguments
3763      `(#:tests? #f                      ;there are no tests
3764        #:configure-flags
3765        (list (string-append "-DCMAKE_CXX_FLAGS=-I"
3766                             (assoc-ref %build-inputs "freetype")
3767                             "/include/freetype2"))))
3768     (home-page "https://openshot.org")
3769     (synopsis "Audio editing and playback for OpenShot")
3770     (description "OpenShot Audio Library (libopenshot-audio) allows
3771 high-quality editing and playback of audio, and is based on the JUCE
3772 library.")
3773     (license license:lgpl3+)))
3774
3775 (define-public faudio
3776   (package
3777     (name "faudio")
3778     (version "19.11")
3779     (source
3780      (origin
3781        (method git-fetch)
3782        (uri (git-reference
3783              (url "https://github.com/FNA-XNA/FAudio.git")
3784              (commit version)))
3785        (file-name (git-file-name name version))
3786        (sha256
3787         (base32 "0ckpr6ffz8ssfh1y850dhip5s5jv0j6n90qz5yx1v9d6gpwf08rp"))))
3788     (arguments
3789      '(#:tests? #f                      ; No tests.
3790        #:configure-flags '("-DFFMPEG=ON")))
3791     (build-system cmake-build-system)
3792     (native-inputs `(("pkg-config" ,pkg-config)))
3793     (inputs `(("ffmpeg" ,ffmpeg)
3794               ("sdl2" ,sdl2)))
3795     (home-page "https://github.com/FNA-XNA/FAudio")
3796     (synopsis "XAudio reimplementation")
3797     (description "FAudio is an XAudio reimplementation that focuses solely on
3798 developing fully accurate DirectX Audio runtime libraries.")
3799     (license license:zlib)))
3800
3801 (define-public gnaural
3802   (package
3803     (name "gnaural")
3804     (version "20110606")
3805     (source
3806      (origin
3807        (method url-fetch)
3808        (uri (string-append "mirror://sourceforge/gnaural/Gnaural/gnaural_"
3809                            version ".tar.xz"))
3810        (sha256
3811         (base32
3812          "1gq519c0imsh57zklyi0f8h64l3ai48lh672c834470z8c6kvbfi"))))
3813     (build-system gnu-build-system)
3814     (inputs
3815      `(("alsa-lib" ,alsa-lib)
3816        ("gtk+" ,gtk+-2)
3817        ("libsndfile" ,libsndfile)
3818        ("portaudio" ,portaudio)))
3819     (native-inputs
3820      `(("pkg-config" ,pkg-config)))
3821     (home-page "http://gnaural.sourceforge.net/")
3822     (synopsis "Binaural beat synthesizer")
3823     (description "Gnaural is a programmable auditory binaural beat synthesizer
3824 intended to be used for brainwave entrainment.  Gnaural supports creation of
3825 binaural beat tracks of different frequencies and exporting of tracks into
3826 different audio formats.  Gnaural can also be linked over the internet with
3827 other Gnaural instances, allowing synchronous sessions between many users.")
3828     (license license:gpl2+)))
3829
3830 (define-public darkice
3831   (package
3832     (name "darkice")
3833     (version "1.3")
3834     (source (origin
3835               (method url-fetch)
3836               (uri (string-append "mirror://sourceforge/darkice/darkice/"
3837                                   version "/darkice-" version ".tar.gz"))
3838               (sha256
3839                (base32 "1rlxds7ssq7nk2in4s46xws7xy9ylxsqgcz85hxjgh17lsm0y39c"))
3840               (patches
3841                (search-patches "darkice-workaround-fpermissive-error.patch"))))
3842     (build-system gnu-build-system)
3843     (native-inputs `(("pkg-config" ,pkg-config)))
3844     (inputs `(("lame" ,lame)
3845               ("libvorbis" ,libvorbis)
3846               ("opus" ,opus)
3847               ("twolame" ,twolame)
3848               ("alsa-lib" ,alsa-lib)
3849               ("pulseaudio" ,pulseaudio)
3850               ("jack" ,jack-1)
3851               ("libsamplerate" ,libsamplerate)))
3852     (arguments
3853      `(#:configure-flags
3854        (list (string-append "--with-lame-prefix="
3855                             (assoc-ref %build-inputs "lame")))))
3856     (home-page "http://www.darkice.org/")
3857     (synopsis "Live audio streamer")
3858     (description "DarkIce is a live audio streamer.  It takes audio input from
3859 a sound card, encodes it into Ogg Vorbis and/or mp3, and sends the audio
3860 stream to one or more IceCast and/or ShoutCast servers.")
3861     (license license:gpl3+)))
3862
3863 (define-public libltc
3864   (package
3865     (name "libltc")
3866     (version "1.3.1")
3867     (source
3868      (origin
3869        (method url-fetch)
3870        (uri
3871         (string-append "https://github.com/x42/libltc/releases/download/v"
3872                        version "/libltc-" version ".tar.gz"))
3873        (sha256
3874         (base32
3875          "173h9dgmain3nyrwk6q2d7yl4fnh4vacag4s2p01n5b7nyrkxrjh"))))
3876     (build-system gnu-build-system)
3877     (arguments
3878      `(#:parallel-tests? #f))           ;tests fail otherwise
3879     (native-inputs
3880      `(("doxygen" ,doxygen)
3881        ("pkg-config" ,pkg-config)))
3882     (synopsis "Encode or decode Linear/Longitudinal Time Code (LTC) audio")
3883     (description "Libltc is a POSIX-C Library for handling
3884 @dfn{Linear/Longitudinal Time Code} (LTC) data.")
3885     (home-page "https://x42.github.io/libltc/")
3886     (license license:lgpl3+)))
3887
3888 (define-public redkite
3889   (package
3890     (name "redkite")
3891     (version "0.6.2")
3892     (source
3893      (origin
3894        (method git-fetch)
3895        (uri (git-reference
3896              (url "https://gitlab.com/geontime/redkite.git")
3897              (commit (string-append "v" version))))
3898        (file-name (git-file-name name version))
3899        (sha256
3900         (base32
3901          "1i874izajbdhlfacwwj84qrsxf7g4y6nblzxalrkzaap9sa7d1r6"))))
3902     (build-system cmake-build-system)
3903     (arguments
3904      `(#:tests? #f))                    ;no tests included
3905     (inputs
3906      `(("cairo" ,cairo)))
3907     (native-inputs
3908      `(("pkg-config", pkg-config)))
3909     (synopsis "Small GUI toolkit")
3910     (description "Redkite is a small GUI toolkit developed in C++17 and
3911 inspired from other well known GUI toolkits such as Qt and GTK.  It is
3912 minimal on purpose and is intended to be statically linked to applications,
3913 therefore satisfying any requirements they may have to be self contained,
3914 as is the case with audio plugins.")
3915     (home-page "https://gitlab.com/geontime/redkite")
3916     (license license:gpl3+)))
3917
3918 (define-public carla
3919   (package
3920     (name "carla")
3921     (version "2.0.0")
3922     (source
3923      (origin
3924        (method git-fetch)
3925        (uri
3926         (git-reference
3927          (url "https://github.com/falkTX/Carla.git")
3928          (commit (string-append "v" version))))
3929        (file-name (git-file-name name version))
3930        (sha256
3931         (base32
3932          "0fqgncqlr86n38yy7pa118mswfacmfczj7w9xx6c6k0jav3wk29k"))))
3933     (build-system gnu-build-system)
3934     (arguments
3935      `(#:tests? #f                      ; no "check" target
3936        #:make-flags
3937        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3938        #:phases
3939        (modify-phases %standard-phases
3940          (add-before 'build 'set-CC-variable-and-show-features
3941            (lambda _
3942              (setenv "CC" "gcc")
3943              (invoke "make" "features")))
3944          (delete 'configure))))
3945     (inputs
3946      `(("alsa-lib" ,alsa-lib)
3947        ("ffmpeg" ,ffmpeg)
3948        ("fluidsynth" ,fluidsynth)
3949        ("file" ,file)
3950        ("liblo" ,liblo)
3951        ("libsndfile" ,libsndfile)
3952        ("gtk+" ,gtk+)
3953        ("python-pyliblo" ,python-pyliblo)
3954        ("python-pyqt" ,python-pyqt)
3955        ("python-rdflib" ,python-rdflib)
3956        ;; python-pyqt shows the following error without python-wrapper:
3957        ;; Error while finding module specification for 'PyQt5.uic.pyuic'
3958        ;; (ModuleNotFoundError: No module named 'PyQt5')
3959        ("python-wrapper" ,python-wrapper)
3960        ("libx11" ,libx11)
3961        ("qtbase" ,qtbase)
3962        ("zlib" ,zlib)))
3963     (native-inputs
3964      `(("pkg-config" ,pkg-config)))
3965     (home-page "https://kx.studio/Applications:Carla")
3966     (synopsis "Audio plugin host")
3967     (description "Carla is a modular audio plugin host, with features like
3968 transport control, automation of parameters via MIDI CC and remote control
3969 over OSC.  Carla currently supports LADSPA (including LRDF), DSSI, LV2, VST2,
3970 and VST3 plugin formats, plus SF2 and SFZ file support.  It uses JACK as the
3971 default and preferred audio driver but also supports native drivers like ALSA.")
3972     (license license:gpl2+)))
3973
3974 (define-public ecasound
3975   (package
3976     (name "ecasound")
3977     (version "2.9.3")
3978     (source (origin
3979               (method url-fetch)
3980               (uri (string-append "https://nosignal.fi/download/ecasound-"
3981                                   version ".tar.gz"))
3982               (sha256
3983                (base32 "1m7njfjdb7sqf0lhgc4swihgdr4snkg8v02wcly08wb5ar2fr2s6"))))
3984     (build-system gnu-build-system)
3985     (native-inputs `(("pkg-config" ,pkg-config)))
3986     ;; It would be nice to add mikmod to inputs if that gets packaged
3987     ;; eventually.
3988     (inputs `(("alsa-lib" ,alsa-lib)
3989               ("jack" ,jack-1)
3990               ("mpg123" ,mpg123)
3991               ("lame" ,lame)
3992               ("vorbis-tools" ,vorbis-tools)
3993               ("faad2" ,faad2)
3994               ("flac" ,flac)
3995               ("timidity++" ,timidity++)
3996               ("libsndfile" ,libsndfile)
3997               ("libsamplerate" ,libsamplerate)
3998               ("ncurses" ,ncurses)
3999               ("ladspa" ,ladspa)
4000               ("lilv" ,lilv)))
4001     (home-page "https://nosignal.fi/ecasound/index.php")
4002     (synopsis "Multitrack audio processing")
4003     (description "Ecasound is a software package designed for multitrack audio
4004 processing. It can be used for simple tasks like audio playback, recording and
4005 format conversions, as well as for multitrack effect processing, mixing,
4006 recording and signal recycling. Ecasound supports a wide range of audio inputs,
4007 outputs and effect algorithms. Effects and audio objects can be combined in
4008 various ways, and their parameters can be controlled by operator objects like
4009 oscillators and MIDI-CCs. A versatile console mode user-interface is included
4010 in the package.")
4011     ;; As an exception to the above, the C, C++ and python implementations
4012     ;; of the Ecasound Control Interface (ECI) are licensed under the LGPL
4013     ;; (see the file 'COPYING.LGPL'). This allows writing ECI applications
4014     ;; that are not licensed under GPL.
4015     (license (list license:gpl2 license:lgpl2.1))))