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