HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
lint: source: Validate URLs of Git references.
[jackhill/guix/guix.git] / gnu / packages / music.scm
CommitLineData
1b6826d3 1;;; GNU Guix --- Functional package management for GNU
0163b900 2;;; Copyright © 2014, 2019 Eric Bavier <bavier@member.fsf.org>
0d4b4059 3;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
e8069d01 4;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
aa0edd3f 5;;; Copyright © 2016 Al McElrath <hello@yrns.org>
255bb7be 6;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
e42ba3da 7;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
72385c34 8;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
6d3ef286 9;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net>
23319ed6 10;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
3c986a7d 11;;; Copyright © 2017 nikita <nikita@n0.is>
a42619e5 12;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org>
3212b964 13;;; Copyright © 2017, 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
55af6456 14;;; Copyright © 2017, 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
bc27eb3b 15;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
8cc1fdce 16;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
6b445c57 17;;; Copyright © 2018 nee <nee.git@hidamari.blue>
b0dea60c 18;;; Copyright © 2018 Stefan Reichör <stefan@xsteve.at>
4715f92e 19;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
4b577961 20;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org>
e029d90f 21;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
1331a6c0 22;;; Copyright © 2019 Gabriel Hondet <gabrielhondet@gmail.com>
455e6a31 23;;; Copyright © 2019 Timotej Lazar <timotej.lazar@araneo.si>
e8134442 24;;; Copyright © 2019 Jakob L. Kreuze <zerodaysfordays@sdf.org>
7fcc2f93 25;;; Copyright © 2019 raingloom <raingloom@protonmail.com>
1c463524 26;;; Copyright © 2019 David Wilson <david@daviwil.com>
93f4511e 27;;; Copyright © 2019, 2020 Alexandros Theodotou <alex@zrythm.org>
8b39565c 28;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
6ddb8238 29;;; Copyright © 2020 Lars-Dominik Braun <lars@6xq.net>
3ff2d270 30;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
1b6826d3
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 music)
48 #:use-module (guix utils)
49 #:use-module (guix packages)
50 #:use-module (guix download)
8e80244a 51 #:use-module (guix git-download)
1b6826d3
RW		 52 #:use-module ((guix licenses) #:prefix license:)
53 #:use-module (guix build-system gnu)
f467c352 54 #:use-module (guix build-system ant)
8b9ec354 55 #:use-module (guix build-system cmake)
2394afa4 56 #:use-module (guix build-system meson)
b0c2c5ab 57 #:use-module (guix build-system perl)
821664f1 58 #:use-module (guix build-system python)
bc27eb3b 59 #:use-module (guix build-system scons)
58301682 60 #:use-module (guix build-system glib-or-gtk)
8e80244a 61 #:use-module (guix build-system waf)
87d1b7b0 62 #:use-module (guix build-system trivial)
5703380b 63 #:use-module (guix build-system go)
1b6826d3 64 #:use-module (gnu packages)
7f559045 65 #:use-module (gnu packages admin)
ddfddb0c 66 #:use-module (gnu packages algebra)
91595624 67 #:use-module (gnu packages apr)
c267cc15 68 #:use-module (gnu packages audio)
2d0fd07b 69 #:use-module (gnu packages autotools)
b7367762 70 #:use-module (gnu packages backup)
8b9ec354 71 #:use-module (gnu packages base) ;libbdf
7bac8196 72 #:use-module (gnu packages bash)
1b6826d3 73 #:use-module (gnu packages bison)
b7367762 74 #:use-module (gnu packages boost)
e8069d01 75 #:use-module (gnu packages cdrom)
8b9ec354
RW		 76 #:use-module (gnu packages code)
77 #:use-module (gnu packages check)
a7a7186c 78 #:use-module (gnu packages cmake)
8b9ec354 79 #:use-module (gnu packages compression)
d20b7384 80 #:use-module (gnu packages crypto)
aa0edd3f 81 #:use-module (gnu packages curl)
13416a10 82 #:use-module (gnu packages cyrus-sasl)
d20b7384 83 #:use-module (gnu packages datastructures)
1b6826d3 84 #:use-module (gnu packages docbook)
99828fa7 85 #:use-module (gnu packages documentation)
91595624 86 #:use-module (gnu packages emacs)
13416a10 87 #:use-module (gnu packages file)
1b6826d3 88 #:use-module (gnu packages flex)
8e80244a 89 #:use-module (gnu packages fltk)
1b6826d3
RW		 90 #:use-module (gnu packages fonts)
91 #:use-module (gnu packages fontutils)
3bf429af 92 #:use-module (gnu packages freedesktop)
72385c34 93 #:use-module (gnu packages game-development)
6260d1a8 94 #:use-module (gnu packages gcc)
aa0edd3f 95 #:use-module (gnu packages gnupg)
1b6826d3
RW		 96 #:use-module (gnu packages gettext)
97 #:use-module (gnu packages ghostscript)
ec8da0e2 98 #:use-module (gnu packages gl)
8e80244a 99 #:use-module (gnu packages glib)
c267cc15 100 #:use-module (gnu packages gnome)
a9f847ad 101 #:use-module (gnu packages gpodder)
770305f4 102 #:use-module (gnu packages graphics)
4f0f46e4 103 #:use-module (gnu packages graphviz)
d20b7384 104 #:use-module (gnu packages gstreamer)
1b6826d3
RW		 105 #:use-module (gnu packages gtk)
106 #:use-module (gnu packages guile)
7f559045 107 #:use-module (gnu packages haskell)
c267cc15 108 #:use-module (gnu packages image)
1b6826d3 109 #:use-module (gnu packages imagemagick)
6260d1a8 110 #:use-module (gnu packages java)
91595624 111 #:use-module (gnu packages libffi)
d20b7384 112 #:use-module (gnu packages libusb)
7bac8196
LF		 113 #:use-module (gnu packages linux) ; for alsa-utils
114 #:use-module (gnu packages lirc)
91595624 115 #:use-module (gnu packages llvm)
c267cc15
RW		 116 #:use-module (gnu packages man)
117 #:use-module (gnu packages mp3)
3bf429af 118 #:use-module (gnu packages mpd)
e8069d01 119 #:use-module (gnu packages ncurses)
1b6826d3 120 #:use-module (gnu packages netpbm)
91595624 121 #:use-module (gnu packages pcre)
821664f1 122 #:use-module (gnu packages pdf)
1b6826d3 123 #:use-module (gnu packages perl)
b2961dda 124 #:use-module (gnu packages perl-web)
1b6826d3 125 #:use-module (gnu packages pkg-config)
d20b7384 126 #:use-module (gnu packages protobuf)
d231bb35 127 #:use-module (gnu packages pulseaudio) ;libsndfile
1b6826d3 128 #:use-module (gnu packages python)
1b2f753d 129 #:use-module (gnu packages python-web)
44d10b1f 130 #:use-module (gnu packages python-xyz)
8b9ec354 131 #:use-module (gnu packages qt)
d231bb35 132 #:use-module (gnu packages rdf)
c493679f 133 #:use-module (gnu packages readline)
1b6826d3 134 #:use-module (gnu packages rsync)
21d18113 135 #:use-module (gnu packages sdl)
cd0322a3 136 #:use-module (gnu packages sqlite)
2d0fd07b 137 #:use-module (gnu packages tcl)
1b6826d3 138 #:use-module (gnu packages texinfo)
8f9ac901 139 #:use-module (gnu packages tex)
4ee2cce3 140 #:use-module (gnu packages time)
13416a10 141 #:use-module (gnu packages tls)
1ea29aa0 142 #:use-module (gnu packages version-control)
e8069d01 143 #:use-module (gnu packages video)
ce1cd434 144 #:use-module (gnu packages vim) ;for 'xxd'
8b9ec354 145 #:use-module (gnu packages web)
c30a66de 146 #:use-module (gnu packages wxwidgets)
c267cc15 147 #:use-module (gnu packages xml)
ddfddb0c 148 #:use-module (gnu packages xorg)
c267cc15 149 #:use-module (gnu packages xiph)
5703380b
PN		 150 #:use-module (gnu packages golang)
151 #:use-module (gnu packages lua)
2d0fd07b 152 #:use-module ((srfi srfi-1) #:select (last)))
1b6826d3 153
c30a66de
RW		 154(define-public aria-maestosa
155 (package
156 (name "aria-maestosa")
0a151351 157 (version "1.4.13")
c30a66de
RW		 158 (source (origin
159 (method url-fetch)
160 (uri (string-append "mirror://sourceforge/ariamaestosa/ariamaestosa/"
161 version "/AriaSrc-" version ".tar.bz2"))
162 (sha256
163 (base32
0a151351 164 "1cs3z6frx2ch7rm5ammx9p0rxcjrbj1vq14hvcbimpaw39rdsn3d"))))
30812446 165 (build-system scons-build-system)
c30a66de
RW		 166 (arguments
167 `(#:tests? #f ;no tests
20e42d1e
DM		 168 #:scons-flags
169 (list (string-append "prefix=" (assoc-ref %outputs "out")))
30812446 170 #:scons ,scons-python2
c30a66de 171 #:phases
c30a66de
RW		 172 (modify-phases %standard-phases
173 (delete 'configure)
174 (add-after 'unpack 'scons-propagate-environment
175 (lambda _
176 ;; By design, SCons does not, by default, propagate
177 ;; environment variables to subprocesses. See:
178 ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
179 ;; Here, we modify the SConstruct file to arrange for
180 ;; environment variables to be propagated.
181 (substitute* "SConstruct"
182 (("env = Environment\\(\\)")
183 "env = Environment(ENV=os.environ)")
184 ;; Scons errors out when copying subdirectories from Resources,
185 ;; so we move them instead.
186 (("Copy") "Move")
187 ;; We move the "score" and "Documentation" directories at once,
188 ;; so we have to ignore files contained therein.
189 (("if \".svn\" in file" line)
190 (string-append line
191 " or \"score/\" in file"
192 " or \"Documentation/\" in file")))
193 #t))
30812446 194 (add-after 'install 'fix-directory-permissions
c30a66de
RW		 195 (lambda* (#:key outputs #:allow-other-keys)
196 (let ((out (assoc-ref outputs "out")))
30812446
DM		 197 (chmod (string-append out "/share/Aria/Documentation") #o555)
198 (chmod (string-append out "/share/Aria/score") #o555)
199 #t))))))
c30a66de
RW		 200 (inputs
201 `(("wxwidgets" ,wxwidgets)
202 ("glib" ,glib)
203 ("alsa-lib" ,alsa-lib)))
204 (native-inputs
30812446 205 `(("pkg-config" ,pkg-config)))
c30a66de
RW		 206 (home-page "http://ariamaestosa.sourceforge.net/")
207 (synopsis "MIDI sequencer and editor")
208 (description
209 "Aria Maestosa is a MIDI sequencer and editor. It lets you compose, edit
210and play MIDI files with a few clicks in a user-friendly interface offering
211score, keyboard, guitar, drum and controller views.")
212 (license license:gpl3+)))
213
d20b7384
PL		 214;; We don't use the latest release because it depends on Qt4. Instead we
215;; download the sources from the tip of the "qt5" branch.
216(define-public clementine
8a6d16b8
PL		 217 (let ((commit "4619a4c1ab3b17b13d4b2327ad477912917eaf36")
218 (revision "2"))
d20b7384
PL		 219 (package
220 (name "clementine")
8a6d16b8 221 (version (git-version "1.3.1" revision commit))
d20b7384
PL		 222 (source (origin
223 (method git-fetch)
224 (uri (git-reference
225 (url "https://github.com/clementine-player/Clementine.git")
226 (commit commit)))
8a6d16b8 227 (file-name (git-file-name name version))
d20b7384
PL		 228 (sha256
229 (base32
8a6d16b8 230 "1hximk3q0p8nw8is5w7215xgkb7k4flnfyr0pdz9svfwvcm05w1i"))
d20b7384
PL		 231 (modules '((guix build utils)))
232 (snippet
6cbee49d
MW		 233 '(begin
234 (for-each
d20b7384
PL		 235 (lambda (dir)
236 (delete-file-recursively
6cbee49d 237 (string-append "3rdparty/" dir)))
d20b7384 238 (list
6cbee49d
MW		 239 ;; TODO: The following dependencies are still bundled:
240 ;; - "qxt": Appears to be unmaintained upstream.
241 ;; - "qsqlite"
242 ;; - "qtsingleapplication"
243 ;; - "qocoa"
244 ;; - "qtiocompressor"
245 ;; - "gmock": The tests crash when using our googletest
246 ;; package instead of the bundled gmock.
247 "SPMediaKeyTap"
248 "fancytabwidget"
249 "google-breakpad"
250 "libmygpo-qt"
251 "libmygpo-qt5"
252 "libprojectm"
253 "qtwin"
254 "sha2" ;; Replaced by openssl.
255 "taglib"
256 "tinysvcmdns"))
257 #t))
af414f34 258 (patches (search-patches "clementine-use-openssl.patch"
7bcc3405
PL		 259 "clementine-remove-crypto++-dependency.patch"
260 "clementine-fix-sqlite.patch"))))
d20b7384
PL		 261 (build-system cmake-build-system)
262 (arguments
263 '(#:test-target "clementine_test"
264 #:configure-flags
af414f34
PL		 265 (list ;; Requires unpackaged "projectm"
266 "-DENABLE_VISUALISATIONS=OFF"
267 ;; Otherwise it may try to download a non-free library at run-time.
268 ;; TODO In an origin snippet, remove the code that performs the
269 ;; download.
270 "-DHAVE_SPOTIFY_DOWNLOADER=FALSE"
271 "-DUSE_SYSTEM_SHA2=TRUE")
d20b7384
PL		 272 #:phases
273 (modify-phases %standard-phases
274 (add-after 'install 'wrap-program
275 (lambda* (#:key inputs outputs #:allow-other-keys)
276 (let ((out (assoc-ref outputs "out"))
277 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
278 (wrap-program (string-append out "/bin/clementine")
279 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
280 #t))))))
281 (native-inputs
282 `(("gettext" ,gettext-minimal)
283 ("pkg-config" ,pkg-config)
284 ("qtlinguist" ,qttools)))
285 (inputs
286 `(("boost" ,boost)
287 ("chromaprint" ,chromaprint)
d20b7384
PL		 288 ("fftw" ,fftw)
289 ("glib" ,glib)
290 ("glu" ,glu)
291 ("gstreamer" ,gstreamer)
292 ("gst-plugins-base" ,gst-plugins-base)
8473f802
LF		 293 ("gst-plugins-good" ,gst-plugins-good)
294 ("gst-libav" ,gst-libav)
d20b7384
PL		 295 ("libcdio" ,libcdio)
296 ("libmygpo-qt" ,libmygpo-qt)
d20b7384
PL		 297 ;; TODO: Package libgpod.
298 ("libmtp" ,libmtp)
299 ("libxml2" ,libxml2)
300 ("openssl" ,openssl)
301 ("protobuf" ,protobuf)
302 ("pulseaudio" ,pulseaudio)
303 ("qtbase" ,qtbase)
304 ("qtx11extras" ,qtx11extras)
fad5b1a6 305 ("sqlite" ,sqlite)
d20b7384
PL		 306 ("sparsehash" ,sparsehash)
307 ("taglib" ,taglib)))
88491097 308 (home-page "https://clementine-player.org")
d20b7384
PL		 309 (synopsis "Music player and library organizer")
310 (description "Clementine is a multiplatform music player. It is inspired
311by Amarok 1.4, focusing on a fast and easy-to-use interface for searching and
312playing your music.")
313 (license (list
314 ;; clementine and qtiocompressor are under GPLv3.
315 license:gpl3+
316 ;; gmock is under BSD-3.
317 license:bsd-3
318 ;; qxt is under CPL1.0.
319 license:cpl1.0
320 ;; qsqlite and qtsingleapplication are under LGPL2.1+.
321 license:lgpl2.1+
322 ;; qocoa is under MIT and CC by-sa for the icons.
323 license:cc-by-sa3.0)))))
324
e8069d01
PW		 325(define-public cmus
326 (package
327 (name "cmus")
455e6a31 328 (version "2.8.0")
e8069d01 329 (source (origin
4e829468
RW		 330 (method git-fetch)
331 (uri (git-reference
332 (url "https://github.com/cmus/cmus.git")
333 (commit (string-append "v" version))))
334 (file-name (git-file-name name version))
e8069d01
PW		 335 (sha256
336 (base32
455e6a31 337 "1ydnvq13ay8b8mfmmgwi5qsgyf220yi1d01acbnxqn775dghmwar"))))
e8069d01
PW		 338 (build-system gnu-build-system)
339 (arguments
340 `(#:tests? #f ; cmus does not include tests
341 #:phases
342 (modify-phases %standard-phases
ec618c20
RW		 343 (replace 'configure
344 (lambda* (#:key outputs #:allow-other-keys)
345 (let ((out (assoc-ref outputs "out")))
346 ;; It's an idiosyncratic configure script that doesn't
347 ;; understand --prefix=..; it wants prefix=.. instead.
348 (invoke "./configure"
349 (string-append "prefix=" out))
350 #t))))))
e8069d01
PW		 351 ;; TODO: cmus optionally supports the following formats, which haven't yet
352 ;; been added to Guix:
353 ;;
354 ;; - Roar, libroar
355 ;;
356 ;; - DISCID_LIBS, apparently different from cd-discid which is included in
357 ;; Guix. See <http://sourceforge.net/projects/discid/>
358 (native-inputs
359 `(("pkg-config" ,pkg-config)))
360 (inputs
361 `(("alsa-lib" ,alsa-lib)
362 ("ao" ,ao)
9d34cc13 363 ("faad2" ,faad2)
e8069d01
PW		 364 ("ffmpeg" ,ffmpeg)
365 ("flac" ,flac)
366 ("jack" ,jack-1)
367 ("libcddb" ,libcddb)
368 ("libcdio-paranoia" ,libcdio-paranoia)
369 ("libcue" ,libcue)
370 ("libmad" ,libmad)
371 ("libmodplug" ,libmodplug)
372 ("libmpcdec" ,libmpcdec)
373 ("libsamplerate" ,libsamplerate)
374 ("libvorbis" ,libvorbis)
375 ("ncurses" ,ncurses)
376 ("opusfile" ,opusfile)
377 ("pulseaudio" ,pulseaudio)
378 ("wavpack" ,wavpack)))
379 (home-page "https://cmus.github.io/")
380 (synopsis "Small console music player")
381 (description "Cmus is a small and fast console music player. It supports
382many input formats and provides a customisable Vi-style user interface.")
383 (license license:gpl2+)))
384
edd1652e
KK		 385(define-public denemo
386 (package
387 (name "denemo")
c5e6a7fe 388 (version "2.4.0")
211cf6dc
NG		 389 (source
390 (origin
391 (method url-fetch)
392 (uri (string-append "mirror://gnu/denemo/"
393 "denemo-" version ".tar.gz"))
394 (sha256
c5e6a7fe 395 (base32 "145kq0zfgdadykl3i6na221i4s5wzdrcqq48amzyfarnrqk2rmpd"))))
edd1652e
KK		 396 (build-system gnu-build-system)
397 (arguments
398 `(#:phases
399 (modify-phases %standard-phases
400 (replace 'check
211cf6dc
NG		 401 (lambda* (#:key inputs #:allow-other-keys)
402 ;; Tests require to write $HOME.
403 (setenv "HOME" (getcwd))
404 ;; Replace hard-coded diff file name.
405 (substitute* "tests/integration.c"
406 (("/usr/bin/diff")
407 (string-append (assoc-ref inputs "diffutils") "/bin/diff")))
408 ;; Denemo's documentation says to use this command to run its
409 ;; test suite.
f6181921 410 (invoke "make" "-C" "tests" "check")))
b43ec33b
KK		 411 (add-before 'build 'set-lilypond
412 ;; This phase sets the default path for lilypond to its current
413 ;; location in the store.
414 (lambda* (#:key inputs #:allow-other-keys)
415 (let* ((lilypond (string-append (assoc-ref inputs "lilypond")
416 "/bin/lilypond")))
417 (substitute* "src/core/prefops.c"
418 (("g_string_new \\(\"lilypond\"\\);")
419 (string-append "g_string_new (\""
420 lilypond
421 "\");"))))
edd1652e
KK		 422 #t)))))
423 (native-inputs
211cf6dc 424 `(("diffutils" ,diffutils)
255bb7be
EF		 425 ("glib:bin" ,glib "bin") ; for gtester
426 ("gtk-doc" ,gtk-doc)
211cf6dc 427 ("intltool" ,intltool)
255bb7be 428 ("libtool" ,libtool)
edd1652e
KK		 429 ("pkg-config" ,pkg-config)))
430 (inputs
431 `(("alsa-lib" ,alsa-lib)
432 ("aubio" ,aubio)
433 ("evince" ,evince)
434 ("fftw" ,fftw)
435 ("fluidsynth" ,fluidsynth)
436 ("glib" ,glib)
437 ("gtk+" ,gtk+)
6bf79532 438 ("gtksourceview" ,gtksourceview-3)
edd1652e 439 ("guile" ,guile-2.0)
edd1652e
KK		 440 ("librsvg" ,librsvg)
441 ("libsndfile" ,libsndfile)
edd1652e 442 ("libxml2" ,libxml2)
c695fb76 443 ("lilypond" ,lilypond)
edd1652e
KK		 444 ("portaudio" ,portaudio)
445 ("portmidi" ,portmidi)
446 ("rubberband" ,rubberband)))
edd1652e
KK		 447 (synopsis "Graphical music notation, front-end to GNU Lilypond")
448 (description
449 "GNU Denemo is a music notation editor that provides a convenient
450interface to the powerful music engraving program Lilypond. Music can be
451typed in using the computer keyboard, played in using a MIDI keyboard, or
452even input via a microphone connected to the sound card. The final product
453is publication-quality music notation that is continuously generated in the
454background while you work.")
455 (home-page "http://www.denemo.org")
456 (license license:gpl3+)))
457
72385c34
KK		 458(define-public dumb
459 (package
460 (name "dumb")
461 (version "2.0.3")
462 (source
463 (origin
464 (method git-fetch)
465 (uri (git-reference
466 (url "https://github.com/kode54/dumb.git")
467 (commit version)))
468 (sha256
469 (base32 "1cnq6rb14d4yllr0yi32p9jmcig8avs3f43bvdjrx4r1mpawspi6"))
470 (file-name (git-file-name name version))))
471 (build-system cmake-build-system)
472 (arguments
473 '(#:tests? #f ; no check target
474 #:configure-flags
475 (list "-DBUILD_SHARED_LIBS=ON"
476 "-DBUILD_EXAMPLES=OFF")))
477 (home-page "https://github.com/kode54/dumb")
478 (synopsis "Module audio renderer library")
479 (description
480 "DUMB is a tracker library with support for IT, XM, S3M and MOD files. It
481targets maximum accuracy to the original formats, with low-pass resonant filters
482for the IT files, accurate timing and pitching, and three resampling quality
483settings (aliasing, linear interpolation and cubic interpolation).")
484 ;; The DUMB license is a bit peculiar.
485 ;; Clause 8 states that clauses 4, 5 and 6 are null and void, leaving only
486 ;; the first three clauses for genuine consideration.
487 ;; Clauses 1, 2 and 3 are analogous to clauses 1, 2 and 3 of the zlib
488 ;; license, a known free software license.
489 ;; Therefore, the DUMB license may be considered a free software license.
490 (license (license:fsf-free "file://LICENSE"))))
491
d61dcb1b
KK		 492(define-public dumb-allegro4
493 (package
494 (inherit dumb)
495 (name "dumb-allegro4")
496 (arguments
497 (substitute-keyword-arguments (package-arguments dumb)
498 ((#:configure-flags flags)
499 `(cons "-DBUILD_ALLEGRO4=ON" ,flags))))
500 (inputs
501 `(("allegro" ,allegro-4)))))
502
d231bb35
RW		 503(define-public hydrogen
504 (package
505 (name "hydrogen")
4330cca8 506 (version "1.0.0-rc1")
01895743
NG		 507 (source
508 (origin
509 (method git-fetch)
510 (uri (git-reference
511 (url "https://github.com/hydrogen-music/hydrogen.git")
512 (commit version)))
513 (file-name (git-file-name name version))
514 (sha256
4330cca8 515 (base32 "1ibbdzyk30nj83jrq7py78hwpjgy0lq7ji6gi2pdp1pqzz1mqp0v"))))
b7367762 516 (build-system cmake-build-system)
d231bb35 517 (arguments
80808d67
RW		 518 `(#:test-target "tests"
519 #:phases
520 (modify-phases %standard-phases
521 (add-after 'unpack 'fix-data-directory
522 (lambda* (#:key outputs #:allow-other-keys)
523 (substitute* "CMakeLists.txt"
524 (("/usr/share/pixmaps")
525 (string-append (assoc-ref outputs "out")
526 "/share/pixmaps")))
527 #t)))))
d231bb35 528 (native-inputs
b7367762 529 `(("cppunit" ,cppunit)
01895743
NG		 530 ("pkg-config" ,pkg-config)
531 ("qtlinguist" ,qttools)))
d231bb35 532 (inputs
b7367762 533 `(("alsa-lib" ,alsa-lib)
d231bb35 534 ("jack" ,jack-1)
01895743 535 ;; ("ladspa" ,ladspa) ; require LADSPA_PATH to be set
d231bb35 536 ("lash" ,lash)
b7367762 537 ("libarchive" ,libarchive)
01895743 538 ("liblo" ,liblo)
b7367762 539 ("libsndfile" ,libsndfile)
b7367762 540 ("lrdf" ,lrdf)
01895743 541 ("pulseaudio" ,pulseaudio)
80808d67
RW		 542 ("qtbase" ,qtbase)
543 ("qtxmlpatterns" ,qtxmlpatterns)
b7367762 544 ("zlib" ,zlib)))
d231bb35
RW		 545 (home-page "http://www.hydrogen-music.org")
546 (synopsis "Drum machine")
547 (description
548 "Hydrogen is an advanced drum machine for GNU/Linux. Its main goal is to
549enable professional yet simple and intuitive pattern-based drum programming.")
550 (license license:gpl2+)))
551
58301682
PL		 552(define-public easytag
553 (package
554 (name "easytag")
555 (version "2.4.3")
556 (source (origin
557 (method url-fetch)
558 (uri (string-append "mirror://gnome/sources/easytag/2.4/easytag-"
559 version ".tar.xz"))
560 (sha256
561 (base32
562 "1mbxnqrw1fwcgraa1bgik25vdzvf97vma5pzknbwbqq5ly9fwlgw"))))
563 (build-system glib-or-gtk-build-system)
564 (native-inputs
565 `(("desktop-file-utils" ,desktop-file-utils)
566 ("glib" ,glib "bin")
567 ("intltool" ,intltool)
568 ("itstool" ,itstool)
569 ("pkg-config" ,pkg-config)
570 ("xmllint" ,libxml2)))
571 (inputs
572 `(("flac" ,flac)
573 ("gtk+" ,gtk+)
574 ("id3lib" ,id3lib)
575 ("libid3tag" ,libid3tag)
576 ("libvorbis" ,libvorbis)
577 ("opusfile" ,opusfile)
578 ("speex" ,speex)
579 ("taglib" ,taglib)
580 ("wavpack" ,wavpack)
581 ("yelp" ,yelp)))
582 (arguments
583 '(#:phases
584 (modify-phases %standard-phases
585 (add-before 'configure 'configure-libid3tag
586 (lambda* (#:key inputs #:allow-other-keys)
587 ;; libid3tag does not provide a .pc file and EasyTAG's configure
588 ;; script healivy relies on pkg-config. Providing a temporary
589 ;; local .pc file is easier than patching the configure script.
590 (let* ((libid3tag (assoc-ref inputs "libid3tag")))
591 (mkdir-p "pkgconfig")
592 (with-output-to-file
593 "pkgconfig/id3tag.pc"
594 (lambda _
595 (format #t
596 "prefix=~@*~a~@
597 libdir=${prefix}/lib~@
598 includedir=${prefix}/include~@
55af6456
PL		 599
600 Name: libid3tag~@
601 Description:~@
602 Version:~@
58301682
PL		 603 Libs: -L${libdir} -lid3tag -lz~@
604 Cflags: -I${includedir}~%"
605 libid3tag)))
606 (setenv "PKG_CONFIG_PATH"
607 (string-append (getenv "PKG_CONFIG_PATH")
55af6456
PL		 608 ":" (getcwd) "/pkgconfig"))
609 #t)))
58301682
PL		 610 (add-after 'unpack 'patch-makefile
611 (lambda _
612 (substitute* "Makefile.in"
613 ;; The Makefile generates a test-desktop-file-validate.sh
614 ;; script with /bin/sh hard-coded.
615 (("/bin/sh") (which "sh"))
616 ;; Don't create 'icon-theme.cache'.
55af6456
PL		 617 (("gtk-update-icon-cache") "true"))
618 #t)))))
58301682
PL		 619 (home-page "https://wiki.gnome.org/Apps/EasyTAG")
620 (synopsis "Simple application for viewing and editing tags in audio files")
621 (description
622 "EasyTAG is an application for viewing and editing tags in audio files.
623It supports MP3, MP2, MP4/AAC, FLAC, Ogg Opus, Ogg Speex, Ogg Vorbis,
624MusePack, Monkey's Audio, and WavPack files.")
625 (license license:gpl2+)))
626
91595624
RW		 627(define-public extempore
628 (package
629 (name "extempore")
3ff2d270 630 (version "0.8.6")
91595624 631 (source (origin
8b0f6917
RW		 632 (method git-fetch)
633 (uri (git-reference
634 (url "https://github.com/digego/extempore.git")
3ff2d270 635 (commit (string-append "v" version))))
91595624
RW		 636 (sha256
637 (base32
3ff2d270
GL		 638 "182jy23qv115dipny7kglwbn21z55dp253w1ykm0kh8n6vkgs7gp"))
639 (file-name (git-file-name name version))
640 (patches (search-patches
641 "extempore-unbundle-external-dependencies.patch"))
642 (modules '((guix build utils)))
643 (snippet
644 '(begin
645 ;; Remove bundled sources.
646 (map delete-file-recursively
647 '("src/portaudio"
648 "src/pcre"))
649 #t))))
91595624
RW		 650 (build-system cmake-build-system)
651 (arguments
3ff2d270
GL		 652 `(#:configure-flags (list "-DJACK=ON"
653 "-DPACKAGE=ON"
654 "-DEXTERNAL_SHLIBS_AUDIO=OFF"
655 "-DEXTERNAL_SHLIBS_GRAPHICS=OFF"
656 "-DCMAKE_BUILD_TYPE=Release"
657 (string-append "-DEXT_SHARE_DIR="
658 (assoc-ref %outputs "out")
659 "/share"))
91595624
RW		 660 #:modules ((ice-9 match)
661 (guix build cmake-build-system)
662 (guix build utils))
663 #:phases
664 (modify-phases %standard-phases
3ff2d270
GL		 665 (add-after 'build 'build-aot-libs
666 (lambda _
667 (for-each (lambda (target)
668 (invoke "make" target))
669 '("aot_base"
670 "aot_math"
671 "aot_instruments"))
672 #t))
673 (add-after 'unpack 'patch-install-locations
674 (lambda* (#:key outputs #:allow-other-keys)
675 (substitute* "CMakeLists.txt"
676 (("EXT_SHARE_DIR=\"\\.\"\\)")
677 "EXT_SHARE_DIR=\"${EXT_SHARE_DIR}/extempore\")")
678 (("DESTINATION \"\\.\"\\)") "DESTINATION bin)")
679 (("DESTINATION \"\\.\"\n") "DESTINATION share/extempore\n"))
680 #t))
91595624
RW		 681 (add-after 'unpack 'patch-directories
682 (lambda* (#:key outputs #:allow-other-keys)
91595624
RW		 683 (substitute* "extras/extempore.el"
684 (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
685 (string-append "(runtime-directory \""
686 (assoc-ref outputs "out")
3ff2d270 687 "/share/extempore/runtime"
91595624
RW		 688 "\")")))
689 #t))
690 (add-after 'unpack 'link-with-additional-libs
691 (lambda _
692 ;; The executable must be linked with libffi and zlib.
693 (substitute* "CMakeLists.txt"
91595624
RW		 694 (("target_link_libraries\\(extempore PRIVATE dl" line)
695 (string-append line " ffi z")))
696 #t))
91595624
RW		 697 ;; FIXME: All examples that are used as tests segfault for some
698 ;; unknown reason.
699 (add-after 'unpack 'disable-broken-tests
700 (lambda _
701 (substitute* "CMakeLists.txt"
702 (("extempore_add_example_as_test\\(.*") ""))
703 #t))
704 (add-after 'unpack 'hardcode-external-lib-paths
705 (lambda* (#:key inputs #:allow-other-keys)
706 (use-modules (ice-9 match))
707 (for-each
708 (match-lambda
709 ((file-name lib pkg-name)
710 (substitute* (string-append "libs/external/" file-name ".xtm")
711 ((lib) (string-append (assoc-ref inputs pkg-name)
712 "/lib/" lib)))))
713 '(("assimp" "libassimp.so" "assimp")
714 ("portmidi" "libportmidi.so" "portmidi")
715 ("sndfile" "libsndfile.so" "libsndfile")
716 ("fft" "libkiss_fft.so" "kiss-fft")
717 ("stb_image" "libstb_image.so" "stb-image")
718 ("nanovg" "libnanovg.so" "nanovg")
719 ("glext" "libGL.so" "mesa")
720 ("glfw3" "libglfw.so" "glfw")
721 ("gl/glcore-directbind" "libGL.so" "mesa")
722 ("gl/glcompat-directbind" "libGL.so" "mesa")))
723 #t))
724 (add-after 'unpack 'use-own-llvm
3ff2d270
GL		 725 (lambda* (#:key inputs #:allow-other-keys)
726 (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
727 ;; Our LLVM builds shared libraries, so Extempore should use
728 ;; those.
729 (substitute* "CMakeLists.txt"
730 (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
731 #t))
91595624
RW		 732 (add-after 'unpack 'fix-aot-compilation
733 (lambda* (#:key outputs #:allow-other-keys)
734 (substitute* "CMakeLists.txt"
91595624
RW		 735 ;; Extempore needs to be told where the runtime is to be found.
736 ;; While we're at it we disable automatic tuning for a specific
737 ;; CPU to make binary substitution possible.
738 (("COMMAND extempore" prefix)
739 (string-append prefix " --sharedir " (getcwd)
740 " --mcpu=generic --attr=none")))
741 #t)))))
742 (inputs
743 `(("llvm" ,llvm-for-extempore)
744 ("libffi" ,libffi)
745 ("jack" ,jack-1)
746 ("libsndfile" ,libsndfile)
747 ("glfw" ,glfw)
748 ("apr" ,apr)
749 ("stb-image" ,stb-image-for-extempore)
750 ("kiss-fft" ,kiss-fft-for-extempore)
751 ("nanovg" ,nanovg-for-extempore)
752 ("portmidi" ,portmidi-for-extempore)
753 ("assimp" ,assimp)
754 ("alsa-lib" ,alsa-lib)
755 ("portaudio" ,portaudio)
756 ("mesa" ,mesa)
757 ("pcre" ,pcre)
758 ("zlib" ,zlib)))
759 (native-inputs
760 `(("perl" ,perl)
761 ("emacs" ,emacs-no-x)))
39162ee4
RW		 762 ;; Extempore refuses to build on architectures other than x86_64
763 (supported-systems '("x86_64-linux"))
181d19ab 764 (home-page "https://digego.github.io/extempore/")
91595624
RW		 765 (synopsis "Programming environment for live coding of multimedia")
766 (description
767 "Extempore is a programming language and runtime environment designed
768with live programming in mind. It supports interactive programming in a REPL
769style, compiling and binding code just-in-time. Although Extempore has its
770roots in 'live coding' of audiovisual media art, it is suitable for any task
771domain where dynamic run-time modifiability and good numerical performance are
772required. Extempore also has strong timing and concurrency semantics, which
773are helpful when working in problem spaces where timing is important (such as
774audio and video).")
775 (license license:bsd-2)))
776
8c454dcd
RW		 777(define-public klick
778 (package
779 (name "klick")
780 (version "0.12.2")
781 (source (origin
782 (method url-fetch)
783 (uri (string-append "http://das.nasophon.de/download/klick-"
784 version ".tar.gz"))
785 (sha256
786 (base32
787 "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
bc27eb3b 788 (build-system scons-build-system)
8c454dcd 789 (arguments
bc27eb3b 790 `(#:scons-flags (list (string-append "PREFIX=" %output))
ecc604ba 791 #:scons ,scons-python2
f00067db
RW		 792 #:tests? #f ; no "check" target
793 #:phases
794 (modify-phases %standard-phases
fb1d8d2b
RW		 795 (add-after 'unpack 'be-permissive
796 (lambda _
797 (substitute* "SConstruct"
798 (("'-Wall'") "'-Wall', '-fpermissive'"))
799 #t))
f00067db
RW		 800 (add-after 'unpack 'replace-removed-scons-syntax
801 (lambda _
802 (substitute* "SConstruct"
803 (("BoolOption") "BoolVariable")
804 (("PathOption") "PathVariable")
805 (("Options") "Variables"))
806 #t)))))
8c454dcd
RW		 807 (inputs
808 `(("boost" ,boost)
809 ("jack" ,jack-1)
810 ("libsndfile" ,libsndfile)
811 ("libsamplerate" ,libsamplerate)
812 ("liblo" ,liblo)
813 ("rubberband" ,rubberband)))
814 (native-inputs
bc27eb3b 815 `(("pkg-config" ,pkg-config)))
8c454dcd
RW		 816 (home-page "http://das.nasophon.de/klick/")
817 (synopsis "Metronome for JACK")
818 (description
819 "klick is an advanced command-line based metronome for JACK. It allows
820you to define complex tempo maps for entire songs or performances.")
821 (license license:gpl2+)))
822
048bfba1
RW		 823(define-public gtklick
824 (package
825 (name "gtklick")
826 (version "0.6.4")
827 (source (origin
828 (method url-fetch)
829 (uri (string-append "http://das.nasophon.de/download/gtklick-"
830 version ".tar.gz"))
831 (sha256
832 (base32
833 "0dq1km6njnzsqdqyf6wzir9g733z0mc9vmxfg2383k3c2a2di6bp"))))
834 (build-system python-build-system)
835 (arguments
836 `(#:tests? #f ; no tests
837 #:python ,python-2
838 #:phases
839 (modify-phases %standard-phases
840 (add-before 'build 'add-sitedirs
841 ;; .pth files are not automatically interpreted unless the
842 ;; directories containing them are added as "sites". The directories
843 ;; are then added to those in the PYTHONPATH. This is required for
844 ;; the operation of pygtk.
845 (lambda _
846 (substitute* "gtklick/gtklick.py"
847 (("import pygtk")
848 "import pygtk, site, sys
849for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))))
850 (add-after 'unpack 'inject-store-path-to-klick
851 (lambda* (#:key inputs #:allow-other-keys)
852 (substitute* "gtklick/klick_backend.py"
853 (("KLICK_PATH = 'klick'")
854 (string-append "KLICK_PATH = '"
855 (assoc-ref inputs "klick")
856 "/bin/klick'")))
857 #t)))))
858 (inputs
859 `(("klick" ,klick)
860 ("python2-pyliblo" ,python2-pyliblo)
861 ("python2-pygtk" ,python2-pygtk)))
862 (native-inputs
b94a6ca0 863 `(("gettext" ,gettext-minimal)))
048bfba1
RW		 864 (home-page "http://das.nasophon.de/gtklick/")
865 (synopsis "Simple metronome with an easy-to-use graphical interface")
866 (description
867 "Gtklick is a simple metronome with an easy-to-use graphical user
868interface. It is implemented as a frontend to @code{klick}.")
869 (license license:gpl2+)))
870
a3b10217
KK		 871(define-public libgme
872 (package
873 (name "libgme")
dd42a2f3 874 (version "0.6.3")
a3b10217
KK		 875 (source (origin
876 (method url-fetch)
877 (uri (string-append "https://bitbucket.org/mpyne/game-music-emu/"
878 "downloads/game-music-emu-" version
21f5f351 879 ".tar.xz"))
a3b10217
KK		 880 (sha256
881 (base32
dd42a2f3 882 "07857vdkak306d9s5g6fhmjyxk7vijzjhkmqb15s7ihfxx9lx8xb"))))
a3b10217
KK		 883 (build-system cmake-build-system)
884 (arguments
dd42a2f3 885 '(#:tests? #f)) ; no check target
a3b10217
KK		 886 (home-page "https://bitbucket.org/mpyne/game-music-emu")
887 (synopsis "Video game music file playback library")
888 (description
889 "Game-music-emu is a collection of video game music file emulators that
890support the following formats and systems:
891@table @code
892@item AY
893ZX Spectrum/Asmtrad CPC
894@item GBS
895Nintendo Game Boy
896@item GYM
897Sega Genesis/Mega Drive
898@item HES
899NEC TurboGrafx-16/PC Engine
900@item KSS
901MSX Home Computer/other Z80 systems (doesn't support FM sound)
902@item NSF/NSFE
903Nintendo NES/Famicom (with VRC 6, Namco 106, and FME-7 sound)
904@item SAP
905Atari systems using POKEY sound chip
906@item SPC
907Super Nintendo/Super Famicom
908@item VGM/VGZ
909Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC Micro
910@end table")
911 (license (list license:lgpl2.1+
912 ;; demo and player directories are under the Expat license
913 license:expat))))
914
1b6826d3
RW		 915(define-public lilypond
916 (package
917 (name "lilypond")
4da6de3e
NG		 918 (version "2.20.0")
919 (source
920 (origin
921 (method url-fetch)
922 (uri (string-append "http://lilypond.org/download/sources/"
923 "v" (version-major+minor version) "/"
924 "lilypond-" version ".tar.gz"))
925 (sha256
926 (base32 "0qd6pd4siss016ffmcyw5qc6pr2wihnvrgd4kh1x725w7wr02nar"))))
1b6826d3
RW		 927 (build-system gnu-build-system)
928 (arguments
4da6de3e 929 `(#:tests? #f ;out-test/collated-files.html fails
1b6826d3 930 #:out-of-source? #t
4da6de3e 931 #:make-flags '("conf=www") ;to generate images for info manuals
127b04d7 932 #:configure-flags
409be57b
RW		 933 (list "CONFIGURATION=www"
934 (string-append "--with-texgyre-dir="
127b04d7
RW		 935 (assoc-ref %build-inputs "font-tex-gyre")
936 "/share/fonts/opentype/"))
1b6826d3 937 #:phases
a8bc747a 938 (modify-phases %standard-phases
9cc823f5
RW		 939 (add-after 'unpack 'use-texlive-union
940 (lambda _
941 ;; FIXME: fonts are not found and have to be generated in HOME.
942 (setenv "HOME" "/tmp")
943 ;; The test for the "lh" package fails, even though it is among
944 ;; the inputs.
945 (substitute* "configure"
946 (("TEX_FIKPARM=.*") "TEX_FIKPARM=found\n"))
947 #t))
409be57b 948 (add-after 'unpack 'fix-path-references
4da6de3e
NG		 949 (lambda _
950 (substitute* "scm/backend-library.scm"
951 (("\\(search-executable '\\(\"gs\"\\)\\)")
952 (string-append "\"" (which "gs") "\""))
953 (("\"/bin/sh\"")
954 (string-append "\"" (which "sh") "\"")))
955 #t))
a8bc747a 956 (add-before 'configure 'prepare-configuration
4da6de3e
NG		 957 (lambda _
958 (substitute* "configure"
959 (("SHELL=/bin/sh") "SHELL=sh")
960 ;; When checking the fontforge version do not consider the
961 ;; version string that's part of the directory.
962 (("head -n") "tail -n")
963 ;; Also allow for SOURCE_DATE_EPOCH = 0 in fontforge.
964 (("20110222") "19700101"))
965 (setenv "out" "www")
966 (setenv "conf" "www")
967 #t))
409be57b
RW		 968 (add-after 'install 'install-info
969 (lambda _
88659738
RW		 970 (invoke "make"
971 "-j" (number->string (parallel-job-count))
972 "conf=www" "install-info")
973 #t)))))
1b6826d3
RW		 974 (inputs
975 `(("guile" ,guile-1.8)
976 ("font-dejavu" ,font-dejavu)
127b04d7 977 ("font-tex-gyre" ,font-tex-gyre)
1b6826d3
RW		 978 ("fontconfig" ,fontconfig)
979 ("freetype" ,freetype)
fb0b9ff1 980 ("ghostscript" ,ghostscript)
1b6826d3
RW		 981 ("pango" ,pango)
982 ("python" ,python-2)))
983 (native-inputs
984 `(("bison" ,bison)
985 ("perl" ,perl)
986 ("flex" ,flex)
987 ("fontforge" ,fontforge)
988 ("dblatex" ,dblatex)
b94a6ca0 989 ("gettext" ,gettext-minimal)
1b6826d3 990 ("imagemagick" ,imagemagick)
4da6de3e 991 ("netpbm" ,netpbm) ;for pngtopnm
9cc823f5
RW		 992 ("texlive" ,(texlive-union (list texlive-metapost
993 texlive-generic-epsf
994 texlive-latex-lh
995 texlive-latex-cyrillic)))
1b6826d3 996 ("texinfo" ,texinfo)
4da6de3e 997 ("texi2html" ,texi2html-1.82)
1b6826d3
RW		 998 ("rsync" ,rsync)
999 ("pkg-config" ,pkg-config)
1000 ("zip" ,zip)))
1001 (home-page "http://www.lilypond.org/")
1002 (synopsis "Music typesetting")
1003 (description
1004 "GNU LilyPond is a music typesetter, which produces high-quality sheet
1005music. Music is input in a text file containing control sequences which are
1006interpreted by LilyPond to produce the final document. It is extendable with
1007Guile.")
55ca5e80
LC		 1008 (license license:gpl3+)
1009
1010 ;; On armhf and mips64el, building the documentation sometimes leads to
1011 ;; more than an hour of silence, so double the max silent time.
1012 (properties `((max-silent-time . 7200)))))
c267cc15 1013
8e80244a
RW		 1014(define-public non-sequencer
1015 ;; The latest tagged release is three years old and uses a custom build
1bbe7959 1016 ;; system, so we take the last commit.
a6b5e1fb
RW		 1017 (let ((commit "5ae43bb27c42387052a73e5ffc5d33efb9d946a9")
1018 (revision "4"))
8e80244a
RW		 1019 (package
1020 (name "non-sequencer")
1bbe7959 1021 (version (string-append "1.9.5-" revision "." (string-take commit 7)))
8e80244a
RW		 1022 (source (origin
1023 (method git-fetch)
1024 (uri (git-reference
1025 (url "git://git.tuxfamily.org/gitroot/non/non.git")
1026 (commit commit)))
1027 (sha256
1028 (base32
a6b5e1fb 1029 "1cljkkyi9dxqpqhx8y6l2ja4zjmlya26m26kqxml8gx08vyvddhx"))
8e80244a
RW		 1030 (file-name (string-append name "-" version "-checkout"))))
1031 (build-system waf-build-system)
1032 (arguments
1033 `(#:tests? #f ;no "check" target
e591a4d6
RW		 1034 #:configure-flags
1035 (list "--project=sequencer"
1036 ;; Disable the use of SSE unless on x86_64.
1037 ,@(if (not (string-prefix? "x86_64" (or (%current-target-system)
1038 (%current-system))))
1039 '("--disable-sse")
1040 '()))
8e80244a
RW		 1041 #:python ,python-2))
1042 (inputs
1043 `(("jack" ,jack-1)
1044 ("libsigc++" ,libsigc++)
1045 ("liblo" ,liblo)
1046 ("ntk" ,ntk)))
1047 (native-inputs
1048 `(("pkg-config" ,pkg-config)))
48a13b4b 1049 (home-page "https://non.tuxfamily.org/wiki/Non%20Sequencer")
8e80244a
RW		 1050 (synopsis "Pattern-based MIDI sequencer")
1051 (description
1052 "The Non Sequencer is a powerful, lightweight, real-time,
1053pattern-based MIDI sequencer. It utilizes the JACK Audio Connection Kit for
1054MIDI I/O and the NTK GUI toolkit for its user interface. Everything in Non
1055Sequencer happens on-line, in real-time. Music can be composed live, while the
1056transport is rolling.")
1057 (license license:gpl2+))))
1058
ded69d6f
RW		 1059(define-public non-session-manager
1060 (package (inherit non-sequencer)
1061 (name "non-session-manager")
1062 (arguments
1063 (substitute-keyword-arguments (package-arguments non-sequencer)
1064 ((#:configure-flags flags)
1065 `(cons "--project=session-manager"
1066 (delete "--project=sequencer" ,flags)))))
1067 (inputs
1068 `(("jack" ,jack-1)
1069 ("liblo" ,liblo)
1070 ("ntk" ,ntk)))
1071 (native-inputs
1072 `(("pkg-config" ,pkg-config)))
48a13b4b 1073 (home-page "https://non.tuxfamily.org/nsm/")
ded69d6f
RW		 1074 (synopsis "Audio session management")
1075 (description
1076 "The Non Session Manager is an API and an implementation for audio
1077session management. NSM clients use a well-specified OSC protocol to
1078communicate with the session management daemon.")
1079 (license license:gpl2+)))
1080
46bb58b8
RW		 1081(define-public non-mixer
1082 (package (inherit non-sequencer)
1083 (name "non-mixer")
1084 (arguments
1085 (substitute-keyword-arguments (package-arguments non-sequencer)
1086 ((#:configure-flags flags)
1087 `(cons "--project=mixer"
1088 (delete "--project=sequencer" ,flags)))))
1089 (inputs
1090 `(("jack" ,jack-1)
1091 ("liblo" ,liblo)
1092 ("ladspa" ,ladspa)
1093 ("lrdf" ,lrdf)
1094 ("ntk" ,ntk)))
1095 (native-inputs
1096 `(("pkg-config" ,pkg-config)))
48a13b4b 1097 (home-page "https://non.tuxfamily.org/wiki/Non%20Mixer")
46bb58b8
RW		 1098 (synopsis "Modular digital audio mixer")
1099 (description
1100 "The Non Mixer is a powerful, reliable and fast modular digital audio
1101mixer. It utilizes JACK for inter-application audio I/O and the NTK GUI
1102toolkit for a fast and lightweight user interface. Non Mixer can be used
1103alone or in concert with Non Timeline and Non Sequencer to form a complete
1104studio.")
1105 (license license:gpl2+)))
1106
4511e0db
RW		 1107(define-public non-timeline
1108 (package (inherit non-sequencer)
1109 (name "non-timeline")
1110 (arguments
1111 (substitute-keyword-arguments (package-arguments non-sequencer)
1112 ((#:configure-flags flags)
1113 `(cons "--project=timeline"
1114 (delete "--project=sequencer" ,flags)))))
1115 (inputs
1116 `(("jack" ,jack-1)
1117 ("liblo" ,liblo)
1118 ("libsndfile" ,libsndfile)
1119 ("ntk" ,ntk)))
1120 (native-inputs
1121 `(("pkg-config" ,pkg-config)))
48a13b4b 1122 (home-page "https://non.tuxfamily.org/wiki/Non%20Timeline")
4511e0db
RW		 1123 (synopsis "Modular digital audio timeline arranger")
1124 (description
1125 "The Non Timeline is a powerful, reliable and fast modular digital audio
1126timeline arranger. It utilizes JACK for inter-application audio I/O and the
1127NTK GUI toolkit for a fast and lightweight user interface. Non Timeline can
1128be used alone or in concert with Non Mixer and Non Sequencer to form a
1129complete studio.")
1130 (license license:gpl2+)))
1131
ea2884c1
RW		 1132(define-public bsequencer
1133 (package
1134 (name "bsequencer")
1135 (version "1.2.0")
1136 (source (origin
1137 (method git-fetch)
1138 (uri (git-reference
1139 (url "https://github.com/sjaehn/BSEQuencer.git")
1140 (commit version)))
1141 (file-name (git-file-name name version))
1142 (sha256
1143 (base32
1144 "08xwz5v8wrar0rx7qdr9pkpjz2k9sw6bn5glhpn6sp6453fabf8q"))))
1145 (build-system gnu-build-system)
1146 (arguments
1147 `(#:make-flags
1148 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1149 #:tests? #f ; there are none
1150 #:phases
1151 (modify-phases %standard-phases
1152 (delete 'configure))))
1153 (inputs
1154 `(("cairo" ,cairo)
1155 ("lv2" ,lv2)
1156 ("libx11" ,libx11)))
1157 (native-inputs
1158 `(("pkg-config" ,pkg-config)))
1159 (home-page "https://github.com/sjaehn/BSEQuencer")
1160 (synopsis "Multi-channel MIDI step sequencer LV2 plugin")
1161 (description
1162 "This package provides a multi-channel MIDI step sequencer LV2 plugin
1163with a selectable pattern matrix size.")
1164 (license license:gpl3+)))
1165
d5aee500
AT		 1166(define-public bchoppr
1167 (package
1168 (inherit bsequencer)
1169 (name "bchoppr")
1170 (version "1.4.2")
1171 (source
1172 (origin
1173 (method git-fetch)
1174 (uri (git-reference
1175 (url "https://github.com/sjaehn/BChoppr.git")
1176 (commit version)))
1177 (file-name (git-file-name name version))
1178 (sha256
1179 (base32
1180 "1ympx0kyn3mkb23xgd44rlrf4qnngnlkmikz9syhayklgax7ijgm"))))
1181 (synopsis "Audio stream-chopping LV2 plugin")
1182 (description "B.Choppr cuts the audio input stream into a repeated
1183sequence of up to 16 chops. Each chop can be leveled up or down (gating).
1184B.Choppr is the successor of B.Slizr.")
1185 (home-page "https://github.com/sjaehn/BChoppr")
1186 (license license:gpl3+)))
1187
c267cc15
RW		 1188(define-public solfege
1189 (package
1190 (name "solfege")
1191 (version "3.22.2")
1192 (source (origin
1193 (method url-fetch)
1194 (uri (string-append
1195 "mirror://gnu/solfege/solfege-"
1196 version ".tar.xz"))
1197 (sha256
1198 (base32
1199 "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
1200 (build-system gnu-build-system)
1201 (arguments
1202 `(#:tests? #f ; xmllint attempts to download DTD
1203 #:test-target "test"
1204 #:phases
dc1d3cde
KK		 1205 (modify-phases %standard-phases
1206 (add-after 'unpack 'fix-configuration
1207 (lambda* (#:key inputs #:allow-other-keys)
1208 (substitute* "default.config"
20c65aa1 1209 (("/usr/bin/aplay") "aplay")
95e545a4
NG		 1210 (("/usr/bin/timidity") "timidity")
1211 (("/usr/bin/mpg123") "mpg123")
1212 (("/usr/bin/ogg123") "ogg123"))
dc1d3cde
KK		 1213 #t))
1214 (add-before 'build 'patch-python-shebangs
1215 (lambda _
1216 ;; Two python scripts begin with a Unicode BOM, so patch-shebang
1217 ;; has no effect.
1218 (substitute* '("solfege/parsetree.py"
1219 "solfege/presetup.py")
1220 (("#!/usr/bin/python") (string-append "#!" (which "python"))))
1221 #t))
1222 (add-before 'build 'add-sitedirs
1223 ;; .pth files are not automatically interpreted unless the
1224 ;; directories containing them are added as "sites". The directories
1225 ;; are then added to those in the PYTHONPATH. This is required for
1226 ;; the operation of pygtk and pygobject.
1227 (lambda _
1228 (substitute* "run-solfege.py"
1229 (("import os")
1230 "import os, site
1231for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))
1232 #t))
1233 (add-before 'build 'adjust-config-file-prefix
c267cc15
RW		 1234 (lambda* (#:key outputs #:allow-other-keys)
1235 (substitute* "run-solfege.py"
1236 (("prefix = os.path.*$")
dc1d3cde
KK		 1237 (string-append "prefix = " (assoc-ref outputs "out"))))
1238 #t))
1239 (add-after 'install 'wrap-program
1240 (lambda* (#:key inputs outputs #:allow-other-keys)
1241 ;; Make sure 'solfege' runs with the correct PYTHONPATH.
1242 (let* ((out (assoc-ref outputs "out"))
1243 (path (getenv "PYTHONPATH")))
1244 (wrap-program (string-append out "/bin/solfege")
1245 `("PYTHONPATH" ":" prefix (,path))))
1246 #t)))))
c267cc15
RW		 1247 (inputs
1248 `(("python" ,python-2)
1249 ("pygtk" ,python2-pygtk)
b94a6ca0 1250 ("gettext" ,gettext-minimal)
c267cc15 1251 ("gtk" ,gtk+)
95e545a4 1252 ("lilypond" ,lilypond)))
c267cc15
RW		 1253 (native-inputs
1254 `(("pkg-config" ,pkg-config)
1255 ("txt2man" ,txt2man)
1256 ("libxml2" ,libxml2) ; for tests
1257 ("ghostscript" ,ghostscript)
c267cc15
RW		 1258 ("texinfo" ,texinfo)))
1259 (home-page "https://www.gnu.org/software/solfege/")
1260 (synopsis "Ear training")
1261 (description
1262 "GNU Solfege is a program for practicing musical ear-training. With it,
1263you can practice your recognition of various musical intervals and chords. It
1264features a statistics overview so you can monitor your progress across several
1265sessions. Solfege is also designed to be extensible so you can easily write
1266your own lessons.")
1267 (license license:gpl3+)))
6260d1a8 1268
8b9ec354 1269(define-public powertabeditor
10bdd84e
RW		 1270 ;; This commit is after the switch from catch2 to doctest; I couldn't build
1271 ;; powertabeditor with catch2.
1272 (let ((commit "c5d39b25b75bf87ec693a3ac5018823b1d87f277")
1273 (revision "1"))
1274 (package
1275 (name "powertabeditor")
1276 (version (git-version "2.0.0-alpha12" revision commit))
1277 (source (origin
1278 (method git-fetch)
1279 (uri (git-reference
1280 (url "https://github.com/powertab/powertabeditor.git")
1281 (commit commit)))
1282 (file-name (git-file-name name version))
1283 (sha256
1284 (base32
1285 "16qhqfvk14bp7s8cwr8ds8zfd80pq603d7aymr7967pnb49kic5z"))))
1286 (build-system cmake-build-system)
1287 (arguments
1288 `(#:phases
1289 (modify-phases %standard-phases
1290 (replace 'check (lambda _ (invoke "bin/pte_tests"))))))
1291 (inputs
1292 `(("alsa-lib" ,alsa-lib)
1293 ("boost" ,boost)
1294 ("minizip" ,minizip)
1295 ("pugixml" ,pugixml)
1296 ("qtbase" ,qtbase)
1297 ("rapidjson" ,rapidjson)
1298 ("rtmidi" ,rtmidi)
1299 ("timidity" ,timidity++)
1300 ("zlib" ,zlib)))
1301 (native-inputs
1302 `(("doctest" ,doctest)
1303 ("pkg-config" ,pkg-config)))
1304 (home-page "https://github.com/powertab/powertabedito")
1305 (synopsis "Guitar tablature editor")
1306 (description
1307 "Power Tab Editor 2.0 is the successor to the famous original Power Tab
8b9ec354 1308Editor. It is compatible with Power Tab Editor 1.7 and Guitar Pro.")
10bdd84e 1309 (license license:gpl3+))))
8b9ec354 1310
3d4b1bb9
RW		 1311(define-public jalv-select
1312 (package
1313 (name "jalv-select")
fc1ff7fc 1314 (version "1.3")
3d4b1bb9 1315 (source (origin
ca364e7a
RW		 1316 (method git-fetch)
1317 (uri (git-reference
1318 (url "https://github.com/brummer10/jalv_select.git")
fc1ff7fc 1319 (commit (string-append "v" version))))
ca364e7a 1320 (file-name (git-file-name name version))
3d4b1bb9
RW		 1321 (sha256
1322 (base32
fc1ff7fc 1323 "15yanq1wra0hyh6x72ji7pk562iddg476g3vksj495x91zhnl6vm"))))
3d4b1bb9
RW		 1324 (build-system gnu-build-system)
1325 (arguments
1326 `(#:make-flags
1327 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1328 #:phases
1329 (modify-phases %standard-phases
1330 (delete 'configure)
1331 (add-after 'unpack 'ignore-PATH
1332 (lambda* (#:key inputs #:allow-other-keys)
1333 (substitute* "jalv.select.cpp"
ad7f6e5f 1334 (("echo \\$PATH.*tr ':'.*xargs ls")
3d4b1bb9 1335 (string-append "ls -1 " (assoc-ref inputs "jalv") "/bin")))
ca364e7a
RW		 1336 #t))
1337 (add-before 'reset-gzip-timestamps 'make-manpages-writable
1338 (lambda* (#:key outputs #:allow-other-keys)
1339 (for-each make-file-writable
1340 (find-files (string-append (assoc-ref outputs "out")
1341 "/share/man")
1342 ".*\\.gz$"))
3d4b1bb9
RW		 1343 #t)))))
1344 (inputs
1345 `(("lilv" ,lilv)
1346 ("lv2" ,lv2)
1347 ("jalv" ,jalv)
1348 ("gtkmm" ,gtkmm-2)))
1349 (native-inputs
1350 `(("pkg-config" ,pkg-config)))
1351 (home-page "https://github.com/brummer10/jalv_select")
1352 (synopsis "GUI to select LV2 plugins and run them with jalv")
1353 (description
1354 "The jalv.select package provides a graphical user interface allowing
1355users to select LV2 plugins and run them with jalv.")
1356 (license license:public-domain)))
1357
b095e762
RW		 1358(define-public synthv1
1359 (package
1360 (name "synthv1")
958258dc 1361 (version "0.9.15")
b095e762
RW		 1362 (source (origin
1363 (method url-fetch)
1364 (uri
de67e922
LF		 1365 (string-append "mirror://sourceforge/synthv1/synthv1/" version
1366 "/synthv1-" version ".tar.gz"))
b095e762
RW		 1367 (sha256
1368 (base32
958258dc 1369 "047y2l7ipzv00ly54f074v6p043xjml7vz0svc7z81bhx74vs0ix"))))
b095e762 1370 (build-system gnu-build-system)
69008d73 1371 (arguments
8c7c7687 1372 `(#:tests? #f)) ; there are no tests
b095e762
RW		 1373 (inputs
1374 `(("jack" ,jack-1)
1375 ("lv2" ,lv2)
1376 ("alsa-lib" ,alsa-lib)
b45aa39b 1377 ("non-session-manager" ,non-session-manager)
b095e762 1378 ("liblo" ,liblo)
8b39565c 1379 ("qtbase" ,qtbase)))
b45aa39b 1380 (native-inputs
8b39565c
VL		 1381 `(("pkg-config" ,pkg-config)
1382 ("qttools" ,qttools)))
9459216a 1383 (home-page "https://synthv1.sourceforge.io")
b095e762
RW		 1384 (synopsis "Polyphonic subtractive synthesizer")
1385 (description
1386 "Synthv1 is an old-school subtractive polyphonic synthesizer with four
1387oscillators and stereo effects.")
1388 (license license:gpl2+)))
2bb00612 1389
cf9af706
RW		 1390(define-public drumkv1
1391 (package
1392 (name "drumkv1")
f4482a63 1393 (version "0.9.15")
cf9af706
RW		 1394 (source (origin
1395 (method url-fetch)
1396 (uri
1397 (string-append "mirror://sourceforge/drumkv1/drumkv1/" version
1398 "/drumkv1-" version ".tar.gz"))
1399 (sha256
1400 (base32
f4482a63 1401 "108jk8p1sbm99plipf98ssij6dxaip1lmznibg8y2c4x0v2la6ab"))))
cf9af706
RW		 1402 (build-system gnu-build-system)
1403 (arguments
8b78ba2b 1404 `(#:tests? #f)) ; there are no tests
cf9af706
RW		 1405 (inputs
1406 `(("jack" ,jack-1)
1407 ("lv2" ,lv2)
1408 ("libsndfile" ,libsndfile)
1409 ("alsa-lib" ,alsa-lib)
41e2a731 1410 ("non-session-manager" ,non-session-manager)
cf9af706
RW		 1411 ("liblo" ,liblo)
1412 ("qtbase" ,qtbase)))
1413 (native-inputs
1414 `(("pkg-config" ,pkg-config)
1415 ("qttools" ,qttools)))
9459216a 1416 (home-page "https://drumkv1.sourceforge.io")
cf9af706
RW		 1417 (synopsis "Drum-kit sampler synthesizer with stereo effects")
1418 (description
1419 "Drumkv1 is an old-school drum-kit sampler synthesizer with stereo
1420effects.")
1421 (license license:gpl2+)))
1422
18675264
RW		 1423(define-public samplv1
1424 (package
1425 (name "samplv1")
5aed9101 1426 (version "0.9.15")
18675264
RW		 1427 (source (origin
1428 (method url-fetch)
1429 (uri
1430 (string-append "mirror://sourceforge/samplv1/samplv1/" version
1431 "/samplv1-" version ".tar.gz"))
1432 (sha256
1433 (base32
5aed9101 1434 "0r3bz64jqv5j4rqaxkbiqkxdf8n3hlcwjx1p19qfzik1lbwv9nw5"))))
18675264
RW		 1435 (build-system gnu-build-system)
1436 (arguments
d32f2aa3 1437 `(#:tests? #f)) ; there are no tests
18675264
RW		 1438 (inputs
1439 `(("jack" ,jack-1)
1440 ("lv2" ,lv2)
1441 ("libsndfile" ,libsndfile)
1442 ("alsa-lib" ,alsa-lib)
92b70c6f 1443 ("non-session-manager" ,non-session-manager)
18675264
RW		 1444 ("liblo" ,liblo)
1445 ("qtbase" ,qtbase)))
1446 (native-inputs
1447 `(("pkg-config" ,pkg-config)
1448 ("qttools" ,qttools)))
9459216a 1449 (home-page "https://samplv1.sourceforge.io")
18675264
RW		 1450 (synopsis "Polyphonic sampler synthesizer with stereo effects")
1451 (description
1452 "Samplv1 is an old-school polyphonic sampler synthesizer with stereo
1453effects.")
1454 (license license:gpl2+)))
1455
2702e12e
RW		 1456(define-public padthv1
1457 (package
1458 (name "padthv1")
0b97e8fc 1459 (version "0.9.15")
2702e12e
RW		 1460 (source (origin
1461 (method url-fetch)
1462 (uri
1463 (string-append "mirror://sourceforge/padthv1/padthv1/" version
1464 "/padthv1-" version ".tar.gz"))
1465 (sha256
1466 (base32
0b97e8fc 1467 "18ma429kamifcvjmsv0hysxk7qn2r9br4fia929bvfccapck98y1"))))
2702e12e
RW		 1468 (build-system gnu-build-system)
1469 (arguments
0246bfc0 1470 `(#:tests? #f)) ; there are no tests
2702e12e
RW		 1471 (inputs
1472 `(("jack" ,jack-1)
1473 ("lv2" ,lv2)
1474 ("alsa-lib" ,alsa-lib)
1475 ("non-session-manager" ,non-session-manager)
1476 ("liblo" ,liblo)
1477 ("fftw" ,fftw)
1478 ("qtbase" ,qtbase)))
1479 (native-inputs
1480 `(("pkg-config" ,pkg-config)
1481 ("qttools" ,qttools)))
9459216a 1482 (home-page "https://padthv1.sourceforge.io")
2702e12e
RW		 1483 (synopsis "Polyphonic additive synthesizer")
1484 (description
1485 "Padthv1 is an old-school polyphonic additive synthesizer with stereo
1486effects. Padthv1 is based on the PADsynth algorithm by Paul Nasca, as a
1487special variant of additive synthesis.")
1488 (license license:gpl2+)))
1489
2bb00612
RW		 1490(define-public amsynth
1491 (package
1492 (name "amsynth")
7e0befd4 1493 (version "1.7.1")
2bb00612
RW		 1494 (source
1495 (origin
1496 (method url-fetch)
1497 (uri (string-append "https://github.com/amsynth/amsynth/releases/"
1498 "download/release-" version
1499 "/amsynth-" version ".tar.bz2"))
1500 (sha256
1501 (base32
7e0befd4 1502 "1882pfcmf3rqg3vd4qflzkppcv158d748i603spqjbxqi8z7x7w0"))))
2bb00612 1503 (build-system gnu-build-system)
2bb00612
RW		 1504 (inputs
1505 `(("alsa-lib" ,alsa-lib)
1506 ("jack" ,jack-1)
1507 ("lv2" ,lv2)
7175f4c2 1508 ("lash" ,lash)
2bb00612
RW		 1509 ("libsndfile" ,libsndfile)
1510 ("gtk+" ,gtk+-2)
1511 ("gtkmm" ,gtkmm-2)))
1512 (native-inputs
7e0befd4
RW		 1513 `(("pkg-config" ,pkg-config)
1514 ("intltool" ,intltool)))
c99f0e57 1515 (home-page "https://amsynth.github.io")
2bb00612
RW		 1516 (synopsis "Analog modeling synthesizer")
1517 (description
1518 "amsynth is an easy-to-use software synthesizer with a classic
1519subtractive synthesizer topology. Its features include: dual
1520oscillators (sine, saw, square, noise) with hard sync; 12 and 24 dB/oct
1521resonant filters (low-pass, high-pass, band-pass, notch); mono, poly, legato
1522keyboard modes; dual ADSR envelope generators for filter and amplitude; LFO
1523which can modulate the oscillators, filter, and amplitude; distortion and
1524reverb effects.")
1525 (license license:gpl2+)))
b095e762 1526
ec8da0e2
RW		 1527(define-public setbfree
1528 (package
1529 (name "setbfree")
be99ceef 1530 (version "0.8.11")
ec8da0e2 1531 (source (origin
e0674840
TGR		 1532 (method git-fetch)
1533 (uri (git-reference
1534 (url "https://github.com/pantherb/setBfree")
1535 (commit (string-append "v" version))))
1536 (file-name (git-file-name name version))
ec8da0e2
RW		 1537 (sha256
1538 (base32
be99ceef 1539 "1s3ps3cjwlm63ml4izb7mizy8ci5pl9a19lvz62xf0br089h3afc"))))
ec8da0e2
RW		 1540 (build-system gnu-build-system)
1541 (arguments
d7caf8b8 1542 `(#:tests? #f ; no "check" target
ec8da0e2
RW		 1543 #:make-flags
1544 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1545 (string-append "FONTFILE="
1546 (assoc-ref %build-inputs "font-bitstream-vera")
b42d4508
RW		 1547 "/share/fonts/truetype/VeraBd.ttf")
1548 ;; Disable unsupported optimization flags on non-x86
1549 ,@(let ((system (or (%current-target-system)
1550 (%current-system))))
1551 (if (or (string-prefix? "x86_64" system)
1552 (string-prefix? "i686" system))
1553 '()
1554 '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
ec8da0e2
RW		 1555 #:phases
1556 (modify-phases %standard-phases
1557 (add-before 'build 'set-CC-variable
d7caf8b8 1558 (lambda _ (setenv "CC" "gcc") #t))
ec8da0e2
RW		 1559 (delete 'configure))))
1560 (inputs
1561 `(("jack" ,jack-1)
1562 ("lv2" ,lv2)
1563 ("zita-convolver" ,zita-convolver)
1564 ("glu" ,glu)
1565 ("ftgl" ,ftgl)
1566 ("font-bitstream-vera" ,font-bitstream-vera)))
1567 (native-inputs
1568 `(("help2man" ,help2man)
1569 ("pkg-config" ,pkg-config)))
1570 (home-page "http://setbfree.org")
1571 (synopsis "Tonewheel organ")
1572 (description
1573 "setBfree is a MIDI-controlled, software synthesizer designed to imitate
1574the sound and properties of the electromechanical organs and sound
1575modification devices that brought world-wide fame to the names and products of
1576Laurens Hammond and Don Leslie.")
1577 (license license:gpl2+)))
1578
770305f4
RW		 1579(define-public beast
1580 (package
1581 (name "beast")
1582 (version "0.10.0")
1583 (source (origin
1584 (method url-fetch)
1585 (uri (string-append "https://testbit.eu/pub/dists/beast/beast-"
1586 version ".tar.xz"))
1587 (sha256
1588 (base32
1589 "1jzzmfwssklzw8fvvil04n8csc0zm99fnd9p2xa7c0xchg37lvhn"))))
1590 (build-system gnu-build-system)
844f4f6e
EF		 1591 (arguments
1592 '(#:parallel-build? #f)) ; Race conditions cause build failures
770305f4
RW		 1593 (inputs
1594 `(("rapicorn" ,rapicorn)
1595 ("guile" ,guile-1.8)
1596 ("python" ,python-2)
770305f4
RW		 1597 ("libgnomecanvas" ,libgnomecanvas)
1598 ("libogg" ,libogg)
1599 ("libmad" ,libmad)
1600 ("flac" ,flac)
1601 ("alsa-lib" ,alsa-lib)
1602 ("libvorbis" ,libvorbis)
b94a6ca0 1603 ("gettext" ,gettext-minimal)))
770305f4
RW		 1604 (native-inputs
1605 `(("pkg-config" ,pkg-config)
1606 ("glib:bin" ,glib "bin")
f2516de2 1607 ("cython" ,python2-cython)
770305f4
RW		 1608 ("perl" ,perl)
1609 ("perl-xml-parser" ,perl-xml-parser)))
1610 (home-page "https://testbit.eu/wiki/Beast_Home")
1611 (synopsis "Music composition and modular synthesis environment")
1612 (description
1613 "Beast is a music composition and modular synthesis application. It
1614supports a wide range of standards in the field, such as MIDI, various audio
1615file formats and LADSPA modules. It allows for multitrack editing, real-time
1616synthesis, 32bit audio rendering, precise timing down to sample granularity,
1617on-demand and partial loading of wave files, on the fly decoding, stereo
1618mixing, FFT scopes, MIDI automation and full scriptability in Scheme.")
1619 (license license:gpl3+)))
1620
96250294
RW		 1621(define-public bristol
1622 (package
1623 (name "bristol")
1624 (version "0.60.11")
1625 (source (origin
1626 (method url-fetch)
1627 (uri (string-append "mirror://sourceforge/bristol/bristol/"
1628 (version-major+minor version)
1629 "/bristol-" version ".tar.gz"))
1630 (sha256
1631 (base32
1632 "1fi2m4gmvxdi260821y09lxsimq82yv4k5bbgk3kyc3x1nyhn7vx"))))
1633 (build-system gnu-build-system)
18ef998b
RW		 1634 (arguments
1635 `(#:phases
1636 (modify-phases %standard-phases
1637 (add-after 'unpack 'remove-sse-flags
1638 (lambda* (#:key system #:allow-other-keys)
1639 (when (not (or (string-prefix? "x86_64" system)
1640 (string-prefix? "i686" system)))
1641 (substitute* "bristol/Makefile.in"
1642 (("-msse -mfpmath=sse") "")))
73124d34 1643 #t))
bd0c6231
RW		 1644 ;; alsa-lib 1.1.x no longer provides iatomic.h. That's okay because
1645 ;; bristol actually doesn't use it.
1646 (add-after 'unpack 'do-not-use-alsa-iatomic
1647 (lambda _
1648 (substitute* "libbristolaudio/audioEngineJack.c"
1649 (("#include <alsa/iatomic.h>") ""))
1650 #t))
73124d34
RW		 1651 ;; We know that Bristol has been linked with JACK and we don't have
1652 ;; ldd, so we can just skip this check.
1653 (add-after 'unpack 'do-not-grep-for-jack
1654 (lambda _
1655 (substitute* "bin/startBristol.in"
1656 (("ldd `which bristol` | grep jack") "echo guix"))
18ef998b 1657 #t)))))
96250294
RW		 1658 (inputs
1659 `(("alsa-lib" ,alsa-lib)
1660 ("jack" ,jack-1)
1661 ("liblo" ,liblo)
1662 ("libx11" ,libx11)))
1663 (native-inputs
1664 `(("pkg-config" ,pkg-config)))
1665 (home-page "http://bristol.sourceforge.net/")
1666 (synopsis "Synthesizer emulator")
1667 (description
36a4366d 1668 "Bristol is an emulation package for a number of different @code{classic}
96250294
RW		 1669synthesizers including additive and subtractive and a few organs. The
1670application consists of the engine, which is called bristol, and its own GUI
1671library called brighton that represents all the emulations. There are
1672currently more than twenty different emulations; each does sound different
1673although the author maintains that the quality and accuracy of each emulation
1674is subjective.")
1675 (license license:gpl3+)))
1676
6260d1a8
RW		 1677(define-public tuxguitar
1678 (package
1679 (name "tuxguitar")
3cc64120 1680 (version "1.5.4")
6260d1a8
RW		 1681 (source (origin
1682 (method url-fetch)
1683 (uri (string-append
1684 "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
f467c352 1685 version "/tuxguitar-" version "-src.tar.gz"))
6260d1a8
RW		 1686 (sha256
1687 (base32
3cc64120 1688 "0fjhf56lhlhm84v08917xp4yw8y6d0qajm4qiy1gfp8dm74whwwg"))))
f467c352 1689 (build-system ant-build-system)
6260d1a8 1690 (arguments
f467c352 1691 `(#:build-target "build"
40f372af 1692 #:jdk ,icedtea-8
a0a7e425 1693 #:tests? #f ; no tests
6260d1a8 1694 #:phases
5f1c9498 1695 (modify-phases %standard-phases
44e70dee 1696 (replace 'build
f467c352 1697 (lambda* (#:key inputs outputs #:allow-other-keys)
750e54ec
RW		 1698 (let* ((initial-classpath (getenv "CLASSPATH"))
1699 (build-dir (lambda (dir)
44e70dee
MR		 1700 (setenv
1701 "CLASSPATH"
1702 (string-join (cons initial-classpath
1703 (find-files (getcwd) "\\.jar$"))
1704 ":"))
1705 (with-directory-excursion dir
1706 (if (file-exists? "build.xml")
1707 ((assoc-ref %standard-phases 'build)
1708 #:build-target "build")
1709 (begin
1710 ;; Generate default build.xml.
1711 ((@@ (guix build ant-build-system)
1712 default-build.xml)
1713 (string-append (string-downcase dir) ".jar")
1714 (string-append (assoc-ref outputs "out")
1715 "/share/java"))
1716 ((assoc-ref %standard-phases 'build))))))))
1717 (map build-dir '("TuxGuitar-lib"
1718 "TuxGuitar-editor-utils"
750e54ec
RW		 1719 "TuxGuitar-ui-toolkit"
1720 "TuxGuitar-ui-toolkit-swt"
44e70dee
MR		 1721 "TuxGuitar-viewer"
1722 "TuxGuitar"
1723 "TuxGuitar-gm-utils"
1724 "TuxGuitar-alsa"
1725 "TuxGuitar-midi"
1726 "TuxGuitar-midi-ui"))
1727 #t)))
1728 (add-after 'build 'build-jni
f467c352 1729 (lambda _
44e70dee
MR		 1730 (setenv "CC" "gcc")
1731 (setenv "CFLAGS" (string-append
1732 "-fpic -I"
1733 (getcwd)
1734 "/build-scripts/native-modules/common-include"))
1735 (invoke "make" "-C" "./TuxGuitar-alsa/jni" "-f" "GNUmakefile")))
f467c352
RW		 1736 (replace 'install
1737 (lambda* (#:key inputs outputs #:allow-other-keys)
1738 (let* ((out (assoc-ref outputs "out"))
1739 (bin (string-append out "/bin"))
1740 (share (string-append out "/share"))
44e70dee 1741 (jni-lib (string-append out "/lib"))
f467c352 1742 (lib (string-append share "/java"))
44e70dee
MR		 1743 (swt (assoc-ref inputs "java-swt"))
1744 (mime (string-append share "/mime/packages"))
1745 (app (string-append share "/applications"))
1746 (man (string-append share "/man/man1")))
1747
f467c352 1748 (mkdir-p bin)
a0a7e425 1749 ;; Install all jars.
f467c352
RW		 1750 (for-each (lambda (file)
1751 (install-file file lib))
44e70dee
MR		 1752 (find-files "." "\\.jar$"))
1753
1754 ;; Install jni libraries
1755 (for-each (lambda (file)
1756 (install-file file jni-lib))
1757 (find-files "." "\\-jni.so$"))
750e54ec 1758
a0a7e425 1759 ;; Install all resources.
44e70dee
MR		 1760 (copy-recursively "./TuxGuitar/share" share)
1761
1762 ;; Install desktop and mime files
1763 (install-file "./misc/tuxguitar.xml" mime)
1764 (install-file "./misc/tuxguitar.desktop" app)
1765
1766 ;; Install manaual
1767 (install-file "./misc/tuxguitar.1" man)
750e54ec 1768
a0a7e425 1769 ;; Create wrapper.
f467c352
RW		 1770 (call-with-output-file (string-append bin "/tuxguitar")
1771 (lambda (port)
44e70dee
MR		 1772 (let ((classpath (string-join (append (find-files lib "\\.jar$")
1773 (find-files swt "\\.jar$"))
f467c352
RW		 1774 ":")))
1775 (format
1776 port
1777 (string-append "#!/bin/sh\n"
1778 (which "java")
1779 " -cp " classpath
1780 " -Dtuxguitar.home.path=" out
1781 " -Dtuxguitar.share.path=" out "/share"
1782 " -Dswt.library.path=" swt "/lib"
44e70dee 1783 " -Djava.library.path=" out "/lib"
f467c352
RW		 1784 " org.herac.tuxguitar.app.TGMainSingleton"
1785 " \"$1\" \"$2\"")))))
1786 (chmod (string-append bin "/tuxguitar") #o555)
1787 #t))))))
6260d1a8 1788 (inputs
44e70dee
MR		 1789 `(("alsa-lib" ,alsa-lib)
1790 ("java-swt" ,java-swt)))
d4eae3f7 1791 (home-page "http://tuxguitar.com.ar/")
6260d1a8
RW		 1792 (synopsis "Multitrack tablature editor and player")
1793 (description
1794 "TuxGuitar is a guitar tablature editor with player support through midi.
1795It can display scores and multitrack tabs. TuxGuitar provides various
1796additional features, including autoscrolling while playing, note duration
1797management, bend/slide/vibrato/hammer-on/pull-off effects, support for
1798tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
1799export.")
1800 (license license:lgpl2.1+)))
2d0fd07b
RW		 1801
1802(define-public pd
1803 (package
1804 (name "pd")
f6b8b181 1805 (version "0.51-0")
2d0fd07b
RW		 1806 (source (origin
1807 (method url-fetch)
1808 (uri
037bf4f4
RW		 1809 (string-append "http://msp.ucsd.edu/Software/pd-"
1810 version ".src.tar.gz"))
2d0fd07b
RW		 1811 (sha256
1812 (base32
f6b8b181 1813 "0qzv4hjf4h7xx00ihnbl43pxa0fia9qkc8nwgzhqrs12jiljz6ps"))))
2d0fd07b
RW		 1814 (build-system gnu-build-system)
1815 (arguments
98f08a99
TGR		 1816 (let ((wish (string-append "wish" (version-major+minor
1817 (package-version tk)))))
1818 `(#:tests? #f ; no "check" target
1819 #:configure-flags
1820 (list
1821 "--enable-jack"
1822 (string-append "--with-wish=" (string-append
1823 (assoc-ref %build-inputs "tk")
1824 "/bin/" ,wish)))
1825 #:phases
1826 (modify-phases %standard-phases
1827 (add-before 'configure 'fix-with-path
1828 (lambda _
1829 (substitute* "tcl/pd-gui.tcl"
1830 (("exec wish ") (string-append "exec " (which ,wish) " ")))
1831 #t))))))
2d0fd07b
RW		 1832 (native-inputs
1833 `(("autoconf" ,autoconf)
1834 ("automake" ,automake)
1835 ("libtool" ,libtool)
b94a6ca0 1836 ("gettext" ,gettext-minimal)
2d0fd07b
RW		 1837 ("pkg-config" ,pkg-config)))
1838 (inputs
1839 `(("tk" ,tk)
1840 ("alsa-lib" ,alsa-lib)
1841 ("jack" ,jack-1)))
8c5b29c7 1842 (home-page "https://puredata.info")
2d0fd07b
RW		 1843 (synopsis "Visual programming language for artistic performances")
1844 (description
1845 "Pure Data (aka Pd) is a visual programming language. Pd enables
1846musicians, visual artists, performers, researchers, and developers to create
1847software graphically, without writing lines of code. Pd is used to process
1848and generate sound, video, 2D/3D graphics, and interface sensors, input
1849devices, and MIDI. Pd can easily work over local and remote networks to
1850integrate wearable technology, motor systems, lighting rigs, and other
1851equipment. Pd is suitable for learning basic multimedia processing and visual
1852programming methods as well as for realizing complex systems for large-scale
1853projects.")
1854 (license license:bsd-3)))
821664f1 1855
6826f1e1
SB		 1856(define-public libpd
1857 (package
1858 (name "libpd")
1859 (version "0.11.0")
1860 (source (origin
1861 (method git-fetch)
1862 (uri (git-reference
1863 (url "https://github.com/libpd/libpd.git")
1864 (commit version)
1865 (recursive? #t))) ; for the 'pure-data' submodule
1866 (file-name (string-append name "-" version "-checkout"))
1867 (sha256
1868 (base32
1869 "1bcg1d9iyf9n37hwwphmih0c8rd1xcqykil5z1cax6xfs76552nk"))))
1870 (build-system gnu-build-system)
1871 (arguments
1872 '(#:tests? #f ; no tests
1873 #:make-flags '("CC=gcc")
1874 #:phases
1875 (modify-phases %standard-phases
1876 (delete 'configure) ; no configure script
1877 (replace 'install
1878 (lambda* (#:key outputs #:allow-other-keys)
1879 (let ((out (assoc-ref outputs "out")))
1880 (invoke "make" "install"
1881 (string-append "prefix=" out)
1882 ;; XXX: Fix the last 2 lines of 'install' target.
1883 "LIBPD_IMPLIB=NO"
1884 "LIBPD_DEF=NO")))))))
1885 (home-page "http://libpd.cc/")
1886 (synopsis "Pure Data as an embeddable audio synthesis library")
1887 (description
1888 "Libpd provides Pure Data as an embeddable audio synthesis library. Its
1889main purpose is to liberate raw audio rendering from audio and MIDI drivers.")
1890 (license license:bsd-3)))
1891
aacb52fb
RW		 1892(define-public portmidi
1893 (package
1894 (name "portmidi")
1895 (version "217")
1896 (source (origin
1897 (method url-fetch)
1898 (uri (string-append "mirror://sourceforge/portmedia/portmidi/"
1899 version "/portmidi-src-" version ".zip"))
1900 (sha256
1901 (base32
1902 "03rfsk7z6rdahq2ihy5k13qjzgx757f75yqka88v3gc0pn9ais88"))
1903 (patches (list (search-patch "portmidi-modular-build.patch")))))
1904 (build-system cmake-build-system)
1905 (arguments
3def739d
TGR		 1906 `(#:tests? #f ; tests cannot be linked
1907 #:build-type "Release" ; needed to have PMALSA set
aacb52fb
RW		 1908 #:configure-flags
1909 (list "-DPORTMIDI_ENABLE_JAVA=Off"
a374d9c9
NG		 1910 "-DPORTMIDI_ENABLE_TEST=Off") ; tests fail linking
1911 #:phases
1912 (modify-phases %standard-phases
1913 ;; Some packages, e.g., MuseScore, expect "libporttime.so" instead of
1914 ;; "libportmidi.so". Distributions get away with it by creating an
1915 ;; appropriate symlink.
1916 (add-after 'install 'add-porttime
1917 (lambda* (#:key outputs #:allow-other-keys)
1918 (let* ((out (assoc-ref outputs "out"))
1919 (lib (string-append out "/lib")))
1920 (with-directory-excursion lib
1921 (symlink "libportmidi.so" "libporttime.so")))
1922 #t)))))
aacb52fb
RW		 1923 (inputs
1924 `(("alsa-lib" ,alsa-lib)))
1925 (native-inputs
1926 `(("unzip" ,unzip)))
1927 (home-page "http://portmedia.sourceforge.net/portmidi/")
1928 (synopsis "Library for MIDI I/O")
1929 (description
1930 "PortMidi is a library supporting real-time input and output of MIDI data
1931using a system-independent interface.")
1932 (license license:expat)))
f65d59fc 1933
38098bf7 1934(define-public portmidi-for-extempore
fc570fab
GL		 1935 (let ((version "217")
1936 (revision "0")
1937 (commit "8602f548f71daf5ef638b2f7d224753400cb2158"))
1938 (package (inherit portmidi)
1939 (name "portmidi-for-extempore")
1940 (version (git-version version revision commit))
1941 (source (origin
1942 (method git-fetch)
1943 (uri (git-reference
1944 (url "https://github.com/extemporelang/portmidi.git")
1945 (commit commit)))
1946 (file-name (git-file-name name version))
1947 (sha256
1948 (base32
1949 "1qidzl1s3kzhczzm96rcd2ppn27a97k2axgfh1zhvyf0s52d7m4w"))))
1950 (build-system cmake-build-system)
1951 (arguments `(#:tests? #f)) ; no tests
1952 (native-inputs '())
1953 ;; Extempore refuses to build on architectures other than x86_64
1954 (supported-systems '("x86_64-linux"))
1955 (home-page "https://github.com/extemporelang/portmidi/"))))
38098bf7 1956
f65d59fc
RW		 1957(define-public python-pyportmidi
1958 (package
1959 (name "python-pyportmidi")
1960 (version (package-version portmidi))
1961 (source (package-source portmidi))
1962 (build-system python-build-system)
1963 (arguments
1964 `(#:tests? #f ; no tests included
1965 #:phases
1966 (modify-phases %standard-phases
1967 (add-after 'unpack 'enter-dir
1968 (lambda _ (chdir "pm_python") #t))
1969 (add-after 'enter-dir 'fix-setup.py
1970 (lambda _
1971 (substitute* "setup.py"
1972 ;; Use Python 3 syntax
1973 (("print (\".*\")" _ text)
1974 (string-append "print(" text ")\n"))
1975 ;; TODO.txt and CHANGES.txt don't exist
1976 (("CHANGES =.*") "CHANGES = \"\"\n")
1977 (("TODO =.*") "TODO = \"\"\n"))
1978 #t)))))
1979 (inputs
1980 `(("portmidi" ,portmidi)
f2516de2 1981 ("alsa-lib" ,alsa-lib)))
f65d59fc 1982 (native-inputs
f2516de2
HG		 1983 `(("python-cython" ,python-cython)
1984 ("unzip" ,unzip)))
f65d59fc
RW		 1985 (home-page "http://portmedia.sourceforge.net/portmidi/")
1986 (synopsis "Python bindings to PortMidi")
1987 (description
1988 "This package provides Python bindings to the PortMidi library.")
1989 (license license:expat)))
aacb52fb 1990
821664f1
RW		 1991(define-public frescobaldi
1992 (package
1993 (name "frescobaldi")
88c586f3 1994 (version "3.1.2")
eaa3cb1e
NG		 1995 (source
1996 (origin
1997 (method url-fetch)
1998 (uri (string-append
1999 "https://github.com/wbsoft/frescobaldi/releases/download/v"
2000 version "/frescobaldi-" version ".tar.gz"))
2001 (sha256
88c586f3 2002 (base32 "084vxzvxnxl5rrhllincnh6krsyi03c8p0452ppzmn9c52wgyb2w"))))
821664f1 2003 (build-system python-build-system)
eaa3cb1e
NG		 2004 (arguments
2005 `(#:tests? #f)) ;no tests included
821664f1
RW		 2006 (inputs
2007 `(("lilypond" ,lilypond)
eaa3cb1e 2008 ("poppler" ,poppler)
6855b347 2009 ("portmidi" ,portmidi)
821664f1 2010 ("python-ly" ,python-ly)
e40335b2 2011 ("python-poppler-qt5" ,python-poppler-qt5)
eaa3cb1e
NG		 2012 ("python-pyportmidi" ,python-pyportmidi)
2013 ("python-pyqt" ,python-pyqt)
821664f1 2014 ("python-sip" ,python-sip)))
3e2d65ae 2015 (home-page "https://www.frescobaldi.org/")
821664f1
RW		 2016 (synopsis "LilyPond sheet music text editor")
2017 (description
2018 "Frescobaldi is a LilyPond sheet music text editor with syntax
2019highlighting and automatic completion. Among other things, it can render
2020scores next to the source, can capture input from MIDI or read MusicXML and
2021ABC files, has a MIDI player for proof-listening, and includes a documentation
2022browser.")
2023 (license license:gpl2+)))
ddfddb0c 2024
bf76d780
RW		 2025(define-public drumstick
2026 (package
2027 (name "drumstick")
6fd7e0cc 2028 (version "1.1.3")
bf76d780
RW		 2029 (source (origin
2030 (method url-fetch)
2031 (uri (string-append "mirror://sourceforge/drumstick/"
2032 version "/drumstick-" version ".tar.bz2"))
2033 (sha256
2034 (base32
6fd7e0cc 2035 "1n9wvg79yvkygrkc8xd8pgrd3d7hqmr7gh24dccf0px23lla9b3m"))))
bf76d780
RW		 2036 (build-system cmake-build-system)
2037 (arguments
7adaf5b5 2038 `(#:tests? #f ; no test target
bf76d780
RW		 2039 #:configure-flags '("-DLIB_SUFFIX=")
2040 #:phases
2041 (modify-phases %standard-phases
2042 (add-before 'configure 'fix-docbook
2043 (lambda* (#:key inputs #:allow-other-keys)
2044 (substitute* "cmake_admin/CreateManpages.cmake"
2045 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2046 (string-append (assoc-ref inputs "docbook-xsl")
2047 "/xml/xsl/docbook-xsl-"
2048 ,(package-version docbook-xsl)
2049 "/manpages/docbook.xsl")))
2050 #t)))))
2051 (inputs
ca1cab82
EF		 2052 `(("qtbase" ,qtbase)
2053 ("qtsvg" ,qtsvg)
7adaf5b5 2054 ("alsa-lib" ,alsa-lib)))
bf76d780
RW		 2055 (native-inputs
2056 `(("pkg-config" ,pkg-config)
7adaf5b5 2057 ("libxslt" ,libxslt) ; for xsltproc
bf76d780
RW		 2058 ("docbook-xsl" ,docbook-xsl)
2059 ("doxygen" ,doxygen)))
2060 (home-page "http://drumstick.sourceforge.net/")
2061 (synopsis "C++ MIDI library")
2062 (description
2063 "Drumstick is a set of MIDI libraries using C++/Qt5 idioms and style. It
2064includes a C++ wrapper around the ALSA library sequencer interface. A
2065complementary library provides classes for processing SMF (Standard MIDI
2066files: .MID/.KAR), Cakewalk (.WRK), and Overture (.OVE) file formats. A
2067multiplatform realtime MIDI I/O library is also provided with various output
2068backends, including ALSA, OSS, Network and FluidSynth.")
2069 (license license:gpl2+)))
2070
14b9203d
RW		 2071(define-public vmpk
2072 (package
2073 (name "vmpk")
2074 (version "0.7.2")
2075 (source (origin
2076 (method url-fetch)
2077 (uri (string-append "mirror://sourceforge/vmpk/vmpk/"
2078 version "/vmpk-" version ".tar.bz2"))
2079 (sha256
2080 (base32
2081 "1i3hnvdgz46n4k5v0q4jhgh7nkh0s390ix4nqr69z0q3026yp0p6"))))
2082 (build-system cmake-build-system)
2083 (arguments
2084 `(#:tests? #f ; no test target
2085 #:phases
2086 (modify-phases %standard-phases
2087 (add-before 'configure 'fix-docbook
2088 (lambda* (#:key inputs #:allow-other-keys)
2089 (substitute* "cmake_admin/CreateManpages.cmake"
2090 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2091 (string-append (assoc-ref inputs "docbook-xsl")
2092 "/xml/xsl/docbook-xsl-"
2093 ,(package-version docbook-xsl)
2094 "/manpages/docbook.xsl")))
2095 #t)))))
2096 (inputs
2097 `(("drumstick" ,drumstick)
2098 ("qtbase" ,qtbase)
2099 ("qtsvg" ,qtsvg)
14b9203d
RW		 2100 ("qtx11extras" ,qtx11extras)))
2101 (native-inputs
2102 `(("libxslt" ,libxslt) ;for xsltproc
2103 ("docbook-xsl" ,docbook-xsl)
f4783d77 2104 ("qttools" ,qttools)
14b9203d 2105 ("pkg-config" ,pkg-config)))
45ebb59a 2106 (home-page "https://vmpk.sourceforge.io/")
14b9203d
RW		 2107 (synopsis "Virtual MIDI piano keyboard")
2108 (description
2109 "Virtual MIDI Piano Keyboard is a MIDI events generator and receiver. It
2110doesn't produce any sound by itself, but can be used to drive a MIDI
2111synthesizer (either hardware or software, internal or external). You can use
2112the computer's keyboard to play MIDI notes, and also the mouse. You can use
2113the Virtual MIDI Piano Keyboard to display the played MIDI notes from another
2114instrument or MIDI file player.")
2115 (license license:gpl3+)))
2116
ddfddb0c
RW		 2117(define-public zynaddsubfx
2118 (package
2119 (name "zynaddsubfx")
5f88d81f 2120 (version "3.0.5")
ddfddb0c
RW		 2121 (source (origin
2122 (method url-fetch)
2123 (uri (string-append
2124 "mirror://sourceforge/zynaddsubfx/zynaddsubfx/"
138e7697 2125 version "/zynaddsubfx-" version ".tar.bz2"))
ddfddb0c
RW		 2126 (sha256
2127 (base32
5f88d81f 2128 "0qwzg14h043rmyf9jqdylxhyfy4sl0vsr0gjql51wjhid0i34ivl"))))
ddfddb0c 2129 (build-system cmake-build-system)
00dfc97c
RW		 2130 (arguments
2131 `(#:phases
2132 (modify-phases %standard-phases
2133 ;; Move SSE compiler optimization flags from generic target to
2134 ;; athlon64 and core2 targets, because otherwise the build would fail
2135 ;; on non-Intel machines.
2136 (add-after 'unpack 'remove-sse-flags-from-generic-target
2137 (lambda _
2138 (substitute* "src/CMakeLists.txt"
2139 (("-msse -msse2 -mfpmath=sse") "")
2140 (("-march=(athlon64|core2)" flag)
2141 (string-append flag " -msse -msse2 -mfpmath=sse")))
2142 #t)))))
ddfddb0c
RW		 2143 (inputs
2144 `(("liblo" ,liblo)
2145 ("ntk" ,ntk)
1ea7969f 2146 ("mesa" ,mesa)
ddfddb0c
RW		 2147 ("alsa-lib" ,alsa-lib)
2148 ("jack" ,jack-1)
2149 ("fftw" ,fftw)
2150 ("minixml" ,minixml)
2151 ("libxpm" ,libxpm)
2152 ("zlib" ,zlib)))
2153 (native-inputs
2154 `(("pkg-config" ,pkg-config)))
2155 (home-page "http://zynaddsubfx.sf.net/")
2156 (synopsis "Software synthesizer")
2157 (description
2158 "ZynAddSubFX is a feature heavy realtime software synthesizer. It offers
2159three synthesizer engines, multitimbral and polyphonic synths, microtonal
2160capabilities, custom envelopes, effects, etc.")
2161 (license license:gpl2)))
c493679f
RW		 2162
2163(define-public yoshimi
c889fbbf
TGR		 2164 ;; Release 1.7.1 doesn't build with our version of LV2. Applying only
2165 ;; 86996cbb235f0fe138ae814a6758c2c8ba1c2a38 is not enough.
2166 (let ((commit "bfcadc6537dbcb301cd93346f21d36bcbffa36c7")
2167 (revision "0"))
2168 (package
2169 (name "yoshimi")
2170 (version (git-version "1.7.1" revision commit))
2171 (source
2172 (origin
2173 (method git-fetch)
2174 (uri (git-reference
2175 (url "https://git.code.sf.net/p/yoshimi/code")
2176 (commit commit)))
2177 (sha256
2178 (base32 "0vhdxj7ky4iyq11r5wj9jwavjih4xvcn2djbrlmwpkdhrzpy6myl"))
2179 (file-name (git-file-name name version))))
2180 (build-system cmake-build-system)
2181 (arguments
2182 `(#:tests? #f ; there are no tests
2183 #:configure-flags
2184 (list (string-append "-DCMAKE_INSTALL_DATAROOTDIR="
2185 (assoc-ref %outputs "out") "/share"))
2186 #:phases
2187 (modify-phases %standard-phases
2188 (add-before 'configure 'enter-dir
2189 (lambda _ (chdir "src") #t))
2190 ;; Move SSE compiler optimization flags from generic target to
2191 ;; athlon64 and core2 targets, because otherwise the build would fail
2192 ;; on non-Intel machines.
2193 (add-after 'unpack 'remove-sse-flags-from-generic-target
2194 (lambda _
2195 (substitute* "src/CMakeLists.txt"
2196 (("-msse -msse2 -mfpmath=sse") "")
2197 (("-march=(athlon64|core2)" flag)
2198 (string-append flag " -msse -msse2 -mfpmath=sse")))
2199 #t)))))
2200 (inputs
2201 `(("boost" ,boost)
2202 ("fftwf" ,fftwf)
2203 ("alsa-lib" ,alsa-lib)
2204 ("jack" ,jack-1)
2205 ("fontconfig" ,fontconfig)
2206 ("minixml" ,minixml)
2207 ("mesa" ,mesa)
2208 ("fltk" ,fltk)
2209 ("lv2" ,lv2)
2210 ("readline" ,readline)
2211 ("ncurses" ,ncurses)
2212 ("cairo" ,cairo)
2213 ("zlib" ,zlib)))
2214 (native-inputs
2215 `(("pkg-config" ,pkg-config)))
2216 (home-page "http://yoshimi.sourceforge.net/")
2217 (synopsis "Multi-paradigm software synthesizer")
2218 (description
2219 "Yoshimi is a fork of ZynAddSubFX, a feature-heavy real-time software
c493679f
RW		 2220synthesizer. It offers three synthesizer engines, multitimbral and polyphonic
2221synths, microtonal capabilities, custom envelopes, effects, etc. Yoshimi
2222improves on support for JACK features, such as JACK MIDI.")
c889fbbf 2223 (license license:gpl2))))
658212eb 2224
e87cb754
RW		 2225(define-public libgig
2226 (package
2227 (name "libgig")
ce63a3b9 2228 (version "4.2.0")
e87cb754
RW		 2229 (source (origin
2230 (method url-fetch)
2231 (uri (string-append "http://download.linuxsampler.org/packages/"
2232 "libgig-" version ".tar.bz2"))
2233 (sha256
2234 (base32
ce63a3b9 2235 "1zs5yy124bymfyapsnljr6rv2lnn5inwchm0xnwiw44b2d39l8hn"))))
e87cb754
RW		 2236 (build-system gnu-build-system)
2237 (inputs
bb93042c 2238 `(("libuuid" ,util-linux "lib")
e87cb754
RW		 2239 ("libsndfile" ,libsndfile)))
2240 (native-inputs
2241 `(("pkg-config" ,pkg-config)))
2c051312 2242 (home-page "https://linuxsampler.org/libgig/")
e87cb754
RW		 2243 (synopsis "C++ library for working with Gigasampler (.gig) files")
2244 (description
2245 "Libgig is a C++ library for loading, modifying existing and creating new
2246Gigasampler (.gig) files and DLS (Downloadable Sounds) Level 1/2 files, KORG
2247sample based instruments (.KSF and .KMP files), SoundFont v2 (.sf2) files and
2248AKAI sampler data. The package includes a couple of command line tools based
2249on the library.")
2250 ;; The library and tools are released under the GPL, except the AKAI
2251 ;; classes which are released under the LGPL.
2252 (license (list license:gpl2+ license:lgpl2.1+))))
2253
a9f55bf2
RW		 2254(define-public jack-keyboard
2255 (package
2256 (name "jack-keyboard")
2257 (version "2.5")
2258 (source
2259 (origin
2260 (method url-fetch)
2261 (uri (string-append "mirror://sourceforge/jack-keyboard/jack-keyboard/"
2262 version "/jack-keyboard-" version ".tar.gz"))
2263 (sha256
2264 (base32
2265 "0mzmg8aavybcfdlq2yd9d0vscqd6is5p6jzrgfpfm5j3xdcvh2s3"))))
2266 (build-system gnu-build-system)
2267 (inputs
2268 `(("jack" ,jack-1)
2269 ("lash" ,lash)
2270 ("gtk+" ,gtk+-2)))
2271 (native-inputs
2272 `(("pkg-config" ,pkg-config)))
2273 (home-page "http://jack-keyboard.sourceforge.net/")
2274 (synopsis "Virtual MIDI keyboard")
2275 (description "Jack-keyboard is a virtual MIDI keyboard, a program that
2276allows you to send JACK MIDI events (i.e. play) using your PC keyboard.")
2277 (license license:bsd-2)))
2278
39b33584
RW		 2279(define-public jack-capture
2280 (package
2281 (name "jack-capture")
2282 (version "0.9.73")
2283 (source (origin
2284 (method git-fetch)
2285 (uri (git-reference
2286 (url "https://github.com/kmatheussen/jack_capture.git")
2287 (commit version)))
2288 (file-name (string-append name "-" version "-checkout"))
2289 (sha256
2290 (base32
2291 "0jcqky96q8xgya6wqv1p8pj9fkf2wh7ynl67ah7x5bn3basgfclf"))))
2292 (build-system gnu-build-system)
2293 (arguments
2294 `(#:make-flags
2295 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2296 #:tests? #f ; there are none
2297 #:phases
2298 (modify-phases %standard-phases
2299 (delete 'configure))))
2300 (native-inputs
2301 `(("pkg-config" ,pkg-config)
2302 ("which" ,which)))
2303 (inputs
2304 `(("gtk+" ,gtk+-2)
2305 ("jack" ,jack-1)
2306 ("libogg" ,libogg)
2307 ("liblo" ,liblo)
2308 ("lame" ,lame)
2309 ("libsndfile" ,libsndfile)))
2310 (home-page "https://github.com/kmatheussen/jack_capture")
2311 (synopsis "Program for recording sound files with JACK")
2312 (description "This is a program for recording sound files with JACK. It
2313can connect to any JACK port and record the output into a stereo WAV file.")
2314 (license license:gpl2+)))
2315
3f68f76e
RW		 2316(define-public jack-select
2317 (package
2318 (name "jack-select")
2319 (version "1.5.0")
2320 (source (origin
2321 (method url-fetch)
2322 (uri (pypi-uri "jack-select" version))
2323 (sha256
2324 (base32
2325 "1zijk9ly2fczxsnnrqr8s0ajmlyx1j1vd8gk0rm5dj5zyhhmia7f"))))
2326 (build-system gnu-build-system)
2327 (arguments
2328 `(#:modules ((guix build gnu-build-system)
2329 ((guix build python-build-system) #:prefix python:)
2330 (guix build utils))
2331 #:imported-modules (,@%gnu-build-system-modules
2332 (guix build python-build-system))
2333 #:make-flags
2334 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2335 #:tests? #f ; there are none
2336 #:phases
2337 (modify-phases %standard-phases
2338 (replace 'configure
2339 (lambda* (#:key inputs #:allow-other-keys)
2340 ;; python-dbus cannot be found but it's really there. See
2341 ;; https://github.com/SpotlightKid/jack-select/issues/2
2342 (substitute* "setup.py"
2343 (("'dbus-python',") ""))
2344 ;; Fix reference to dlopened libraries.
2345 (substitute* "jackselect/alsainfo.py"
2346 (("libasound.so.2")
2347 (string-append (assoc-ref inputs "alsa-lib")
2348 "/lib/libasound.so.2")))
2349 #t))
2350 (replace 'build
2351 (assoc-ref python:%standard-phases 'build))
2352 (add-after 'install 'wrap
2353 (assoc-ref python:%standard-phases 'wrap)))))
2354 (native-inputs
2355 `(("pkg-config" ,pkg-config)))
2356 (inputs
2357 `(("alsa-lib" ,alsa-lib)
2358 ("python" ,python-wrapper)
2359 ("python-pyudev" ,python-pyudev)
2360 ("python-pyxdg" ,python-pyxdg)
2361 ("python-dbus" ,python-dbus)
2362 ("python-pygobject" ,python-pygobject)))
2363 (home-page "https://github.com/SpotlightKid/jack-select")
2364 (synopsis "Systray application to quickly change the JACK-DBus configuration")
2365 (description "This application displays an icon in the system tray (also
2366known as notification area) of your desktop, which shows the status of the
2367JACK audio server and when you click on it, a menu pops up, which lets you
2368quickly select from the JACK configuration presets you created with QjackCtl.
2369When you select a preset, its JACK engine and driver configuration settings
2370are loaded via DBus into JACK and then the server is restarted. This allows
2371you to switch between different audio setups with just two mouse clicks.")
2372 (license license:expat)))
2373
658212eb
LF		 2374(define-public cursynth
2375 (package
2376 (name "cursynth")
2377 (version "1.5")
2378 (source
2379 (origin
2380 (method url-fetch)
2381 (uri (string-append "mirror://gnu/cursynth/cursynth-"
2382 version ".tar.gz"))
2383 (sha256
2384 (base32 "1dhphsya41rv8z6yqcv9l6fwbslsds4zh1y56zizi39nd996d40v"))
fc1adab1 2385 (patches (search-patches "cursynth-wave-rand.patch"))))
658212eb
LF		 2386 (build-system gnu-build-system)
2387 (native-inputs `(("pkg-config" ,pkg-config)))
2388 ;; TODO: See https://github.com/iyoko/cursynth/issues/4 which currently
2389 ;; prevents us from using pulseaudio
2390 (inputs `(("ncurses" ,ncurses)
2391 ("alsa" ,alsa-lib)))
6fd52309 2392 (home-page "https://www.gnu.org/software/cursynth/")
658212eb
LF		 2393 (synopsis "Polyphonic and MIDI subtractive music synthesizer using curses")
2394 (description "GNU cursynth is a polyphonic synthesizer that runs
2395graphically in the terminal. It is built on a full-featured subtractive
2396synthesis engine. Notes and parameter changes may be entered via MIDI or the
2397computer's keyboard.")
2398 (license license:gpl3+)))
a763ce7d 2399
13edf1b9
RW		 2400(define-public aj-snapshot
2401 (package
2402 (name "aj-snapshot")
bc03fe69 2403 (version "0.9.9")
13edf1b9
RW		 2404 (source (origin
2405 (method url-fetch)
2406 (uri (string-append "mirror://sourceforge/aj-snapshot/"
2407 "aj-snapshot-" version ".tar.bz2"))
2408 (sha256
2409 (base32
bc03fe69 2410 "0z8wd5yvxdmw1h1rj6km9h01xd4xmp4d86gczlix7hsc7zrf0wil"))))
13edf1b9
RW		 2411 (build-system gnu-build-system)
2412 (inputs
2413 `(("minixml" ,minixml)
2414 ("jack" ,jack-1)
2415 ("alsa-lib" ,alsa-lib)))
2416 (native-inputs
2417 `(("pkg-config" ,pkg-config)))
2418 (home-page "http://aj-snapshot.sourceforge.net/")
2419 (synopsis "Snapshot connections between ALSA and JACK clients")
2420 (description "Aj-snapshot is a small program that can be used to make
2421snapshots of the connections made between JACK and/or ALSA clients. Because
2422JACK can provide both audio and MIDI support to programs, aj-snapshot can
2423store both types of connections for JACK. ALSA, on the other hand, only
2424provides routing facilities for MIDI clients. Aj-snapshot is meant to be used
2425from the command line.")
2426 (license license:gpl3+)))
2427
a763ce7d
RW		 2428(define-public qtractor
2429 (package
2430 (name "qtractor")
b3e8e6fd 2431 (version "0.9.15")
a763ce7d
RW		 2432 (source (origin
2433 (method url-fetch)
d2bc9f0e 2434 (uri (string-append "https://downloads.sourceforge.net/qtractor/"
a763ce7d
RW		 2435 "qtractor-" version ".tar.gz"))
2436 (sha256
2437 (base32
b3e8e6fd 2438 "0k7a6llwrzs07flr9mvzvay9ygc2x64syg8npyabsw5a4d85fwsx"))))
a763ce7d 2439 (build-system gnu-build-system)
42639cc9 2440 (arguments
d56eee86 2441 `(#:tests? #f)) ; no "check" target
a763ce7d 2442 (inputs
523544d3
RW		 2443 `(("qt" ,qtbase)
2444 ("qtx11extras" ,qtx11extras)
a763ce7d
RW		 2445 ("alsa-lib" ,alsa-lib)
2446 ("jack" ,jack-1)
2447 ("libsndfile" ,libsndfile)
2448 ("ladspa" ,ladspa)
2449 ("lv2" ,lv2)
2450 ("lilv" ,lilv)
2451 ("suil" ,suil)
2452 ("libsamplerate" ,libsamplerate)
2453 ("libvorbis" ,libvorbis)
2454 ("libmad" ,libmad)
2455 ("rubberband" ,rubberband)
2456 ("liblo" ,liblo)
2457 ("zlib" ,zlib)))
2458 (native-inputs
523544d3
RW		 2459 `(("pkg-config" ,pkg-config)
2460 ("qttools" ,qttools)))
8071bbbc 2461 (home-page "http://qtractor.org/")
a763ce7d
RW		 2462 (synopsis "Audio/MIDI multi-track sequencer")
2463 (description
2464 "Qtractor is an Audio/MIDI multi-track sequencer application. It uses
2465JACK for audio and ALSA sequencer for MIDI as multimedia infrastructures and
2466follows a traditional multi-track tape recorder control paradigm.")
2467 (license license:gpl2+)))
aa0edd3f 2468
849c3d03 2469(define-public ams-lv2
c10f6c5a
TGR		 2470 (package
2471 (name "ams-lv2")
2472 (version "1.2.2")
2473 (source
2474 (origin
2475 (method git-fetch)
2476 (uri (git-reference
2477 (url "https://github.com/blablack/ams-lv2.git")
2478 (commit (string-append "v" version))))
2479 (file-name (git-file-name name version))
2480 (sha256
2481 (base32 "1lz2mvk4gqsyf92yxd3aaldx0d0qi28h4rnnvsaz4ls0ccqm80nk"))))
2482 (build-system waf-build-system)
2483 (arguments
2484 `(#:phases
2485 (modify-phases %standard-phases
2486 (add-after 'unpack 'remove-sse-flags
2487 (lambda* (#:key system #:allow-other-keys)
2488 (unless (or (string-prefix? "x86_64" system)
2489 (string-prefix? "i686" system))
2490 (substitute* "wscript"
2491 (("'-msse', '-mfpmath=sse', ") "")))
2492 #t)))
2493 #:tests? #f)) ; no tests
2494 (inputs
2495 `(("cairo" ,cairo)
2496 ("fftw" ,fftw)
2497 ("gtk" ,gtk+-2)
2498 ("gtkmm" ,gtkmm-2)
2499 ("lv2" ,lv2)
2500 ("lvtk" ,lvtk)))
2501 (native-inputs
2502 `(("pkg-config" ,pkg-config)))
2503 (home-page "https://github.com/blablack/ams-lv2")
2504 (synopsis "Port of Alsa Modular Synth internal modules into LV2")
2505 (description "This set of LV2 plugins is a port of the internal modules
849c3d03
RW		 2506found in Alsa Modular Synth. These plugins are used to create modular
2507synthesizers and contain: VCO, VCF, VCA, LFO, slew limiter, envelopes, sample
2508and hold, etc.")
c10f6c5a 2509 (license license:gpl2)))
849c3d03 2510
aed023ff
RW		 2511(define-public gxtuner
2512 (package
2513 (name "gxtuner")
f5e0ff0f 2514 (version "2.4")
aed023ff 2515 (source (origin
bed4eb37
RW		 2516 (method git-fetch)
2517 (uri (git-reference
2518 (url "https://github.com/brummer10/gxtuner.git")
2519 (commit (string-append "v" version))))
2520 (file-name (git-file-name name version))
aed023ff
RW		 2521 (sha256
2522 (base32
bed4eb37 2523 "1fxd2akan2njlr7fpkh84830783qhh1gg7yakswqk5dd466dcn96"))))
aed023ff
RW		 2524 (build-system gnu-build-system)
2525 (arguments
2526 `(#:make-flags
2527 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2528 (string-append "INCLUDE_L_DIR="
2529 (assoc-ref %build-inputs "zita-resampler")
2530 "/include/"))
2531 #:phases
2532 (modify-phases %standard-phases
2533 (delete 'configure))))
2534 (inputs
f5e0ff0f 2535 `(("gtk+" ,gtk+)
aed023ff
RW		 2536 ("jack" ,jack-1)
2537 ("fftwf" ,fftwf)
2538 ("cairo" ,cairo)
2539 ("zita-resampler" ,zita-resampler)))
2540 (native-inputs
2541 `(("pkg-config" ,pkg-config)))
2542 (home-page "https://github.com/brummer10/gxtuner")
2543 (synopsis "Guitar tuner")
2544 (description "GXtuner is a simple guitar tuner for JACK with an
2545analogue-like user interface.")
2546 (license license:gpl2+)))
2547
c2c9e748 2548(define-public mod-host
9f1ac4fa 2549 ;; The last release was in 2014 but since then hundreds of commits have
c2c9e748 2550 ;; been made.
9f1ac4fa
RW		 2551 (let ((commit "1726ad06b11323da7e1aaed690ff8aef91f702b5")
2552 (revision "3"))
c2c9e748
RW		 2553 (package
2554 (name "mod-host")
2555 (version (string-append "0.10.6-" revision "." (string-take commit 9)))
2556 (source (origin
2557 (method git-fetch)
2558 (uri (git-reference
2559 (url "https://github.com/moddevices/mod-host")
2560 (commit commit)))
2561 (sha256
2562 (base32
9f1ac4fa 2563 "1nrd37c35w6z6ldczgrwmmd9hx1n3zyvcjcgb3mi4cygqdanvspv"))
c2c9e748
RW		 2564 (file-name (string-append name "-" version "-checkout"))))
2565 (build-system gnu-build-system)
2566 (arguments
2567 `(#:tests? #f ; no tests included
2568 #:make-flags
2569 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2570 "CC=gcc")
2571 #:phases
2572 (modify-phases %standard-phases
2573 (delete 'configure)
2574 (add-after 'unpack 'fix-jack-installation-directory
2575 (lambda _
2576 ;; Do not attempt to install files to output of "jack" package.
2577 (substitute* "Makefile"
2578 (("\\$\\(shell pkg-config --variable=libdir jack\\)")
2579 "lib"))
2580 #t)))))
2581 (inputs
2582 `(("lilv" ,lilv)
c96cb01a
DC		 2583 ("fftw" ,fftw)
2584 ("fftwf" ,fftwf)
c2c9e748
RW		 2585 ("lv2" ,lv2)
2586 ("jack" ,jack-1)
2587 ("readline" ,readline)))
2588 (native-inputs
2589 `(("pkg-config" ,pkg-config)
2590 ("python" ,python-2)))
2591 (home-page "https://github.com/moddevices/mod-host")
2592 (synopsis "LV2 host for Jack controllable via socket or command line")
2593 (description "mod-host is an LV2 plugin host for JACK, controllable via
2594socket or command line.")
2595 (license license:gpl3+))))
2596
19d93ef5
SR		 2597(define-public curseradio
2598 (let ((commit "1bd4bd0faeec675e0647bac9a100b526cba19f8d")
2599 (revision "1"))
2600 (package
2601 (name "curseradio")
2602 (version (git-version "0" revision commit))
2603 (source (origin
2604 (method git-fetch)
2605 (uri (git-reference
2606 (url "https://github.com/chronitis/curseradio.git")
2607 (commit commit)))
2608 (file-name (git-file-name name version))
2609 (sha256
2610 (base32
2611 "11bf0jnj8h2fxhpdp498189r4s6b47vy4wripv0z4nx7lxajl88i"))))
2612 (build-system python-build-system)
e79a07bc
EF		 2613 (arguments
2614 `(#:phases
2615 (modify-phases %standard-phases
2616 (add-after 'unpack 'link-to-mpv
2617 (lambda* (#:key inputs #:allow-other-keys)
2618 (substitute* "curseradio/curseradio.py"
2619 (("/usr/bin/mpv")
2620 (string-append (assoc-ref inputs "mpv") "/bin/mpv")))
2621 #t)))))
19d93ef5
SR		 2622 (propagated-inputs
2623 `(("python-lxml" ,python-lxml)
2624 ("python-requests" ,python-requests)
e79a07bc
EF		 2625 ("python-pyxdg" ,python-pyxdg)))
2626 (inputs
2627 `(("mpv" ,mpv)))
19d93ef5
SR		 2628 (home-page "https://github.com/chronitis/curseradio")
2629 (synopsis "Command-line Internet radio player")
2630 (description "Curseradio is a Curses-based radio player that uses a
2631tune-in sender list from @url{http://opml.radiotime.com}.")
2632 (license license:expat))))
2633
aa0edd3f
AM		 2634(define-public pianobar
2635 (package
2636 (name "pianobar")
6ddb8238 2637 (version "2020.04.05")
aa0edd3f 2638 (source (origin
1410e178
RW		 2639 (method git-fetch)
2640 (uri (git-reference
2641 (url "https://github.com/PromyLOPh/pianobar.git")
2642 (commit version)))
2643 (file-name (git-file-name name version))
aa0edd3f
AM		 2644 (sha256
2645 (base32
6ddb8238 2646 "1gq8kpks6nychqz4gf0rpy7mrhz5vjw48a60x56j6y9flmazmypw"))))
aa0edd3f
AM		 2647 (build-system gnu-build-system)
2648 (arguments
8cc1fdce 2649 `(#:tests? #f ; no tests
95fd14df 2650 #:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
aa0edd3f
AM		 2651 #:phases (modify-phases %standard-phases
2652 (delete 'configure))))
2653 (inputs
2654 `(("ao" ,ao)
2655 ("curl" ,curl)
2656 ("libgcrypt" ,libgcrypt)
2657 ("json-c" ,json-c)
8cc1fdce 2658 ("ffmpeg" ,ffmpeg)))
aa0edd3f
AM		 2659 (native-inputs
2660 `(("pkg-config" ,pkg-config)))
3e97cf47 2661 (home-page "https://6xq.net/pianobar/")
aa0edd3f
AM		 2662 (synopsis "Console-based pandora.com player")
2663 (description "pianobar is a console-based music player for the
2664personalized online radio pandora.com. It has configurable keys for playing
2665and managing stations, can be controlled remotely via fifo, and can run
2666event-based scripts for scrobbling, notifications, etc.")
2667 (license license:expat)))
3f7a182d 2668
1deab8cb
CB		 2669(define-public picard
2670 (package
2671 (name "picard")
b421e915 2672 (version "2.1.3")
1deab8cb
CB		 2673 (source (origin
2674 (method url-fetch)
2675 (uri (string-append
2676 "https://musicbrainz.osuosl.org/pub/musicbrainz/"
2677 "picard/picard-" version ".tar.gz"))
2678 (sha256
2679 (base32
b421e915 2680 "19w5k3bf4886gdycxjds9nkjvir0gwy2r5cqkz0lbls4ikk4y14f"))))
1deab8cb
CB		 2681 (build-system python-build-system)
2682 (arguments
251448f7
TGR		 2683 '(#:use-setuptools? #f
2684 #:configure-flags
e28b0798
TGR		 2685 (list "--root=/"
2686 ;; Don't phone home or show ‘Check for Update…’ in the Help menu.
2687 "--disable-autoupdate")
251448f7 2688 #:phases
1deab8cb
CB		 2689 (modify-phases %standard-phases
2690 (add-after 'unpack 'patch-source
2691 (lambda* (#:key inputs #:allow-other-keys)
2692 (substitute* "picard/const/__init__.py"
2693 (("pyfpcalc")
2694 (string-append
2695 "pyfpcalc', '"
e247244e
TGR		 2696 (assoc-ref inputs "chromaprint") "/bin/fpcalc")))
2697 #t)))))
1deab8cb
CB		 2698 (native-inputs
2699 `(("gettext" ,gettext-minimal)))
2700 (inputs
2701 `(("chromaprint" ,chromaprint)
7d9fa5f3 2702 ("python-discid" ,python-discid)
1deab8cb
CB		 2703 ("python-pyqt" ,python-pyqt)
2704 ("python-mutagen" ,python-mutagen)))
2705 (home-page "https://picard.musicbrainz.org/")
2706 (synopsis "Graphical music tagging application")
2707 (description
2708 "MusicBrainz Picard is a music tagging application, supporting multiple
2709formats, looking up tracks through metadata and audio fingerprints.")
2710 (license license:gpl2+)))
2711
3f7a182d
LF		 2712(define-public python-mutagen
2713 (package
2714 (name "python-mutagen")
e39aae4f 2715 (version "1.38")
3f7a182d
LF		 2716 (source (origin
2717 (method url-fetch)
2718 (uri (pypi-uri "mutagen" version))
2719 (sha256
2720 (base32
e39aae4f 2721 "0rl7sxn1rcjl48fwga3dqf9f6pzspsny4ngxyf6pp337mrq0z693"))))
3f7a182d 2722 (build-system python-build-system)
4228a79e
LF		 2723 (native-inputs
2724 `(("python-pytest" ,python-pytest)))
3f7a182d
LF		 2725 (home-page "https://bitbucket.org/lazka/mutagen")
2726 (synopsis "Read and write audio tags")
2727 (description "Mutagen is a Python module to handle audio metadata. It
2728supports ASF, FLAC, M4A, Monkey’s Audio, MP3, Musepack, Ogg FLAC, Ogg Speex, Ogg
2729Theora, Ogg Vorbis, True Audio, WavPack and OptimFROG audio files. All versions
2730of ID3v2 are supported, and all standard ID3v2.4 frames are parsed. It can read
2731Xing headers to accurately calculate the bitrate and length of MP3s. ID3 and
2732APEv2 tags can be edited regardless of audio format. It can also manipulate Ogg
2733streams on an individual packet/page level.")
2734 (license license:gpl2))) ; "later version" never mentioned
2735
2736(define-public python2-mutagen
2737 (package-with-python2 python-mutagen))
8975de88
LF		 2738
2739(define-public python-musicbrainzngs
2740 (package
2741 (name "python-musicbrainzngs")
daedf34d 2742 (version "0.6")
8975de88
LF		 2743 (source (origin
2744 (method url-fetch)
2745 (uri (pypi-uri "musicbrainzngs" version))
2746 (sha256
2747 (base32
daedf34d 2748 "1dddarpjawryll2wss65xq3v9q8ln8dan7984l5dxzqx88d2dvr8"))))
8975de88 2749 (build-system python-build-system)
daedf34d
LF		 2750 (arguments
2751 '(;; The tests fail suffer from race conditions:
2752 ;; https://github.com/alastair/python-musicbrainzngs/issues/211
2753 #:tests? #f))
8975de88
LF		 2754 (home-page "https://python-musicbrainzngs.readthedocs.org/")
2755 (synopsis "Python bindings for MusicBrainz NGS webservice")
2756 (description "Musicbrainzngs implements Python bindings of the MusicBrainz
2757web service. This library can be used to retrieve music metadata from the
2758MusicBrainz database.")
2759 ;; 'musicbrainzngs/compat.py' is ISC licensed.
2760 (license (list license:bsd-2 license:isc))))
2761
2762(define-public python2-musicbrainzngs
2763 (package-with-python2 python-musicbrainzngs))
e8fee648 2764
07c82daa
GH		 2765(define-public python-isrcsubmit
2766 (package
2767 (name "python-isrcsubmit")
2768 (version "2.0.1")
2769 (source
2770 (origin
2771 (method url-fetch)
2772 (uri (pypi-uri "isrcsubmit" version))
2773 (sha256
2774 (base32
2775 "0jh4cni8qhri6dh83cmp0i0m0384vv0vznlygv49wj9xzh1d99qv"))))
2776 (build-system python-build-system)
2777 (propagated-inputs
2778 `(("python-discid" ,python-discid)
2779 ("python-musicbrainzngs" ,python-musicbrainzngs)))
2780 (home-page "https://github.com/JonnyJD/musicbrainz-isrcsubmit")
2781 (synopsis "Submit ISRCs from CDs to MusicBrainz")
2782 (description "@code{isrcsubmit} is a tool to extract @dfn{International
2783Standard Recording Code} (ISRCs) from audio CDs and submit them to
2784@url{https://musicbrainz.org/, MusicBrainz}.")
2785 (license license:gpl3+)))
2786
a2eab422 2787(define-public python2-pyechonest
e8fee648 2788 (package
a2eab422 2789 (name "python2-pyechonest")
e8fee648
LF		 2790 (version "9.0.0")
2791 (source (origin
2792 (method url-fetch)
2793 (uri (pypi-uri "pyechonest" version))
2794 (sha256
2795 (base32
2796 "1584nira3rkiman9dm81kdshihmkj21s8navndz2l8spnjwb790x"))))
2797 (build-system python-build-system)
a2eab422
LF		 2798 (arguments
2799 `(;; Python 3 is not supported:
2800 ;; https://github.com/echonest/pyechonest/issues/42
2801 #:python ,python-2))
e8fee648
LF		 2802 (home-page "https://github.com/echonest/pyechonest")
2803 (synopsis "Python interface to The Echo Nest APIs")
d3e3468f
LF		 2804 (description "Pyechonest is a Python library for the Echo Nest API. With
2805Pyechonest you have Python access to the entire set of API methods including:
e8fee648
LF		 2806
2807@enumerate
2808@item artist - search for artists by name, description, or attribute, and get
2809back detailed information about any artist including audio, similar artists,
2810blogs, familiarity, hotttnesss, news, reviews, urls and video.
2811@item song - search songs by artist, title, description, or attribute (tempo,
2812duration, etc) and get detailed information back about each song, such as
2813hotttnesss, audio_summary, or tracks.
2814@item track - upload a track to the Echo Nest and receive summary information
2815about the track including key, duration, mode, tempo, time signature along with
2816detailed track info including timbre, pitch, rhythm and loudness information.
2817@end enumerate\n")
a2eab422 2818 (license license:bsd-3)))
acd7351f
LF		 2819
2820(define-public python-pylast
2821 (package
2822 (name "python-pylast")
653f2b92 2823 (version "2.0.0")
acd7351f
LF		 2824 (source (origin
2825 (method url-fetch)
2826 (uri (pypi-uri "pylast" version))
2827 (sha256
2828 (base32
653f2b92 2829 "0r9h7g8i8l2mgqjwkda3v6prfbkb2im5kap1az9ppmhjm9i4jkcf"))))
acd7351f 2830 (build-system python-build-system)
653f2b92
RW		 2831 ;; Tests require network access. See
2832 ;; https://github.com/pylast/pylast/issues/105
2833 (arguments '(#:tests? #f))
acd7351f
LF		 2834 (native-inputs
2835 `(("python-coverage" ,python-coverage)
653f2b92 2836 ("python-pycodestyle" ,python-pycodestyle)
acd7351f
LF		 2837 ("python-mock" ,python-mock)
2838 ("python-pep8" ,python-pep8)
2839 ("python-pytest" ,python-pytest)
653f2b92 2840 ("python-flaky" ,python-flaky)
acd7351f
LF		 2841 ("python-pyflakes" ,python-pyflakes)
2842 ("python-pyyaml" ,python-pyyaml)))
2843 (propagated-inputs
2844 `(("python-six" ,python-six)))
2845 (home-page "https://github.com/pylast/pylast")
2846 (synopsis "Python interface to Last.fm and Libre.fm")
2847 (description "A Python interface to Last.fm and other API-compatible
2848websites such as Libre.fm.")
5c31f4aa 2849 (license license:asl2.0)))
acd7351f
LF		 2850
2851(define-public python2-pylast
5c31f4aa 2852 (package-with-python2 python-pylast))
3bf429af 2853
b0dea60c
SR		 2854(define-public instantmusic
2855 (let ((commit "300891d09c703525215fa5a116b9294af1c923c8")
2856 (revision "1"))
2857 (package
2858 (name "instantmusic")
2859 (version (git-version "1.0" revision commit))
2860 (source (origin
2861 (method git-fetch)
2862 (uri (git-reference
2863 (url "https://github.com/yask123/Instant-Music-Downloader.git")
2864 (commit commit)))
2865 (file-name (git-file-name name version))
2866 (sha256
2867 (base32
2868 "0j7qivaa04bpdz3anmgci5833dgiyfqqwq9fdrpl9m68b34gl773"))))
2869 (build-system python-build-system)
2870 (propagated-inputs
2871 `(("python-requests" ,python-requests)
c695fb76 2872 ("eyed3" ,eyed3)
b0dea60c
SR		 2873 ("python-beautifulsoup4" ,python-beautifulsoup4)
2874 ("youtube-dl" ,youtube-dl)))
2875 (arguments
2876 '(#:modules ((guix build python-build-system)
2877 (guix build utils)
2878 (srfi srfi-26))
2879 #:phases (modify-phases %standard-phases
2880 (add-before 'build 'change-directory
2881 (lambda _
2882 (chdir "instantmusic-0.1") #t))
4b577961 2883 (add-before 'install 'fix-file-permissions
b0dea60c
SR		 2884 (lambda _
2885 ;; Fix some read-only files that would cause a build failure
2886 (for-each (cut chmod <> #o644)
2887 (find-files "instantmusic.egg-info"
2888 "PKG-INFO|.*\\.txt"))
2889 #t)))))
f23365fa 2890 (home-page "https://github.com/yask123/Instant-Music-Downloader")
b0dea60c
SR		 2891 (synopsis "Command-line program to download a song from YouTube")
2892 (description "InstantMusic downloads a song from YouTube in MP3 format.
c889fbbf 2893 Songs can be searched by artist, name or even by a part of the song text.")
b0dea60c
SR		 2894 (license license:expat))))
2895
3bf429af
LF		 2896(define-public beets
2897 (package
2898 (name "beets")
3f3d712c 2899 (version "1.4.9")
3bf429af
LF		 2900 (source (origin
2901 (method url-fetch)
23319ed6 2902 (uri (pypi-uri "beets" version))
e76cbdcd 2903 (patches (search-patches "beets-werkzeug-compat.patch"))
3bf429af
LF		 2904 (sha256
2905 (base32
3f3d712c 2906 "0m40rjimvfgy1dv04p8f8d5dvi2855v4ix99a9xr900cmcn476yj"))))
3bf429af
LF		 2907 (build-system python-build-system)
2908 (arguments
0d48ff81 2909 `(#:phases
3bf429af
LF		 2910 (modify-phases %standard-phases
2911 (add-after 'unpack 'set-HOME
46fce968
TGR		 2912 (lambda _
2913 (setenv "HOME" (string-append (getcwd) "/tmp"))
2914 #t))
36c2c8c8 2915 (replace 'check
46fce968
TGR		 2916 (lambda _
2917 (invoke "nosetests" "-v"))))))
3bf429af 2918 (native-inputs
0d48ff81
LF		 2919 `(("python-beautifulsoup4" ,python-beautifulsoup4)
2920 ("python-flask" ,python-flask)
2921 ("python-mock" ,python-mock)
2922 ("python-mpd2" ,python-mpd2)
2923 ("python-nose" ,python-nose)
2924 ("python-pathlib" ,python-pathlib)
2925 ("python-pyxdg" ,python-pyxdg)
2926 ("python-pylast" ,python-pylast)
2927 ("python-rarfile" ,python-rarfile)
2928 ("python-responses" ,python-responses)))
3bf429af 2929 ;; TODO: Install optional plugins and dependencies.
b3470031 2930 (inputs
0d48ff81 2931 `(("python-discogs-client" ,python-discogs-client)
0d48ff81
LF		 2932 ("python-jellyfish" ,python-jellyfish)
2933 ("python-munkres" ,python-munkres)
2934 ("python-musicbrainzngs" ,python-musicbrainzngs)
2935 ("python-mutagen" ,python-mutagen)
04a51d0c 2936 ("python-pyacoustid" ,python-pyacoustid)
0d48ff81
LF		 2937 ("python-pyyaml" ,python-pyyaml)
2938 ("python-unidecode" ,python-unidecode)))
d94ec407 2939 (home-page "https://beets.io")
3bf429af
LF		 2940 (synopsis "Music organizer")
2941 (description "The purpose of beets is to get your music collection right
c889fbbf
TGR		 2942 once and for all. It catalogs your collection, automatically improving its
2943 metadata as it goes using the MusicBrainz database. Then it provides a variety
2944 of tools for manipulating and accessing your music.")
3bf429af 2945 (license license:expat)))
21d18113 2946
4ee2cce3
JK		 2947(define-public beets-bandcamp
2948 (package
2949 (name "beets-bandcamp")
2950 (version "0.1.3")
2951 (source (origin
2952 (method url-fetch)
2953 (uri (pypi-uri "beets-bandcamp" version))
2954 (sha256
2955 (base32
2956 "04awg0zdhhg5h510fc1p3qkvr2l1qm6nf85hlr9z8im8a7xlka0i"))))
2957 (build-system python-build-system)
2958 (arguments '(#:tests? #f)) ; there are no tests
2959 (propagated-inputs
2960 `(("beets" ,beets)
2961 ("python-isodate" ,python-isodate)))
2962 (inputs
2963 `(("python-beautifulsoup4" ,python-beautifulsoup4)
2964 ("python-requests" ,python-requests)
2965 ("python-six" ,python-six)))
2966 (home-page "https://github.com/unrblt/beets-bandcamp")
2967 (synopsis "Bandcamp plugin for beets")
2968 (description
2969 "This plugin for beets automatically obtains tag data from @uref{Bandcamp,
c889fbbf
TGR		 2970 https://bandcamp.com/}. It's also capable of getting song lyrics and album art
2971 using the beets FetchArt plugin.")
4ee2cce3
JK		 2972 (license license:gpl2)))
2973
21d18113
KY		 2974(define-public milkytracker
2975 (package
2976 (name "milkytracker")
b7e2fcf0 2977 (version "1.02.00")
21d18113 2978 (source (origin
caa39e56
RW		 2979 (method git-fetch)
2980 (uri (git-reference
2981 (url "https://github.com/milkytracker/MilkyTracker.git")
2982 (commit (string-append "v" version))))
2983 (file-name (git-file-name name version))
21d18113
KY		 2984 (sha256
2985 (base32
caa39e56 2986 "05a6d7l98k9i82dwrgi855dnccm3f2lkb144gi244vhk1156n0ca"))
e3b2e943
KK		 2987 (modules '((guix build utils)))
2988 ;; Remove non-FSDG compliant sample songs.
2989 (snippet
2990 '(begin
2991 (delete-file-recursively "resources/music")
2992 (substitute* "CMakeLists.txt"
6cbee49d
MW		 2993 (("add_subdirectory\\(resources/music\\)") ""))
2994 #t))))
e3b2e943 2995 (build-system cmake-build-system)
21d18113 2996 (arguments
7f2f8345
KK		 2997 '(#:tests? #f ; no check target
2998 ;; This flag ensures that MilkyTracker links with the JACK library.
2999 #:configure-flags '("-DCMAKE_CXX_FLAGS=-ljack")))
21d18113
KY		 3000 (inputs
3001 `(("alsa-lib" ,alsa-lib)
ba259bad 3002 ("lhasa" ,lhasa)
21d18113 3003 ("jack" ,jack-1)
f1618a0f 3004 ("rtmidi" ,rtmidi)
e3b2e943 3005 ("sdl" ,sdl2)
f1618a0f
KK		 3006 ("zlib" ,zlib)
3007 ("zziplib" ,zziplib)))
21d18113
KY		 3008 (native-inputs
3009 `(("pkg-config" ,pkg-config)))
3010 (synopsis "Music tracker for working with .MOD/.XM module files")
3011 (description "MilkyTracker is a music application for creating .MOD and .XM
c889fbbf
TGR		 3012 module files. It attempts to recreate the module replay and user experience of
3013 the popular DOS program Fasttracker II, with special playback modes available
3014 for improved Amiga ProTracker 2/3 compatibility.")
b3ee0c64 3015 (home-page "https://milkytracker.titandemo.org/")
21d18113
KY		 3016 ;; 'src/milkyplay' is under Modified BSD, the rest is under GPL3 or later.
3017 (license (list license:bsd-3 license:gpl3+))))
13416a10 3018
89bcf3fc
KK		 3019(define-public schismtracker
3020 (package
3021 (name "schismtracker")
72aee8a8 3022 (version "20190805")
89bcf3fc 3023 (source (origin
3b9e9415
RW		 3024 (method git-fetch)
3025 (uri (git-reference
3026 (url "https://github.com/schismtracker/schismtracker.git")
3027 (commit version)))
3028 (file-name (git-file-name name version))
89bcf3fc
KK		 3029 (sha256
3030 (base32
72aee8a8 3031 "0qqps20vvn3rgpg8174bjrrm38gqcci2z5z4c1r1vhbccclahgsd"))
89bcf3fc
KK		 3032 (modules '((guix build utils)))
3033 (snippet
3034 ;; Remove use of __DATE__ and __TIME__ for reproducibility.
6cbee49d
MW		 3035 `(begin
3036 (substitute* "schism/version.c"
3037 (("Schism Tracker built %s %s.*$")
c889fbbf
TGR		 3038 (string-append "Schism Tracker version " ,version "\") ;")))
3039 #t))))
89bcf3fc
KK		 3040 (build-system gnu-build-system)
3041 (arguments
3042 `(#:phases
3043 (modify-phases %standard-phases
89bcf3fc
KK		 3044 (add-before 'configure 'link-libm
3045 (lambda _ (setenv "LIBS" "-lm") #t)))))
3046 (native-inputs
3047 `(("autoconf" ,autoconf)
3048 ("automake" ,automake)
3049 ("python" ,python)))
3050 (inputs
e526db51 3051 `(("alsa-lib" ,alsa-lib) ; for asound dependency
89bcf3fc
KK		 3052 ("libx11" ,libx11)
3053 ("libxext" ,libxext)
3054 ("sdl" ,sdl)))
3055 (home-page "http://schismtracker.org")
3056 (synopsis "Oldschool sample-based music composition tool")
3057 (description
3058 "Schism Tracker is a reimplementation of Impulse Tracker, a program used to
3059create high quality music without the requirements of specialized, expensive
3060equipment, and with a unique \"finger feel\" that is difficult to replicate in
3061part. The player is based on a highly modified version of the ModPlug engine,
3062with a number of bugfixes and changes to improve IT playback.")
3063 (license license:gpl2+)))
3064
5beecc32
RW		 3065(define-public sooperlooper
3066 (package
3067 (name "sooperlooper")
3068 (version "1.7.3")
3069 (source (origin
3070 (method url-fetch)
3071 (uri (string-append "http://essej.net/sooperlooper/sooperlooper-"
3072 version ".tar.gz"))
3073 (sha256
3074 (base32
3075 "0n2gdxw1fx8nxxnpzf4sj0kp6k6zi1yq59cbz6qqzcnsnpnvszbs"))
3076 (patches (search-patches "sooperlooper-build-with-wx-30.patch"))))
3077 (build-system gnu-build-system)
3078 (arguments
e6e09dc9 3079 `(#:phases
5beecc32
RW		 3080 (modify-phases %standard-phases
3081 (add-after 'unpack 'add-sigc++-includes
3082 (lambda* (#:key inputs #:allow-other-keys)
3083 (let ((sig (assoc-ref inputs "libsigc++"))
3084 (xml (assoc-ref inputs "libxml2"))
3085 (cwd (getcwd)))
3086 (setenv "CPATH"
3087 (string-append sig "/include/sigc++-2.0:"
3088 sig "/lib/sigc++-2.0/include:"
3089 xml "/include/libxml2/:"
3090 cwd "/libs/pbd:"
e6e09dc9
MB		 3091 cwd "/libs/midi++:"
3092 (or (getenv "CPATH") ""))))
5beecc32
RW		 3093 (substitute* '("src/control_osc.hpp"
3094 "src/gui/app_frame.hpp"
3095 "src/gui/config_panel.hpp"
3096 "src/gui/keys_panel.hpp"
3097 "src/gui/latency_panel.hpp"
3098 "src/gui/main_panel.hpp"
3099 "src/gui/midi_bind_panel.hpp"
3100 "src/gui/prefs_dialog.hpp")
3101 (("sigc\\+\\+/object.h")
3102 "sigc++/sigc++.h"))
3103 (substitute* '("src/engine.cpp"
3104 "src/gui/latency_panel.cpp"
3105 "src/gui/looper_panel.cpp"
3106 "src/gui/main_panel.cpp")
3107 (("(\\(| )bind " _ pre)
3108 (string-append pre "sigc::bind ")))
3109 #t))
3110 (add-after 'unpack 'fix-xpm-warnings
3111 (lambda _
3112 (substitute* (find-files "." "\\.xpm$")
3113 (("static char") "static const char"))
3114 #t)))))
3115 (inputs
3116 `(("jack" ,jack-1)
3117 ("alsa-lib" ,alsa-lib)
3118 ("wxwidgets" ,wxwidgets-gtk2)
3119 ("libsndfile" ,libsndfile)
3120 ("libsamplerate" ,libsamplerate)
3121 ("liblo" ,liblo)
3122 ("rubberband" ,rubberband)
3123 ("libxml2" ,libxml2)
3124 ("libsigc++" ,libsigc++)
3125 ("ncurses" ,ncurses)))
3126 (native-inputs
3127 `(("pkg-config" ,pkg-config)))
3128 (home-page "http://essej.net/sooperlooper/")
3129 (synopsis "Live looping sampler")
3130 (description
3131 "SooperLooper is a live looping sampler capable of immediate loop
3132recording, overdubbing, multiplying, reversing and more. It allows for
3133multiple simultaneous multi-channel loops limited only by your computer's
3134available memory.")
3135 (license license:gpl2+)))
3136
13416a10
KY		 3137(define-public moc
3138 (package
3139 (name "moc")
2fbc004f 3140 (version "2.5.2")
13416a10
KY		 3141 (source (origin
3142 (method url-fetch)
3143 (uri (string-append "http://ftp.daper.net/pub/soft/"
3144 name "/stable/"
3145 name "-" version ".tar.bz2"))
3146 (sha256
3147 (base32
2784b35f 3148 "026v977kwb0wbmlmf6mnik328plxg8wykfx9ryvqhirac0aq39pk"))))
13416a10
KY		 3149 (build-system gnu-build-system)
3150 (inputs
3151 `(("alsa-lib" ,alsa-lib)
3152 ("curl" ,curl)
3153 ("faad2" ,faad2)
bb5c508c 3154 ("ffmpeg" ,ffmpeg-3.4)
13416a10
KY		 3155 ("file" ,file)
3156 ("jack" ,jack-1)
3157 ("libid3tag" ,libid3tag)
3158 ("libltdl" ,libltdl)
3159 ("libmodplug" ,libmodplug)
3160 ("libmpcdec" ,libmpcdec)
3161 ("libmad" ,libmad)
6beaa5a0
MM		 3162 ("libogg" ,libogg)
3163 ("libvorbis" ,libvorbis)
13416a10
KY		 3164 ("ncurses" ,ncurses)
3165 ("openssl" ,openssl)
3166 ("sasl" ,cyrus-sasl)
3167 ("speex" ,speex)
3168 ("taglib" ,taglib)
3169 ("wavpack" ,wavpack)
3170 ("zlib" ,zlib)))
3171 (native-inputs
3172 `(("pkg-config" ,pkg-config)))
3173 (synopsis "Console audio player designed to be powerful and easy to use")
3174 (description
3175 "Music on Console is a console audio player that supports many file
3176formats, including most audio formats recognized by FFMpeg.")
3177 (home-page "http://moc.daper.net")
3178 (license license:gpl2+)))
6d3ef286
JF		 3179
3180(define-public midicsv
3181 (package
3182 (name "midicsv")
3183 (version "1.1")
3184 (source (origin
3185 (method url-fetch)
3186 (uri (string-append "http://www.fourmilab.ch/webtools/midicsv/"
3187 name "-" version ".tar.gz"))
3188 (sha256
3189 (base32
3190 "1vvhk2nf9ilfw0wchmxy8l13hbw9cnpz079nsx5srsy4nnd78nkw"))))
3191 (build-system gnu-build-system)
3192 (arguments
3193 `(#:phases (modify-phases %standard-phases (delete 'configure))
3194 #:make-flags (list "CC=gcc" (string-append "INSTALL_DEST=" %output))))
3195 (synopsis "Convert MIDI files to and from CSV")
3196 (description
3197 "Midicsv reads a standard MIDI file and decodes it into a comma-separated
3198value file (CSV), which preserves all the information in the MIDI file. The
3199ASCII CSV file may be loaded into a spreadsheet or database application, or
3200processed by a program to transform the MIDI data (for example, to key
3201transpose a composition or extract a track from a multi-track sequence). A
3202CSV file in the format created by midicsv may be converted back into a
3203standard MIDI file with the csvmidi program.")
3204 (home-page "http://www.fourmilab.ch/webtools/midicsv/")
3205 (license license:public-domain)))
49604680
RW		 3206
3207(define-public gx-guvnor-lv2
35f909d4
RW		 3208 (package
3209 (name "gx-guvnor-lv2")
3210 (version "0.1")
3211 (source (origin
6ac8c78c
RW		 3212 (method git-fetch)
3213 (uri (git-reference
3214 (url "https://github.com/brummer10/GxGuvnor.lv2.git")
3215 (commit (string-append "v" version))))
3216 (file-name (string-append name "-" version "-checkout"))
35f909d4
RW		 3217 (sha256
3218 (base32
6ac8c78c 3219 "1wa5070j40p7f0b3kr259pzm99xb6cf2badr2capayjvgayd6gnm"))))
35f909d4
RW		 3220 (build-system gnu-build-system)
3221 (arguments
3222 `(;; The check target is used only to output a warning.
3223 #:tests? #f
3224 #:make-flags
3225 (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
3226 #:phases
3227 (modify-phases %standard-phases
3228 (replace 'configure
3229 (lambda _
3230 (substitute* "Makefile"
6ac8c78c
RW		 3231 (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n")
3232 (("install : all") "install :"))
35f909d4
RW		 3233 #t)))))
3234 (inputs
3235 `(("lv2" ,lv2)))
3236 (home-page "https://github.com/brummer10/GxGuvnor.lv2")
3237 (synopsis "Overdrive/distortion pedal simulation")
3238 (description "This package provides the LV2 plugin \"GxGuvnor\", a
49604680 3239simulation of an overdrive or distortion pedal for guitars.")
35f909d4 3240 ;; The LICENSE file says GPLv3 but the license headers in the files say
4b359532
RW		 3241 ;; GPLv2 or later. The whole project is released under GPLv3 or later
3242 ;; according to https://github.com/brummer10/GxGuvnor.lv2/issues/1
3243 (license license:gpl3+)))
85ae347e
RW		 3244
3245(define-public gx-vbass-preamp-lv2
1b74b126
RW		 3246 (let ((commit "eb999b0ca0ef4da40a59e458a9ab6e7042b96c99")
3247 (revision "2"))
85ae347e
RW		 3248 (package (inherit gx-guvnor-lv2)
3249 (name "gx-vbass-preamp-lv2")
3250 (version (string-append "0-" revision "." (string-take commit 9)))
3251 (source (origin
3252 (method git-fetch)
3253 (uri (git-reference
3254 (url "https://github.com/brummer10/GxVBassPreAmp.lv2")
3255 (commit commit)))
3256 (sha256
3257 (base32
1b74b126 3258 "0firap073ldw4nrykkd7jvyyj0jbl1nslxyzjj4kswazp99x7d9h"))
85ae347e 3259 (file-name (string-append name "-" version "-checkout"))))
1b74b126
RW		 3260 (inputs
3261 `(("lv2" ,lv2)
3262 ("gtk+" ,gtk+-2)))
3263 (native-inputs
3264 `(("pkg-config" ,pkg-config)))
85ae347e
RW		 3265 (home-page "https://github.com/brummer10/GxVBassPreAmp.lv2")
3266 (synopsis "Simulation of the Vox Venue Bass 100 Pre Amp Section")
3267 (description "This package provides the LV2 plugin \"GxVBassPreAmp\", a
3268pre-amplifier simulation modelled after the 1984 Vox Venue Bass 100 Pre Amp
3269Section."))))
cdc7a021
RW		 3270
3271(define-public gx-overdriver-lv2
3272 (let ((commit "ed71801987449414bf3adaa0dbfac68e8775f1ce")
3273 (revision "1"))
1b74b126 3274 (package (inherit gx-guvnor-lv2)
cdc7a021
RW		 3275 (name "gx-overdriver-lv2")
3276 (version (string-append "0-" revision "." (string-take commit 9)))
3277 (source (origin
3278 (method git-fetch)
3279 (uri (git-reference
3280 (url "https://github.com/brummer10/GxOverDriver.lv2")
3281 (commit commit)))
3282 (sha256
3283 (base32
3284 "13j614jh525fbkby79nnzwj0z1ac0c9wclyn5pfqvkmx6a7j24r8"))
3285 (file-name (string-append name "-" version "-checkout"))))
3286 (home-page "https://github.com/brummer10/GxOverDriver.lv2")
3287 (synopsis "Overdrive effect with level and tone control")
3288 (description "This package provides the LV2 plugin \"GxOverDriver\", an
3289overdrive effect."))))
4d95cd30
RW		 3290
3291(define-public gx-tone-mender-lv2
3292 (let ((commit "b6780b4a3e4782b3ed0e5882d6788f178aed138f")
3293 (revision "1"))
1b74b126 3294 (package (inherit gx-guvnor-lv2)
4d95cd30
RW		 3295 (name "gx-tone-mender-lv2")
3296 (version (string-append "0-" revision "." (string-take commit 9)))
3297 (source (origin
3298 (method git-fetch)
3299 (uri (git-reference
3300 (url "https://github.com/brummer10/GxToneMender.lv2")
3301 (commit commit)))
3302 (sha256
3303 (base32
3304 "07qdcfsvv2vdnfnjh91pfgvjdcs5y91nvwfm8c0z8fp6b4bk7a9q"))
3305 (file-name (string-append name "-" version "-checkout"))))
3306 (home-page "https://github.com/brummer10/GxToneMender.lv2")
3307 (synopsis "Clean boost with a 3-knob tonestack")
3308 (description "This package provides the LV2 plugin \"GxToneMender\", a
3309clean boost effect with a 3-knob tonestack."))))
4d4bfdc2
RW		 3310
3311(define-public gx-push-pull-lv2
3312 (let ((commit "7f76ae2068498643ac8671ee0930b13ee3fd8eb5")
3313 (revision "1"))
1b74b126 3314 (package (inherit gx-guvnor-lv2)
4d4bfdc2
RW		 3315 (name "gx-push-pull-lv2")
3316 (version (string-append "0-" revision "." (string-take commit 9)))
3317 (source (origin
3318 (method git-fetch)
3319 (uri (git-reference
3320 (url "https://github.com/brummer10/GxPushPull.lv2")
3321 (commit commit)))
3322 (sha256
3323 (base32
3324 "12f5hwck2irph0gjbj8xy8jqcqdwb8l1hlwf29k0clz52h1jhb5q"))
3325 (file-name (string-append name "-" version "-checkout"))))
3326 (home-page "https://github.com/brummer10/GxPushPull.lv2")
3327 (synopsis "Octave up push pull transistor fuzz simulation")
3328 (description "This package provides the LV2 plugin \"GxPushPull\", a
3329simulation of a push pull transistor fuzz effect with added high octave."))))
3eb1a964
RW		 3330
3331(define-public gx-suppa-tone-bender-lv2
f959991d
RW		 3332 (package (inherit gx-guvnor-lv2)
3333 (name "gx-suppa-tone-bender-lv2")
3334 (version "0.1")
3335 (source (origin
48b95a19
RW		 3336 (method git-fetch)
3337 (uri (git-reference
3338 (url "https://github.com/brummer10/GxSuppaToneBender.lv2.git")
3339 (commit (string-append "v" version))))
3340 (file-name (string-append name "-" version "-checkout"))
f959991d
RW		 3341 (sha256
3342 (base32
48b95a19 3343 "01x6bjmllkmvxfzc5xwdix7w021j26js71awv728cxsmkxgqw0zy"))))
f959991d
RW		 3344 (home-page "https://github.com/brummer10/GxSuppaToneBender.lv2")
3345 (synopsis "Simulation of the Vox Suppa Tone Bender pedal")
3346 (description "This package provides the LV2 plugin
3eb1a964 3347\"GxSuppaToneBender\", a simulation modelled after the Vox Suppa Tone Bender
f959991d 3348pedal.")))
664f677f
RW		 3349
3350(define-public gx-saturator-lv2
d9f65bd3
RW		 3351 (let ((commit "605330f432c94b6eb3f8203cbe472befae959532")
3352 (revision "3"))
ad67ca3d 3353 (package (inherit gx-vbass-preamp-lv2)
664f677f
RW		 3354 (name "gx-saturator-lv2")
3355 (version (string-append "0-" revision "." (string-take commit 9)))
3356 (source (origin
3357 (method git-fetch)
3358 (uri (git-reference
3359 (url "https://github.com/brummer10/GxSaturator.lv2")
3360 (commit commit)))
3361 (sha256
3362 (base32
d9f65bd3 3363 "1w4nvh0rmxrv3s3hmh4fs74f3hc0jn31v00j769j7v68mqr7kawy"))
664f677f
RW		 3364 (file-name (string-append name "-" version "-checkout"))))
3365 (home-page "https://github.com/brummer10/GxSaturator.lv2")
3366 (synopsis "Saturation effect")
3367 (description "This package provides the LV2 plugin \"GxSaturator\", a
3368saturation effect."))))
89412238
RW		 3369
3370(define-public gx-hyperion-lv2
4396e9b5
RW		 3371 (package (inherit gx-guvnor-lv2)
3372 (name "gx-hyperion-lv2")
3373 (version "0.1")
3374 (source (origin
37519239
RW		 3375 (method git-fetch)
3376 (uri (git-reference
3377 (url "https://github.com/brummer10/GxHyperion.lv2.git")
3378 (commit (string-append "v" version))))
3379 (file-name (string-append name "-" version "-checkout"))
4396e9b5
RW		 3380 (sha256
3381 (base32
37519239 3382 "1vx79s6s9if117y2g0ppdja2sv2wcny6xcfl3j1z4cipahnildxf"))))
4396e9b5
RW		 3383 (home-page "https://github.com/brummer10/GxHyperion.lv2")
3384 (synopsis "Simulation of the Hyperion Fuzz pedal")
3385 (description "This package provides the LV2 plugin \"GxHyperion\", a
3386simulation of the Hyperion Fuzz pedal.")))
32536f00
RW		 3387
3388(define-public gx-voodoo-fuzz-lv2
cf44ebeb
RW		 3389 (package (inherit gx-guvnor-lv2)
3390 (name "gx-voodoo-fuzz-lv2")
3391 (version "0.1")
3392 (source (origin
d42c6613
RW		 3393 (method git-fetch)
3394 (uri (git-reference
3395 (url "https://github.com/brummer10/GxVoodoFuzz.lv2.git")
3396 (commit (string-append "v" version))))
3397 (file-name (string-append name "-" version "-checkout"))
cf44ebeb
RW		 3398 (sha256
3399 (base32
d42c6613 3400 "1v0scphivri1fk4hl20j13f92i48mnx1zsil4hgnadsmm4nsfw43"))))
cf44ebeb
RW		 3401 (home-page "https://github.com/brummer10/GxVoodoFuzz.lv2")
3402 (synopsis "Fuzz effect modelled after the Voodoo Lab SuperFuzz")
3403 (description "This package provides the LV2 plugin \"GxVoodooFuzz\", a
32536f00
RW		 3404simulation modelled after the Voodoo Lab SuperFuzz pedal. It's basically a
3405Bosstone circuit, followed by the tone control of the FoxToneMachine in
cf44ebeb 3406parallel with a DarkBooster, followed by a volume control.")))
29f63222
RW		 3407
3408(define-public gx-super-fuzz-lv2
34a3ecfe
RW		 3409 (package (inherit gx-guvnor-lv2)
3410 (name "gx-super-fuzz-lv2")
3411 (version "0.1")
3412 (source (origin
5057535f
RW		 3413 (method git-fetch)
3414 (uri (git-reference
3415 (url "https://github.com/brummer10/GxSuperFuzz.lv2.git")
3416 (commit (string-append "v" version))))
3417 (file-name (string-append name "-" version "-checkout"))
34a3ecfe
RW		 3418 (sha256
3419 (base32
5057535f 3420 "1jlljd9hlgfflbiizq47lv1xbbgjyx3v835mf24zmh1q5zsw4np4"))))
34a3ecfe
RW		 3421 (home-page "https://github.com/brummer10/GxSuperFuzz.lv2")
3422 (synopsis "Fuzz effect modelled after the UniVox SuperFuzz")
a6f39d7c 3423 (description "This package provides the LV2 plugin \"GxSuperFuzz\", an
29f63222 3424analog simulation of the UniVox SuperFuzz pedal. In this simulation the trim
d1e4ad1b 3425pot, which is usually in the housing, is exposed as a control parameter. It
34a3ecfe 3426adjusts the amount of harmonics.")))
40bffdfa
RW		 3427
3428(define-public gx-vintage-fuzz-master-lv2
38050923
RW		 3429 (package (inherit gx-guvnor-lv2)
3430 (name "gx-vintage-fuzz-master-lv2")
3431 (version "0.1")
3432 (source (origin
0febd673
RW		 3433 (method git-fetch)
3434 (uri (git-reference
3435 (url "https://github.com/brummer10/GxVintageFuzzMaster.lv2.git")
3436 (commit (string-append "v" version))))
3437 (file-name (string-append name "-" version "-checkout"))
38050923
RW		 3438 (sha256
3439 (base32
0febd673 3440 "02jb211z8rw2qr5r1z5mdxlqgiw6cbc319xpqplvn6k21c59mskv"))))
38050923
RW		 3441 (home-page "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
3442 (synopsis "Fuzz effect simulation of the vintage Fuzz Master")
3443 (description "This package provides the LV2 plugin
3444\"GxVintageFuzzMaster\", a simulation of the vintage Fuzz Master pedal.")))
631f8175
RW		 3445
3446(define-public gx-slow-gear-lv2
d921a1f4
RW		 3447 (let ((commit "5d37e775b0feef1d82feee94e2a7a2d7e57efe2d")
3448 (revision "3"))
ad67ca3d 3449 (package (inherit gx-vbass-preamp-lv2)
631f8175
RW		 3450 (name "gx-slow-gear-lv2")
3451 (version (string-append "0-" revision "." (string-take commit 9)))
3452 (source (origin
3453 (method git-fetch)
3454 (uri (git-reference
3455 (url "https://github.com/brummer10/GxSlowGear.lv2")
3456 (commit commit)))
3457 (sha256
3458 (base32
d921a1f4 3459 "141mz69zkhk3lm54bb6wgpnghb92zm1ig7fv07240cmhydqji1q1"))
631f8175
RW		 3460 (file-name (string-append name "-" version "-checkout"))))
3461 (home-page "https://github.com/brummer10/GxSlowGear.lv2")
3462 (synopsis "Slow gear audio effect")
3463 (description "This package provides the LV2 plugin \"GxSlowGear\", a
3464slow gear audio effect to produce volume swells."))))
d75e8f5a
RW		 3465
3466(define-public gx-switchless-wah-lv2
cfcef2c2
RW		 3467 (let ((commit "7b08691203314612999f0ce2328cdc1161cd6665")
3468 (revision "2"))
1b74b126 3469 (package (inherit gx-guvnor-lv2)
d75e8f5a
RW		 3470 (name "gx-switchless-wah-lv2")
3471 (version (string-append "0-" revision "." (string-take commit 9)))
3472 (source (origin
3473 (method git-fetch)
3474 (uri (git-reference
3475 (url "https://github.com/brummer10/GxSwitchlessWah.lv2")
3476 (commit commit)))
3477 (sha256
3478 (base32
cfcef2c2 3479 "04jqfpncmrrqn34p21w4v9m2x5a5wsqwbm4f3byxvq4vcibwxzk2"))
d75e8f5a
RW		 3480 (file-name (string-append name "-" version "-checkout"))))
3481 (home-page "https://github.com/brummer10/GxSwitchlessWah.lv2")
3482 (synopsis "Wah emulation with switchless activation")
3483 (description "This package provides the LV2 plugin \"GxSwitchlessWah\",
3484a simulation of an analog Wah pedal with switchless activation."))))
84d53724 3485
a734da86 3486(define-public rkrlv2
b2dcfaf2
RW		 3487 ;; This commit corresponds to the beta_3 tag
3488 (let ((commit "7edcb4e29a358623bfd57fa2c27e5da60adfcec3")
3489 (revision "2"))
a734da86
RW		 3490 (package
3491 (name "rkrlv2")
3492 (version (git-version "0" revision commit))
3493 (source (origin
3494 (method git-fetch)
3495 (uri (git-reference
3496 (url "https://github.com/ssj71/rkrlv2.git")
3497 (commit commit)))
3498 (sha256
3499 (base32
b2dcfaf2 3500 "16i4ajrib7kb0abdcn4901g8a4lkwkp2fyqyms38dhqq84slyfjs"))
a734da86
RW		 3501 (file-name (git-file-name name version))))
3502 (build-system cmake-build-system)
3503 (arguments '(#:tests? #f)) ; there are no tests
3504 (inputs
3505 `(("fftw" ,fftw)
3506 ("libsamplerate" ,libsamplerate)
3507 ("lv2" ,lv2)))
3508 (native-inputs
3509 `(("pkg-config" ,pkg-config)))
3510 (home-page "https://github.com/ssj71/rkrlv2")
3511 (synopsis "Rakarrack effects ported to LV2 plugins")
3512 (description "This package provides the Rakarrack effects as LV2
3513plugins. The ports are done such that hopefully when Rakarrack gets an active
3514maintainer these will get merged into the original project.")
3515 (license license:gpl2))))
3516
84d53724 3517(define-public mod-utilities
fe049d21
RW		 3518 (let ((commit "80ea3ea9f52fab7f191671f4810bf90fc955a046")
3519 (revision "2"))
84d53724
RW		 3520 (package
3521 (name "mod-utilities")
3522 (version (string-append "0-" revision "." (string-take commit 9)))
3523 (source (origin
3524 (method git-fetch)
3525 (uri (git-reference
3526 (url "https://github.com/moddevices/mod-utilities.git")
3527 (commit commit)))
fe049d21 3528 (file-name (string-append name "-" version "-checkout"))
84d53724
RW		 3529 (sha256
3530 (base32
fe049d21 3531 "1v55zmzmlg0ka7341x5lsvb44amy17vk27s669ps1basd1bk5s5v"))))
84d53724
RW		 3532 (build-system gnu-build-system)
3533 (arguments
3534 `(#:tests? #f ; there are no tests
3535 #:make-flags
3536 (list (string-append "INSTALL_PATH="
3537 (assoc-ref %outputs "out")
fe049d21
RW		 3538 "/lib/lv2")
3539 (string-append "PREFIX=" (assoc-ref %outputs "out"))
3540 "CC=gcc")
84d53724
RW		 3541 #:phases
3542 (modify-phases %standard-phases
3543 (delete 'configure))))
3544 (inputs
3545 `(("lv2" ,lv2)))
3546 (home-page "https://github.com/moddevices/mod-utilities")
3547 (synopsis "LV2 utility plugins")
3548 (description "This package provides LV2 audio utility plugins, such as
3549filters, crossovers, simple gain plugins without zipper noise, switch box
3550plugins, a switch trigger, a toggle switch, and a peakmeter.")
3551 (license license:gpl2+))))
d3db5efb 3552
951581a2 3553(define-public ingen
19748414
RW		 3554 (let ((commit "cc4a4db33f4d126a07a4a498e053c5fb9a883be3")
3555 (revision "2"))
951581a2
RW		 3556 (package
3557 (name "ingen")
3558 (version (string-append "0.0.0-" revision "."
3559 (string-take commit 9)))
3560 (source
3561 (origin
3562 (method git-fetch)
3563 (uri (git-reference
0d0252e4 3564 (url "https://git.drobilla.net/ingen.git")
951581a2
RW		 3565 (commit commit)))
3566 (file-name (string-append name "-" version "-checkout"))
3567 (sha256
3568 (base32
19748414 3569 "1wg47vjw9djn99gbnsl2bcwj4xhdid61m4wrbn2nlp797flj91ic"))))
951581a2
RW		 3570 (build-system waf-build-system)
3571 (arguments
f9dcf79f
RW		 3572 `(#:python ,python-2
3573 #:tests? #f ; no "check" target
951581a2
RW		 3574 #:configure-flags (list "--no-webkit")
3575 #:phases
3576 (modify-phases %standard-phases
3577 (add-after 'unpack 'patch-wscript
3578 (lambda* (#:key outputs #:allow-other-keys)
3579 (let ((out (assoc-ref outputs "out")))
3580 (substitute* "wscript"
3581 ;; FIXME: Our version of lv2specgen.py does not behave as
3582 ;; expected. Maybe this requires a development version of
3583 ;; LV2.
3584 (("lv2specgen.py") "touch ingen.lv2/ingen.html; echo")
3585 ;; Add libraries to RUNPATH.
3586 (("^(.+)target.*= 'src/ingen/ingen'," line prefix)
3587 (string-append prefix
3588 "linkflags=[\"-Wl,-rpath="
3589 out "/lib" "\"]," line)))
3590 (substitute* '("src/wscript"
3591 "src/server/wscript")
3592 ;; Add libraries to RUNPATH.
3593 (("bld.env.PTHREAD_LINKFLAGS" line)
3594 (string-append line
3595 " + [\"-Wl,-rpath=" out "/lib" "\"]")))
3596 (substitute* "src/client/wscript"
3597 ;; Add libraries to RUNPATH.
3598 (("^(.+)target.*= 'ingen_client'," line prefix)
3599 (string-append prefix
3600 "linkflags=[\"-Wl,-rpath="
3601 out "/lib" "\"]," line)))
3602 (substitute* "src/gui/wscript"
3603 ;; Add libraries to RUNPATH.
3604 (("^(.+)target.* = 'ingen_gui.*" line prefix)
3605 (string-append prefix
3606 "linkflags=[\"-Wl,-rpath="
3607 out "/lib" "\"]," line))))
3608 #t)))))
3609 (inputs
3610 `(("boost" ,boost)
3611 ("python-rdflib" ,python-rdflib)
3612 ("python" ,python)
3613 ("jack" ,jack-1)
a2467954 3614 ("lv2" ,lv2)
951581a2
RW		 3615 ("lilv" ,lilv)
3616 ("raul" ,raul-devel)
c178d5fa 3617 ("ganv" ,ganv)
951581a2
RW		 3618 ("suil" ,suil)
3619 ("serd" ,serd)
3620 ("sord" ,sord)
3621 ("sratom" ,sratom)
3622 ("gtkmm" ,gtkmm-2)))
3623 (native-inputs
3624 `(("pkg-config" ,pkg-config)
3625 ("python-pygments" ,python-pygments)))
0d0252e4 3626 (home-page "https://drobilla.net/software/ingen")
951581a2
RW		 3627 (synopsis "Modular audio processing system")
3628 (description "Ingen is a modular audio processing system for JACK and
3629LV2 based systems. Ingen is built around LV2 technology and a strict
3630separation of engine from user interface. The engine is controlled
3631exclusively through a protocol, and can execute as a headless process, with an
3632in-process GUI, or as an LV2 plugin. The GUI can run as a program which
3633communicates over a Unix or TCP/IP socket, or as an embeddable LV2 GUI which
3634communicates via LV2 ports. Any saved Ingen graph can be loaded as an LV2
3635plugin on any system where Ingen is installed. This allows users to visually
3636develop custom plugins for use in other applications without programming.")
3637 (license license:agpl3+))))
3638
b3410b44
RW		 3639(define-public qmidiarp
3640 (package
3641 (name "qmidiarp")
b6313997 3642 (version "0.6.5")
b3410b44
RW		 3643 (source (origin
3644 (method url-fetch)
3645 (uri (string-append "mirror://sourceforge/qmidiarp/qmidiarp/"
3646 version "/qmidiarp-" version ".tar.bz2"))
3647 (sha256
3648 (base32
b6313997 3649 "043yh1p0rrbj1v840y27529m9260g55gvh1km8az4jxy7mns58r2"))))
b3410b44
RW		 3650 (build-system gnu-build-system)
3651 (arguments
3652 `(#:configure-flags
0fe041bd 3653 (list "--enable-qt5")))
b3410b44
RW		 3654 (inputs
3655 `(("qtbase" ,qtbase)
3656 ("alsa-lib" ,alsa-lib)
3657 ("jack" ,jack-1)
3658 ("liblo" ,liblo)
3659 ("lv2" ,lv2)))
3660 (native-inputs
3661 `(("pkg-config" ,pkg-config)
3662 ("qttools" ,qttools)))
3663 (home-page "http://qmidiarp.sourceforge.net/")
3664 (synopsis "MIDI arpeggiator")
3665 (description "QMidiArp is an advanced MIDI arpeggiator, programmable step
3666sequencer and LFO. It can hold any number of arpeggiator, sequencer, or LFO
3667modules running in parallel.")
3668 (license license:gpl2+)))
3669
ff49437d
RW		 3670(define-public qmidiroute
3671 (package
3672 (name "qmidiroute")
3673 (version "0.4.0")
3674 (source (origin
3675 (method url-fetch)
3676 (uri (string-append "mirror://sourceforge/alsamodular/QMidiRoute/"
3677 version "/qmidiroute-" version ".tar.bz2"))
3678 (sha256
3679 (base32
3680 "19v1ppbglgl3z9v7xdqc0k33w71cqq8a7d6ihvfs7iz77dygrih9"))))
3681 (build-system gnu-build-system)
3682 (arguments
3683 `(#:configure-flags
0fe041bd 3684 (list "--enable-qt5")))
ff49437d
RW		 3685 (inputs
3686 `(("qtbase" ,qtbase)
3687 ("alsa-lib" ,alsa-lib)))
3688 (native-inputs
3689 `(("pkg-config" ,pkg-config)
3690 ("qttools" ,qttools)))
3691 (home-page "http://alsamodular.sourceforge.net/")
3692 (synopsis "MIDI event router and filter")
3693 (description "QMidiRoute is a MIDI event router and filter. MIDI note,
3694control change, program change and pitch bend events are logged, and can be
3695filtered, redirected and transformed into other events according to MIDI maps
3696defined as tabs in the main control surface.")
3697 (license license:gpl2+)))
3698
5a66e25c
RW		 3699(define-public seq24
3700 (package
3701 (name "seq24")
3702 (version "0.9.3")
3703 (source (origin
3704 (method url-fetch)
3705 (uri (string-append "https://launchpad.net/seq24/trunk/"
3706 version "/+download/seq24-"
3707 version ".tar.bz2"))
3708 (sha256
3709 (base32
3710 "12dphdhnvfk1k0vmagi1v2lhyxjyj1j3cz6ksjw0ydcvid1x8ap2"))
3711 (patches (search-patches "seq24-rename-mutex.patch"))))
3712 (build-system gnu-build-system)
5a66e25c
RW		 3713 (inputs
3714 `(("gtkmm" ,gtkmm-2)
3715 ("alsa-lib" ,alsa-lib)
3716 ("jack" ,jack-1)
3717 ("lash" ,lash)))
3718 (native-inputs
3719 `(("pkg-config" ,pkg-config)))
3720 (home-page "https://edge.launchpad.net/seq24/")
3721 (synopsis "Real-time MIDI sequencer")
3722 (description "Seq24 is a real-time MIDI sequencer. It was created to
3723provide a very simple interface for editing and playing MIDI loops.")
3724 (license license:gpl2+)))
3725
d3db5efb
LF		 3726(define-public python-discogs-client
3727 (package
3728 (name "python-discogs-client")
3729 (version "2.2.1")
3730 (source (origin
3731 (method url-fetch)
3732 (uri (pypi-uri "discogs-client" version))
3733 (sha256
3734 (base32
3735 "053ld2psh0yj3z0kg6z5bn4y3cr562m727494n0ayhgzbkjbacly"))))
3736 (build-system python-build-system)
3737 (propagated-inputs
3738 `(("python-oauthlib" ,python-oauthlib)
3739 ("python-requests" ,python-requests)))
3740 (native-inputs
3741 `(("python-six" ,python-six)))
3742 (home-page "https://github.com/discogs/discogs_client")
3743 (synopsis "Official Python client for the Discogs API")
3744 (description "This is the official Discogs API client for Python. It enables
3745you to query the Discogs database for information on artists, releases, labels,
3746users, Marketplace listings, and more. It also supports OAuth 1.0a
3747authorization, which allows you to change user data such as profile information,
3748collections and wantlists, inventory, and orders.")
80983df3 3749 (license license:bsd-2)))
d3db5efb
LF		 3750
3751(define-public python2-discogs-client
80983df3 3752 (package-with-python2 python-discogs-client))
a4f05b46 3753
3754(define-public libsmf
3755 (package
3756 (name "libsmf")
3757 (version "1.3")
3758 (source
3759 (origin
3760 (method url-fetch)
3761 ;; SF download page says development moved, but the link it points to
3762 ;; is gone (https://github.com/nilsgey/libsmf). Someone else adopted
3763 ;; it but made no release so far (https://github.com/stump/libsmf).
3764 (uri (string-append "mirror://sourceforge/libsmf/libsmf/"
3765 version "/libsmf-" version ".tar.gz"))
3766 (sha256
3767 (base32
3768 "16c0n40h0r56gzbh5ypxa4dwp296dan3jminml2qkb4lvqarym6k"))))
3769 (build-system gnu-build-system)
3770 (outputs '("out"
3771 "static")) ; 88KiB of .a files
3772 (arguments
3773 `(#:phases
3774 (modify-phases %standard-phases
3775 (add-after 'install 'move-static-libraries
3776 (lambda* (#:key outputs #:allow-other-keys)
3777 ;; Move static libraries to the "static" output.
3778 (let* ((out (assoc-ref outputs "out"))
3779 (lib (string-append out "/lib"))
3780 (static (assoc-ref outputs "static"))
3781 (slib (string-append static "/lib")))
3782 (mkdir-p slib)
3783 (for-each (lambda (file)
3784 (install-file file slib)
3785 (delete-file file))
3786 (find-files lib "\\.a$"))
3787 #t))))))
3788 (inputs
3789 `(("readline" ,readline)
3790 ("glib" ,glib)))
3791 (native-inputs
3792 `(("doxygen" ,doxygen)
3793 ("pkg-config" ,pkg-config)))
3794 (home-page "http://libsmf.sourceforge.net/")
3795 (synopsis "Standard MIDI File format library")
3796 (description
3797 "LibSMF is a C library for handling SMF (\"*.mid\") files. It transparently handles
3798conversions between time and pulses, tempo map handling and more. The only dependencies
3799are a C compiler and glib. Full API documentation and examples are included.")
3800 (license license:bsd-2)))
a42619e5
RF		 3801
3802(define-public lmms
3803 (package
3804 (name "lmms")
e5c44790 3805 (version "1.2.1")
a42619e5
RF		 3806 (source
3807 (origin
3a0592ae
RW		 3808 (method git-fetch)
3809 (uri (git-reference
3810 (url "https://github.com/LMMS/lmms.git")
3811 (commit (string-append "v" version))))
3812 (file-name (git-file-name name version))
a42619e5
RF		 3813 (sha256
3814 (base32
e5c44790 3815 "1gx730z361xx30iqbsm99aam1k2c8yf561gcay6sryyjksb4w1wy"))))
a42619e5
RF		 3816 (build-system cmake-build-system)
3817 (arguments
3818 `(#:tests? #f ; no tests
e5c44790
KK		 3819 ;; Qt 5 support must be explicitly enabled in the 1.2 stable versions of
3820 ;; LMMS, so try removing "-DWANT_QT5=ON" in later versions.
3821 ;; Also, explicitly disabling VST support gets rid of the in-tree
3822 ;; dependency on qt5-x11embed.
3823 #:configure-flags '("-DWANT_QT5=ON"
3824 "-DWANT_VST=OFF")
a42619e5
RF		 3825 #:phases
3826 (modify-phases %standard-phases
e5c44790
KK		 3827 (add-after 'unpack 'unpack-rpmalloc
3828 (lambda* (#:key inputs #:allow-other-keys)
3829 (copy-recursively (assoc-ref inputs "rpmalloc")
3830 "src/3rdparty/rpmalloc/rpmalloc")
3831 #t))
ab2ccf4c
KK		 3832 (add-before 'configure 'set-ldflags
3833 (lambda* (#:key outputs #:allow-other-keys)
3834 (setenv "LDFLAGS"
3835 (string-append
3836 "-Wl,-rpath=\""
3837 (assoc-ref outputs "out") "/lib/lmms"
3838 ":"
3839 (assoc-ref outputs "out") "/lib/lmms/ladspa"
3840 "\""))
3841 #t))
ab2ccf4c
KK		 3842 (add-before 'reset-gzip-timestamps 'make-manpages-writable
3843 (lambda* (#:key outputs #:allow-other-keys)
3844 (map (lambda (file)
3845 (make-file-writable file))
3846 (find-files (string-append (assoc-ref outputs "out")
3847 "/share/man")
3848 ".*\\.gz$"))
3849 #t)))))
a42619e5 3850 (native-inputs
e5c44790
KK		 3851 `(("pkg-config" ,pkg-config)
3852 ("qttools" ,qttools)
3853 ;; rpmalloc is a public domain memory allocator. This version specified
3854 ;; below is the version required by LMMS.
3855 ;; To get the new commit of rpmalloc to use here, run
3856 ;; `git submodule--helper list | grep rpmalloc | cut -f2 -d' '`
3857 ;; in the cloned LMMS repository.
3858 ("rpmalloc"
3859 ,(origin
3860 (method git-fetch)
3861 (uri (git-reference
3862 (url "https://github.com/mjansson/rpmalloc.git")
3863 (commit "b5bdc18051bb74a22f0bde4bcc90b01cf590b496")))
3864 (sha256
3865 (base32
3866 "0g9pls46iggg7rdm65vzfj8nyr3v2n5xkp54c4qbh9hhalpsw4ay"))))))
a42619e5
RF		 3867 (inputs
3868 `(("sdl" ,sdl)
e5c44790
KK		 3869 ("qtbase" ,qtbase)
3870 ("qtx11extras" ,qtx11extras)
a42619e5
RF		 3871 ("fltk" ,fltk)
3872 ("libogg" ,libogg)
3873 ("libsamplerate" ,libsamplerate)
e5c44790 3874 ("fluidsynth" ,fluidsynth)
a42619e5
RF		 3875 ("libvorbis" ,libvorbis)
3876 ("alsa-lib" ,alsa-lib)
3877 ("portaudio" ,portaudio)
3878 ("ladspa" ,ladspa)
3879 ("libsndfile1" ,libsndfile)
3880 ("libxft" ,libxft)
3881 ("freetype2" ,freetype)
4bfc925a
P		 3882 ("fftw3f" ,fftwf)
3883 ("jack" ,jack-1)))
a42619e5
RF		 3884 (home-page "https://lmms.io/")
3885 (synopsis "Music composition tool")
3886 (description "LMMS is a digital audio workstation. It includes tools for sequencing
3887melodies and beats and for mixing and arranging songs. LMMS includes instruments based on
3888audio samples and various soft sythesizers. It can receive input from a MIDI keyboard.")
3889 (license license:gpl2+)))
a7a7186c
NG		 3890
3891(define-public musescore
3892 (package
3893 (name "musescore")
436dd1de 3894 (version "3.4.2")
3212b964
NG		 3895 (source
3896 (origin
3897 (method git-fetch)
3898 (uri (git-reference
3899 (url "https://github.com/musescore/MuseScore.git")
3900 (commit (string-append "v" version))))
3901 (file-name (git-file-name name version))
3902 (sha256
436dd1de 3903 (base32 "14a9sg87nx7xca1qfbkplnpbx9pyg9k9vy87dq0g401ag6g6bi66"))
3212b964
NG		 3904 (modules '((guix build utils)))
3905 (snippet
3906 ;; Un-bundle OpenSSL and remove unused libraries.
3907 '(begin
3908 (for-each delete-file-recursively
3909 '("thirdparty/freetype"
3910 "thirdparty/openssl"
3911 "thirdparty/portmidi"))
3912 #t))))
11d44d0b 3913 (build-system cmake-build-system)
a7a7186c 3914 (arguments
11d44d0b 3915 `(#:configure-flags
3212b964
NG		 3916 `("-DBUILD_TELEMETRY_MODULE=OFF" ;don't phone home
3917 "-DBUILD_WEBENGINE=OFF"
8d611ef0
NG		 3918 "-DDOWNLOAD_SOUNDFONT=OFF"
3919 "-DUSE_SYSTEM_FREETYPE=ON")
11d44d0b
NG		 3920 ;; There are tests, but no simple target to run. The command used to
3921 ;; run them is:
a7a7186c
NG		 3922 ;;
3923 ;; make debug && sudo make installdebug && cd \
3924 ;; build.debug/mtest && make && ctest
3925 ;;
3926 ;; Basically, it requires to start a whole new build process.
3927 ;; So we simply skip them.
11d44d0b 3928 #:tests? #f))
a7a7186c
NG		 3929 (inputs
3930 `(("alsa-lib" ,alsa-lib)
3931 ("freetype" ,freetype)
3932 ("gtk+-bin" ,gtk+ "bin") ;for gtk-update-icon-cache
3933 ("jack" ,jack-1)
3934 ("lame" ,lame)
3935 ("libogg" ,libogg)
3936 ("libsndfile" ,libsndfile)
3937 ("libvorbis" ,libvorbis)
3938 ("portaudio" ,portaudio)
b3891a25 3939 ("portmidi" ,portmidi)
a7a7186c
NG		 3940 ("pulseaudio" ,pulseaudio)
3941 ("qtbase" ,qtbase)
3942 ("qtdeclarative" ,qtdeclarative)
436dd1de 3943 ("qtquickcontrols2" ,qtquickcontrols2)
a7a7186c
NG		 3944 ("qtscript" ,qtscript)
3945 ("qtsvg" ,qtsvg)
a7a7186c
NG		 3946 ("qtxmlpatterns" ,qtxmlpatterns)))
3947 (native-inputs
11d44d0b 3948 `(("pkg-config" ,pkg-config)
a7a7186c
NG		 3949 ("qttools" ,qttools)))
3950 (synopsis "Music composition and notation software")
3951 (description "MuseScore is a music score typesetter. Its main purpose is
3952the creation of high-quality engraved musical scores in a WYSIWYG environment.
3953
3954It supports unlimited staves, linked parts and part extraction, tablature,
3955MIDI input, percussion notation, cross-staff beaming, automatic transposition,
3956lyrics (multiple verses), fretboard diagrams, and in general everything
3957commonly used in sheet music. Style options and style sheets to change the
3958appearance and layout are provided.
3959
3960MuseScore can also play back scores through the built-in sequencer and SoundFont
3961sample library.")
3962 (home-page "https://musescore.org")
3963 (license license:gpl2)))
2434f5ce 3964
43188faf
RW		 3965(define-public muse-sequencer
3966 (package
3967 (name "muse-sequencer")
3968 (version "3.0.0")
3969 (source (origin
3970 (method git-fetch)
3971 (uri (git-reference
3972 (url "https://github.com/muse-sequencer/muse.git")
3973 (commit (string-append "muse_"
3974 (string-map (lambda (c)
3975 (if (char=? c #\.)
3976 #\_ c)) version)))))
78fee44e 3977 (file-name (git-file-name name version))
43188faf
RW		 3978 (sha256
3979 (base32
3980 "1nninz8qyqlxxjdnrm79y3gr3056pga9l2fsqh674jd3cjvafya3"))))
3981 (build-system cmake-build-system)
3982 (arguments
3983 `(#:tests? #f ; there is no test target
3984 #:configure-flags
3985 (list "-DENABLE_LV2_SUPPLIED=OFF"
3986 "-DENABLE_RTAUDIO=OFF" ; FIXME: not packaged
3987 "-DENABLE_INSTPATCH=OFF" ; FIXME: not packaged
3988 "-DENABLE_VST_NATIVE=OFF")
3989 #:phases
3990 (modify-phases %standard-phases
3991 (add-after 'unpack 'chdir
3992 (lambda _ (chdir "muse3"))))))
3993 (inputs
3994 `(("alsa-lib" ,alsa-lib)
3995 ("lash" ,lash)
3996 ("jack" ,jack-1)
3997 ("liblo" ,liblo)
3998 ("dssi" ,dssi)
3999 ("ladspa" ,ladspa)
4000 ("lv2" ,lv2)
4001 ("lilv" ,lilv)
4002 ("sord" ,sord)
4003 ("libsndfile" ,libsndfile)
4004 ("libsamplerate" ,libsamplerate)
4005 ("fluidsynth" ,fluidsynth)
4006 ("pcre" ,pcre)
4007 ("qtbase" ,qtbase)
4008 ("qtsvg" ,qtsvg)))
4009 (native-inputs
4010 `(("pkg-config" ,pkg-config)
4011 ("qttools" ,qttools)))
9bbb4920 4012 (home-page "https://muse-sequencer.github.io/")
43188faf
RW		 4013 (synopsis "MIDI/Audio sequencer")
4014 (description "MusE is a MIDI/Audio sequencer with recording and editing
4015capabilities. Its audio sequencer supports the LADSPA, DSSI, and LV2 audio
4016plugin formats; the MIDI sequencer provides a piano roll, a drum editor, a
4017list view, and a score editor. MusE aims to be a complete multitrack virtual
4018studio.")
4019 (license license:gpl2+)))
4020
2434f5ce
DM		 4021(define-public dssi
4022 (package
4023 (name "dssi")
4024 (version "1.1.1")
4025 (source (origin
4026 (method url-fetch)
4027 (uri (string-append
4028 "mirror://sourceforge/dssi/dssi/" version
4029 "/dssi-" version ".tar.gz"))
4030 (sha256
4031 (base32
4032 "0kl1hzhb7cykzkrqcqgq1dk4xcgrcxv0jja251aq4z4l783jpj7j"))))
4033 (build-system gnu-build-system)
4034 (inputs
4035 `(("alsa-lib" ,alsa-lib)
0e78801a 4036 ("jack" ,jack-1)
2434f5ce
DM		 4037 ("ladspa" ,ladspa)
4038 ("libsamplerate" ,libsamplerate)
4039 ("libsndfile" ,libsndfile)
4040 ("liblo" ,liblo)))
4041 (native-inputs
4042 `(("pkg-config" ,pkg-config)))
4043 (synopsis "Audio plugin API for soft synths and effects")
4044 (description "DSSI is a plugin API for software instruments with user
4045interfaces, permitting them to be hosted in-process by audio applications.
4046It is intended to be simple, GUI-toolkit-agnostic, and slightly biased
4047towards familiarity with MIDI. The DSSI distribution package contains
4048a JACK/ALSA-sequencer reference host and some plugins as well as the
4049specification and header.")
4050 (home-page "http://dssi.sourceforge.net/")
4051 ;; The DSSI interface is LGPL2.1+, some tests and examples are GPL2+.
4052 ;; The vast majority of examples are in the public domain.
4053 (license (list license:lgpl2.1+ license:gpl2+))))
9bc38f28
DM		 4054
4055(define-public rosegarden
4056 (package
4057 (name "rosegarden")
07139296 4058 (version "20.06")
24319a83
NG		 4059 (source
4060 (origin
4061 (method url-fetch)
4062 (uri (string-append "mirror://sourceforge/rosegarden/rosegarden/"
4063 version "/rosegarden-" version ".tar.bz2"))
4064 (sha256
07139296 4065 (base32 "1i9x9rkqwwdrk77xl5ra8i48cjirbc7fbisnj0nnclccwaq0wk6r"))))
9bc38f28
DM		 4066 (build-system cmake-build-system)
4067 (arguments
0d5101c3 4068 `(#:configure-flags '("-DCMAKE_BUILD_TYPE=Release")
9bc38f28
DM		 4069 #:phases
4070 (modify-phases %standard-phases
4071 (add-after 'unpack 'patch-tests
4072 (lambda _
4073 (substitute* "CMakeLists.txt"
4074 (("BUILD_TESTING OFF") "BUILD_TESTING ON")
4075 ;; Make tests work.
4076 ((" -fvisibility=hidden") ""))
4077 #t))
4078 (add-after 'unpack 'fix-references
4079 (lambda* (#:key inputs #:allow-other-keys)
4080 (substitute* "src/gui/general/ProjectPackager.cpp"
4081 (("\"flac\\>")
4082 (string-append "\"" (assoc-ref inputs "flac") "/bin/flac"))
4083 (("\"wavpack\\>")
4084 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wavpack"))
4085 (("\"wvunpack\\>")
4086 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wvunpack"))
4087 (("\"bash\\>")
4088 (string-append "\"" (assoc-ref inputs "bash") "/bin/bash"))
4089 (("\"tar\\>")
4090 (string-append "\"" (assoc-ref inputs "tar") "/bin/tar")))
4091 (substitute* "src/gui/general/LilyPondProcessor.cpp"
4092 (("\"convert-ly\\>")
4093 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/convert-ly"))
4094 (("\"lilypond\\>")
4095 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/lilypond")))
4096 #t))
4097 (add-after 'unpack 'make-reproducible
4098 (lambda _
4099 ;; Prevent Last-Modified from being written.
4100 ;; The "*.qm" files that are used in locale.qrc would have a new
4101 ;; mtime otherwise that is written into qrc_locale.cpp in the
4102 ;; end - except when we disable it.
4103 (substitute* "src/CMakeLists.txt"
4104 (("COMMAND [$][{]QT_RCC_EXECUTABLE[}]")
4105 "COMMAND ${QT_RCC_EXECUTABLE} --format-version 1")
4106 ;; Extraneous.
24319a83
NG		 4107 ;;(("qt5_add_resources[(]rg_SOURCES ../data/data.qrc[)]")
4108 ;; "qt5_add_resources(rg_SOURCES ../data/data.qrc OPTIONS --format-version 1)")
4109 )
9bc38f28
DM		 4110 ;; Make hashtable traversal order predicable.
4111 (setenv "QT_RCC_TEST" "1") ; important
4112 #t))
4113 (add-before 'check 'prepare-check
4114 (lambda _
4115 (setenv "QT_QPA_PLATFORM" "offscreen")
4116 ;; Tests create files in $HOME/.local/share/rosegarden .
4117 (mkdir-p "/tmp/foo")
4118 (setenv "HOME" "/tmp/foo")
9bf98520 4119 (setenv "XDG_RUNTIME_DIR" "/tmp/foo")
9bc38f28
DM		 4120 #t)))))
4121 (inputs
4122 `(("alsa-lib" ,alsa-lib)
4123 ("bash" ,bash)
4124 ("dssi" ,dssi)
4125 ("flac" ,flac)
4126 ("fftwf" ,fftwf)
b94f250e 4127 ("jack" ,jack-1)
9bc38f28
DM		 4128 ("ladspa" ,ladspa)
4129 ("liblo" ,liblo)
4130 ("libsamplerate" ,libsamplerate)
4131 ("lilypond" ,lilypond)
4132 ("lrdf" ,lrdf)
4133 ("qtbase" ,qtbase)
4134 ("tar" ,tar)
4135 ("lirc" ,lirc)
4136 ("wavpack" ,wavpack)
4137 ("zlib" ,zlib)))
4138 (native-inputs
4139 `(("pkg-config" ,pkg-config)
4140 ("qtlinguist" ,qttools)))
4141 (synopsis "Music composition and editing environment based around a MIDI
4142sequencer")
4143 (description "Rosegarden is a music composition and editing environment
4144based around a MIDI sequencer that features a rich understanding of music
4145notation and includes basic support for digital audio.")
9bf98520 4146 (home-page "https://www.rosegardenmusic.com/")
9bc38f28 4147 (license license:gpl2)))
30655652 4148
643817e4 4149(define-public patchmatrix
559e06b6
RW		 4150 (package
4151 (name "patchmatrix")
4152 (version "0.16.0")
4153 (source (origin
4154 (method git-fetch)
4155 (uri (git-reference
4156 (url "https://github.com/OpenMusicKontrollers/patchmatrix.git")
4157 (commit version)))
4158 (file-name (git-file-name "patchmatrix" version))
4159 (sha256
4160 (base32
4161 "020vp7zzxxzzjfic57vkpg68dm8hi98ilr1bj88xjsv6i47xmjbn"))))
4162 (build-system meson-build-system)
4163 (arguments '(#:tests? #f)) ; no test target
4164 (inputs
4165 `(("jack" ,jack-1)
4166 ("lv2" ,lv2)
4167 ("mesa" ,mesa)))
4168 (native-inputs
4169 `(("pkg-config" ,pkg-config)))
4170 (home-page "https://github.com/OpenMusicKontrollers/patchmatrix")
4171 (synopsis "Simple JACK patch bay")
4172 (description "PatchMatrix is a patch bay for the JACK audio connection
643817e4
RW		 4173kit. It provides a patch bay in flow matrix style for audio, MIDI, CV, and
4174OSC connections.")
559e06b6 4175 (license license:artistic2.0)))
643817e4 4176
30655652
RW		 4177(define-public sorcer
4178 (package
4179 (name "sorcer")
4180 (version "1.1.3")
4181 (source (origin
4182 (method url-fetch)
4183 (uri (string-append "https://github.com/openAVproductions/"
4184 "openAV-Sorcer/archive/release-"
4185 version ".tar.gz"))
4186 (file-name (string-append name "-" version ".tar.gz"))
4187 (sha256
4188 (base32
4189 "07iyqj28wm0xc4arrq893bm12xjpz65db7ynrlmf6w8krg8wjmd0"))))
4190 (build-system cmake-build-system)
4191 (arguments
4192 `(#:tests? #f ; no tests included
4193 #:phases
4194 (modify-phases %standard-phases
e5af1f4a
EF		 4195 (add-after 'unpack 'remove-architecture-specific-flags
4196 (lambda _
4197 (substitute* "CMakeLists.txt"
4198 (("-msse2 -mfpmath=sse") ""))
4199 #t))
30655652
RW		 4200 (add-after 'unpack 'build-faust-sources
4201 (lambda* (#:key inputs #:allow-other-keys)
4202 (with-directory-excursion "faust"
4203 (delete-file "main.cpp")
d7e24652
RW		 4204 (invoke "faust" "-i"
4205 "-a" "lv2synth.cpp"
4206 "-o" "main.cpp" "main.dsp")))))))
30655652
RW		 4207 (inputs
4208 `(("boost" ,boost)
4209 ("lv2" ,lv2)
4210 ("ntk" ,ntk)))
4211 (native-inputs
4212 `(("faust" ,faust)
4213 ("pkg-config" ,pkg-config)))
4214 (home-page "http://openavproductions.com/sorcer/")
4215 (synopsis "Wavetable LV2 plugin synth")
4216 (description "Sorcer is a wavetable LV2 plugin synthesizer, targeted at
4217the electronic or dubstep genre.")
4218 (license license:gpl3+)))
60b7ed9c 4219
f7ce2134
RW		 4220(define-public sonivox-eas
4221 (package
4222 (name "sonivox-eas")
4223 (version "1.1.0")
4224 (source (origin
4225 (method git-fetch)
4226 (uri (git-reference
4227 (url "https://github.com/pedrolcl/Linux-SonivoxEas.git")
4228 (commit (string-append "v" version))))
4229 (file-name (string-append name "-" version "-checkout"))
4230 (sha256
4231 (base32
4232 "0l9gs00p5g4k4qy6i7nv1mfi2n2wnsycwjrgrh9hxzam4irf2mw2"))))
4233 (build-system cmake-build-system)
4234 (arguments '(#:tests? #f)) ; there are no tests
4235 (inputs
4236 `(("alsa-lib" ,alsa-lib)
4237 ("drumstick" ,drumstick)
4238 ("pulseaudio" ,pulseaudio)
4239 ("qtbase" ,qtbase)))
4240 (native-inputs
4241 `(("pkg-config" ,pkg-config)))
4242 (home-page "https://github.com/pedrolcl/Linux-SonivoxEas")
4243 (synopsis "MIDI synthesizer library")
4244 (description "This project is a real time General MIDI synthesizer based
4245on the Sonivox EAS Synthesizer by Google. It does not need external
4246soundfonts, using embedded samples instead.")
4247 ;; Sonivox is released under the ASL2.0; the rest of the code is under
4248 ;; GPLv2+.
4249 (license (list license:gpl2+ license:asl2.0))))
92b36e3a
RW		 4250
4251(define-public whysynth
4252 (package
4253 (name "whysynth")
4254 (version "20170701")
4255 (source (origin
4256 (method url-fetch)
4257 (uri (string-append "http://smbolton.com/whysynth/whysynth-"
4258 version ".tar.bz2"))
4259 (sha256
4260 (base32
4261 "02qbn0hbvn1iym4zxv35b201blg31yjpgh71h8db0j5zls2xc0m6"))))
4262 (build-system gnu-build-system)
4263 (inputs
4264 `(("dssi" ,dssi)
4265 ("liblo" ,liblo)
4266 ("fftwf" ,fftwf)
4267 ("gtk+" ,gtk+-2)
4268 ("ladspa" ,ladspa)
4269 ("alsa-lib" ,alsa-lib)))
4270 (native-inputs
4271 `(("pkg-config" ,pkg-config)))
4272 (home-page "http://smbolton.com/whysynth.html")
4273 (synopsis "DSSI software synthesizer")
4274 (description "WhySynth is a versatile softsynth which operates as a plugin
4275for the DSSI Soft Synth Interface. A brief list of features:
4276
4277@enumerate
4278@item 4 oscillators, 2 filters, 3 LFOs, and 5 envelope generators per voice.
4279@item 11 oscillator modes: minBLEP, wavecycle, chorused wavecycle,
4280 asynchronous granular, three FM modes, waveshaper, noise, PADsynth, and phase
4281 distortion.
4282@item 10 filter modes.
4283@item flexible modulation and mixdown options, plus effects.
4284@end enumerate
4285")
4286 (license license:gpl2+)))
6b445c57 4287
4288(define-public libdiscid
4289 (package
4290 (name "libdiscid")
4291 (version "0.6.2")
4292 (source
4293 (origin
4294 (method url-fetch)
4295 (uri (string-append
4296 "http://ftp.musicbrainz.org/pub/musicbrainz/libdiscid/libdiscid-"
4297 version ".tar.gz"))
4298 (sha256
4299 (base32
4300 "1f9irlj3dpb5gyfdnb1m4skbjvx4d4hwiz2152f83m0d9jn47r7r"))))
4301 (arguments `(#:test-target "check"))
4302 (build-system cmake-build-system)
4303 (home-page "https://musicbrainz.org/doc/libdiscid")
4304 (synopsis "Disc id reader library")
4305 (description "libdiscid is a C library for creating MusicBrainz and freedb
4306disc IDs from audio CDs. It reads a CD's table of contents (TOC) and generates
4307an identifier which can be used to lookup the CD at MusicBrainz. Additionally,
4308it provides a submission URL for adding the disc ID to the database and gathers
4309ISRCs and the MCN (=UPC/EAN) from disc.")
4310 (license license:lgpl2.1+)))
1ea29aa0 4311
1331a6c0
GH		 4312(define-public python-discid
4313 (package
4314 (name "python-discid")
4315 (version "1.1.1")
4316 (source
4317 (origin
4318 (method url-fetch)
4319 (uri (pypi-uri "discid" version))
4320 (sha256
4321 (base32
4322 "1fgp67nhqlbvhhwrcxq5avil7alpzw4s4579hlyvxzbphdnbz8vq"))))
4323 (build-system python-build-system)
4324 (inputs
4325 `(("libdiscid" ,libdiscid)))
4326 (arguments
4327 `(#:phases
4328 (modify-phases %standard-phases
4329 (add-before 'build 'set-libdiscid
4330 ;; Set path of libdiscid
4331 (lambda* (#:key inputs #:allow-other-keys)
4332 (let ((discid (assoc-ref inputs "libdiscid")))
4333 (substitute* "discid/libdiscid.py"
4334 (("lib_name = (.*)$" all name)
4335 (string-append "lib_name = \"" discid
4336 "/lib/libdiscid.so.0\"\n")))
4337 #t))))))
4338 (home-page "https://python-discid.readthedocs.io/")
4339 (synopsis "Python bindings for Libdiscid")
4340 (description
4341 "This package provides Python bindings for the Libdiscid library. The
4342main purpose is the calculation of @url{https://musicbrainz.org/doc/Disc%20ID,
4343Disc IDs} for use with the MusicBrainz database. Additionally the disc
4344@dfn{Media Catalog Number} (MCN) and track @dfn{International Standard
4345Recording Code} (ISRC) can be extracted.}")
4346 (license license:lgpl3+)))
4347
1ea29aa0 4348(define-public libmusicbrainz
4349 (package
4350 (name "libmusicbrainz")
4351 (version "5.1.0")
4352 (source
4353 (origin
4354 (method url-fetch)
4355 (uri (string-append
4356 "https://github.com/metabrainz/libmusicbrainz/releases/download/release-"
4357 version "/libmusicbrainz-" version ".tar.gz"))
4358 (sha256
4359 (base32
8c71a52c 4360 "0ikb9igyyk28jm34raxfzkw2qyn4nzzwsymdyprp7cmvi6g2ajb7"))))
1ea29aa0 4361 (build-system cmake-build-system)
69cb939e
RW		 4362 (arguments
4363 `(#:phases
4364 (modify-phases %standard-phases
4365 (replace 'check
4366 (lambda _
4367 ;; requires network connections
4368 ;; (invoke "tests/mbtest")
4369 (invoke "tests/ctest")
4370 #t)))))
1ea29aa0 4371 (inputs `(("neon" ,neon)
4372 ("libxml2" ,libxml2)))
4373 (native-inputs `(("pkg-config" ,pkg-config)))
4374 (home-page "https://musicbrainz.org/doc/libmusicbrainz")
4375 (synopsis "MusicBrainz client library")
4376 (description "The MusicBrainz Client Library (libmusicbrainz), also known as
4377mb_client, is a development library geared towards developers who wish to add
4378MusicBrainz lookup capabilities to their applications.")
4379 (license license:lgpl2.1+)))
87d1b7b0 4380
b0c2c5ab
LC		 4381(define-public perl-musicbrainz-discid
4382 (package
4383 (name "perl-musicbrainz-discid")
4384 (version "0.04")
4385 (source (origin
4386 (method url-fetch)
4387 (uri (string-append
4388 "mirror://cpan/authors/id/N/NJ/NJH/MusicBrainz-DiscID-"
4389 version ".tar.gz"))
4390 (sha256
4391 (base32
4392 "1i4qk1qfcmxdibqkyfjrrjdq2zk42vjcz590qgiyc47fi9p6xx1j"))))
4393 (build-system perl-build-system)
4394 (native-inputs `(("pkg-config" ,pkg-config)
4395 ("which" ,which)))
4396 (inputs `(("libdiscid" ,libdiscid)))
4397 (home-page "https://metacpan.org/release/MusicBrainz-DiscID")
4398 (synopsis "Perl interface to the MusicBrainz libdiscid library")
4399 (description
4400 "The @code{MusicBrainz::DiscID} module is a Perl interface to the
4401MusicBrainz libdiscid library, allowing you to manipulate digital audio
4402compact disc (CDDA) identifiers.")
4403 (license license:gpl2)))
4404
b2961dda
LC		 4405(define-public perl-webservice-musicbrainz
4406 (package
4407 (name "perl-webservice-musicbrainz")
b0842a8e 4408 (version "1.0.5")
b2961dda
LC		 4409 (source (origin
4410 (method url-fetch)
4411 (uri (string-append
4412 "mirror://cpan/authors/id/B/BF/BFAIST/WebService-MusicBrainz-"
4413 version ".tar.gz"))
4414 (sha256
4415 (base32
b0842a8e 4416 "16chs1l58cf000d5kalkyph3p31ci73p1rlyx98mfv10d2cq6fsj"))))
b2961dda
LC		 4417 (build-system perl-build-system)
4418 (arguments
4419 ;; Tests try to connect to http://musicbrainz.org.
4420 '(#:tests? #f))
4421 (native-inputs
4422 `(("perl-module-build" ,perl-module-build)))
4423 (propagated-inputs
4424 `(("perl-mojolicious" ,perl-mojolicious)))
4425 (home-page "https://metacpan.org/release/WebService-MusicBrainz")
4426 (synopsis "Web service API to the MusicBrainz database")
4427 (description
4428 "This module searches the MusicBrainz database through their web service
4429at @code{musicbrainz.org}.")
4430 (license license:perl-license)))
4431
87d1b7b0
PN		 4432(define-public clyrics
4433 (package
4434 (name "clyrics")
9aec93be 4435 (version "0.12")
87d1b7b0
PN		 4436 (source
4437 (origin
234a1825
RW		 4438 (method git-fetch)
4439 (uri (git-reference
4440 (url "https://github.com/trizen/clyrics.git")
4441 (commit version)))
4442 (file-name (git-file-name name version))
87d1b7b0 4443 (sha256
9aec93be 4444 (base32 "1l9iqz6vxrrxapv7s110g360bqxksir4dcqd8w0l4lhmnfmz3vnk"))))
87d1b7b0 4445 (build-system trivial-build-system)
87d1b7b0 4446 (inputs
7f56f107 4447 `(("bash" ,bash) ; for the wrapped program
87d1b7b0
PN		 4448 ("perl" ,perl)
4449 ("perl-www-mechanize" ,perl-www-mechanize)
4450 ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
4451 ;; Required or else LWP will fail with "GET https://www.google.com/ ==>
4452 ;; 500 Can't verify SSL peers without knowing which Certificate
4453 ;; Authorities to trust".
4454 ("perl-mozilla-ca" ,perl-mozilla-ca)))
4455 (arguments
4456 `(#:modules ((guix build utils))
4457 #:builder (begin
4458 (use-modules (guix build utils)
4459 (ice-9 match)
4460 (srfi srfi-26))
4461 (let* ((source (assoc-ref %build-inputs "source"))
87d1b7b0
PN		 4462 (output (assoc-ref %outputs "out")))
4463 (setenv "PATH"
4464 (string-append
87d1b7b0
PN		 4465 (assoc-ref %build-inputs "bash") "/bin" ":"
4466 (assoc-ref %build-inputs "perl") "/bin" ":"))
234a1825 4467 (copy-recursively source (getcwd))
87d1b7b0
PN		 4468 (patch-shebang "clyrics")
4469 (substitute* "clyrics"
4470 (("/usr/share") output))
4471 (install-file "clyrics" (string-append output "/bin"))
4472 (wrap-program (string-append output "/bin/clyrics")
4473 `("PERL5LIB" ":" =
4474 ,(delete
4475 ""
4476 (map (match-lambda
7f56f107
TGR		 4477 (((? (cut string-prefix? "perl-" <>) name) . dir)
4478 (string-append dir "/lib/perl5/site_perl"))
4479 (_ ""))
87d1b7b0
PN		 4480 %build-inputs))))
4481 (copy-recursively "plugins" (string-append output "/clyrics"))
4482 #t))))
4483 (home-page "https://github.com/trizen/clyrics")
4484 (synopsis "Extensible lyrics fetcher")
4485 (description
4486 "Clyrics is an extensible command-line tool to fetch the lyrics of songs.
4487It can be used in daemon mode along with the Music-on-Console (MOC) and cmus
4488console music players.")
4489 (license license:gpl3+)))
5703380b
PN		 4490
4491(define-public demlo
4492 (let ((commit "fe9ec4c8ac2fa995ec18e6ac86d50d46df06ec01")
4493 (revision "0"))
4494 (package
4495 (name "demlo")
4496 (version (git-version "3.8" revision commit))
4497 (source
4498 (origin
4499 (method git-fetch)
4500 (uri (git-reference
4501 (url
4502 "https://gitlab.com/ambrevar/demlo")
4503 (commit commit)))
4504 (file-name (git-file-name name version))
4505 (sha256
4506 (base32
4507 "1afkbqhzn6da7zaf5ab7dvyqj1izqhzprwfb4hw448fllda9bdvk"))))
4508 (build-system go-build-system)
4509 (native-inputs
4510 `(("lua" ,lua)
4511 ("go-github-com-mattn-go-isatty" ,go-github-com-mattn-go-isatty)
4512 ("go-github-com-mattn-go-colorable" ,go-github-com-mattn-go-colorable)
4513 ("go-github-com-aarzilli-golua" ,go-github-com-aarzilli-golua)
4514 ("go-gitlab-com-ambrevar-damerau" ,go-gitlab-com-ambrevar-damerau)
4515 ("go-gitlab-com-ambrevar-golua-unicode" ,go-gitlab-com-ambrevar-golua-unicode)
4516 ("go-github-com-mgutz-ansi" ,go-github-com-mgutz-ansi)
4517 ("go-github-com-michiwend-gomusicbrainz" ,go-github-com-michiwend-gomusicbrainz)
4518 ("go-github-com-stevedonovan-luar" ,go-github-com-stevedonovan-luar)
4519 ("go-github-com-wtolson-go-taglib" ,go-github-com-wtolson-go-taglib)
4520 ("go-github-com-yookoala-realpath" ,go-github-com-yookoala-realpath)))
4521 (inputs
4522 `(("chromaprint" ,chromaprint)
4523 ("ffmpeg" ,ffmpeg)))
4524 (arguments
4525 `(#:import-path "gitlab.com/ambrevar/demlo"
4526 #:phases
4527 (modify-phases %standard-phases
4528 (add-after 'install 'wrap-program
4529 (lambda* (#:key inputs outputs #:allow-other-keys)
4530 (let ((out (assoc-ref outputs "out"))
4531 (ffmpeg (assoc-ref inputs "ffmpeg"))
4532 (chromaprint (assoc-ref inputs "chromaprint")))
4533 (wrap-program (string-append out "/bin/demlo")
4534 `("XDG_DATA_DIRS" ":" prefix (,out))
4535 `("PATH" ":" prefix
4536 ,(map (lambda (dir)
4537 (string-append dir "/bin:"
4538 dir "/sbin"))
4539 (list ffmpeg chromaprint))))
4540 #t)))
e3900a4d 4541 (add-after 'install 'install-scripts
5703380b
PN		 4542 (lambda* (#:key outputs #:allow-other-keys)
4543 (let* ((out (assoc-ref outputs "out"))
4544 (root (string-append out "/src/gitlab.com/ambrevar/demlo"))
4545 (xdg-data-dirs (string-append out "/demlo")))
4546 (copy-recursively (string-append root "/actions")
4547 (string-append xdg-data-dirs "/actions"))
4548 (copy-recursively (string-append root "/scripts")
4549 (string-append xdg-data-dirs "/scripts"))
4550 (install-file (string-append root "/config.lua") xdg-data-dirs)
4551 ;; TODO: Test fish completion.
4552 (install-file (string-append root "/completion/demlo.fish")
4553 (string-append out "/share/fish/vendor_completions.d"))
4554 #t))))))
4555 (home-page "https://gitlab.com/ambrevar/demlo")
4556 (synopsis "Dynamic and extensible music library organizer")
4557 (description "Demlo is a music library organizer. It can encode, fix
4558case, change folder hierarchy according to tags or file properties, tag from
4559an online database, copy covers while ignoring duplicates or those below a
4560quality threshold, and much more. It makes it possible to manage your
4561libraries uniformly and dynamically. You can write your own rules to fit your
4562needs best.
4563
4564Demlo can address any of these recurring music library issues (and much more):
4565
4566@itemize
4567@item Fix the lack of folder structure.
4568@item Normalize tags, fix their case, chose which tags to keep and which to
4569discard.
4570@item Handle lossy and lossless audio differently.
4571@item Handle mp3 id3tags hell...
4572@item Handle multiple covers, whether embedded and/or external, resize covers,
4573discard bad quality ones.
4574@end itemize\n")
4575 (license license:expat))))
e42ba3da 4576
7fcc2f93 4577(define-public fmit
4578 (package
4579 (name "fmit")
0ed0e3bf 4580 (version "1.2.13")
7fcc2f93 4581 (source (origin
4582 (method git-fetch)
4583 (uri (git-reference
4584 (url "https://github.com/gillesdegottex/fmit/")
4585 (commit (string-append "v" version))))
4586 (file-name (git-file-name name version))
4587 (sha256
4588 (base32
0ed0e3bf 4589 "1qyskam053pvlap1av80rgp12pzhr92rs88vqs6s0ia3ypnixcc6"))))
7fcc2f93 4590 (build-system gnu-build-system)
4591 (arguments
4592 '(#:phases
4593 (modify-phases %standard-phases
4594 (delete 'configure)
4595 (add-before 'build 'qmake
4596 (lambda _
4597 (let ((out (assoc-ref %outputs "out")))
4598 (invoke "qmake"
4599 "fmit.pro"
4600 (string-append "PREFIX=" out)
4601 (string-append "PREFIXSHORTCUT=" out)
4602 "CONFIG+=acs_qt acs_alsa acs_jack acs_portaudio"))))
4603 (add-after 'install 'wrap-executable
4604 (lambda* (#:key inputs outputs #:allow-other-keys)
4605 (let ((out (assoc-ref outputs "out")))
4606 (wrap-program (string-append out "/bin/fmit")
4607 `("QT_PLUGIN_PATH" ":" prefix
4608 ,(map (lambda (label)
4609 (string-append (assoc-ref inputs label)
4610 "/lib/qt5/plugins"))
4611 '("qtbase" "qtmultimedia" "qtsvg")))
4612 `("QML2_IMPORT_PATH" ":" prefix
4613 ,(map (lambda (label)
4614 (string-append (assoc-ref inputs label)
4615 "/lib/qt5/qml"))
4616 '("qtmultimedia"))))
4617 #t))))))
4618 (inputs
4619 `(("alsa-lib" ,alsa-lib)
4620 ("fftw" ,fftw)
4621 ("jack" ,jack-1)
4622 ("portaudio" ,portaudio)
4623 ("qtbase" ,qtbase)
4624 ("qtmultimedia" ,qtmultimedia)
4625 ("qtsvg" ,qtsvg)))
4626 (native-inputs
f2d97d57 4627 `(("gettext" ,gettext-minimal)
7fcc2f93 4628 ("hicolor-icon-theme" ,hicolor-icon-theme)
4629 ("itstool" ,itstool)
4630 ("qttools" ,qttools)))
4631 (synopsis "Musical instrument tuner")
4632 (description "FMIT is a graphical utility for tuning musical instruments,
4633with error and volume history, and advanced features.")
4634 (home-page "https://gillesdegottex.github.io/fmit/")
4635 ;; Most of the code is under GPL2+, but some abstract or helper classes
4636 ;; are under LGPL2.1.
4637 (license (list license:gpl2+ license:lgpl2.1))))
f5870246
RW		 4638
4639(define-public mloop
4640 (let ((commit "adebff98b0b4dc5872a03acb82e89c77cb29c127")
4641 (revision "0"))
4642 (package
4643 (name "mloop")
4644 (version (git-version "0.0.1" revision commit))
4645 (source (origin
4646 (method git-fetch)
4647 (uri (git-reference
4648 (url "http://git.fuzzle.org/mloop")
4649 (commit commit)))
4650 (file-name (git-file-name name version))
4651 (sha256
4652 (base32
4653 "175gxvg5slq0bllcx1c381rjlq3xpxww8c3kpiw5i2kfr4m52myz"))))
4654 (build-system waf-build-system)
4655 (arguments
4656 `(#:python ,python-2
4657 #:tests? #f)) ; no "check" target
4658 (inputs
4659 `(("jack" ,jack-1)
4660 ("ncurses" ,ncurses)))
4661 (native-inputs
4662 `(("pkg-config" ,pkg-config)))
4663 (home-page "https://fuzzle.org/~petern/mloop.html")
4664 (synopsis "Live MIDI looper")
4665 (description "mloop is a live MIDI looping system, using jack-midi.
4666Loops are recorded, optionally with beat quantization, and can then be played
4667back, either once or looping. A 'note cache' system is implemented to
4668remember which notes are pressed and their velocities. This allows for a loop
4669to start off with the currently pressed notes, making seamless loops much
4670easier to perform. Features include:
4671
4672@itemize
4673@item Quantisation; end a loop on a beat exactly.
4674@item Delayed recording; wait for a MIDI event before starting a loop record.
4675@item Adjust tempo; Playback speed of loops can be adjusted on the fly.
4676@end itemize\n")
4677 (license license:gpl2))))
0163b900
EB		 4678
4679(define-public pragha
4680 (package
4681 (name "pragha")
4682 (version "1.3.4")
4683 (source (origin
4684 (method url-fetch)
4685 (uri (string-append "https://github.com/pragha-music-player/pragha/"
4686 "releases/download/v" version "/pragha-" version
4687 ".tar.bz2"))
4688 (sha256
4689 (base32
4690 "19kbhq99bkimx3aqrdzln0vlr4slkpx6kq66j731jvqyq76nlkp5"))))
4691 (build-system glib-or-gtk-build-system)
4692 (native-inputs
4693 `(("intltool" ,intltool)
4694 ("pkg-config" ,pkg-config)))
4695 (inputs
4696 `(("glib" ,glib)
4697 ("grilo" ,grilo)
4698 ("gstreamer" ,gstreamer)
4699 ("gst-plugins-base" ,gst-plugins-base)
4700 ("gst-plugins-good" ,gst-plugins-good)
4701 ("gtk+" ,gtk+)
4702 ("libcddb" ,libcddb)
4703 ("libcdio" ,libcdio)
4704 ("libcdio-paranoia" ,libcdio-paranoia)
4705 ("libgudev" ,libgudev)
4706 ("libnotify" ,libnotify)
4707 ("libpeas" ,libpeas)
4708 ("libsoup" ,libsoup)
4709 ("sqlite" ,sqlite)
4710 ("taglib" ,taglib)))
4711 (arguments
4712 `(#:phases
4713 (modify-phases %standard-phases
4714 (add-after 'install 'wrap-program
4715 (lambda* (#:key inputs outputs #:allow-other-keys)
4716 (let ((out (assoc-ref outputs "out"))
4717 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
4718 (wrap-program (string-append out "/bin/pragha")
4719 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
4720 #t))))))
4721 (home-page "https://pragha-music-player.github.io")
4722 (synopsis "Music player")
4723 (description "Pragha is a lightweight music player based on Gtk and
4724sqlite. It is constructed to be fast, light, and simultaneously tries to be
4725complete without obstructing your daily work.")
4726 (license license:gpl3+)))
1c463524
DW		 4727
4728(define-public playerctl
4729 (package
4730 (name "playerctl")
4731 (version "2.0.2")
4732 (source (origin
4733 (method git-fetch)
4734 (uri (git-reference
4735 (url "https://github.com/altdesktop/playerctl.git")
4736 (commit (string-append "v" version))))
4737 (file-name (git-file-name name version))
4738 (sha256
4739 (base32
4740 "1f3njnpd52djx3dmhh9a8p5a67f0jmr1gbk98icflr2q91149gjz"))))
4741 (build-system meson-build-system)
4742 (arguments
4743 `(#:configure-flags '("-Dintrospection=false" "-Dgtk-doc=false")))
4744 (inputs `(("python-pygobject" ,python-pygobject)))
4745 (native-inputs
4746 `(("glib:bin" ,glib "bin")
4747 ("pkg-config" ,pkg-config)))
4748 (synopsis "Control MPRIS-supporting media player applications")
4749 (description
4750 "Playerctl is a command-line utility and library for controlling media
4751players that implement the MPRIS D-Bus Interface Specification. Playerctl
4752makes it easy to bind player actions, such as play and pause, to media keys.
4753You can also get metadata about the playing track such as the artist and title
4754for integration into status line generators or other command-line tools.")
4755 (home-page "https://github.com/altdesktop/playerctl")
4756 (license license:lgpl3+)))
50c5215c
AT		 4757
4758(define-public artyfx
4759 (package
4760 (name "artyfx")
4761 (version "1.3")
4762 (source (origin
4763 (method git-fetch)
4764 (uri (git-reference
4765 (url
4766 "https://github.com/openAVproductions/openAV-ArtyFX.git")
4767 (commit (string-append "release-" version))))
4768 (file-name (git-file-name name version))
4769 (sha256
4770 (base32
4771 "012hcy1mxl7gs2lipfcqp5x0xv1azb9hjrwf0h59yyxnzx96h7c9"))))
4772 (build-system cmake-build-system)
4773 (arguments
4774 `(#:tests? #f ; no tests included
4775 #:phases
4776 (modify-phases %standard-phases
4777 (add-after 'unpack 'remove-architecture-specific-flags
4778 (lambda _
4779 (substitute* "CMakeLists.txt"
4780 (("-msse2 -mfpmath=sse") ""))
4781 #t)))))
4782 (inputs
4783 `(("cairo" ,cairo)
4784 ("libsndfile" ,libsndfile)))
4785 (native-inputs
4786 `(("pkg-config" ,pkg-config)
4787 ("lv2" ,lv2)))
4788 (home-page "http://openavproductions.com/artyfx/")
4789 (synopsis "Audio effect LV2 plugin bundle")
4790 (description "ArtyFX is an LV2 plugin bundle of artistic real-time audio
4791effects. It contains a bitcrusher, delay, distortion, equalizer, compressor,
4792and reverb.")
4793 (license license:gpl2+)))
5182fbe0 4794
3c0d165a
AT		 4795(define-public lsp-plugins
4796 (package
4797 (name "lsp-plugins")
eb683ebb 4798 (version "1.1.22")
3c0d165a
AT		 4799 (source
4800 (origin
4801 (method git-fetch)
4802 (uri (git-reference
4803 (url "https://github.com/sadko4u/lsp-plugins.git")
4804 (commit (string-append "lsp-plugins-" version))))
4805 (file-name (git-file-name name version))
4806 (sha256
eb683ebb 4807 (base32 "0s0i0kf5nqxxywckg03fds1w7696ly60rnlljzqvp7qfgzps1r6c"))))
3c0d165a
AT		 4808 (build-system gnu-build-system)
4809 (arguments
4810 `(#:make-flags
4811 (list
1ca44ae3 4812 (string-append "CC=" ,(cc-for-target))
3c0d165a
AT		 4813 "BUILD_MODULES=\"lv2 ladspa jack\"" "VST_UI=0"
4814 (string-append "PREFIX=" (assoc-ref %outputs "out"))
4815 (string-append "ETC_PATH=" (assoc-ref %outputs "out") "/etc"))
4816 #:phases
4817 (modify-phases %standard-phases
4818 (delete 'configure)) ; no configure
4819 #:test-target "test"))
4820 (inputs
4821 `(("cairo", cairo)
4822 ("hicolor-icon-theme", hicolor-icon-theme)
4823 ("jack", jack-1)
4824 ("ladspa", ladspa)
4825 ("libsndfile", libsndfile)
4826 ("lv2", lv2)
4827 ("mesa", mesa)))
4828 (native-inputs
4829 `(("pkg-config", pkg-config)))
4830 (synopsis "Audio plugin collection")
4831 (description "LSP (Linux Studio Plugins) is a collection of audio
4832plugins available as LADSPA/LV2 plugins and as standalone JACK
4833applications.")
4834 (home-page "https://lsp-plug.in/")
4835 (license license:lgpl3)))
4836
5182fbe0
AT		 4837(define-public sherlock-lv2
4838 (package
4839 (name "sherlock-lv2")
4840 (version "0.20.0")
4841 (source
4842 (origin
4843 (method url-fetch)
4844 (uri (string-append
4845 "https://git.open-music-kontrollers.ch/lv2/"
4846 "sherlock.lv2/snapshot/sherlock.lv2-"
4847 version ".tar.xz"))
4848 (sha256
4849 (base32
4850 "1c5xajpss9h8lbyx160bbzg8va50n2d74qwnxig9sf468rzmha1y"))))
4851 (build-system meson-build-system)
4852 (inputs
4853 `(("libx11" ,libx11)
4854 ("mesa" ,mesa)
4855 ("sratom" ,sratom)))
4856 (native-inputs
4857 `(("flex" ,flex)
4858 ("pkg-config" ,pkg-config)))
4859 (synopsis "Investigative LV2 plugin bundle")
4860 (description "The Sherlock plugin bundle contains LV2 plugins for
4861visualizing LV2 atom, MIDI and OSC events. They can be used for monitoring
4862and debugging of event signal flows inside plugin graphs.")
4863 (home-page "https://open-music-kontrollers.ch/lv2/sherlock/")
4864 (license license:artistic2.0)))
fe06a6ee 4865
ce1cd434
AT		 4866(define-public spectacle-analyzer
4867 (package
4868 (name "spectacle-analyzer")
4869 (version "1.0")
4870 (source
4871 (origin
4872 (method git-fetch)
4873 (uri (git-reference
4874 (url "https://github.com/jpcima/spectacle.git")
4875 (commit (string-append "v" version))
4876 ;; Bundles a specific commit of the DISTRHO plugin framework.
4877 (recursive? #t)))
4878 (file-name (git-file-name name version))
4879 (sha256
4880 (base32
4881 "0xiqa6z8g68lcvnwhws4j7c4py35r9d20cirrili7ycyp3a6149a"))))
4882 (build-system gnu-build-system)
4883 (arguments
4884 `(#:tests? #f ; no check target
4885 #:make-flags
4886 (list "CC=gcc"
4887 (string-append "PREFIX=" (assoc-ref %outputs "out")))
4888 #:phases
4889 (modify-phases %standard-phases
4890 (delete 'configure))))
4891 (native-inputs
4892 `(("pkg-config" ,pkg-config)
4893 ("xxd" ,xxd)))
4894 (inputs
4895 `(("cairo", cairo)
4896 ("fftw", fftw)
4897 ("fftwf", fftwf)
4898 ("jack", jack-1)
4899 ("lv2", lv2)
4900 ("mesa", mesa)))
4901 (synopsis "Realtime graphical spectrum analyzer")
4902 (description "Spectacle is a real-time spectral analyzer using the
4903short-time Fourier transform, available as LV2 audio plugin and JACK client.")
4904 (home-page "https://github.com/jpcima/spectacle")
4905 ;; The project is licensed under the ISC license, and files in
4906 ;; sources/plugin carry the Expat license.
4907 (license (list license:isc license:expat))))
4908
fe06a6ee
AT		 4909(define-public x42-plugins
4910 (package
4911 (name "x42-plugins")
41dc70f4 4912 (version "20191215")
fe06a6ee
AT		 4913 (source
4914 (origin
4915 (method url-fetch)
4916 (uri
4917 (string-append "http://gareus.org/misc/x42-plugins/x42-plugins-"
4918 version ".tar.xz"))
4919 (sha256
41dc70f4 4920 (base32 "1mwfvhsvc0qgjyiwd8pmmam1mav43lmv39fljhmj9yri558v5g1c"))))
fe06a6ee
AT		 4921 (build-system gnu-build-system)
4922 (arguments
4923 `(#:tests? #f ; no "check" target
4924 #:make-flags
4925 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
4926 "LIBZITACONVOLVER=-lzita-convolver"
4927 (string-append "FONTFILE="
4928 (assoc-ref %build-inputs "font-dejavu")
4929 "/share/fonts/truetype/DejaVuSans-Bold.ttf"))
4930 #:phases
4931 (modify-phases %standard-phases
4932 (add-before 'build 'set-CC-variable
4933 (lambda _
4934 (setenv "CC" "gcc")
4935 #t))
4936 (delete 'configure))))
4937 (inputs
4938 `(("cairo" ,cairo)
4939 ("fftwf" ,fftwf)
4940 ("ftgl" ,ftgl)
4941 ("glib" ,glib)
4942 ("glu" ,glu)
4943 ("hicolor-icon-theme" ,hicolor-icon-theme)
4944 ("jack" ,jack-1)
4945 ("libltc" ,libltc)
4946 ("libsamplerate" ,libsamplerate)
4947 ("libx11" ,libx11)
4948 ("pango" ,pango)
4949 ("zita-convolver" ,zita-convolver)))
4950 (native-inputs
4951 `(("help2man" ,help2man)
4952 ("liblo" ,liblo)
4953 ("lv2" ,lv2)
4954 ("font-dejavu" ,font-dejavu)
4955 ("pkg-config" ,pkg-config)))
4956 (synopsis "Collection of LV2/JACK audio/MIDI processing plugins")
4957 (description "x42-plugins is a collection of over 80 cross-platform LV2
4958audio and MIDI plugins that can also run as standalone JACK applications.")
4959 (home-page "https://x42-plugins.com/x42/")
4960 (license license:gpl2+)))
9a00130a
AT		 4961
4962(define-public zam-plugins
4963 (package
4964 (name "zam-plugins")
a69b59e1 4965 (version "3.12")
9a00130a
AT		 4966 (source
4967 (origin
4968 (method git-fetch)
4969 (uri
4970 (git-reference
4971 (url "https://github.com/zamaudio/zam-plugins.git")
4972 (commit version)
4973 ;; Recursive to fetch the DISTRHO plugin framework. This
4974 ;; framework is intended to be included in the sources
4975 ;; and not to be used as a library.
4976 (recursive? #t)))
4977 (file-name (git-file-name name version))
4978 (sha256
a69b59e1 4979 (base32 "0icsbarc9azcp0kjjydmiqn401v60jmf16zdcp4040q8g7bpfmfa"))))
9a00130a
AT		 4980 (build-system gnu-build-system)
4981 (arguments
4982 `(#:tests? #f ;no "check" target
4983 #:make-flags
4984 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
4985 "HAVE_ZITA_CONVOLVER=true")
4986 #:phases
4987 (modify-phases %standard-phases
4988 (add-before 'build 'set-CC-variable
4989 (lambda _
4990 (setenv "CC" "gcc") #t))
4991 (delete 'configure))))
4992 (inputs
4993 `(("fftwf" ,fftwf)
4994 ("jack" ,jack-1) ;for the standalone JACK application
4995 ("liblo" ,liblo)
4996 ("libsamplerate" ,libsamplerate)
4997 ("mesa" ,mesa)
4998 ("zita-convolver" ,zita-convolver)))
4999 (native-inputs
5000 `(("ladspa" ,ladspa)
5001 ("lv2" ,lv2)
5002 ("pkg-config" ,pkg-config)))
5003 (synopsis "Collection of audio processing plugins")
5004 (description
5005 "Zam plugins is a collection of audio processing plugins in the LADSPA,
5006LV2 and VST2 formats, as well as standalone JACK versions. The collection
5007includes ZaMaximX2, ZamAutoSat, ZamComp, ZamCompX2, ZamEQ2, ZamGEQ31,
5008ZamHeadX2, ZamPhono, ZamGate, ZamGateX2, ZamTube, ZamDelay, ZamDynamicEQ,
5009ZaMultiComp, ZaMultiCompX2 and ZamSynth.")
5010 (home-page "http://www.zamaudio.com/?p=976")
5011 (license license:gpl2+)))
2ac65b9c
AT		 5012
5013(define-public geonkick
5014 (package
5015 (name "geonkick")
50c5b682 5016 (version "1.10.0")
2ac65b9c
AT		 5017 (source
5018 (origin
2f491b88
MB		 5019 (method git-fetch)
5020 (uri (git-reference
5021 (url "https://gitlab.com/geontime/geonkick.git")
5022 (commit (string-append "v" version))))
5023 (file-name (git-file-name name version))
2ac65b9c
AT		 5024 (sha256
5025 (base32
50c5b682 5026 "1a59wnm4035kjhs66hihlkiv45p3ffb2yaj1awvyyi5f0lds5zvh"))))
2ac65b9c
AT		 5027 (build-system cmake-build-system)
5028 (arguments
5029 `(#:tests? #f ;no tests included
5030 #:configure-flags
5031 (list (string-append "-DGKICK_REDKITE_SDK_PATH="
5032 (assoc-ref %build-inputs "redkite"))
5033 (string-append "-DCMAKE_INSTALL_PREFIX="
5034 (assoc-ref %outputs "out")))))
5035 (inputs
5036 `(("cairo" ,cairo)
5037 ("hicolor-icon-theme" ,hicolor-icon-theme)
5038 ("jack" ,jack-1) ;for the standalone JACK application
5039 ("libsndfile" ,libsndfile)
5040 ("libx11" ,libx11)
5041 ("redkite" ,redkite)
5042 ("rapidjson" ,rapidjson)))
5043 (native-inputs
5044 `(("lv2" ,lv2)
5045 ("pkg-config" ,pkg-config)
5046 ("sord" ,sord)))
5047 (synopsis "Percussion synthesizer")
5048 (description "Geonkick is a synthesizer that can synthesize elements
5049of percussion such as kicks, snares, hit-hats, shakers, claps and sticks.
5050It can also play and mix samples.")
5051 (home-page "https://gitlab.com/geontime/geonkick")
5052 (license license:gpl3+)))
5b1bf92e
AT		 5053
5054(define-public dpf-plugins
5055 (package
5056 (name "dpf-plugins")
5057 (version "1.3")
5058 (source
5059 (origin
5060 (method git-fetch)
5061 (uri
5062 (git-reference
5063 (url "https://github.com/DISTRHO/DPF-Plugins.git")
5064 (commit (string-append "v" version))))
5065 (file-name (git-file-name name version))
5066 (sha256
5067 (base32
5068 "1hsfmpv3kvpiwk8nfw9xpaipzy0n27i83y2v1yr93lznwm5rqrbs"))))
5069 (build-system gnu-build-system)
5070 (arguments
5071 `(#:tests? #f ; no "check" target
5072 #:make-flags
5073 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
5074 #:phases
5075 (modify-phases %standard-phases
5076 (add-before 'build 'set-CC-variable
5077 (lambda _ (setenv "CC" "gcc") #t))
5078 (delete 'configure))))
5079 (inputs
5080 `(("cairo" ,cairo)
5081 ("liblo" ,liblo) ; for dssi plugins
5082 ("jack" ,jack-1) ; for standalone applications
5083 ("mesa" ,mesa)))
5084 (native-inputs
5085 `(("pkg-config" ,pkg-config)
5086 ("dssi" ,dssi)
5087 ("lv2" ,lv2)))
5088 (home-page "https://github.com/DISTRHO/DPF-Plugins")
5089 (synopsis "Audio plugin collection")
5090 (description "Collection of audio plugins built with the DISTRHO Plugin
5091Framework (DPF) available in LADSPA, DSSI, LV2 and VST2 formats. This
5092package includes the following plugins: glBars, Kars, Max-Gen examples
5093(MaBitcrush, MaFreeverb, MaGigaverb, MaPitchshift), Mini-Series (3BandEQ,
50943BandSplitter, PingPongPan), ndc-Plugs (Amplitude Imposer, Cycle Shifter,
5095Soul Force), MVerb, Nekobi, and ProM.")
5096 ;; This package consists of several plugins refactored to use the
5097 ;; DISTHRO Plugin Framework (DPF). Different copyrights and licenses
5098 ;; apply to different plugins. The root LICENSE file has a table with
5099 ;; license information for each plugin and paths to each license
5100 (license (list license:isc license:gpl3 license:lgpl3 license:expat license:gpl2))))
bcf851bc
AT		 5101
5102(define-public avldrums-lv2
5103 (package
5104 (name "avldrums-lv2")
aaa41b41 5105 (version "0.4.1")
bcf851bc
AT		 5106 (source
5107 (origin
5108 (method git-fetch)
5109 (uri (git-reference
5110 (url "https://github.com/x42/avldrums.lv2.git")
5111 (commit (string-append "v" version))
5112 ;; This plugin expects the robtk submodule's source files to be
5113 ;; there in order to build.
5114 (recursive? #t)))
5115 (file-name (git-file-name name version))
5116 (sha256
aaa41b41 5117 (base32 "1vwdp3d8qzd493qa99ddya7iql67bbfxmbcl8hk96lxif2lhmyws"))))
bcf851bc
AT		 5118 (build-system gnu-build-system)
5119 (arguments
5120 `(#:tests? #f ; no "check" target
5121 #:make-flags
5122 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
5123 #:phases
5124 (modify-phases %standard-phases
5125 (add-before 'build 'set-CC-variable
5126 (lambda _
5127 (setenv "CC" "gcc") #t))
5128 (delete 'configure))))
5129 (inputs
5130 `(("cairo" ,cairo)
5131 ("dssi" ,dssi)
5132 ("glu" ,glu)
5133 ("mesa" ,mesa)
5134 ("pango" ,pango)))
5135 (native-inputs
5136 `(("pkg-config" ,pkg-config)
5137 ("lv2" ,lv2)))
5138 (home-page "https://x42-plugins.com/x42/x42-avldrums")
5139 (synopsis "Drum sample player LV2 plugin dedicated to the AVLinux Drumkits")
5140 (description "AVLdrums is a drum sample player LV2 plugin dedicated to Glen
5141MacArthur's AVLdrums. This plugin provides a convenient way to sequence and mix
5142MIDI drums and comes as two separate drumkits: Black Pearl and Red Zeppelin.")
5143 (license license:gpl2+)))
7281c8fd
AT		 5144
5145(define-public helm
5146 (package
5147 (name "helm")
5148 (version "0.9.0")
5149 (source
5150 (origin
5151 (method git-fetch)
5152 (uri
5153 (git-reference
5154 (url "https://github.com/mtytel/helm.git")
5155 (commit (string-append "v" version))))
5156 (file-name (git-file-name name version))
5157 (sha256
5158 (base32
5159 "17ys2vvhncx9i3ydg3xwgz1d3gqv4yr5mqi7vr0i0ca6nad6x3d4"))))
5160 (build-system gnu-build-system)
5161 (arguments
5162 `(#:tests? #f ; no "check" target
5163 #:make-flags
5164 (list (string-append "DESTDIR=" (assoc-ref %outputs "out"))
5165 "lv2" "standalone")
5166 #:phases
5167 (modify-phases %standard-phases
5168 (add-after 'unpack 'include-pnglib-code-and-remove-usr-from-paths
5169 (lambda _
5170 (substitute* "standalone/builds/linux/Makefile"
5171 (("JUCE_INCLUDE_PNGLIB_CODE=0")
5172 "JUCE_INCLUDE_PNGLIB_CODE=1"))
5173 (substitute* "builds/linux/LV2/Makefile"
5174 (("JUCE_INCLUDE_PNGLIB_CODE=0")
5175 "JUCE_INCLUDE_PNGLIB_CODE=1"))
5176 (substitute* "Makefile"
5177 (("/usr") ""))
5178 #t))
5179 (add-before 'reset-gzip-timestamps 'make-gz-files-writable
5180 (lambda* (#:key outputs #:allow-other-keys)
5181 (for-each make-file-writable
5182 (find-files (string-append (assoc-ref outputs "out"))
5183 ".*\\.gz$"))
5184 #t))
5185 (delete 'configure))))
5186 (inputs
5187 `(("alsa-lib" ,alsa-lib)
5188 ("curl" ,curl)
5189 ("freetype2" ,freetype)
5190 ("hicolor-icon-theme" ,hicolor-icon-theme)
5191 ("libxcursor" ,libxcursor)
5192 ("libxinerama", libxinerama)
5193 ("jack", jack-1)
5194 ("mesa" ,mesa)))
5195 (native-inputs
5196 `(("pkg-config" ,pkg-config)
5197 ("lv2", lv2)))
5198 (home-page "https://tytel.org/helm/")
5199 (synopsis "Polyphonic synth with lots of modulation")
5200 (description "Helm is a cross-platform polyphonic synthesizer available standalone
5201and as an LV2 plugin.")
5202 (license license:gpl3+)))
93f4511e
AT		 5203
5204(define-public zrythm
5205 (package
5206 (name "zrythm")
4f0f46e4 5207 (version "0.8.333")
93f4511e
AT		 5208 (source
5209 (origin
5210 (method url-fetch)
5211 (uri (string-append "https://www.zrythm.org/releases/zrythm-"
5212 version ".tar.xz"))
5213 (sha256
5214 (base32
4f0f46e4 5215 "0x2kxr5zz058jpy6k6ymj0fi2gqfcgrlv4qkwz9443hjy5345iwb"))))
93f4511e
AT		 5216 (build-system meson-build-system)
5217 (arguments
5218 `(#:glib-or-gtk? #t
5219 #:configure-flags
5220 `("-Denable_tests=true" "-Dmanpage=true"
6a428d45
AT		 5221 "-Dinstall_dseg_font=false" "-Denable_ffmpeg=true")
5222 #:phases
5223 (modify-phases %standard-phases
5224 (add-after 'unpack 'patch-xdg-open
5225 (lambda _
5226 (substitute* "src/utils/io.c"
5227 (("OPEN_DIR_CMD")
5228 (string-append "\"" (which "xdg-open") "\"")))
5229 #t)))))
93f4511e
AT		 5230 (inputs
5231 `(("alsa-lib" ,alsa-lib)
5232 ("jack" ,jack-1)
6616b22b
AT		 5233 ("font-dseg" ,font-dseg)
5234 ("ffmpeg" ,ffmpeg)
5235 ("fftw" ,fftw)
5236 ("fftwf" ,fftwf)
5237 ("gettext" ,gettext-minimal)
5238 ("glibc" ,glibc)
4f0f46e4 5239 ("graphviz" ,graphviz)
6616b22b 5240 ("gtk+" ,gtk+)
4f0f46e4 5241 ("gtksourceview" ,gtksourceview)
37084435 5242 ("guile" ,guile-2.2)
6616b22b 5243 ("libcyaml" ,libcyaml)
93f4511e
AT		 5244 ("libsamplerate" ,libsamplerate)
5245 ("libsndfile" ,libsndfile)
5246 ("libyaml" ,libyaml)
6616b22b
AT		 5247 ("lilv" ,lilv)
5248 ("xdg-utils" ,xdg-utils)
5249 ("rubberband" ,rubberband)))
93f4511e 5250 (native-inputs
6616b22b
AT		 5251 `(("pkg-config" ,pkg-config)
5252 ("help2man" ,help2man)
93f4511e 5253 ("libaudec" ,libaudec)
6616b22b 5254 ("lv2" ,lv2)
93f4511e
AT		 5255 ("glib" ,glib "bin"))) ;for 'glib-compile-resources'
5256 (synopsis "Digital audio workstation focusing on usability")
5257 (description "Zrythm is a digital audio workstation designed to be
5258featureful and easy to use. It offers unlimited automation options, LV2
5259plugin support, JACK support and chord assistance.")
5260 (home-page "https://www.zrythm.org")
5261 (license license:agpl3+)))
70236bae
AT		 5262
5263(define-public dragonfly-reverb
5264 (package
5265 (name "dragonfly-reverb")
f2096c7a 5266 (version "3.0.0")
70236bae
AT		 5267 (source
5268 (origin
5269 (method git-fetch)
5270 (uri
5271 (git-reference
5272 (url "https://github.com/michaelwillis/dragonfly-reverb.git")
5273 (commit version)
5274 ;; Bundles a specific commit of the DISTRHO plugin framework.
5275 (recursive? #t)))
5276 (file-name (git-file-name name version))
5277 (sha256
f2096c7a 5278 (base32 "1z2x33lzpd26dv1p29ca7vy8mjfzkfpin35iq46spwd9k3sqn1ja"))))
70236bae
AT		 5279 (build-system gnu-build-system)
5280 (arguments
5281 `(#:tests? #f ; no check target
5282 #:make-flags (list "CC=gcc")
5283 #:phases
5284 (modify-phases %standard-phases
5285 (delete 'configure) ;no configure target
5286 (replace 'install ;no install target
5287 (lambda* (#:key outputs #:allow-other-keys)
5288 (let* ((out (assoc-ref outputs "out"))
5289 (bin (string-append out "/bin"))
5290 (lv2 (string-append out "/lib/lv2")))
5291 ;; Install LV2.
5292 (for-each
5293 (lambda (file)
5294 (copy-recursively file
5295 (string-append lv2 "/" (basename file))))
5296 (find-files "bin" "\\.lv2$" #:directories? #t))
5297 ;; Install executables.
ad020ee2
AT		 5298 (for-each
5299 (lambda (file)
5300 (install-file file bin))
5301 (find-files "bin"
5302 (lambda (name stat)
5303 (and
5304 (equal? (dirname name) "bin")
5305 (not (string-suffix? ".so" name))
5306 (not (string-suffix? ".lv2" name))))))
70236bae
AT		 5307 #t))))))
5308 (native-inputs
5309 `(("pkg-config" ,pkg-config)))
5310 (inputs
5311 `(("jack" ,jack-1)
5312 ("libx11" ,libx11)
5313 ("mesa" ,mesa)))
5314 (home-page "https://michaelwillis.github.io/dragonfly-reverb/")
5315 (synopsis "Concert hall reverb and room reverb effects")
5316 (description
5317 "Dragonfly Reverb is a bundle of two free audio effects: a concert
5318hall reverb and a room reverb. Both are available as LV2 plugins as well
5319as JACK standalone applications.")
5320 (license license:gpl3+)))
d3e7282e
AT		 5321
5322(define-public zlfo
5323 (package
5324 (name "zlfo")
5325 (version "0.1.3")
5326 (source
5327 (origin
5328 (method git-fetch)
5329 (uri (git-reference
5330 (url "https://git.zrythm.org/git/ZLFO")
5331 (commit (string-append "v" version))))
5332 (file-name (git-file-name name version))
5333 (sha256
5334 (base32
5335 "0bm466ci5xyvxvq7l9p6xyh789lvk6i31b4zja1igqh13akbjnjz"))))
5336 (build-system meson-build-system)
5337 (inputs
5338 `(("librsvg" ,librsvg)
5339 ("lv2" ,lv2)
5340 ("ztoolkit-rsvg" ,ztoolkit-rsvg)))
5341 (native-inputs
5342 `(("pkg-config" ,pkg-config)))
5343 (synopsis "Low frequency oscillator plugin")
5344 (description "ZLFO is a fully featured
5345@dfn{low frequency oscillator} (LFO) for @dfn{control voltage} (CV)-based
5346automation that comes as an LV2 plugin bundle with a custom UI.")
5347 (home-page "https://git.zrythm.org/cgit/ZLFO/")
5348 (license license:agpl3+)))
cedd56f2
AT		 5349
5350(define-public vl1-emulator
5351 (package
5352 (name "vl1-emulator")
5353 (version "1.1.0.0")
5354 (source
5355 (origin
5356 (method git-fetch)
5357 (uri (git-reference
5358 (url "https://github.com/linuxmao-org/VL1-emulator.git")
5359 (commit (string-append "v" version))
5360 ;; bundles a specific commit of the DISTRHO plugin framework
5361 (recursive? #t)))
5362 (file-name (git-file-name name version))
5363 (sha256
5364 (base32
5365 "1npc86vqma8gk1hawa0lii0r2xmnv846plyl1ci3bdswyrdk5chm"))))
5366 (build-system gnu-build-system)
5367 (arguments
5368 `(#:tests? #f ;no check target
5369 #:make-flags
5370 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
5371 "CC=gcc")
5372 #:phases
5373 (modify-phases %standard-phases
5374 (delete 'configure)))) ;no configure target
5375 (inputs
5376 `(("cairo" ,cairo)
5377 ("jack" ,jack-1)
5378 ("mesa" ,mesa)))
5379 (native-inputs
5380 `(("pkg-config" ,pkg-config)))
5381 (home-page "https://github.com/linuxmao-org/VL1-emulator")
5382 (synopsis "Emulator of Casio VL-Tone VL1")
bce1e728
AT		 5383 (description "The VL1-Emulator is an emulator of Casio VL-Tone VL1,
5384based on source code by PolyValens, offered as an LV2 plugin and a
cedd56f2
AT		 5385standalone JACK application.")
5386 ;; Expat or CC0
5387 (license (list license:expat license:cc0))))
bce1e728
AT		 5388
5389(define-public regrader
5390 (package
5391 (inherit vl1-emulator)
5392 (name "regrader")
5393 (version "1.0.0")
5394 (source
5395 (origin
5396 (method git-fetch)
5397 (uri (git-reference
5398 (url "https://github.com/linuxmao-org/regrader.git")
5399 (commit (string-append "v" version))
5400 ;; bundles a specific commit of the DISTRHO plugin framework
5401 (recursive? #t)))
5402 (file-name (git-file-name name version))
5403 (sha256
5404 (base32
5405 "0gl4d5lf2afqknz22jz7hh7029sc9v1xrz6nbz9dlv42bwc0cvl0"))))
5406 (home-page "https://github.com/linuxmao-org/regrader")
5407 (synopsis "Delay effect plugin")
5408 (description
5409 "Regrader is a delay effect where the repeats degrade in resolution.
5410This is an unofficial port of the Regrader plugin created by Igorski. It
5411is available as an LV2 plugin and a standalone JACK application.")
5412 (license license:expat)))
65f61dcc
AT		 5413
5414(define-public fogpad
5415 (package
5416 (inherit vl1-emulator)
5417 (name "fogpad")
5418 (version "1.0.0")
5419 (source
5420 (origin
5421 (method git-fetch)
5422 (uri (git-reference
5423 (url "https://github.com/linuxmao-org/fogpad")
5424 (commit (string-append "v" version))
5425 ;; bundles a specific commit of the DISTRHO plugin framework
5426 (recursive? #t)))
5427 (file-name (git-file-name name version))
5428 (sha256
5429 (base32
5430 "1j1hbya2dsqpf22zkpi4kwz3dram9g1ndxzmgfwpmf3i4jd3csgb"))))
5431 (home-page "https://github.com/linuxmao-org/fogpad")
5432 (synopsis "Reverb effect plugin")
5433 (description
5434 "Fogpad is a reverb effect in which the reflections can be frozen,
5435filtered, pitch shifted and ultimately disintegrated. This is an unofficial
5436port of the Regrader plugin created by Igorski. It is available as an LV2
5437plugin and a standalone JACK application.")
5438 (license license:expat)))
2aaf7658
AT		 5439
5440(define-public tap-lv2
5441 (let ((commit "cab6e0dfb2ce20e4ad34b067d1281ec0b193598a")
5442 (revision "1"))
5443 (package
5444 (name "tap-lv2")
5445 (version (git-version "0.0" revision commit))
5446 (source
5447 (origin
5448 (method git-fetch)
5449 (uri (git-reference
5450 (url "https://github.com/moddevices/tap-lv2.git")
5451 (commit commit)))
5452 (file-name (git-file-name name version))
5453 (sha256
5454 (base32
5455 "0q480djfqd9g8mzrggc4vl7yclrhdjqx563ghs8mvi2qq8liycw3"))))
5456 (build-system gnu-build-system)
5457 (arguments
5458 `(#:tests? #f ; no check target
5459 #:make-flags
5460 (list "CC=gcc")
5461 #:phases
5462 (modify-phases %standard-phases
5463 (delete 'configure) ; no configure
5464 (replace 'install
5465 (lambda _
5466 (invoke "make"
5467 (string-append "INSTALL_PATH="
5468 (assoc-ref %outputs "out")
5469 "/lib/lv2")
5470 "install"))))))
5471 (inputs
5472 `(("lv2", lv2)))
5473 (native-inputs
5474 `(("pkg-config", pkg-config)))
5475 (synopsis "Audio plugin collection")
5476 (description "TAP (Tom's Audio Processing) plugins is a collection of
5477 audio effect plugins originally released as LADSPA plugins. This package
5478 offers an LV2 version ported by moddevices.")
5479 (home-page "http://tap-plugins.sourceforge.net/")
5480 (license license:gpl2))))
59be2959
AT		 5481
5482(define-public wolf-shaper
5483 (package
5484 (name "wolf-shaper")
5485 (version "0.1.7")
5486 (source
5487 (origin
5488 (method git-fetch)
5489 (uri (git-reference
5490 (url "https://github.com/pdesaulniers/wolf-shaper.git")
5491 (commit (string-append "v" version))
5492 ;; Bundles a specific commit of the DISTRHO plugin framework.
5493 (recursive? #t)))
5494 (file-name (git-file-name name version))
5495 (sha256
5496 (base32
5497 "0lllgcbnnh1m95bp29hh17x170hl7170zizjrvy892qfkn36830d"))))
5498 (build-system gnu-build-system)
5499 (arguments
5500 `(#:tests? #f ; no check target
5501 #:make-flags (list "CC=gcc")
5502 #:phases
5503 (modify-phases %standard-phases
5504 (delete 'configure) ;no configure target
5505 (replace 'install ;no install target
5506 (lambda* (#:key outputs #:allow-other-keys)
5507 (let* ((out (assoc-ref outputs "out"))
5508 (bin (string-append out "/bin"))
5509 (lv2 (string-append out "/lib/lv2")))
5510 ;; Install LV2.
5511 (for-each
5512 (lambda (file)
5513 (copy-recursively file
5514 (string-append lv2 "/" (basename file))))
5515 (find-files "bin" "\\.lv2$" #:directories? #t))
5516 ;; Install executables.
5517 (for-each
5518 (lambda (file)
5519 (install-file file bin))
5520 (find-files "bin"
5521 (lambda (name stat)
5522 (and
5523 (equal? (dirname name) "bin")
5524 (not (string-suffix? ".so" name))
5525 (not (string-suffix? ".lv2" name))))))
5526 #t))))))
5527 (native-inputs
5528 `(("pkg-config" ,pkg-config)))
5529 (inputs
5530 `(("jack", jack-1)
5531 ("lv2", lv2)
5532 ("mesa", mesa)))
5533 (synopsis "Waveshaper plugin")
5534 (description "Wolf Shaper is a waveshaper plugin with a graph editor.
5535It is provided as an LV2 plugin and as a standalone Jack application.")
5536 (home-page "https://pdesaulniers.github.io/wolf-shaper/")
5537 (license license:gpl3)))
b90b7f16
AT		 5538
5539(define-public wolf-spectrum
5540 (package
5541 (inherit wolf-shaper)
5542 (name "wolf-spectrum")
5543 (version "1.0.0")
5544 (source
5545 (origin
5546 (method git-fetch)
5547 (uri (git-reference
5548 (url "https://github.com/pdesaulniers/wolf-spectrum")
5549 (commit (string-append "v" version))
5550 ;; Bundles a specific commit of the DISTRHO plugin framework.
5551 (recursive? #t)))
5552 (file-name (git-file-name name version))
5553 (sha256
5554 (base32
5555 "17db1jlj7vb1xyvkdhhrsvdbwb7jqw6i4168cdvlj3yvn2ra8gpm"))))
5556 (synopsis "2D spectrogram plugin")
5557 (description "Wolf Spectrum is a real-time 2D spectrogram plugin.
5558It is provided as an LV2 plugin and as a standalone Jack application.")
5559 (home-page "https://github.com/pdesaulniers/wolf-spectrum")
5560 (license license:gpl3)))
d870fcfb
AT		 5561
5562(define-public shiru-lv2
5563 (let ((commit "08853f99140012234649e67e5647906fda74f6cc")
5564 (revision "1"))
5565 (package
5566 (name "shiru-lv2")
5567 (version (git-version "0.0" revision commit))
5568 (source
5569 (origin
5570 (method git-fetch)
5571 (uri (git-reference
5572 (url "https://github.com/linuxmao-org/shiru-plugins.git")
5573 (commit commit)
5574 ;; Bundles a specific commit of the DISTRHO plugin framework.
5575 (recursive? #t)))
5576 (file-name (git-file-name name version))
5577 (sha256
5578 (base32
5579 "00rf6im3rhg98h60sgl1r2s37za5vr5h14pybwi07h8zbc8mi6fm"))))
5580 (build-system gnu-build-system)
5581 (arguments
5582 `(#:tests? #f ; no check target
5583 #:make-flags (list "CC=gcc")
5584 #:phases
5585 (modify-phases %standard-phases
5586 (delete 'configure) ;no configure target
5587 (replace 'install ;no install target
5588 (lambda* (#:key outputs #:allow-other-keys)
5589 (let* ((out (assoc-ref outputs "out"))
5590 (bin (string-append out "/bin"))
5591 (lv2 (string-append out "/lib/lv2")))
5592 ;; Install LV2.
5593 (for-each
5594 (lambda (file)
5595 (copy-recursively file
5596 (string-append lv2 "/" (basename file))))
5597 (find-files "bin" "\\.lv2$" #:directories? #t))
5598 ;; Install executables.
5599 (for-each
5600 (lambda (file)
5601 (install-file file bin))
5602 (find-files "bin"
5603 (lambda (name stat)
5604 (and
5605 (equal? (dirname name) "bin")
5606 (not (string-suffix? ".so" name))
5607 (not (string-suffix? ".lv2" name))))))
5608 #t))))))
5609 (native-inputs
5610 `(("pkg-config" ,pkg-config)))
5611 (inputs
5612 `(("cairo", cairo)
5613 ("glu", glu)
5614 ("jack", jack-1)
5615 ("lv2", lv2)
5616 ("mesa", mesa)
5617 ("pango", pango)))
5618 (synopsis "Audio plugin collection")
5619 (description "Shiru plugins is a collection of audio plugins created
5620 by Shiru, ported to LV2 by the Linux MAO project using the DISTRHO plugin
5621 framework.")
5622 (home-page "http://shiru.untergrund.net/software.shtml")
5623 (license license:wtfpl2))))
jackhill's copy of GNU Guix: https://guix.gnu.org/