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