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.4")
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                 "1r3khwyw57ybg5m4x0rvdzq7hgw2484sd52k6bm19akbw8yicfna"))))
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.2")
2862     (source
2863      (origin
2864        (method git-fetch)
2865        (uri (git-reference
2866              (url "https://github.com/dbry/WavPack")
2867              (commit "e4e8d191e8dd74cbdbeaef3232c16a7ef517e68d")))
2868        (sha256
2869         (base32 "1zj8svk6giy1abq3940sz32ygz7zldppxl47852zgn5wfm3l2spx"))
2870        (file-name (git-file-name name version))))
2871     (build-system gnu-build-system)
2872     (arguments
2873      '(#:configure-flags
2874        (list "--disable-static")
2875        #:phases
2876        (modify-phases %standard-phases
2877          (replace 'bootstrap
2878            ;; Running ./autogen.sh would cause premature configuration.
2879            (lambda _
2880              (invoke "autoreconf" "-vif")
2881              #t)))))
2882     (native-inputs
2883      `(("autoconf" ,autoconf)
2884        ("automake" ,automake)
2885        ("libtool" ,libtool)))
2886     (home-page "http://www.wavpack.com/")
2887     (synopsis "Hybrid lossless audio codec")
2888     (description
2889      "WavPack is an audio compression format with lossless, lossy and hybrid
2890 compression modes.  This package contains command-line programs and library to
2891 encode and decode wavpack files.")
2892     (license license:bsd-3)))
2893
2894 (define-public libmodplug
2895   (package
2896     (name "libmodplug")
2897     (version "0.8.9.0")
2898     (source (origin
2899               (method url-fetch)
2900               (uri (string-append
2901                     "mirror://sourceforge/modplug-xmms/"
2902                     name "/" version "/" name "-" version ".tar.gz"))
2903               (sha256
2904                (base32
2905                 "1pnri98a603xk47smnxr551svbmgbzcw018mq1k6srbrq6kaaz25"))))
2906     (build-system gnu-build-system)
2907     (home-page "http://modplug-xmms.sourceforge.net/")
2908     (synopsis "Mod file playing library")
2909     (description
2910      "Libmodplug renders mod music files as raw audio data, for playing or
2911 conversion.  mod, .s3m, .it, .xm, and a number of lesser-known formats are
2912 supported.  Optional features include high-quality resampling, bass expansion,
2913 surround and reverb.")
2914     (license license:public-domain)))
2915
2916 (define-public libxmp
2917   (package
2918     (name "libxmp")
2919     (version "4.4.1")
2920     (source (origin
2921               (method url-fetch)
2922               (uri (string-append "mirror://sourceforge/xmp/libxmp/" version "/"
2923                                   name "-" version ".tar.gz"))
2924               (sha256
2925                (base32
2926                 "1kycz4jsyvmf7ny9227b497wc7y5ligydi6fvvldmkf8hk63ad9m"))))
2927     (build-system gnu-build-system)
2928     (home-page "http://xmp.sourceforge.net/")
2929     (synopsis "Module player library")
2930     (description
2931      "Libxmp is a library that renders module files to PCM data.  It supports
2932 over 90 mainstream and obscure module formats including Protracker (MOD),
2933 Scream Tracker 3 (S3M), Fast Tracker II (XM), and Impulse Tracker (IT).")
2934     (license license:lgpl2.1+)))
2935
2936 (define-public xmp
2937   (package
2938     (name "xmp")
2939     (version "4.1.0")
2940     (source (origin
2941               (method url-fetch)
2942               (uri (string-append "mirror://sourceforge/xmp/xmp/" version "/"
2943                                   name "-" version ".tar.gz"))
2944               (sha256
2945                (base32
2946                 "17i8fc7x7yn3z1x963xp9iv108gxfakxmdgmpv3mlm438w3n3g8x"))))
2947     (build-system gnu-build-system)
2948     (native-inputs
2949      `(("pkg-config" ,pkg-config)))
2950     (inputs
2951      `(("libxmp" ,libxmp)
2952        ("pulseaudio" ,pulseaudio)))
2953     (home-page "http://xmp.sourceforge.net/")
2954     (synopsis "Extended module player")
2955     (description
2956      "Xmp is a portable module player that plays over 90 mainstream and
2957 obscure module formats, including Protracker MOD, Fasttracker II XM, Scream
2958 Tracker 3 S3M and Impulse Tracker IT files.")
2959     (license license:gpl2+)))
2960
2961 (define-public soundtouch
2962   (package
2963     (name "soundtouch")
2964     (version "2.1.2")
2965     (source
2966      (origin
2967        (method git-fetch)
2968        (uri (git-reference
2969              (url "https://gitlab.com/soundtouch/soundtouch.git")
2970              (commit version)))
2971        (file-name (git-file-name name version))
2972        (sha256
2973         (base32 "174wgm3s0inmbnkrlnspxjwm2014qhjhkbdqa5r8rbfi0nzqxzsz"))))
2974     (build-system gnu-build-system)
2975     (native-inputs
2976      `(("autoconf" ,autoconf)
2977        ("automake" ,automake)
2978        ("libtool" ,libtool)
2979        ("file" ,file)))
2980     (home-page "https://www.surina.net/soundtouch/")
2981     (synopsis
2982      "Audio processing library for changing tempo, pitch and playback rate")
2983     (description
2984      "SoundTouch is an audio processing library for changing the tempo, pitch
2985 and playback rates of audio streams or audio files.  It is intended for
2986 application developers writing sound processing tools that require tempo/pitch
2987 control functionality, or just for playing around with the sound effects.")
2988     (license license:lgpl2.1+)))
2989
2990 (define-public sox
2991   (package
2992     (name "sox")
2993     (version "14.4.2")
2994     (source (origin
2995               (method url-fetch)
2996               (uri (string-append "mirror://sourceforge/sox/sox/" version "/"
2997                                   name "-" version ".tar.bz2"))
2998               (sha256
2999                (base32
3000                 "170lx90r1nlnb2j6lg00524iwvqy72p48vii4xc5prrh8dnrb9l1"))))
3001     (build-system gnu-build-system)
3002     (arguments
3003      '(#:configure-flags
3004        ;; The upstream asks to identify the distribution to diagnose SoX
3005        ;; bug reports.
3006        '("--with-distro=Guix System Distribution")))
3007     (native-inputs
3008      `(("pkg-config" ,pkg-config)))
3009     (inputs
3010      `(("alsa-lib" ,alsa-lib)
3011        ("ao" ,ao)
3012        ("flac" ,flac)
3013        ("lame" ,lame)
3014        ("libid3tag" ,libid3tag)
3015        ("libltdl" ,libltdl)
3016        ("libmad" ,libmad)
3017        ("libpng" ,libpng)
3018        ("libvorbis" ,libvorbis)
3019        ("pulseaudio" ,pulseaudio)))
3020     (home-page "http://sox.sourceforge.net")
3021     (synopsis "Sound processing utility")
3022     (description
3023      "SoX (Sound eXchange) is a command line utility that can convert
3024 various formats of computer audio files to other formats.  It can also
3025 apply various effects to these sound files, and, as an added bonus, SoX
3026 can play and record audio files.")
3027     ;; sox.c is distributed under GPL, while the files that make up
3028     ;; libsox are licensed under LGPL.
3029     (license (list license:gpl2+ license:lgpl2.1+))))
3030
3031 (define-public soxr
3032   (package
3033     (name "soxr")
3034     (version "0.1.3")
3035     (source
3036      (origin
3037        (method url-fetch)
3038        (uri
3039         (string-append "mirror://sourceforge/soxr/soxr-" version
3040                        "-Source.tar.xz"))
3041        (sha256
3042         (base32 "12aql6svkplxq5fjycar18863hcq84c5kx8g6f4rj0lcvigw24di"))))
3043     (build-system cmake-build-system)
3044     (arguments '(#:tests? #f))          ;no 'check' target
3045     (home-page "https://sourceforge.net/p/soxr/wiki/Home/")
3046     (synopsis "One-dimensional sample-rate conversion library")
3047     (description
3048      "The SoX Resampler library (libsoxr) performs one-dimensional sample-rate
3049 conversion.  It may be used, for example, to resample PCM-encoded audio.")
3050     (license license:lgpl2.1+)))
3051
3052 (define-public twolame
3053   (package
3054     (name "twolame")
3055     (version "0.4.0")
3056     (source
3057      (origin
3058        (method url-fetch)
3059        (uri (string-append "mirror://sourceforge/twolame/twolame/" version
3060                            "/twolame-" version ".tar.gz"))
3061        (sha256
3062         (base32 "0zf8sxqb02w07ah55b1y7ab643zmpbhn62spa9pqra0rc17l4dfc"))))
3063     (build-system gnu-build-system)
3064     (inputs
3065      `(("libsndfile" ,libsndfile)))
3066     (native-inputs
3067      `(("perl" ,perl)
3068        ("which" ,which)))               ;used in tests/test.pl
3069     (home-page "http://www.twolame.org/")
3070     (synopsis "MPEG Audio Layer 2 (MP2) encoder")
3071     (description
3072      "TwoLAME is an optimised MPEG Audio Layer 2 (MP2) encoder based on
3073 tooLAME by Mike Cheng, which in turn is based upon the ISO dist10 code and
3074 portions of LAME.")
3075     (license license:lgpl2.1+)))
3076
3077 (define-public portaudio
3078   (package
3079     (name "portaudio")
3080     (version "190600.20161030")
3081     (source
3082      (origin
3083        (method url-fetch)
3084        (uri (string-append
3085              "http://www.portaudio.com/archives/pa_stable_v"
3086              (string-map (lambda (c) (if (char=? c #\.) #\_ c)) version)
3087              ".tgz"))
3088        (sha256
3089         (base32 "04qmin6nj144b8qb9kkd9a52xfvm0qdgm8bg8jbl7s3frmyiv8pm"))
3090        (patches (search-patches "portaudio-audacity-compat.patch"))))
3091     (build-system gnu-build-system)
3092     (inputs
3093      ;; TODO: Add ASIHPI.
3094      `(("alsa-lib" ,alsa-lib)
3095        ("jack" ,jack-1)))
3096     ;; Autoreconf is necessary because the audacity-compat patch modifies .in
3097     ;; files.
3098     (native-inputs
3099      `(("autoconf" ,autoconf)
3100        ("automake" ,automake)
3101        ("libtool" ,libtool)
3102        ("pkg-config" ,pkg-config)))
3103     (arguments
3104      '(#:tests? #f                      ;no 'check' target
3105        #:parallel-build? #f             ;fails on some systems
3106        #:configure-flags '("--with-pic"
3107                            "--enable-cxx"
3108                            ;; XXX: The following prevents a build error
3109                            ;; because of missing depcomp when C++ bindings are
3110                            ;; requested.
3111                            "--disable-dependency-tracking")
3112        #:phases
3113        (modify-phases %standard-phases
3114          ;; This is needed for linking the static libraries
3115          (add-after 'unpack 'build-only-position-independent-code
3116            (lambda _
3117              (substitute* "configure.in"
3118                (("AC_PROG_LIBTOOL" m)
3119                 (string-append m "\nAM_PROG_AR\nLT_INIT([pic-only])")))
3120              (delete-file "configure")
3121              #t))
3122          ;; Some headers are not installed by default, but are needed by
3123          ;; packages like Kaldi.
3124          (add-after 'install 'install-missing-headers
3125            (lambda* (#:key outputs #:allow-other-keys)
3126              (install-file "src/common/pa_ringbuffer.h"
3127                            (string-append (assoc-ref outputs "out") "/include"))
3128              #t)))))
3129     (home-page "http://www.portaudio.com/")
3130     (synopsis "Audio I/O library")
3131     (description
3132      "PortAudio is a portable C/C++ audio I/O library providing a simple API
3133 to record and/or play sound using a callback function or a blocking read/write
3134 interface.")
3135     (license license:expat)))
3136
3137 (define-public qsynth
3138   (package
3139     (name "qsynth")
3140     (version "0.5.7")
3141     (source
3142      (origin
3143        (method url-fetch)
3144        (uri (string-append "mirror://sourceforge/qsynth/qsynth/" version
3145                            "/qsynth-" version ".tar.gz"))
3146        (sha256
3147         (base32 "18im4w8agj60nkppwbkxqnhpp13z5li3w30kklv4lgs20rvgbvl6"))))
3148     (build-system gnu-build-system)
3149     (arguments
3150      `(#:tests? #f))                    ; no "check" phase
3151     (native-inputs
3152      `(("qttools" ,qttools)
3153        ("pkg-config" ,pkg-config)))
3154     (inputs
3155      `(("fluidsynth" ,fluidsynth)
3156        ("qtbase" ,qtbase)
3157        ("qtx11extras" ,qtx11extras)))
3158     (home-page "https://qsynth.sourceforge.io")
3159     (synopsis "Graphical user interface for FluidSynth")
3160     (description
3161      "Qsynth is a GUI front-end application for the FluidSynth SoundFont
3162 synthesizer written in C++.")
3163     (license license:gpl2+)))
3164
3165 (define-public rsound
3166   (package
3167     (name "rsound")
3168     (version "1.1")
3169     (source
3170      (origin
3171        (method git-fetch)
3172        (uri (git-reference
3173              (url "https://github.com/Themaister/RSound")
3174              (commit (string-append "v" version))))
3175        (file-name (git-file-name name version))
3176        (sha256
3177         (base32 "0gspmr3klwnq98h17p5hc6ifygya4p80g4g8r7a1qavm3mv19waf"))))
3178     (build-system gnu-build-system)
3179     (inputs
3180      `(("alsa-lib" ,alsa-lib)
3181        ("jack" ,jack-1)
3182        ("ao" ,ao)
3183        ("libsamplerate" ,libsamplerate)
3184        ("openal" ,openal)
3185        ("portaudio" ,portaudio)
3186        ("pulseaudio" ,pulseaudio)))
3187     (arguments
3188      '(#:phases
3189        (modify-phases %standard-phases
3190          (replace 'configure
3191            (lambda* (#:key outputs #:allow-other-keys)
3192              (setenv "CC" "gcc")
3193              (invoke "./configure"
3194                      (string-append "--prefix=" (assoc-ref outputs "out"))))))
3195        ;; No 'check' target.
3196        #:tests? #f))
3197     (home-page "https://themaister.net/rsound.html")
3198     (synopsis "Networked audio system")
3199     (description
3200      "RSound allows you to send audio from an application and transfer it
3201 directly to a different computer on your LAN network.  It is an audio daemon
3202 with a much different focus than most other audio daemons.")
3203     (license license:gpl3+)))
3204
3205 (define-public xjackfreak
3206   (package
3207     (name "xjackfreak")
3208     (version "1.0")
3209     (source (origin
3210               (method git-fetch)
3211               (uri (git-reference
3212                     (url "https://github.com/johnhldavis/xjackfreak")
3213                     (commit (string-append "v" version))))
3214               (file-name (git-file-name name version))
3215               (sha256
3216                (base32
3217                 "18c546qidbrj0f5wfiq5llii2192xpln0ab3r4vpr7i3wybxqjfz"))))
3218     (build-system gnu-build-system)
3219     (arguments
3220      `(#:make-flags
3221        (list (string-append "docdir=" (assoc-ref %outputs "out")
3222                             "/share/doc/xjackfreak"))))
3223     (inputs
3224      `(("jack" ,jack-1)
3225        ("libx11" ,libx11)
3226        ("libxt" ,libxt)
3227        ("libxext" ,libxext)))
3228     (native-inputs
3229      `(("pkg-config" ,pkg-config)))
3230     (home-page "https://github.com/johnhldavis/xjackfreak")
3231     (synopsis "JACK audio frequency analyzer and display")
3232     (description
3233      "XJackFreak is an audio analysis and equalizing tool for the Jack Audio
3234 Connection Kit.  It can display the FFT of any input, modify it and output the
3235 result.")
3236     (license license:gpl3+)))
3237
3238 (define-public zita-convolver
3239   (package
3240     (name "zita-convolver")
3241     (version "4.0.3")
3242     (source (origin
3243               (method url-fetch)
3244               (uri (string-append
3245                     "http://kokkinizita.linuxaudio.org"
3246                     "/linuxaudio/downloads/zita-convolver-"
3247                     version ".tar.bz2"))
3248               (snippet
3249                ;; Don't optimize for a specific processor architecture.
3250                '(begin
3251                   (substitute* "source/Makefile"
3252                     (("^CXXFLAGS \\+= -march=native") ""))
3253                   #t))
3254               (modules '((guix build utils)))
3255               (sha256
3256                (base32
3257                 "0prji66p86z2bzminywkwchr5bfgxcg2i8y803pydd1hzf2198cs"))))
3258     (build-system gnu-build-system)
3259     (arguments
3260      `(#:tests? #f ; no "check" target
3261        #:make-flags
3262        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
3263              (string-append "SUFFIX="))
3264        #:phases
3265        (modify-phases %standard-phases
3266          (add-after 'unpack 'patch-makefile-and-enter-directory
3267            (lambda _
3268              (substitute* "source/Makefile"
3269                (("ldconfig") "true")
3270                (("^LIBDIR =.*") "LIBDIR = lib\n"))
3271              (chdir "source")
3272              #t))
3273          (add-after 'install 'install-symlink
3274            (lambda _
3275              (symlink "libzita-convolver.so"
3276                       (string-append (assoc-ref %outputs "out")
3277                                      "/lib/libzita-convolver.so.4"))
3278              #t))
3279          ;; no configure script
3280          (delete 'configure))))
3281     (inputs `(("fftwf" ,fftwf)))
3282     (home-page "https://kokkinizita.linuxaudio.org")
3283     (synopsis "Fast, partitioned convolution engine library")
3284     (description
3285      "Zita convolver is a C++ library providing a real-time convolution
3286 engine.")
3287     (license license:gpl3+)))
3288
3289 (define-public zita-resampler
3290   (package
3291     (name "zita-resampler")
3292     (version "1.6.2")
3293     (source (origin
3294               (method url-fetch)
3295               (uri (string-append
3296                     "http://kokkinizita.linuxaudio.org"
3297                     "/linuxaudio/downloads/zita-resampler-"
3298                     version ".tar.bz2"))
3299               (snippet
3300                ;; Don't optimize for a specific processor architecture.
3301                '(begin
3302                   (substitute* '("apps/Makefile" "source/Makefile")
3303                     (("^CXXFLAGS \\+= -march=native") ""))
3304                   #t))
3305               (modules '((guix build utils)))
3306               (sha256
3307                (base32
3308                 "1my5k2dh2dkvjp6xjnf9qy6i7s28z13kw1n9pwa4a2cpwbzawfr3"))))
3309     (build-system gnu-build-system)
3310     (arguments
3311      `(#:tests? #f ; no "check" target
3312        #:make-flags
3313        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
3314              (string-append "SUFFIX="))
3315        #:phases
3316        (modify-phases %standard-phases
3317          (add-after
3318           'unpack 'patch-makefile-and-enter-directory
3319           (lambda _
3320             (substitute* "source/Makefile"
3321               (("ldconfig") "true")
3322               (("^LIBDIR =.*") "LIBDIR = lib\n"))
3323             (chdir "source")
3324             #t))
3325          (add-after
3326           'install 'install-symlink
3327           (lambda _
3328             (symlink "libzita-resampler.so"
3329                      (string-append (assoc-ref %outputs "out")
3330                                     "/lib/libzita-resampler.so.1"))
3331             #t))
3332          ;; no configure script
3333          (delete 'configure))))
3334     (home-page "https://kokkinizita.linuxaudio.org/linuxaudio/zita-resampler/resampler.html")
3335     (synopsis "C++ library for resampling audio signals")
3336     (description
3337      "Libzita-resampler is a C++ library for resampling audio signals.  It is
3338 designed to be used within a real-time processing context, to be fast, and to
3339 provide high-quality sample rate conversion.")
3340     (license license:gpl3+)))
3341
3342 (define-public zita-alsa-pcmi
3343   (package
3344     (name "zita-alsa-pcmi")
3345     (version "0.3.2")
3346     (source (origin
3347               (method url-fetch)
3348               (uri (string-append
3349                     "http://kokkinizita.linuxaudio.org"
3350                     "/linuxaudio/downloads/zita-alsa-pcmi-"
3351                     version ".tar.bz2"))
3352               (sha256
3353                (base32
3354                 "12d7vdg74yh21w69qi0wg57iz4876j94qbiq09bvscih6xz9y78s"))))
3355     (build-system gnu-build-system)
3356     (arguments
3357      `(#:tests? #f ; no "check" target
3358        #:make-flags
3359        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
3360              (string-append "SUFFIX="))
3361        #:phases
3362        (modify-phases %standard-phases
3363          (add-after 'unpack 'patch-makefile-and-enter-directory
3364            (lambda _
3365              (substitute* "source/Makefile"
3366                (("ldconfig") "true")
3367                (("^LIBDIR =.*") "LIBDIR = lib\n"))
3368              (chdir "source")
3369              #t))
3370          (add-after 'install 'install-symlink
3371            (lambda _
3372              (symlink "libzita-alsa-pcmi.so"
3373                       (string-append (assoc-ref %outputs "out")
3374                                      "/lib/libzita-alsa-pcmi.so.0"))
3375              #t))
3376           ;; no configure script
3377           (delete 'configure))))
3378     (inputs
3379      `(("alsa-lib" ,alsa-lib)
3380        ("fftw" ,fftw)))
3381     (home-page "https://kokkinizita.linuxaudio.org")
3382     (synopsis "C++ wrapper around the ALSA API")
3383     (description
3384      "Zita-alsa-pcmi is a C++ wrapper around the ALSA API.  It provides easy
3385 access to ALSA PCM devices, taking care of the many functions required to
3386 open, initialise and use a hw: device in mmap mode, and providing floating
3387 point audio data.")
3388     (license license:gpl3+)))
3389
3390 (define-public cuetools
3391   (package
3392     (name "cuetools")
3393     (version "1.4.1")
3394     (source (origin
3395              (method git-fetch)
3396              (uri (git-reference
3397                    (url "https://github.com/svend/cuetools")
3398                    (commit version)))
3399              (file-name (git-file-name name version))
3400              (sha256
3401               (base32
3402                "02ksv1ahf1v4cr2xbclsfv5x17m9ivzbssb5r8xjm97yh8a7spa3"))))
3403     (build-system gnu-build-system)
3404     ;; The source checkout is not bootstrapped.
3405     (native-inputs
3406      `(("autoconf" ,autoconf)
3407        ("automake" ,automake)
3408        ("flex" ,flex)
3409        ("bison" ,bison)))
3410     (synopsis "Cue and toc file parsers and utilities")
3411     (description "Cuetools is a set of programs that are useful for manipulating
3412 and using CUE sheet (cue) files and Table of Contents (toc) files.  CUE and TOC
3413 files are a way to represent the layout of a data or audio CD in a
3414 machine-readable ASCII format.")
3415     (home-page "https://github.com/svend/cuetools")
3416     (license license:gpl2+)))
3417
3418 (define-public shntool
3419   (package
3420     (name "shntool")
3421     (version "3.0.10")
3422     (source (origin
3423              (method url-fetch)
3424              (uri (string-append "http://etree.org/shnutils/shntool/dist/src/"
3425                                  "shntool-" version ".tar.gz"))
3426              (sha256
3427               (base32
3428                "00i1rbjaaws3drkhiczaign3lnbhr161b7rbnjr8z83w8yn2wc3l"))))
3429     (build-system gnu-build-system)
3430     (synopsis "WAVE audio data processing tool")
3431     (description "shntool is a multi-purpose WAVE data processing and reporting
3432 utility.  File formats are abstracted from its core, so it can process any file
3433 that contains WAVE data, compressed or not---provided there exists a format
3434 module to handle that particular file type.  It can also generate CUE files, and
3435 use them split WAVE data into multiple files.")
3436     (home-page "http://etree.org/shnutils/shntool/")
3437     ;; 'install-sh' bears the x11 license
3438     (license (list license:gpl2+ license:x11))))
3439
3440 (define-public dcadec
3441   (package
3442     (name "dcadec")
3443     (version "0.2.0")
3444     (source (origin
3445               (method git-fetch)
3446               (uri (git-reference
3447                     (url "https://github.com/foo86/dcadec")
3448                     (commit (string-append "v" version))))
3449               (file-name (git-file-name name version))
3450               (sha256
3451                (base32
3452                 "07nd0ajizrp1w02bsyfcv18431r8m8rq8gjfmz9wmckpg7cxj2hs"))))
3453     (build-system gnu-build-system)
3454     (arguments
3455      ;; Test files are missing: https://github.com/foo86/dcadec/issues/53
3456      '(#:tests? #f
3457        #:make-flags
3458        (list "CC=gcc"
3459              ;; Build shared library.
3460              "CONFIG_SHARED=1"
3461              (string-append "PREFIX=" (assoc-ref %outputs "out"))
3462              ;; Set proper runpath.
3463              (string-append "LDFLAGS=-Wl,-rpath="
3464                             (assoc-ref %outputs "out")
3465                             "/lib"))
3466        #:phases
3467        (modify-phases %standard-phases
3468          ;; No configure script, just a hand-written Makefile.
3469          (delete 'configure))))
3470     (synopsis "DTS Coherent Acoustics decoder")
3471     (description "Dcadec is a DTS Coherent Acoustics surround sound decoder
3472 with support for HD extensions.")
3473     (home-page "https://github.com/foo86/dcadec")
3474     (license license:lgpl2.1+)))
3475
3476 (define-public bs1770gain
3477   (package
3478     (name "bs1770gain")
3479     (version "0.7.0")
3480     (home-page "https://manpages.debian.org/sid/bs1770gain/bs1770gain.1.en.html")
3481     (source
3482      (origin
3483        (method url-fetch)
3484        (uri (string-append "mirror://sourceforge/bs1770gain/bs1770gain/"
3485                            version "/bs1770gain-" version ".tar.gz"))
3486        (sha256
3487         (base32 "0a2dcaxvxy5m3a5sb1lhplsymvz3ypaiidc5xn9qy01h53zvyvkp"))
3488        (modules '((guix build utils)))
3489        (snippet
3490         `(begin
3491            ;; XXX
3492            (substitute* (find-files "." "\\.[ch]$")
3493              (("^ \\* N..o.*") ""))
3494            (substitute* "libbg/bgx.c"
3495              (("#define BG.* ") "#define BS ")
3496              (("BG.*NO?.*N.*S.*E.*N.*SE?") "NO")
3497              (("\"( #|N).*\"") "\"\""))
3498            (substitute* (list "config.h"
3499                               "configure.ac"
3500                               "configure")
3501              (("https?://bs1770gain[^/]*/")
3502               ,home-page))
3503            #t))))
3504     (build-system gnu-build-system)
3505     (inputs `(("ffmpeg" ,ffmpeg)
3506               ("sox" ,sox)))
3507     (synopsis "Tool to adjust loudness of media files")
3508     (description
3509      "BS1770GAIN is a loudness scanner compliant with ITU-R BS.1770 and its
3510 flavors EBU R128, ATSC A/85, and ReplayGain 2.0.  It helps normalizing the
3511 loudness of audio and video files to the same level.")
3512     (license license:gpl2+)))
3513
3514 (define-public filteraudio
3515   (let ((revision "1")
3516         (commit "2fc669581e2a0ff87fba8de85861b49133306094"))
3517     (package
3518       (name "filteraudio")
3519       (version (string-append "0.0.0-" revision "."
3520                               (string-take commit 7)))
3521       (source
3522        (origin
3523          (method git-fetch)
3524          (uri (git-reference
3525                (url "https://github.com/irungentoo/filter_audio")
3526                (commit commit)))
3527          (file-name (string-append name "-" version "-checkout"))
3528          (sha256
3529           (base32
3530            "0hbb290n3wb23f2k692a6bhc23nnqmxqi9sc9j15pnya8wifw64g"))))
3531       (build-system gnu-build-system)
3532       (arguments
3533        '(#:make-flags (list (string-append "PREFIX=" %output)
3534                             "CC=gcc")
3535          #:tests? #f ; No tests
3536          #:phases
3537          (modify-phases %standard-phases
3538            ;; No configure script
3539            (delete 'configure))))
3540       (synopsis "Lightweight audio filtering library")
3541       (description "An easy to use audio filtering library made from webrtc
3542 code, used in @code{libtoxcore}.")
3543       (home-page "https://github.com/irungentoo/filter_audio")
3544       (license license:bsd-3))))
3545
3546 (define-public gsm
3547   (package
3548     (name "gsm")
3549     (version "1.0.19")
3550     (source
3551      (origin
3552        (method url-fetch)
3553        (uri
3554         (string-append "http://www.quut.com/" name "/" name
3555                        "-" version ".tar.gz"))
3556        (sha256
3557         (base32
3558          "1xkha9ss5g5qnfaybi8il0mcvp8knwg9plgh8404vh58d0pna0s9"))))
3559     (build-system gnu-build-system)
3560     (arguments
3561      `(#:test-target "tst"
3562        #:make-flags (list (string-append "INSTALL_ROOT=" %output))
3563        #:phases
3564        (modify-phases %standard-phases
3565          (add-after 'unpack 'add-fpic-ccflag
3566            (lambda _
3567              ;; The -fPIC compiler option is needed when building
3568              ;; mediastreamer.
3569              (substitute* "Makefile"
3570                (("^CCFLAGS.*" all)
3571                 (string-append all "CCFLAGS += -fPIC\n")))
3572              #t))
3573          (add-before 'install 'pre-install
3574            (lambda _
3575              (let ((out (assoc-ref %outputs "out")))
3576                (mkdir-p (string-append out "/inc"))
3577                (mkdir-p (string-append out "/man"))
3578                (mkdir-p (string-append out "/man/man1"))
3579                (mkdir-p (string-append out "/man/man3"))
3580                (mkdir-p (string-append out "/bin"))
3581                (mkdir-p (string-append out "/lib")))
3582              #t))
3583          (add-after 'install 'post-install
3584            (lambda _
3585              (let ((out (assoc-ref %outputs "out")))
3586                (rename-file (string-append out "/inc")
3587                             (string-append out "/include"))
3588                (mkdir-p (string-append out "/include/gsm"))
3589                (copy-recursively "inc"
3590                                  (string-append out "/include/gsm")))
3591              #t))
3592          (delete 'configure))))         ; no configure script
3593     (synopsis "GSM 06.10 lossy speech compression library")
3594     (description "This C library provides an encoder and a decoder for the GSM
3595 06.10 RPE-LTP lossy speech compression algorithm.")
3596     (home-page "http://quut.com/gsm/")
3597     (license (license:non-copyleft "file://COPYRIGHT"))))
3598
3599 (define-public python-pyalsaaudio
3600   (package
3601     (name "python-pyalsaaudio")
3602     (version "0.8.4")
3603     (source (origin
3604               (method url-fetch)
3605               (uri (pypi-uri "pyalsaaudio" version))
3606               (sha256
3607                (base32
3608                 "1180ypn9596rq4b7y7dyv627j1q0fqilmkkrckclnzsdakdgis44"))))
3609     (build-system python-build-system)
3610     (arguments
3611      `(#:tests? #f))                   ; tests require access to ALSA devices.
3612     (inputs
3613      `(("alsa-lib" ,alsa-lib)))
3614     (home-page "https://larsimmisch.github.io/pyalsaaudio/")
3615     (synopsis "ALSA wrappers for Python")
3616     (description
3617      "This package contains wrappers for accessing the ALSA API from Python.
3618 It is currently fairly complete for PCM devices, and has some support for
3619 mixers.")
3620     (license license:psfl)))
3621
3622 (define-public python2-pyalsaaudio
3623   (package-with-python2 python-pyalsaaudio))
3624
3625 (define-public bluez-alsa
3626   (package
3627     (name "bluez-alsa")
3628     (version "2.0.0")
3629     (source (origin
3630               ;; The tarballs are mere snapshots and don't contain a
3631               ;; bootstrapped build system.
3632               (method git-fetch)
3633               (uri (git-reference
3634                     (url "https://github.com/Arkq/bluez-alsa")
3635                     (commit (string-append "v" version))))
3636               (file-name (git-file-name name version))
3637               (sha256
3638                (base32
3639                 "08mppgnjf1j2733bk9yf0cny6rfxxwiys0s62lz2zd2lpdl6d9lz"))))
3640     (build-system gnu-build-system)
3641     (arguments
3642      `(#:configure-flags
3643        (list (string-append "--with-alsaplugindir="
3644                             (assoc-ref %outputs "out")
3645                             "/lib/alsa-lib")
3646              (string-append "--with-dbusconfdir="
3647                             (assoc-ref %outputs "out")
3648                             "/etc/dbus-1/system.d"))))
3649     (native-inputs
3650      `(("autoconf" ,autoconf)
3651        ("automake" ,automake)
3652        ("libtool" ,libtool)
3653        ("pkg-config" ,pkg-config)))
3654     (inputs
3655      `(("alsa-lib" ,alsa-lib)
3656        ("bluez" ,bluez)
3657        ("dbus" ,dbus)
3658        ("glib" ,glib)
3659        ("libbsd" ,libbsd)
3660        ("ncurses" ,ncurses)
3661        ("ortp" ,ortp)
3662        ("sbc" ,sbc)))
3663     (home-page "https://github.com/Arkq/bluez-alsa")
3664     (synopsis "Bluetooth ALSA backend")
3665     (description "This project is a rebirth of a direct integration between
3666 Bluez and ALSA.  Since Bluez >= 5, the build-in integration has been removed
3667 in favor of 3rd party audio applications.  From now on, Bluez acts as a
3668 middleware between an audio application, which implements Bluetooth audio
3669 profile, and a Bluetooth audio device.  BlueALSA registers all known Bluetooth
3670 audio profiles in Bluez, so in theory every Bluetooth device (with audio
3671 capabilities) can be connected.  In order to access the audio stream, one has
3672 to connect to the ALSA PCM device called @code{bluealsa}.  The device is based
3673 on the ALSA software PCM plugin.")
3674     (license license:expat)))
3675
3676 (define-public snd
3677   (package
3678     (name "snd")
3679     (version "20.5")
3680     (source (origin
3681               (method url-fetch)
3682               (uri (string-append "ftp://ccrma-ftp.stanford.edu/pub/Lisp/"
3683                                   "snd-" version ".tar.gz"))
3684               (sha256
3685                (base32
3686                 "1frg64q2d8cia6v7jia7kahzx0apwdl0z252mzlbwqdz5960nv90"))))
3687     (build-system glib-or-gtk-build-system)
3688     (arguments
3689      `(#:tests? #f                      ; no tests
3690        #:out-of-source? #f              ; for the 'install-doc' phase
3691        #:configure-flags
3692        (let* ((out (assoc-ref %outputs "out"))
3693               (docdir (string-append out "/share/doc/"
3694                                      ,name "-" ,version)))
3695          (list "--with-alsa" "--with-jack" "--with-gmp"
3696                (string-append "--with-doc-dir=" docdir)))
3697        #:phases
3698        (modify-phases %standard-phases
3699          (add-after 'install 'install-doc
3700            (lambda* (#:key outputs #:allow-other-keys)
3701              (let* ((out (assoc-ref outputs "out"))
3702                     (doc (string-append out "/share/doc/"
3703                                         ,name "-" ,version)))
3704                (for-each
3705                 (lambda (f)
3706                   (install-file f doc))
3707                 (find-files "." "\\.html$"))
3708                (copy-recursively "pix" (string-append doc "/pix"))
3709                #t))))))
3710     (native-inputs
3711      `(("pkg-config" ,pkg-config)))
3712     (inputs
3713      `(("alsa-lib" ,alsa-lib)
3714        ("fftw" ,fftw)
3715        ("flac" ,flac)
3716        ("gmp" ,gmp)
3717        ("gsl" ,gsl)
3718        ("gtk+" ,gtk+)
3719        ("jack" ,jack-1)
3720        ("libsamplerate" ,libsamplerate)
3721        ("mpc" ,mpc)
3722        ("mpfr" ,mpfr)
3723        ("mpg123" ,mpg123)
3724        ("speex" ,speex)
3725        ("timidity++" ,timidity++)
3726        ("vorbis-tools" ,vorbis-tools)
3727        ("wavpack" ,wavpack)))
3728     (synopsis "Sound editor")
3729     (home-page "https://ccrma.stanford.edu/software/snd/")
3730     (description
3731      "Snd is a sound editor modelled loosely after Emacs.  It can be
3732 customized and extended using either the s7 Scheme implementation (included in
3733 the Snd sources), Ruby, or Forth.")
3734     (license (license:non-copyleft "file://COPYING"))))
3735
3736 (define-public noise-repellent
3737   (package
3738     (name "noise-repellent")
3739     (version "0.1.5")
3740     (source (origin
3741               (method git-fetch)
3742               (uri (git-reference
3743                     (url "https://github.com/lucianodato/noise-repellent")
3744                     (commit version)))
3745               (file-name (string-append name "-" version "-checkout"))
3746               (sha256
3747                (base32
3748                 "0hb89x9i2knzan46q4nwscf5zmnb2nwf4w13xl2c0y1mx1ls1mwl"))))
3749     (build-system meson-build-system)
3750     (arguments
3751      `(#:configure-flags
3752        (list (string-append "--prefix=" (assoc-ref %outputs "out")
3753                             "/lib/lv2"))))
3754     (inputs
3755      `(("lv2" ,lv2)
3756        ("fftwf" ,fftwf)))
3757     (native-inputs
3758      `(("pkg-config" ,pkg-config)))
3759     (home-page "https://github.com/lucianodato/noise-repellent")
3760     (synopsis "LV2 plugin for broadband noise reduction")
3761     (description "Noise Repellent is an LV2 plugin to reduce noise.  It has
3762 the following features:
3763
3764 @enumerate
3765 @item Spectral gating and spectral subtraction suppression rule
3766 @item Adaptive and manual noise thresholds estimation
3767 @item Adjustable noise floor
3768 @item Adjustable offset of thresholds to perform over-subtraction
3769 @item Time smoothing and a masking estimation to reduce artifacts
3770 @item Basic onset detector to avoid transients suppression
3771 @item Whitening of the noise floor to mask artifacts and to recover higher
3772   frequencies
3773 @item Option to listen to the residual signal
3774 @item Soft bypass
3775 @item Noise profile saved with the session
3776 @end enumerate
3777 ")
3778     (license license:lgpl3+)))
3779
3780 (define-public cli-visualizer
3781   (package
3782     (name "cli-visualizer")
3783     (version "1.8")
3784     (source
3785      (origin
3786        (method git-fetch)
3787        (uri (git-reference
3788              (url "https://github.com/dpayne/cli-visualizer")
3789              (commit (string-append "v" version))))
3790        (file-name (git-file-name name version))
3791        (sha256
3792         (base32 "003mbbwsz43mg3d7llphpypqa9g7rs1p1cdbqi1mbc2bfrc1gcq2"))))
3793     (build-system cmake-build-system)
3794     (native-inputs
3795      ;; TODO: Try using the latest googletest for versions > 1.8.
3796      `( ;; ("googletest" ,googletest-1.8)
3797        ("which" ,which)))
3798     (inputs
3799      `(("fftw" ,fftw)
3800        ("ncurses" ,ncurses)
3801        ("pulseaudio" ,pulseaudio)))
3802     (arguments
3803      '(#:tests? #f
3804        ;; XXX Enable tests after patching them to use the system googletest.
3805        ;; #:configure-flags (list "-DVIS_WITH_TESTS=true")
3806        #:phases
3807        (modify-phases %standard-phases
3808          (add-after 'install 'install-examples
3809            (lambda* (#:key outputs #:allow-other-keys)
3810              (with-directory-excursion "../source/examples"
3811                (delete-file "mac_osx_config")
3812                (for-each (lambda (file)
3813                            (install-file file
3814                                          (string-append
3815                                           (assoc-ref outputs "out")
3816                                           "/share/doc")))
3817                          (find-files ".")))
3818              #t)))))
3819     (home-page "https://github.com/dpayne/cli-visualizer/")
3820     (synopsis "Command-line audio visualizer")
3821     (description "@code{cli-visualizer} displays fast-Fourier
3822 transforms (FFTs) of the sound being played, as well as other graphical
3823 representations.")
3824     (license license:expat)))
3825
3826 (define-public cava
3827   (package
3828     (name "cava")
3829     (version "0.6.1")
3830     (source (origin
3831               (method git-fetch)
3832               (uri (git-reference
3833                     (url "https://github.com/karlstav/cava")
3834                     (commit version)))
3835               (file-name (git-file-name name version))
3836               (sha256
3837                (base32
3838                 "1kvhqgijs29909w3sq9m0bslx2zxxn4b3i07kdz4hb0dqkppxpjy"))))
3839     (build-system gnu-build-system)
3840     (native-inputs
3841      `(("autoconf" ,autoconf)
3842        ("automake" ,automake)
3843        ("libtool" ,libtool)))
3844     (inputs
3845      `(("fftw" ,fftw)
3846        ("ncurses" ,ncurses)
3847        ("pulseaudio" ,pulseaudio)))
3848     (arguments
3849      `(#:configure-flags
3850        (list (string-append "PREFIX=" %output)
3851              (string-append "FONT_DIR=" %output "/share/consolefonts"))
3852        #:make-flags
3853        (let ((lib (string-append %output "/lib")))
3854          (list (string-append "cava_LDFLAGS = -L" lib " -Wl,-rpath " lib)))
3855        #:phases
3856        (modify-phases %standard-phases
3857          (replace 'bootstrap
3858            (lambda* (#:key outputs #:allow-other-keys)
3859              (setenv "HOME" (getcwd))
3860              (invoke "sh" "autogen.sh")))
3861          (add-before 'build 'make-cava-ldflags
3862            (lambda* (#:key outputs #:allow-other-keys)
3863              (mkdir-p (string-append (assoc-ref outputs "out") "/lib"))
3864              #t))
3865          (add-after 'install 'data
3866            (lambda* (#:key outputs #:allow-other-keys)
3867              (for-each (lambda (file)
3868                          (install-file file
3869                                        (string-append (assoc-ref outputs "out")
3870                                                       "/share/doc/examples")))
3871                        (find-files "example_files"))
3872              #t)))))
3873     (home-page "https://karlstav.github.io/cava/")
3874     (synopsis "Console audio visualizer for ALSA, MPD, and PulseAudio")
3875     (description "C.A.V.A. is a bar audio spectrum visualizer for the terminal
3876 using ALSA, MPD, PulseAudio, or a FIFO buffer as its input.")
3877     (license license:expat)))
3878
3879 (define-public fluid-3
3880   (let ((commit "871c8ce2002e8b3c198f532fdb4fbcce7914f951"))
3881     (package
3882       (name "fluid-3")
3883       (version "2.1")
3884       (source
3885        (origin
3886          (method url-fetch)
3887          ;; Only one file is required, but the release bundles the whole
3888          ;; software which is 50MiB as tar and 200MiB unpacked. The website
3889          ;; directly links the soundfont release to the github file download.
3890          (uri (string-append "https://github.com/musescore/MuseScore/raw/"
3891                              commit "/share/sound/FluidR3Mono_GM.sf3"))
3892          (file-name (string-append name "-" version ".sf3"))
3893          (sha256
3894           (base32
3895            "1hjfg5i15bw9279007xs92zsggjgn4s4k9pc00s851l3kvc6dkfg"))))
3896       (build-system trivial-build-system)
3897       (arguments
3898        `(#:modules ((guix build utils))
3899          #:builder
3900          (begin
3901            (use-modules (guix build utils))
3902            (let ((file (assoc-ref %build-inputs "source"))
3903                  (out (string-append %output "/share/soundfonts")))
3904              (mkdir-p out)
3905              (copy-file file (string-append out "/FluidR3Mono_GM.sf3"))
3906              #t))))
3907       (home-page  "https://github.com/musescore/MuseScore/tree/master/share/sound")
3908       (synopsis "Pro-quality GM soundfont")
3909       (description "Fluid-3 is Frank Wen's pro-quality GM soundfont.")
3910       (license license:expat))))
3911
3912 (define-public libfdk
3913   (package
3914     (name "libfdk")
3915     (version "2.0.1")
3916     (source
3917       (origin
3918         (method git-fetch)
3919         (uri (git-reference
3920                (url "https://github.com/mstorsjo/fdk-aac")
3921                (commit (string-append "v" version))))
3922         (file-name (git-file-name name version))
3923         (sha256
3924          (base32
3925           "1fkrnzs78fmj11n9z3l0w53i2fl16jcfiyavwidck9bzmkmsf486"))))
3926     (build-system gnu-build-system)
3927     (native-inputs
3928      `(("autoconf" ,autoconf)
3929        ("automake" ,automake)
3930        ("libtool" ,libtool)))
3931     (home-page "https://github.com/mstorsjo/fdk-aac")
3932     (synopsis "Fraunhofer FDK AAC library")
3933     (description "FDK is a library for encoding and decoding Advanced Audio
3934 Coding (AAC) format audio, developed by Fraunhofer IIS, and included as part of
3935 Android.  It supports several Audio Object Types including MPEG-2 and MPEG-4 AAC
3936 LC, HE-AAC (AAC LC + SBR), HE-AACv2 (LC + SBR + PS) as well AAC-LD (low delay)
3937 and AAC-ELD (enhanced low delay) for real-time communication.  The encoding
3938 library supports sample rates up to 96 kHz and up to eight channels (7.1
3939                                                                      surround).")
3940     (license (license:fsf-free "https://github.com/mstorsjo/fdk-aac/blob/master/NOTICE"
3941                                "https://www.gnu.org/licenses/license-list.html#fdk"))))
3942
3943 (define-public libopenshot-audio
3944   (package
3945     (name "libopenshot-audio")
3946     (version "0.2.0")
3947     (source (origin
3948               (method git-fetch)
3949               (uri (git-reference
3950                     (url "https://github.com/OpenShot/libopenshot-audio")
3951                     (commit (string-append "v" version))))
3952               (file-name (git-file-name name version))
3953               (sha256
3954                (base32
3955                 "13if0m5mvlqly8gmbhschzb9papkgp3yqivklhb949dhy16m8zgf"))))
3956     (build-system cmake-build-system)
3957     (inputs
3958      `(("alsa-lib" ,alsa-lib)
3959        ;; The following are for JUCE GUI components:
3960        ("libx11" ,libx11)
3961        ("freetype" ,freetype)
3962        ("libxrandr" ,libxrandr)
3963        ("libxinerama" ,libxinerama)
3964        ("libxcursor" ,libxcursor)))
3965     (arguments
3966      `(#:tests? #f                      ;there are no tests
3967        #:configure-flags
3968        (list (string-append "-DCMAKE_CXX_FLAGS=-I"
3969                             (assoc-ref %build-inputs "freetype")
3970                             "/include/freetype2"))))
3971     (home-page "https://openshot.org")
3972     (synopsis "Audio editing and playback for OpenShot")
3973     (description "OpenShot Audio Library (libopenshot-audio) allows
3974 high-quality editing and playback of audio, and is based on the JUCE
3975 library.")
3976     (license license:lgpl3+)))
3977
3978 (define-public faudio
3979   (package
3980     (name "faudio")
3981     (version "19.11")
3982     (source
3983      (origin
3984        (method git-fetch)
3985        (uri (git-reference
3986              (url "https://github.com/FNA-XNA/FAudio")
3987              (commit version)))
3988        (file-name (git-file-name name version))
3989        (sha256
3990         (base32 "0ckpr6ffz8ssfh1y850dhip5s5jv0j6n90qz5yx1v9d6gpwf08rp"))))
3991     (arguments
3992      '(#:tests? #f                      ; No tests.
3993        #:configure-flags '("-DFFMPEG=ON")))
3994     (build-system cmake-build-system)
3995     (native-inputs `(("pkg-config" ,pkg-config)))
3996     (inputs `(("ffmpeg" ,ffmpeg)
3997               ("sdl2" ,sdl2)))
3998     (home-page "https://github.com/FNA-XNA/FAudio")
3999     (synopsis "XAudio reimplementation")
4000     (description "FAudio is an XAudio reimplementation that focuses solely on
4001 developing fully accurate DirectX Audio runtime libraries.")
4002     (license license:zlib)))
4003
4004 (define-public gnaural
4005   (package
4006     (name "gnaural")
4007     (version "20110606")
4008     (source
4009      (origin
4010        (method url-fetch)
4011        (uri (string-append "mirror://sourceforge/gnaural/Gnaural/gnaural_"
4012                            version ".tar.xz"))
4013        (sha256
4014         (base32
4015          "1gq519c0imsh57zklyi0f8h64l3ai48lh672c834470z8c6kvbfi"))))
4016     (build-system gnu-build-system)
4017     (inputs
4018      `(("alsa-lib" ,alsa-lib)
4019        ("gtk+" ,gtk+-2)
4020        ("libsndfile" ,libsndfile)
4021        ("portaudio" ,portaudio)))
4022     (native-inputs
4023      `(("pkg-config" ,pkg-config)))
4024     (home-page "http://gnaural.sourceforge.net/")
4025     (synopsis "Binaural beat synthesizer")
4026     (description "Gnaural is a programmable auditory binaural beat synthesizer
4027 intended to be used for brainwave entrainment.  Gnaural supports creation of
4028 binaural beat tracks of different frequencies and exporting of tracks into
4029 different audio formats.  Gnaural can also be linked over the internet with
4030 other Gnaural instances, allowing synchronous sessions between many users.")
4031     (license license:gpl2+)))
4032
4033 (define-public darkice
4034   (package
4035     (name "darkice")
4036     (version "1.4")
4037     (source (origin
4038               (method url-fetch)
4039               (uri (string-append "https://github.com/rafael2k/darkice/releases/"
4040                                   "download/v" version "/darkice-"
4041                                   version ".tar.gz"))
4042               (sha256
4043                (base32
4044                 "05yq7lggxygrkd76yiqby3msrgdn082p0qlvmzzv9xbw8hmyra76"))))
4045     (build-system gnu-build-system)
4046     (native-inputs `(("pkg-config" ,pkg-config)))
4047     (inputs `(("lame" ,lame)
4048               ("libvorbis" ,libvorbis)
4049               ("opus" ,opus)
4050               ("twolame" ,twolame)
4051               ("alsa-lib" ,alsa-lib)
4052               ("pulseaudio" ,pulseaudio)
4053               ("jack" ,jack-1)
4054               ("libsamplerate" ,libsamplerate)))
4055     (arguments
4056      `(#:configure-flags
4057        (list (string-append "--with-lame-prefix="
4058                             (assoc-ref %build-inputs "lame")))))
4059     (home-page "http://www.darkice.org/")
4060     (synopsis "Live audio streamer")
4061     (description "DarkIce is a live audio streamer.  It takes audio input from
4062 a sound card, encodes it into Ogg Vorbis and/or mp3, and sends the audio
4063 stream to one or more IceCast and/or ShoutCast servers.")
4064     (license license:gpl3+)))
4065
4066 (define-public libltc
4067   (package
4068     (name "libltc")
4069     (version "1.3.1")
4070     (source
4071      (origin
4072        (method url-fetch)
4073        (uri
4074         (string-append "https://github.com/x42/libltc/releases/download/v"
4075                        version "/libltc-" version ".tar.gz"))
4076        (sha256
4077         (base32
4078          "173h9dgmain3nyrwk6q2d7yl4fnh4vacag4s2p01n5b7nyrkxrjh"))))
4079     (build-system gnu-build-system)
4080     (arguments
4081      `(#:parallel-tests? #f))           ;tests fail otherwise
4082     (native-inputs
4083      `(("doxygen" ,doxygen)
4084        ("pkg-config" ,pkg-config)))
4085     (synopsis "Encode or decode Linear/Longitudinal Time Code (LTC) audio")
4086     (description "Libltc is a POSIX-C Library for handling
4087 @dfn{Linear/Longitudinal Time Code} (LTC) data.")
4088     (home-page "https://x42.github.io/libltc/")
4089     (license license:lgpl3+)))
4090
4091 (define-public ttaenc
4092   (package
4093     (name "ttaenc")
4094     (version "3.4.1")
4095     (source
4096      (origin
4097        (method url-fetch)
4098        (uri (string-append "mirror://sourceforge/tta/"
4099                            "tta/ttaenc-src"
4100                            "/ttaenc-" version "-src.tgz"))
4101        (sha256
4102         (base32
4103          "1iixpr4b89g9g1hwn8ak8k8iflcww3r5f09a117qdidc2nqcijdj"))))
4104     (build-system gnu-build-system)
4105     (arguments
4106      `(#:tests? #f                      ;no tests
4107        #:make-flags
4108        (list (string-append "CC=" ,(cc-for-target))
4109              (string-append "INSDIR=" (assoc-ref %outputs "out") "/bin"))
4110        #:phases
4111        (modify-phases %standard-phases
4112          (delete 'configure)            ; no configure
4113          (add-before 'install 'make-bindir
4114            (lambda* (#:key outputs #:allow-other-keys)
4115              (let* ((out (assoc-ref outputs "out")))
4116                (mkdir-p (string-append out "/bin"))
4117                #t))))))
4118     (synopsis "TTA lossless audio encoder")
4119     (description
4120      "TTA performs lossless compression on multichannel 8,16 and 24 bits
4121 data of the Wav audio files.  Being lossless means that no data-
4122 quality is lost in the compression - when uncompressed, the data will
4123 be identical to the original.  The compression ratios of TTA depend on
4124 the type of music file being compressed, but the compression size
4125 will generally range between 30% - 70% of the original.  TTA format
4126 supports both of ID3v1/v2 and APEv2 tags.")
4127     (home-page "http://tausoft.org/")
4128     (license license:gpl2+)))
4129
4130 (define-public redkite
4131   (package
4132     (name "redkite")
4133     (version "0.8.1")
4134     (source
4135      (origin
4136        (method git-fetch)
4137        (uri (git-reference
4138              (url "https://gitlab.com/geontime/redkite.git")
4139              (commit (string-append "v" version))))
4140        (file-name (git-file-name name version))
4141        (sha256
4142         (base32 "17kv2jc4jvn3sdicz3sf8dnf25wbvv7ijzkr0mm0sbrrjz6vrwz0"))))
4143     (build-system cmake-build-system)
4144     (arguments
4145      `(#:tests? #f))                    ;no tests included
4146     (inputs
4147      `(("cairo" ,cairo)))
4148     (native-inputs
4149      `(("pkg-config", pkg-config)))
4150     (synopsis "Small GUI toolkit")
4151     (description "Redkite is a small GUI toolkit developed in C++17 and
4152 inspired from other well known GUI toolkits such as Qt and GTK.  It is
4153 minimal on purpose and is intended to be statically linked to applications,
4154 therefore satisfying any requirements they may have to be self contained,
4155 as is the case with audio plugins.")
4156     (home-page "https://gitlab.com/geontime/redkite")
4157     (license license:gpl3+)))
4158
4159 (define-public carla
4160   (package
4161     (name "carla")
4162     (version "2.1.1")
4163     (source
4164      (origin
4165        (method git-fetch)
4166        (uri
4167         (git-reference
4168          (url "https://github.com/falkTX/Carla")
4169          (commit (string-append "v" version))))
4170        (file-name (git-file-name name version))
4171        (sha256
4172         (base32
4173          "0c3y4a6cgi4bv1mg57i3qn5ia6pqjqlaylvkapj6bmpsw71ig22g"))))
4174     (build-system gnu-build-system)
4175     (arguments
4176      `(#:tests? #f                      ; no "check" target
4177        #:make-flags
4178        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
4179        #:phases
4180        (modify-phases %standard-phases
4181          (delete 'configure)            ; no configure script
4182          (add-before 'build 'set-CC-variable-and-show-features
4183            (lambda _
4184              (setenv "CC" "gcc")
4185              (invoke "make" "features")))
4186          (add-after 'install 'make-carla-executable
4187            (lambda* (#:key outputs #:allow-other-keys)
4188              (let ((out (assoc-ref outputs "out")))
4189                (chmod (string-append out "/share/carla/carla") #o555)
4190                #t)))
4191          (add-after 'install 'wrap-executables
4192            (lambda* (#:key outputs #:allow-other-keys)
4193              (let ((out (assoc-ref outputs "out")))
4194                (wrap-script (string-append out "/bin/carla")
4195                             `("PYTHONPATH" ":" prefix (,(getenv "PYTHONPATH"))))
4196                #t))))))
4197     (inputs
4198      `(("alsa-lib" ,alsa-lib)
4199        ("ffmpeg" ,ffmpeg)
4200        ("fluidsynth" ,fluidsynth)
4201        ("file" ,file)
4202        ("liblo" ,liblo)
4203        ("libsndfile" ,libsndfile)
4204        ("gtk2" ,gtk+-2)   ;needed for bridging GTK2 plugins in GTK3 hosts
4205        ("gtk+" ,gtk+)
4206        ("python-pyliblo" ,python-pyliblo)
4207        ("python-pyqt" ,python-pyqt)
4208        ("python-rdflib" ,python-rdflib)
4209        ;; python-pyqt shows the following error without python-wrapper:
4210        ;; Error while finding module specification for 'PyQt5.uic.pyuic'
4211        ;; (ModuleNotFoundError: No module named 'PyQt5')
4212        ("python-wrapper" ,python-wrapper)
4213        ("libx11" ,libx11)
4214        ("qtbase" ,qtbase)
4215        ("zlib" ,zlib)
4216
4217        ;; For WRAP-SCRIPT above.
4218        ("guile" ,guile-2.2)))
4219     (native-inputs
4220      `(("pkg-config" ,pkg-config)))
4221     (home-page "https://kx.studio/Applications:Carla")
4222     (synopsis "Audio plugin host")
4223     (description "Carla is a modular audio plugin host, with features like
4224 transport control, automation of parameters via MIDI CC and remote control
4225 over OSC.  Carla currently supports LADSPA (including LRDF), DSSI, LV2, VST2,
4226 and VST3 plugin formats, plus SF2 and SFZ file support.  It uses JACK as the
4227 default and preferred audio driver but also supports native drivers like ALSA.")
4228     (license license:gpl2+)))
4229
4230 (define-public ecasound
4231   (package
4232     (name "ecasound")
4233     (version "2.9.3")
4234     (source (origin
4235               (method url-fetch)
4236               (uri (string-append "https://nosignal.fi/download/ecasound-"
4237                                   version ".tar.gz"))
4238               (sha256
4239                (base32 "1m7njfjdb7sqf0lhgc4swihgdr4snkg8v02wcly08wb5ar2fr2s6"))))
4240     (build-system gnu-build-system)
4241     (native-inputs `(("pkg-config" ,pkg-config)))
4242     ;; It would be nice to add mikmod to inputs if that gets packaged
4243     ;; eventually.
4244     (inputs `(("alsa-lib" ,alsa-lib)
4245               ("jack" ,jack-1)
4246               ("mpg123" ,mpg123)
4247               ("lame" ,lame)
4248               ("vorbis-tools" ,vorbis-tools)
4249               ("faad2" ,faad2)
4250               ("flac" ,flac)
4251               ("timidity++" ,timidity++)
4252               ("libsndfile" ,libsndfile)
4253               ("libsamplerate" ,libsamplerate)
4254               ("ncurses" ,ncurses)
4255               ("ladspa" ,ladspa)
4256               ("lilv" ,lilv)))
4257     (home-page "https://nosignal.fi/ecasound/index.php")
4258     (synopsis "Multitrack audio processing")
4259     (description "Ecasound is a software package designed for multitrack audio
4260 processing. It can be used for simple tasks like audio playback, recording and
4261 format conversions, as well as for multitrack effect processing, mixing,
4262 recording and signal recycling. Ecasound supports a wide range of audio inputs,
4263 outputs and effect algorithms. Effects and audio objects can be combined in
4264 various ways, and their parameters can be controlled by operator objects like
4265 oscillators and MIDI-CCs. A versatile console mode user-interface is included
4266 in the package.")
4267     ;; As an exception to the above, the C, C++ and python implementations
4268     ;; of the Ecasound Control Interface (ECI) are licensed under the LGPL
4269     ;; (see the file 'COPYING.LGPL'). This allows writing ECI applications
4270     ;; that are not licensed under GPL.
4271     (license (list license:gpl2 license:lgpl2.1))))
4272
4273 (define-public libaudec
4274   (package
4275     (name "libaudec")
4276     (version "0.2.2")
4277     (source
4278       (origin
4279         (method git-fetch)
4280         (uri (git-reference
4281                (url "https://git.zrythm.org/git/libaudec")
4282                (commit (string-append "v" version))))
4283         (file-name (git-file-name name version))
4284         (sha256
4285           (base32
4286             "04mpmfmqc43asw0m3zxhb6jj4qms7x4jw7mx4xb1d3lh16xllniz"))))
4287    (build-system meson-build-system)
4288    (arguments
4289     `(#:configure-flags `("-Denable_tests=true -Denable_ffmpeg=true")))
4290    (inputs
4291     `(("libsamplerate" ,libsamplerate)
4292       ("libsndfile" ,libsndfile)
4293       ("ffmpeg" ,ffmpeg)))
4294    (native-inputs
4295      `(("pkg-config", pkg-config)))
4296    (synopsis "Library for reading and resampling audio files")
4297    (description "libaudec is a wrapper library over ffmpeg, sndfile and
4298 libsamplerate for reading and resampling audio files, based on Robin Gareus'
4299 @code{audio_decoder} code.")
4300    (home-page "https://git.zrythm.org/cgit/libaudec")
4301    (license license:agpl3+)))
4302
4303 (define-public lv2lint
4304   (package
4305     (name "lv2lint")
4306     (version "0.4.0")
4307     (source
4308       (origin
4309         (method git-fetch)
4310         (uri (git-reference
4311                (url "https://git.open-music-kontrollers.ch/lv2/lv2lint")
4312                (commit version)))
4313         (file-name (git-file-name name version))
4314         (sha256
4315           (base32
4316             "1pspwqpzl2dw1hd9ra9yr53arqbbqjn7d7j0f7p9g3iqa76vblpi"))))
4317     (build-system meson-build-system)
4318     (arguments
4319      `(#:configure-flags
4320        `("-Delf-tests=true" ; for checking symbol visibility
4321          "-Donline-tests=true"))) ; for checking URI existence
4322     (inputs
4323       `(("curl", curl)
4324         ("libelf", libelf)
4325         ("lilv", lilv)))
4326     (native-inputs
4327       `(("pkg-config", pkg-config)))
4328     (synopsis "LV2 plugin lint tool")
4329     (description "lv2lint is an LV2 lint-like tool that checks whether a
4330 given plugin and its UI(s) match up with the provided metadata and adhere
4331 to well-known best practices.")
4332     (home-page "https://open-music-kontrollers.ch/lv2/lv2lint/")
4333     (license license:artistic2.0)))
4334
4335 (define-public lv2toweb
4336   (package
4337     (name "lv2toweb")
4338     (version "0.4")
4339     (source
4340       (origin
4341         (method git-fetch)
4342         (uri (git-reference
4343                (url "https://github.com/x42/lv2toweb")
4344                (commit (string-append "v" version))))
4345         (file-name (git-file-name name version))
4346         (sha256
4347           (base32
4348             "007aysqvgkf25za8nkmyd5g9kp1zla460dcpidlj5xg1zc3fcdfi"))))
4349     (build-system gnu-build-system)
4350     (arguments
4351     `(#:tests? #f  ; no "check" target
4352       #:make-flags (list "CC=gcc"
4353                          (string-append "PREFIX=" (assoc-ref %outputs "out")))
4354       #:phases
4355       (modify-phases %standard-phases
4356         (delete 'configure))))
4357     (inputs
4358       `(("jalv", jalv)
4359         ("lilv", lilv)))
4360     (native-inputs
4361       `(("help2man", help2man)
4362         ("pkg-config", pkg-config)))
4363     (synopsis "Documentation generator for LV2 plugins")
4364     (description
4365       "lv2toweb allows the user to create an xhtml page with information
4366 about the given LV2 plugin, provided that the plugin and its UI(s) match up
4367 with the provided metadata and adhere to well-known best practices.")
4368     (home-page "https://github.com/x42/lv2toweb")
4369     (license (list license:isc license:gpl2))))
4370
4371 (define-public ztoolkit
4372   (package
4373     (name "ztoolkit")
4374     (version "0.1.1")
4375     (source
4376      (origin
4377        (method git-fetch)
4378        (uri (git-reference
4379              (url "https://git.zrythm.org/git/ztoolkit")
4380              (commit (string-append "v" version))))
4381        (file-name (git-file-name name version))
4382        (sha256
4383         (base32
4384          "07xl3cmdaf7k9mm58m93cn8i1jvgimmiifdw1w7v2jl88nx60pm1"))))
4385     (build-system meson-build-system)
4386     (inputs
4387      `(("cairo" ,cairo)
4388        ("libx11" ,libx11)))
4389     (native-inputs
4390      `(("pkg-config" ,pkg-config)))
4391     (synopsis "GUI toolkit for LV2 plugins")
4392     (description "ZToolkit (Ztk) is a cross-platform GUI toolkit heavily
4393 inspired by GTK.  It handles events and low level drawing on behalf of
4394 the user and provides a high-level API for managing the UI and custom
4395 widgets.  ZToolkit is written in C and was created to be used for building
4396 audio plugin UIs, where the dependencies often need to be kept to a
4397 minimum.")
4398     (home-page "https://git.zrythm.org/cgit/ztoolkit/")
4399     (license license:agpl3+)))
4400
4401 (define-public ztoolkit-rsvg
4402   (package
4403     (inherit ztoolkit)
4404     (name "ztoolkit-rsvg")
4405     (arguments
4406      `(#:configure-flags `("-Denable_rsvg=true")))
4407     (inputs
4408      `(("librsvg" ,librsvg)
4409        ,@(package-inputs ztoolkit)))
4410     (synopsis "ZToolkit with SVG support")))
4411
4412 (define-public codec2
4413   (package
4414     (name "codec2")
4415     (version "0.9.2")
4416     (source
4417      (origin
4418        (method git-fetch)
4419        (uri (git-reference
4420              (url "https://github.com/drowe67/codec2")
4421              (commit (string-append "v" version))))
4422        (file-name (git-file-name name version))
4423        (sha256
4424         (base32 "1jpvr7bra8srz8jvnlbmhf8andbaavq5v01qjnp2f61za93rzwba"))))
4425     (build-system cmake-build-system)
4426     (native-inputs
4427      `(("bc" ,bc)
4428        ("octave" ,octave)
4429        ("valgrind" ,valgrind)))
4430     (arguments
4431      `(#:tests? #f ; TODO: Fix tests (paths, graphic toolkit, octave modules).
4432        #:phases
4433        (modify-phases %standard-phases
4434          (add-before 'check 'set-test-environment
4435            (lambda _
4436              (setenv "HOME" "/tmp")
4437              #t)))))
4438     (synopsis "Speech codec")
4439     (description
4440      "Codec 2 is a speech codec designed for communications quality speech
4441 between 700 and 3200 bit/s.  The main application is low bandwidth HF/VHF
4442 digital radio.")
4443     (home-page "https://www.rowetel.com/?page_id=452")
4444     (license license:lgpl2.1)))
4445
4446 (define-public ableton-link
4447   (package
4448     (name "ableton-link")
4449     (version "3.0.2")
4450     (source (origin
4451               (method git-fetch)
4452               (uri (git-reference
4453                     (url "https://github.com/Ableton/link")
4454                     (commit (string-append "Link-" version))))
4455               (file-name (git-file-name name version))
4456               (sha256
4457                (base32
4458                 "0262vm0v7hmqjhqx5xikh529p3c065p1yld6ymaiz74yq1dnnjir"))
4459               (modules '((guix build utils)))
4460               (patches
4461                (search-patches "ableton-link-system-libraries-debian.patch"))
4462               (snippet
4463                '(begin
4464                   ;; Tests assume that CMake's "build" directory is a
4465                   ;; sub-directory of the source tree, so we fix it.
4466                   (substitute* "ci/run-tests.py"
4467                     (("root_dir,") "root_dir, os.pardir,"))
4468                   ;; Unbundle dependencies.
4469                   (delete-file-recursively "third_party")
4470                   (delete-file-recursively "modules")
4471                   #t))))
4472     (build-system cmake-build-system)
4473     (native-inputs
4474      `(("catch" ,catch-framework)
4475        ("python" ,python)       ;for running tests
4476        ("portaudio" ,portaudio) ;for portaudio examples
4477        ("qtbase" ,qtbase)       ;for Qt examples
4478        ("qtdeclarative" ,qtdeclarative)
4479        ("qttools" ,qttools)))
4480     (inputs
4481      `(("jack" ,jack-1)                       ;for JACK examples
4482        ("qtquickcontrols" ,qtquickcontrols))) ;for Qt examples
4483     (propagated-inputs
4484      ;; This is because include/ableton/platforms/asio/AsioWrapper.hpp
4485      ;; contains '#include <asio.hpp>'.
4486      `(("asio" ,asio)))
4487     (arguments
4488      `(#:configure-flags
4489        '("-DLINK_BUILD_QT_EXAMPLES=ON"
4490          "-DLINK_BUILD_JACK=ON")
4491        #:phases
4492        (modify-phases %standard-phases
4493          (replace 'check
4494            (lambda* (#:key inputs #:allow-other-keys)
4495              (let* ((python (string-append (assoc-ref inputs "python")
4496                                           "/bin/python3"))
4497                    (run-tests (string-append "../ableton-link-"
4498                                              ,version
4499                                              "-checkout/ci/run-tests.py")))
4500                (invoke python run-tests "--target" "LinkCoreTest")
4501                (invoke python run-tests "--target" "LinkDiscoveryTest"))))
4502          (add-before 'install 'patch-cmake
4503            (lambda* (#:key inputs #:allow-other-keys)
4504              (let* ((source (string-append "../ableton-link-"
4505                                                 ,version
4506                                                 "-checkout/")))
4507                (substitute* (string-append source
4508                                            "cmake_include/AsioStandaloneConfig.cmake")
4509                  (((string-append "\\$\\{CMAKE_CURRENT_LIST_DIR\\}/\\.\\./"
4510                                   "modules/asio-standalone/asio/include"))
4511                   (string-append (assoc-ref inputs "asio")
4512                                  "/include")))
4513                (substitute* (string-append source "AbletonLinkConfig.cmake")
4514                  (("\\$\\{CMAKE_CURRENT_LIST_DIR\\}/include")
4515                   "${CMAKE_CURRENT_LIST_DIR}/../../../include")
4516                  (("\\$\\{CMAKE_CURRENT_LIST_DIR\\}/include/ableton/Link\\.hpp")
4517                   "${CMAKE_CURRENT_LIST_DIR}/../../../include/ableton/Link.hpp"))
4518                #t)))
4519          (replace 'install
4520            (lambda* (#:key outputs #:allow-other-keys)
4521              (let* ((out (assoc-ref outputs "out"))
4522                     (bin (string-append out "/bin"))
4523                     (lib-cmake (string-append out "/lib/cmake/ableton-link"))
4524                     (source (string-append "../ableton-link-" ,version "-checkout")))
4525                (for-each (lambda (test-file)
4526                            (delete-file test-file))
4527                          '("bin/LinkDiscoveryTest" "bin/LinkCoreTest"))
4528                (copy-recursively "bin" bin)
4529                (copy-recursively (string-append source "/include/ableton")
4530                                  (string-append out "/include/ableton"))
4531                (install-file (string-append source "/AbletonLinkConfig.cmake")
4532                              lib-cmake)
4533                (install-file (string-append source
4534                                             "/cmake_include/AsioStandaloneConfig.cmake")
4535                              (string-append lib-cmake "/cmake_include"))
4536                #t))))))
4537     (home-page "https://github.com/Ableton/link")
4538     (synopsis "Synchronize musical beat, tempo, and phase across multiple applications")
4539     (description
4540      "Ableton Link is a C++ library that synchronizes musical beat, tempo, and phase
4541 across multiple applications running on one or more devices.  Applications on devices
4542 connected to a local network discover each other automatically and form a musical
4543 session in which each participant can perform independently: anyone can start or stop
4544 while still staying in time.")
4545     (license license:gpl2+)))