gnu/packages/audio.scm

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