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