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