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