1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
3 ;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <rekado@elephly.net>
4 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
5 ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
6 ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
7 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
8 ;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net>
9 ;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net>
10 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
11 ;;; Copyright © 2017 ng0 <contact.ng0@cryptolab.net>
12 ;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org>
13 ;;; Copyright © 2017 Nicolas Goaziou <mail@nicolasgoaziou.fr>
14 ;;; Copyright © 2017 Pierre Langlois <pierre.langlois@gmx.com>
16 ;;; This file is part of GNU Guix.
18 ;;; GNU Guix is free software; you can redistribute it and/or modify it
19 ;;; under the terms of the GNU General Public License as published by
20 ;;; the Free Software Foundation; either version 3 of the License, or (at
21 ;;; your option) any later version.
23 ;;; GNU Guix is distributed in the hope that it will be useful, but
24 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
25 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
26 ;;; GNU General Public License for more details.
28 ;;; You should have received a copy of the GNU General Public License
29 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
31 (define-module (gnu packages music)
32 #:use-module (guix utils)
33 #:use-module (guix packages)
34 #:use-module (guix download)
35 #:use-module (guix git-download)
36 #:use-module ((guix licenses) #:prefix license:)
37 #:use-module (guix build-system gnu)
38 #:use-module (guix build-system ant)
39 #:use-module (guix build-system cmake)
40 #:use-module (guix build-system python)
41 #:use-module (guix build-system waf)
42 #:use-module (gnu packages)
43 #:use-module (gnu packages algebra)
44 #:use-module (gnu packages apr)
45 #:use-module (gnu packages audio)
46 #:use-module (gnu packages autotools)
47 #:use-module (gnu packages backup)
48 #:use-module (gnu packages base) ;libbdf
49 #:use-module (gnu packages bash)
50 #:use-module (gnu packages bison)
51 #:use-module (gnu packages boost)
52 #:use-module (gnu packages cdrom)
53 #:use-module (gnu packages code)
54 #:use-module (gnu packages check)
55 #:use-module (gnu packages cmake)
56 #:use-module (gnu packages compression)
57 #:use-module (gnu packages curl)
58 #:use-module (gnu packages cyrus-sasl)
59 #:use-module (gnu packages docbook)
60 #:use-module (gnu packages documentation)
61 #:use-module (gnu packages emacs)
62 #:use-module (gnu packages file)
63 #:use-module (gnu packages flex)
64 #:use-module (gnu packages fltk)
65 #:use-module (gnu packages fonts)
66 #:use-module (gnu packages fontutils)
67 #:use-module (gnu packages freedesktop)
68 #:use-module (gnu packages gcc)
69 #:use-module (gnu packages gnupg)
70 #:use-module (gnu packages gettext)
71 #:use-module (gnu packages ghostscript)
72 #:use-module (gnu packages gl)
73 #:use-module (gnu packages glib)
74 #:use-module (gnu packages gnome)
75 #:use-module (gnu packages graphics)
76 #:use-module (gnu packages gtk)
77 #:use-module (gnu packages guile)
78 #:use-module (gnu packages image)
79 #:use-module (gnu packages imagemagick)
80 #:use-module (gnu packages java)
81 #:use-module (gnu packages libffi)
82 #:use-module (gnu packages linux) ; for alsa-utils
83 #:use-module (gnu packages lirc)
84 #:use-module (gnu packages llvm)
85 #:use-module (gnu packages man)
86 #:use-module (gnu packages mp3)
87 #:use-module (gnu packages mpd)
88 #:use-module (gnu packages ncurses)
89 #:use-module (gnu packages netpbm)
90 #:use-module (gnu packages pcre)
91 #:use-module (gnu packages pdf)
92 #:use-module (gnu packages perl)
93 #:use-module (gnu packages pkg-config)
94 #:use-module (gnu packages pulseaudio) ;libsndfile
95 #:use-module (gnu packages python)
96 #:use-module (gnu packages python-web)
97 #:use-module (gnu packages qt)
98 #:use-module (gnu packages rdf)
99 #:use-module (gnu packages readline)
100 #:use-module (gnu packages rsync)
101 #:use-module (gnu packages sdl)
102 #:use-module (gnu packages tcl)
103 #:use-module (gnu packages texinfo)
104 #:use-module (gnu packages tex)
105 #:use-module (gnu packages tls)
106 #:use-module (gnu packages video)
107 #:use-module (gnu packages web)
108 #:use-module (gnu packages wxwidgets)
109 #:use-module (gnu packages xml)
110 #:use-module (gnu packages xorg)
111 #:use-module (gnu packages xiph)
112 #:use-module ((srfi srfi-1) #:select (last)))
114 (define-public aria-maestosa
116 (name "aria-maestosa")
120 (uri (string-append "mirror://sourceforge/ariamaestosa/ariamaestosa/"
121 version "/AriaSrc-" version ".tar.bz2"))
124 "1cs3z6frx2ch7rm5ammx9p0rxcjrbj1vq14hvcbimpaw39rdsn3d"))))
125 (build-system gnu-build-system)
127 `(#:tests? #f ;no tests
129 ;; TODO: Add scons-build-system and use it here.
130 (modify-phases %standard-phases
132 (add-after 'unpack 'scons-propagate-environment
134 ;; By design, SCons does not, by default, propagate
135 ;; environment variables to subprocesses. See:
136 ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
137 ;; Here, we modify the SConstruct file to arrange for
138 ;; environment variables to be propagated.
139 (substitute* "SConstruct"
140 (("env = Environment\\(\\)")
141 "env = Environment(ENV=os.environ)")
142 ;; Scons errors out when copying subdirectories from Resources,
143 ;; so we move them instead.
145 ;; We move the "score" and "Documentation" directories at once,
146 ;; so we have to ignore files contained therein.
147 (("if \".svn\" in file" line)
149 " or \"score/\" in file"
150 " or \"Documentation/\" in file")))
152 (replace 'build (lambda _ (zero? (system* "scons"))))
154 (lambda* (#:key outputs #:allow-other-keys)
155 (let ((out (assoc-ref outputs "out")))
157 (zero? (system* "scons"
158 (string-append "prefix=" out)
160 ;; Fix directory permissions
162 (chmod (string-append out "/share/Aria/Documentation") #o555)
163 (chmod (string-append out "/share/Aria/score") #o555)
166 `(("wxwidgets" ,wxwidgets)
168 ("alsa-lib" ,alsa-lib)))
171 ("pkg-config" ,pkg-config)))
172 (home-page "http://ariamaestosa.sourceforge.net/")
173 (synopsis "MIDI sequencer and editor")
175 "Aria Maestosa is a MIDI sequencer and editor. It lets you compose, edit
176 and play MIDI files with a few clicks in a user-friendly interface offering
177 score, keyboard, guitar, drum and controller views.")
178 (license license:gpl3+)))
187 "https://github.com/" name "/" name "/archive/v"
189 (file-name (string-append name "-" version ".tar.gz"))
192 "0raixgjavkm7hxppzsc5zqbfbh2bhjcmbiplhnsxsmyj8flafyc1"))))
193 (build-system gnu-build-system)
195 `(#:tests? #f ; cmus does not include tests
197 (modify-phases %standard-phases
200 (lambda* (#:key outputs #:allow-other-keys)
201 (let ((out (assoc-ref outputs "out")))
203 ;; It's an idiosyncratic configure script that doesn't
204 ;; understand --prefix=..; it wants prefix=.. instead.
206 (system* "./configure"
207 (string-append "prefix=" out)))))))))
208 ;; TODO: cmus optionally supports the following formats, which haven't yet
209 ;; been added to Guix:
213 ;; - DISCID_LIBS, apparently different from cd-discid which is included in
214 ;; Guix. See <http://sourceforge.net/projects/discid/>
216 `(("pkg-config" ,pkg-config)))
218 `(("alsa-lib" ,alsa-lib)
224 ("libcdio-paranoia" ,libcdio-paranoia)
227 ("libmodplug" ,libmodplug)
228 ("libmpcdec" ,libmpcdec)
229 ("libsamplerate" ,libsamplerate)
230 ("libvorbis" ,libvorbis)
232 ("opusfile" ,opusfile)
233 ("pulseaudio" ,pulseaudio)
234 ("wavpack" ,wavpack)))
235 (home-page "https://cmus.github.io/")
236 (synopsis "Small console music player")
237 (description "Cmus is a small and fast console music player. It supports
238 many input formats and provides a customisable Vi-style user interface.")
239 (license license:gpl2+)))
241 (define-public denemo
247 (uri (string-append "mirror://gnu/denemo/denemo-"
251 "0hggf8c4xcrjcxd5m00r788r7jg7g8ff54w2idfaqpj5j2ix3299"))))
252 (build-system gnu-build-system)
255 (modify-phases %standard-phases
257 ;; Denemo's documentation says to use this command to run its
260 (zero? (system* "make" "-C" "tests" "check"))))
261 (add-before 'build 'set-lilypond
262 ;; This phase sets the default path for lilypond to its current
263 ;; location in the store.
264 (lambda* (#:key inputs #:allow-other-keys)
265 (let* ((lilypond (string-append (assoc-ref inputs "lilypond")
267 (substitute* "src/core/prefops.c"
268 (("g_string_new \\(\"lilypond\"\\);")
269 (string-append "g_string_new (\""
273 (add-after 'install 'correct-filename
274 ;; "graft-derivation/shallow" from the (guix grafts) module runs in
275 ;; the C locale, expecting file names to be ASCII encoded. This
276 ;; phase renames a filename with a Unicode character in it to meet
277 ;; the aforementioned condition.
278 (lambda* (#:key outputs #:allow-other-keys)
279 (let* ((out (assoc-ref outputs "out")))
280 (chdir (string-append
282 "/share/denemo/templates/instruments/woodwind"))
283 (rename-file "Clarinet in B♭.denemo"
284 "Clarinet in Bb.denemo"))
287 `(("glib:bin", glib "bin") ; for gtester
288 ("pkg-config" ,pkg-config)))
290 `(("alsa-lib" ,alsa-lib)
294 ("fluidsynth" ,fluidsynth)
298 ("gtksourceview" ,gtksourceview)
300 ("intltool" ,intltool)
302 ("libsndfile" ,libsndfile)
305 ("lilypond", lilypond)
306 ("portaudio" ,portaudio)
307 ("portmidi" ,portmidi)
308 ("rubberband" ,rubberband)))
309 (synopsis "Graphical music notation, front-end to GNU Lilypond")
311 "GNU Denemo is a music notation editor that provides a convenient
312 interface to the powerful music engraving program Lilypond. Music can be
313 typed in using the computer keyboard, played in using a MIDI keyboard, or
314 even input via a microphone connected to the sound card. The final product
315 is publication-quality music notation that is continuously generated in the
316 background while you work.")
317 (home-page "http://www.denemo.org")
318 (license license:gpl3+)))
320 (define-public hydrogen
327 "https://github.com/hydrogen-music/hydrogen/archive/"
331 "1dy2jfkdw0nchars4xi4isrz66fqn53a9qk13bqza7lhmsg3s3qy"))))
332 (build-system cmake-build-system)
334 `(#:test-target "tests"))
336 `(("cppunit" ,cppunit)
337 ("pkg-config" ,pkg-config)))
339 `(("alsa-lib" ,alsa-lib)
341 ;; ("ladspa" ,ladspa) ; cannot find during configure
343 ("libarchive" ,libarchive)
344 ("libsndfile" ,libsndfile)
349 (home-page "http://www.hydrogen-music.org")
350 (synopsis "Drum machine")
352 "Hydrogen is an advanced drum machine for GNU/Linux. Its main goal is to
353 enable professional yet simple and intuitive pattern-based drum programming.")
354 (license license:gpl2+)))
356 (define-public extempore
363 "https://github.com/digego/extempore/archive/"
367 "1wap1mvsicrhlazikf7l8zxg37fir8bmnh9rin28m1rix730vcch"))
368 (file-name (string-append name "-" version ".tar.gz"))))
369 (build-system cmake-build-system)
371 `(;; The default target also includes ahead-of-time compilation of the
372 ;; standard libraries. However, during the "install" phase this would
373 ;; happen *again* for unknown reasons. Hence we only build the
374 ;; extempore executable during the build phase.
375 #:make-flags '("extempore")
376 #:configure-flags '("-DJACK=ON"
377 ;; We want to distribute.
379 ;; Don't download any dependencies.
381 #:modules ((ice-9 match)
382 (guix build cmake-build-system)
385 (modify-phases %standard-phases
386 (add-after 'unpack 'patch-directories
387 (lambda* (#:key outputs #:allow-other-keys)
388 ;; Rewrite default path to runtime directory
389 (substitute* "src/Extempore.cpp"
390 (("runtimedir \\+= \"runtime\"")
391 (string-append "runtimedir = \""
392 (assoc-ref outputs "out")
393 "/lib/extempore/runtime\"")))
394 (substitute* "extras/extempore.el"
395 (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
396 (string-append "(runtime-directory \""
397 (assoc-ref outputs "out")
398 "/lib/extempore/runtime"
401 (add-after 'unpack 'link-with-additional-libs
403 ;; The executable must be linked with libffi and zlib.
404 (substitute* "CMakeLists.txt"
405 (("add_dependencies\\(aot_extended extended_deps\\)") "")
406 (("target_link_libraries\\(extempore PRIVATE dl" line)
407 (string-append line " ffi z")))
409 ;; FIXME: AOT compilation of the nanovg bindings fail with the error:
410 ;; "Compiler Error could not bind _nvgLinearGradient"
411 (add-after 'unpack 'disable-nanovg
413 (substitute* "CMakeLists.txt"
414 (("aotcompile_lib\\(libs/external/nanovg.xtm.*") ""))
416 ;; FIXME: All examples that are used as tests segfault for some
418 (add-after 'unpack 'disable-broken-tests
420 (substitute* "CMakeLists.txt"
421 (("extempore_add_example_as_test\\(.*") ""))
423 (add-after 'unpack 'hardcode-external-lib-paths
424 (lambda* (#:key inputs #:allow-other-keys)
425 (use-modules (ice-9 match))
428 ((file-name lib pkg-name)
429 (substitute* (string-append "libs/external/" file-name ".xtm")
430 ((lib) (string-append (assoc-ref inputs pkg-name)
432 '(("assimp" "libassimp.so" "assimp")
433 ("portmidi" "libportmidi.so" "portmidi")
434 ("sndfile" "libsndfile.so" "libsndfile")
435 ("fft" "libkiss_fft.so" "kiss-fft")
436 ("stb_image" "libstb_image.so" "stb-image")
437 ("nanovg" "libnanovg.so" "nanovg")
438 ("glext" "libGL.so" "mesa")
439 ("glfw3" "libglfw.so" "glfw")
440 ("gl/glcore-directbind" "libGL.so" "mesa")
441 ("gl/glcompat-directbind" "libGL.so" "mesa")))
443 (add-after 'unpack 'use-own-llvm
444 (lambda* (#:key inputs #:allow-other-keys)
445 (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
446 ;; Our LLVM builds shared libraries, so Extempore should use
448 (substitute* "CMakeLists.txt"
449 (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
451 (add-after 'unpack 'fix-aot-compilation
452 (lambda* (#:key outputs #:allow-other-keys)
453 (substitute* "CMakeLists.txt"
454 ;; EXT_SHARE_DIR does not exist before installation, so the
455 ;; working directory should be the source directory instead.
456 (("WORKING_DIRECTORY \\$\\{EXT_SHARE_DIR\\}")
457 "WORKING_DIRECTORY ${CMAKE_SOURCE_DIR}")
458 ;; Extempore needs to be told where the runtime is to be found.
459 ;; While we're at it we disable automatic tuning for a specific
460 ;; CPU to make binary substitution possible.
461 (("COMMAND extempore" prefix)
462 (string-append prefix " --sharedir " (getcwd)
463 " --mcpu=generic --attr=none")))
466 `(("llvm" ,llvm-for-extempore)
469 ("libsndfile" ,libsndfile)
472 ("stb-image" ,stb-image-for-extempore)
473 ("kiss-fft" ,kiss-fft-for-extempore)
474 ("nanovg" ,nanovg-for-extempore)
475 ("portmidi" ,portmidi-for-extempore)
477 ("alsa-lib" ,alsa-lib)
478 ("portaudio" ,portaudio)
484 ("emacs" ,emacs-no-x)))
485 ;; Extempore refuses to build on architectures other than x86_64
486 (supported-systems '("x86_64-linux"))
487 (home-page "http://digego.github.io/extempore/")
488 (synopsis "Programming environment for live coding of multimedia")
490 "Extempore is a programming language and runtime environment designed
491 with live programming in mind. It supports interactive programming in a REPL
492 style, compiling and binding code just-in-time. Although Extempore has its
493 roots in 'live coding' of audiovisual media art, it is suitable for any task
494 domain where dynamic run-time modifiability and good numerical performance are
495 required. Extempore also has strong timing and concurrency semantics, which
496 are helpful when working in problem spaces where timing is important (such as
498 (license license:bsd-2)))
506 (uri (string-append "http://das.nasophon.de/download/klick-"
510 "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
511 (build-system gnu-build-system)
513 `(#:tests? #f ;no "check" target
515 ;; TODO: Add scons-build-system and use it here.
516 (modify-phases %standard-phases
519 (lambda* (#:key inputs outputs #:allow-other-keys)
520 (let ((out (assoc-ref outputs "out")))
522 (zero? (system* "scons" (string-append "PREFIX=" out))))))
523 (replace 'install (lambda _ (zero? (system* "scons" "install")))))))
527 ("libsndfile" ,libsndfile)
528 ("libsamplerate" ,libsamplerate)
530 ("rubberband" ,rubberband)))
534 ("pkg-config" ,pkg-config)))
535 (home-page "http://das.nasophon.de/klick/")
536 (synopsis "Metronome for JACK")
538 "klick is an advanced command-line based metronome for JACK. It allows
539 you to define complex tempo maps for entire songs or performances.")
540 (license license:gpl2+)))
542 (define-public gtklick
548 (uri (string-append "http://das.nasophon.de/download/gtklick-"
552 "0dq1km6njnzsqdqyf6wzir9g733z0mc9vmxfg2383k3c2a2di6bp"))))
553 (build-system python-build-system)
555 `(#:tests? #f ; no tests
558 (modify-phases %standard-phases
559 (add-before 'build 'add-sitedirs
560 ;; .pth files are not automatically interpreted unless the
561 ;; directories containing them are added as "sites". The directories
562 ;; are then added to those in the PYTHONPATH. This is required for
563 ;; the operation of pygtk.
565 (substitute* "gtklick/gtklick.py"
567 "import pygtk, site, sys
568 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))))
569 (add-after 'unpack 'inject-store-path-to-klick
570 (lambda* (#:key inputs #:allow-other-keys)
571 (substitute* "gtklick/klick_backend.py"
572 (("KLICK_PATH = 'klick'")
573 (string-append "KLICK_PATH = '"
574 (assoc-ref inputs "klick")
579 ("python2-pyliblo" ,python2-pyliblo)
580 ("python2-pygtk" ,python2-pygtk)))
582 `(("gettext" ,gettext-minimal)))
583 (home-page "http://das.nasophon.de/gtklick/")
584 (synopsis "Simple metronome with an easy-to-use graphical interface")
586 "Gtklick is a simple metronome with an easy-to-use graphical user
587 interface. It is implemented as a frontend to @code{klick}.")
588 (license license:gpl2+)))
590 (define-public libgme
596 (uri (string-append "https://bitbucket.org/mpyne/game-music-emu/"
597 "downloads/game-music-emu-" version
601 "08fk7zddpn7v93d0fa7fcypx7hvgwx9b5psj9l6m8b87k2hbw4fw"))))
602 (build-system cmake-build-system)
604 '(#:tests? #f)) ; no check target
605 (home-page "https://bitbucket.org/mpyne/game-music-emu")
606 (synopsis "Video game music file playback library")
608 "Game-music-emu is a collection of video game music file emulators that
609 support the following formats and systems:
612 ZX Spectrum/Asmtrad CPC
616 Sega Genesis/Mega Drive
618 NEC TurboGrafx-16/PC Engine
620 MSX Home Computer/other Z80 systems (doesn't support FM sound)
622 Nintendo NES/Famicom (with VRC 6, Namco 106, and FME-7 sound)
624 Atari systems using POKEY sound chip
626 Super Nintendo/Super Famicom
628 Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC Micro
630 (license (list license:lgpl2.1+
631 ;; demo and player directories are under the Expat license
634 (define-public lilypond
641 "http://download.linuxaudio.org/lilypond/sources/v"
642 (version-major+minor version) "/"
643 name "-" version ".tar.gz"))
646 "0hwv7m1lzyhjiyxqhqfdrrrpx475jhiwckrnxbjbv3ynhyzkngw0"))))
647 (build-system gnu-build-system)
649 `(#:tests? #f ; out-test/collated-files.html fails
651 #:make-flags '("conf=www") ;to generate images for info manuals
653 (list "CONFIGURATION=www"
654 (string-append "--with-texgyre-dir="
655 (assoc-ref %build-inputs "font-tex-gyre")
656 "/share/fonts/opentype/"))
658 (modify-phases %standard-phases
659 (add-after 'unpack 'use-texlive-union
661 ;; FIXME: fonts are not found and have to be generated in HOME.
662 (setenv "HOME" "/tmp")
663 ;; The test for the "lh" package fails, even though it is among
665 (substitute* "configure"
666 (("TEX_FIKPARM=.*") "TEX_FIKPARM=found\n"))
668 (add-after 'unpack 'fix-path-references
670 (substitute* "scm/backend-library.scm"
671 (("\\(search-executable '\\(\"gs\"\\)\\)")
672 (string-append "\"" (which "gs") "\""))
674 (string-append "\"" (which "sh") "\"")))
676 (add-before 'configure 'prepare-configuration
678 (substitute* "configure"
679 (("SHELL=/bin/sh") "SHELL=sh")
680 ;; When checking the fontforge version do not consider the
681 ;; version string that's part of the directory.
682 (("head -n") "tail -n")
683 ;; Also allow for SOURCE_DATE_EPOCH = 0 in fontforge.
684 (("20110222") "19700101"))
686 (setenv "conf" "www")
688 (add-after 'install 'install-info
690 (zero? (system* "make"
691 "-j" (number->string (parallel-job-count))
692 "conf=www" "install-info")))))))
694 `(("guile" ,guile-1.8)
695 ("font-dejavu" ,font-dejavu)
696 ("font-tex-gyre" ,font-tex-gyre)
697 ("fontconfig" ,fontconfig)
698 ("freetype" ,freetype)
699 ("ghostscript" ,ghostscript)
701 ("python" ,python-2)))
706 ("fontforge" ,fontforge)
708 ("gettext" ,gettext-minimal)
709 ("imagemagick" ,imagemagick)
710 ("netpbm" ,netpbm) ;for pngtopnm
711 ("texlive" ,(texlive-union (list texlive-metapost
714 texlive-latex-cyrillic)))
716 ("texi2html" ,texi2html)
718 ("pkg-config" ,pkg-config)
720 (home-page "http://www.lilypond.org/")
721 (synopsis "Music typesetting")
723 "GNU LilyPond is a music typesetter, which produces high-quality sheet
724 music. Music is input in a text file containing control sequences which are
725 interpreted by LilyPond to produce the final document. It is extendable with
727 (license license:gpl3+)
729 ;; On armhf and mips64el, building the documentation sometimes leads to
730 ;; more than an hour of silence, so double the max silent time.
731 (properties `((max-silent-time . 7200)))))
733 (define-public non-sequencer
734 ;; The latest tagged release is three years old and uses a custom build
735 ;; system, so we take the last commit.
736 (let ((commit "10c31e57291b6e42be53371567a722b62b32d220")
739 (name "non-sequencer")
740 (version (string-append "1.9.5-" revision "." (string-take commit 7)))
744 (url "git://git.tuxfamily.org/gitroot/non/non.git")
748 "080rha4ffp7qycyg1mqcf4vj0s7z8qfvz6bxm0w29xgg2kkmb3fx"))
749 (file-name (string-append name "-" version "-checkout"))))
750 (build-system waf-build-system)
752 `(#:tests? #f ;no "check" target
754 (list "--project=sequencer"
755 ;; Disable the use of SSE unless on x86_64.
756 ,@(if (not (string-prefix? "x86_64" (or (%current-target-system)
761 (modify-phases %standard-phases
763 'configure 'set-flags
765 ;; Compile with C++11, required by libsigc++.
766 (setenv "CXXFLAGS" "-std=c++11")
771 ("libsigc++" ,libsigc++)
775 `(("pkg-config" ,pkg-config)))
776 (home-page "http://non.tuxfamily.org/wiki/Non%20Sequencer")
777 (synopsis "Pattern-based MIDI sequencer")
779 "The Non Sequencer is a powerful, lightweight, real-time,
780 pattern-based MIDI sequencer. It utilizes the JACK Audio Connection Kit for
781 MIDI I/O and the NTK GUI toolkit for its user interface. Everything in Non
782 Sequencer happens on-line, in real-time. Music can be composed live, while the
783 transport is rolling.")
784 (license license:gpl2+))))
786 (define-public non-session-manager
787 (package (inherit non-sequencer)
788 (name "non-session-manager")
790 (substitute-keyword-arguments (package-arguments non-sequencer)
791 ((#:configure-flags flags)
792 `(cons "--project=session-manager"
793 (delete "--project=sequencer" ,flags)))))
799 `(("pkg-config" ,pkg-config)))
800 (home-page "http://non.tuxfamily.org/nsm/")
801 (synopsis "Audio session management")
803 "The Non Session Manager is an API and an implementation for audio
804 session management. NSM clients use a well-specified OSC protocol to
805 communicate with the session management daemon.")
806 (license license:gpl2+)))
808 (define-public non-mixer
809 (package (inherit non-sequencer)
812 (substitute-keyword-arguments (package-arguments non-sequencer)
813 ((#:configure-flags flags)
814 `(cons "--project=mixer"
815 (delete "--project=sequencer" ,flags)))))
823 `(("pkg-config" ,pkg-config)))
824 (home-page "http://non.tuxfamily.org/wiki/Non%20Mixer")
825 (synopsis "Modular digital audio mixer")
827 "The Non Mixer is a powerful, reliable and fast modular digital audio
828 mixer. It utilizes JACK for inter-application audio I/O and the NTK GUI
829 toolkit for a fast and lightweight user interface. Non Mixer can be used
830 alone or in concert with Non Timeline and Non Sequencer to form a complete
832 (license license:gpl2+)))
834 (define-public non-timeline
835 (package (inherit non-sequencer)
836 (name "non-timeline")
838 (substitute-keyword-arguments (package-arguments non-sequencer)
839 ((#:configure-flags flags)
840 `(cons "--project=timeline"
841 (delete "--project=sequencer" ,flags)))))
845 ("libsndfile" ,libsndfile)
848 `(("pkg-config" ,pkg-config)))
849 (home-page "http://non.tuxfamily.org/wiki/Non%20Timeline")
850 (synopsis "Modular digital audio timeline arranger")
852 "The Non Timeline is a powerful, reliable and fast modular digital audio
853 timeline arranger. It utilizes JACK for inter-application audio I/O and the
854 NTK GUI toolkit for a fast and lightweight user interface. Non Timeline can
855 be used alone or in concert with Non Mixer and Non Sequencer to form a
857 (license license:gpl2+)))
859 (define-public solfege
866 "mirror://gnu/solfege/solfege-"
870 "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
871 (build-system gnu-build-system)
873 `(#:tests? #f ; xmllint attempts to download DTD
876 (modify-phases %standard-phases
877 (add-after 'unpack 'fix-configuration
878 (lambda* (#:key inputs #:allow-other-keys)
879 (substitute* "default.config"
881 (string-append "csound="
882 (assoc-ref inputs "csound")
885 (string-append (assoc-ref inputs "aplay")
887 (("/usr/bin/timidity")
888 (string-append (assoc-ref inputs "timidity")
891 (string-append (assoc-ref inputs "mpg123")
894 (string-append (assoc-ref inputs "ogg123")
897 (add-before 'build 'patch-python-shebangs
899 ;; Two python scripts begin with a Unicode BOM, so patch-shebang
901 (substitute* '("solfege/parsetree.py"
902 "solfege/presetup.py")
903 (("#!/usr/bin/python") (string-append "#!" (which "python"))))
905 (add-before 'build 'add-sitedirs
906 ;; .pth files are not automatically interpreted unless the
907 ;; directories containing them are added as "sites". The directories
908 ;; are then added to those in the PYTHONPATH. This is required for
909 ;; the operation of pygtk and pygobject.
911 (substitute* "run-solfege.py"
914 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))
916 (add-before 'build 'adjust-config-file-prefix
917 (lambda* (#:key outputs #:allow-other-keys)
918 (substitute* "run-solfege.py"
919 (("prefix = os.path.*$")
920 (string-append "prefix = " (assoc-ref outputs "out"))))
922 (add-after 'install 'wrap-program
923 (lambda* (#:key inputs outputs #:allow-other-keys)
924 ;; Make sure 'solfege' runs with the correct PYTHONPATH.
925 (let* ((out (assoc-ref outputs "out"))
926 (path (getenv "PYTHONPATH")))
927 (wrap-program (string-append out "/bin/solfege")
928 `("PYTHONPATH" ":" prefix (,path))))
931 `(("python" ,python-2)
932 ("pygtk" ,python2-pygtk)
933 ("gettext" ,gettext-minimal)
935 ("lilypond" ,lilypond)
936 ;; players needed at runtime
937 ("aplay" ,alsa-utils)
938 ("csound" ,csound) ; optional, needed for some exercises
940 ("ogg123" ,vorbis-tools)
941 ("timidity" ,timidity++)))
943 `(("pkg-config" ,pkg-config)
945 ("libxml2" ,libxml2) ; for tests
946 ("ghostscript" ,ghostscript)
947 ("texinfo" ,texinfo)))
948 (home-page "https://www.gnu.org/software/solfege/")
949 (synopsis "Ear training")
951 "GNU Solfege is a program for practicing musical ear-training. With it,
952 you can practice your recognition of various musical intervals and chords. It
953 features a statistics overview so you can monitor your progress across several
954 sessions. Solfege is also designed to be extensible so you can easily write
956 (license license:gpl3+)))
958 (define-public powertabeditor
960 (name "powertabeditor")
961 (version "2.0.0-alpha10")
965 "https://github.com/powertab/powertabeditor/archive/"
967 (file-name (string-append name "-" version ".tar.gz"))
970 "1fr14ql0yhlqvh6y08yaanszm2nvca5i50rqym396kfvga3ky18x"))
971 (modules '((guix build utils)))
974 ;; Remove bundled sources for external libraries
975 (delete-file-recursively "external")
976 ;; Use only system libraries
977 (substitute* "CMakeLists.txt"
978 (("include\\( PTE_ThirdParty \\)")
980 include(third_party/Qt)
981 include(third_party/boost)
982 add_library( Catch INTERFACE IMPORTED )
983 add_library( rapidjson INTERFACE IMPORTED )"))
985 (build-system cmake-build-system)
987 `(#:modules ((guix build cmake-build-system)
991 ;; CMake appears to lose the RUNPATH for some reason, so it has to be
992 ;; explicitly set with CMAKE_INSTALL_RPATH.
993 (list "-DCMAKE_BUILD_WITH_INSTALL_RPATH=TRUE"
994 (string-append "-DCMAKE_INSTALL_RPATH="
995 (string-join (map (match-lambda
997 (string-append directory "/lib")))
999 "-DPTE_DATA_DIR=share/powertabeditor")
1001 (modify-phases %standard-phases
1004 (zero? (system* "bin/pte_tests"
1005 ;; FIXME: these tests fail
1006 "exclude:Actions/EditStaff"
1007 "exclude:Formats/PowerTabOldImport/MergeMultiBarRests"
1008 "exclude:Score/ViewFilter/FilterRule"
1009 "exclude:Score/ViewFilter/ViewFilter"
1010 "exclude:Formats/PowerTabOldImport/Directions"
1012 (add-before 'configure 'remove-third-party-libs
1013 (lambda* (#:key inputs #:allow-other-keys)
1014 ;; Link with required static libraries, because we're not
1015 ;; using the bundled version of withershins.
1016 ;; Also add pthread for fixing a linker error.
1017 (substitute* "source/build/CMakeLists.txt"
1018 (("withershins" line)
1019 (string-append line "\n"
1020 (assoc-ref inputs "binutils")
1022 (assoc-ref inputs "libiberty")
1023 "/lib/libiberty.a\n"
1030 ("alsa-lib" ,alsa-lib)
1032 ("withershins" ,withershins)
1033 ("libiberty" ,libiberty) ;for withershins
1034 ("binutils" ,binutils) ;for -lbfd and -liberty (for withershins)
1035 ("timidity" ,timidity++)
1036 ("pugixml" ,pugixml)
1038 ("rapidjson" ,rapidjson)
1041 `(("catch" ,catch-framework)
1042 ("pkg-config" ,pkg-config)))
1043 (home-page "http://powertabs.net")
1044 (synopsis "Guitar tablature editor")
1046 "Power Tab Editor 2.0 is the successor to the famous original Power Tab
1047 Editor. It is compatible with Power Tab Editor 1.7 and Guitar Pro.")
1048 (license license:gpl3+)))
1050 (define-public jalv-select
1052 (name "jalv-select")
1056 (uri (string-append "https://github.com/brummer10/jalv_select/"
1057 "archive/V" version ".tar.gz"))
1060 "0zraagwr681b5s3qifxf399c7q93jz23c8sr42gmff9zqnvxc75q"))))
1061 (build-system gnu-build-system)
1064 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1066 (modify-phases %standard-phases
1068 (add-after 'unpack 'ignore-PATH
1069 (lambda* (#:key inputs #:allow-other-keys)
1070 (substitute* "jalv.select.cpp"
1071 (("echo \\$PATH.*tr ':'.*xargs ls")
1072 (string-append "ls -1 " (assoc-ref inputs "jalv") "/bin")))
1073 (substitute* "jalv.select.h"
1074 (("gtkmm.h") "gtkmm-2.4/gtkmm.h"))
1080 ("gtkmm" ,gtkmm-2)))
1082 `(("pkg-config" ,pkg-config)))
1083 (home-page "https://github.com/brummer10/jalv_select")
1084 (synopsis "GUI to select LV2 plugins and run them with jalv")
1086 "The jalv.select package provides a graphical user interface allowing
1087 users to select LV2 plugins and run them with jalv.")
1088 (license license:public-domain)))
1090 (define-public synthv1
1097 (string-append "mirror://sourceforge/synthv1/synthv1/" version
1098 "/synthv1-" version ".tar.gz"))
1101 "0awk2zx0xa6vl6ah24zz0k2mwsx50hh5g1rh32mp790fp4x7l5s8"))))
1102 (build-system gnu-build-system)
1104 `(#:tests? #f ; There are no tests.
1106 '("CXXFLAGS=-std=gnu++11")))
1110 ("alsa-lib" ,alsa-lib)
1111 ("non-session-manager" ,non-session-manager)
1114 ("qttools" ,qttools)))
1116 `(("pkg-config" ,pkg-config)))
1117 (home-page "http://synthv1.sourceforge.net")
1118 (synopsis "Polyphonic subtractive synthesizer")
1120 "Synthv1 is an old-school subtractive polyphonic synthesizer with four
1121 oscillators and stereo effects.")
1122 (license license:gpl2+)))
1124 (define-public drumkv1
1131 (string-append "mirror://sourceforge/drumkv1/drumkv1/" version
1132 "/drumkv1-" version ".tar.gz"))
1135 "0qqpklzy4wgw9jy0v2810j06712q90bwc69fp7da82536ba058a9"))))
1136 (build-system gnu-build-system)
1138 `(#:tests? #f ; There are no tests.
1140 '("CXXFLAGS=-std=gnu++11")))
1144 ("libsndfile" ,libsndfile)
1145 ("alsa-lib" ,alsa-lib)
1146 ("non-session-manager" ,non-session-manager)
1148 ("qtbase" ,qtbase)))
1150 `(("pkg-config" ,pkg-config)
1151 ("qttools" ,qttools)))
1152 (home-page "http://drumkv1.sourceforge.net")
1153 (synopsis "Drum-kit sampler synthesizer with stereo effects")
1155 "Drumkv1 is an old-school drum-kit sampler synthesizer with stereo
1157 (license license:gpl2+)))
1159 (define-public samplv1
1166 (string-append "mirror://sourceforge/samplv1/samplv1/" version
1167 "/samplv1-" version ".tar.gz"))
1170 "107p2xsj066q2bil0xcgqrrn7lawp02wzf7qmlajcbnd79jhsi6i"))))
1171 (build-system gnu-build-system)
1173 `(#:tests? #f ; There are no tests.
1175 '("CXXFLAGS=-std=gnu++11")))
1179 ("libsndfile" ,libsndfile)
1180 ("alsa-lib" ,alsa-lib)
1181 ("non-session-manager" ,non-session-manager)
1183 ("qtbase" ,qtbase)))
1185 `(("pkg-config" ,pkg-config)
1186 ("qttools" ,qttools)))
1187 (home-page "http://samplv1.sourceforge.net")
1188 (synopsis "Polyphonic sampler synthesizer with stereo effects")
1190 "Samplv1 is an old-school polyphonic sampler synthesizer with stereo
1192 (license license:gpl2+)))
1194 (define-public amsynth
1201 (uri (string-append "https://github.com/amsynth/amsynth/releases/"
1202 "download/release-" version
1203 "/amsynth-" version ".tar.bz2"))
1206 "1882pfcmf3rqg3vd4qflzkppcv158d748i603spqjbxqi8z7x7w0"))))
1207 (build-system gnu-build-system)
1210 (modify-phases %standard-phases
1211 (add-before 'configure 'set-flags
1213 ;; Compile with C++11, required by gtkmm.
1214 (setenv "CXXFLAGS" "-std=c++11")
1217 `(("alsa-lib" ,alsa-lib)
1221 ("libsndfile" ,libsndfile)
1223 ("gtkmm" ,gtkmm-2)))
1225 `(("pkg-config" ,pkg-config)
1226 ("intltool" ,intltool)))
1227 (home-page "http://amsynth.github.io")
1228 (synopsis "Analog modeling synthesizer")
1230 "amsynth is an easy-to-use software synthesizer with a classic
1231 subtractive synthesizer topology. Its features include: dual
1232 oscillators (sine, saw, square, noise) with hard sync; 12 and 24 dB/oct
1233 resonant filters (low-pass, high-pass, band-pass, notch); mono, poly, legato
1234 keyboard modes; dual ADSR envelope generators for filter and amplitude; LFO
1235 which can modulate the oscillators, filter, and amplitude; distortion and
1237 (license license:gpl2+)))
1239 (define-public setbfree
1246 (string-append "https://github.com/pantherb/setBfree/archive/v"
1248 (file-name (string-append name "-" version ".tar.gz"))
1251 "1g4s1920kb2q5gpp82l2vxia29qa8g8zvdjgrca8ypynvxpzn65f"))))
1252 (build-system gnu-build-system)
1254 `(#:tests? #f ; no "check" target
1256 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1257 (string-append "FONTFILE="
1258 (assoc-ref %build-inputs "font-bitstream-vera")
1259 "/share/fonts/truetype/VeraBd.ttf")
1260 ;; Disable unsupported optimization flags on non-x86
1261 ,@(let ((system (or (%current-target-system)
1262 (%current-system))))
1263 (if (or (string-prefix? "x86_64" system)
1264 (string-prefix? "i686" system))
1266 '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
1268 (modify-phases %standard-phases
1269 (add-before 'build 'set-CC-variable
1270 (lambda _ (setenv "CC" "gcc") #t))
1271 (delete 'configure))))
1275 ("zita-convolver" ,zita-convolver)
1278 ("font-bitstream-vera" ,font-bitstream-vera)))
1280 `(("help2man" ,help2man)
1281 ("pkg-config" ,pkg-config)))
1282 (home-page "http://setbfree.org")
1283 (synopsis "Tonewheel organ")
1285 "setBfree is a MIDI-controlled, software synthesizer designed to imitate
1286 the sound and properties of the electromechanical organs and sound
1287 modification devices that brought world-wide fame to the names and products of
1288 Laurens Hammond and Don Leslie.")
1289 (license license:gpl2+)))
1291 (define-public beast
1297 (uri (string-append "https://testbit.eu/pub/dists/beast/beast-"
1301 "1jzzmfwssklzw8fvvil04n8csc0zm99fnd9p2xa7c0xchg37lvhn"))))
1302 (build-system gnu-build-system)
1304 '(#:parallel-build? #f)) ; Race conditions cause build failures
1306 `(("rapicorn" ,rapicorn)
1307 ("guile" ,guile-1.8)
1308 ("python" ,python-2)
1309 ("libgnomecanvas" ,libgnomecanvas)
1313 ("alsa-lib" ,alsa-lib)
1314 ("libvorbis" ,libvorbis)
1315 ("gettext" ,gettext-minimal)))
1317 `(("pkg-config" ,pkg-config)
1318 ("glib:bin" ,glib "bin")
1319 ("cython" ,python2-cython)
1321 ("perl-xml-parser" ,perl-xml-parser)))
1322 (home-page "https://testbit.eu/wiki/Beast_Home")
1323 (synopsis "Music composition and modular synthesis environment")
1325 "Beast is a music composition and modular synthesis application. It
1326 supports a wide range of standards in the field, such as MIDI, various audio
1327 file formats and LADSPA modules. It allows for multitrack editing, real-time
1328 synthesis, 32bit audio rendering, precise timing down to sample granularity,
1329 on-demand and partial loading of wave files, on the fly decoding, stereo
1330 mixing, FFT scopes, MIDI automation and full scriptability in Scheme.")
1331 (license license:gpl3+)))
1333 (define-public bristol
1339 (uri (string-append "mirror://sourceforge/bristol/bristol/"
1340 (version-major+minor version)
1341 "/bristol-" version ".tar.gz"))
1344 "1fi2m4gmvxdi260821y09lxsimq82yv4k5bbgk3kyc3x1nyhn7vx"))))
1345 (build-system gnu-build-system)
1348 (modify-phases %standard-phases
1349 (add-after 'unpack 'remove-sse-flags
1350 (lambda* (#:key system #:allow-other-keys)
1351 (when (not (or (string-prefix? "x86_64" system)
1352 (string-prefix? "i686" system)))
1353 (substitute* "bristol/Makefile.in"
1354 (("-msse -mfpmath=sse") "")))
1356 ;; alsa-lib 1.1.x no longer provides iatomic.h. That's okay because
1357 ;; bristol actually doesn't use it.
1358 (add-after 'unpack 'do-not-use-alsa-iatomic
1360 (substitute* "libbristolaudio/audioEngineJack.c"
1361 (("#include <alsa/iatomic.h>") ""))
1363 ;; We know that Bristol has been linked with JACK and we don't have
1364 ;; ldd, so we can just skip this check.
1365 (add-after 'unpack 'do-not-grep-for-jack
1367 (substitute* "bin/startBristol.in"
1368 (("ldd `which bristol` | grep jack") "echo guix"))
1371 `(("alsa-lib" ,alsa-lib)
1374 ("libx11" ,libx11)))
1376 `(("pkg-config" ,pkg-config)))
1377 (home-page "http://bristol.sourceforge.net/")
1378 (synopsis "Synthesizer emulator")
1380 "Bristol is an emulation package for a number of different 'classic'
1381 synthesizers including additive and subtractive and a few organs. The
1382 application consists of the engine, which is called bristol, and its own GUI
1383 library called brighton that represents all the emulations. There are
1384 currently more than twenty different emulations; each does sound different
1385 although the author maintains that the quality and accuracy of each emulation
1387 (license license:gpl3+)))
1389 (define-public tuxguitar
1396 "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
1397 version "/tuxguitar-" version "-src.tar.gz"))
1400 "041275vwfr82kass7wiq9g2y82w9qrbzfinzcvfij2f2q45njwmc"))
1401 (modules '((guix build utils)))
1404 ;; Delete pre-built classes
1405 (delete-file-recursively "TuxGuitar-android-gdrive/bin")
1406 (delete-file-recursively "TuxGuitar-android-gdrive-gdaa/bin")
1408 (build-system ant-build-system)
1410 `(#:build-target "build"
1411 #:tests? #f ; no tests
1413 (modify-phases %standard-phases
1414 (add-after 'unpack 'enter-dir
1415 (lambda _ (chdir "TuxGuitar-lib") #t))
1416 (add-after 'build 'build-libraries
1417 (lambda* (#:key inputs outputs #:allow-other-keys)
1418 (let* ((initial-classpath (getenv "CLASSPATH"))
1419 (build-dir (lambda (dir)
1422 (string-join (cons initial-classpath
1423 (find-files (getcwd) "\\.jar$"))
1426 (if (file-exists? "build.xml")
1427 ((assoc-ref %standard-phases 'build)
1428 #:build-target "build")
1430 ;; Generate default build.xml
1431 ((@@ (guix build ant-build-system) default-build.xml)
1432 (string-append (string-downcase dir) ".jar")
1433 (string-append (assoc-ref outputs "out")
1435 ((assoc-ref %standard-phases 'build)))))))
1436 (map build-dir '("TuxGuitar-editor-utils"
1437 "TuxGuitar-ui-toolkit"
1438 "TuxGuitar-ui-toolkit-swt"
1439 "TuxGuitar-awt-graphics")))))
1440 (add-after 'build-libraries 'build-application
1442 (chdir "../TuxGuitar")
1443 ((assoc-ref %standard-phases 'build)
1444 #:build-target "build")))
1446 (lambda* (#:key inputs outputs #:allow-other-keys)
1447 (let* ((out (assoc-ref outputs "out"))
1448 (bin (string-append out "/bin"))
1449 (share (string-append out "/share"))
1450 (lib (string-append share "/java"))
1451 (swt (assoc-ref inputs "java-swt")))
1454 (for-each (lambda (file)
1455 (install-file file lib))
1456 (find-files ".." "\\.jar$"))
1458 ;; install all resources
1459 (copy-recursively "share" share)
1462 (call-with-output-file (string-append bin "/tuxguitar")
1464 (let ((classpath (string-join (append (find-files lib "\\.jar$")
1465 (find-files swt "\\.jar$"))
1469 (string-append "#!/bin/sh\n"
1472 " -Dtuxguitar.home.path=" out
1473 " -Dtuxguitar.share.path=" out "/share"
1474 " -Dswt.library.path=" swt "/lib"
1475 " org.herac.tuxguitar.app.TGMainSingleton"
1476 " \"$1\" \"$2\"")))))
1477 (chmod (string-append bin "/tuxguitar") #o555)
1480 `(("java-swt" ,java-swt)))
1481 (home-page "http://tuxguitar.pw")
1482 (synopsis "Multitrack tablature editor and player")
1484 "TuxGuitar is a guitar tablature editor with player support through midi.
1485 It can display scores and multitrack tabs. TuxGuitar provides various
1486 additional features, including autoscrolling while playing, note duration
1487 management, bend/slide/vibrato/hammer-on/pull-off effects, support for
1488 tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
1490 (license license:lgpl2.1+)))
1499 (string-append "http://msp.ucsd.edu/Software/pd-"
1500 version ".src.tar.gz"))
1503 "0k5s949kqd7yw97h3m8z81bjz32bis9m4ih8df1z0ymipnafca67"))))
1504 (build-system gnu-build-system)
1506 `(#:tests? #f ; no "check" target
1508 (modify-phases %standard-phases
1509 (add-before 'configure 'fix-wish-path
1511 (substitute* "src/s_inter.c"
1512 ((" wish ") (string-append " " (which "wish8.6") " ")))
1513 (substitute* "tcl/pd-gui.tcl"
1514 (("exec wish ") (string-append "exec " (which "wish8.6") " ")))
1516 (add-after 'unpack 'autoconf
1517 (lambda _ (zero? (system* "bash" "./autogen.sh")))))))
1519 `(("autoconf" ,autoconf)
1520 ("automake" ,automake)
1521 ("libtool" ,libtool)
1522 ("gettext" ,gettext-minimal)
1523 ("pkg-config" ,pkg-config)))
1526 ("alsa-lib" ,alsa-lib)
1528 (home-page "http://puredata.info")
1529 (synopsis "Visual programming language for artistic performances")
1531 "Pure Data (aka Pd) is a visual programming language. Pd enables
1532 musicians, visual artists, performers, researchers, and developers to create
1533 software graphically, without writing lines of code. Pd is used to process
1534 and generate sound, video, 2D/3D graphics, and interface sensors, input
1535 devices, and MIDI. Pd can easily work over local and remote networks to
1536 integrate wearable technology, motor systems, lighting rigs, and other
1537 equipment. Pd is suitable for learning basic multimedia processing and visual
1538 programming methods as well as for realizing complex systems for large-scale
1540 (license license:bsd-3)))
1542 (define-public portmidi
1548 (uri (string-append "mirror://sourceforge/portmedia/portmidi/"
1549 version "/portmidi-src-" version ".zip"))
1552 "03rfsk7z6rdahq2ihy5k13qjzgx757f75yqka88v3gc0pn9ais88"))
1553 (patches (list (search-patch "portmidi-modular-build.patch")))))
1554 (build-system cmake-build-system)
1556 `(#:tests? #f ; tests cannot be linked
1558 (list "-DPORTMIDI_ENABLE_JAVA=Off"
1559 "-DCMAKE_BUILD_TYPE=Release" ; needed to have PMALSA set
1560 "-DPORTMIDI_ENABLE_TEST=Off"))) ; tests fail linking
1562 `(("alsa-lib" ,alsa-lib)))
1564 `(("unzip" ,unzip)))
1565 (home-page "http://portmedia.sourceforge.net/portmidi/")
1566 (synopsis "Library for MIDI I/O")
1568 "PortMidi is a library supporting real-time input and output of MIDI data
1569 using a system-independent interface.")
1570 (license license:expat)))
1572 (define-public portmidi-for-extempore
1573 (package (inherit portmidi)
1574 (name "portmidi-for-extempore")
1578 (uri (string-append "https://github.com/extemporelang/portmidi/"
1579 "archive/" version ".tar.gz"))
1580 (file-name (string-append name "-" version ".tar.gz"))
1583 "0gjikwciyr8kk4y3qiv1pcq58xpgw38ql1m2gs6g0qc1s8sx4235"))))
1584 (build-system cmake-build-system)
1585 (arguments `(#:tests? #f)) ; no tests
1587 ;; Extempore refuses to build on architectures other than x86_64
1588 (supported-systems '("x86_64-linux"))
1589 (home-page "https://github.com/extemporelang/portmidi/")))
1591 (define-public python-pyportmidi
1593 (name "python-pyportmidi")
1594 (version (package-version portmidi))
1595 (source (package-source portmidi))
1596 (build-system python-build-system)
1598 `(#:tests? #f ; no tests included
1600 (modify-phases %standard-phases
1601 (add-after 'unpack 'enter-dir
1602 (lambda _ (chdir "pm_python") #t))
1603 (add-after 'enter-dir 'fix-setup.py
1605 (substitute* "setup.py"
1606 ;; Use Python 3 syntax
1607 (("print (\".*\")" _ text)
1608 (string-append "print(" text ")\n"))
1609 ;; TODO.txt and CHANGES.txt don't exist
1610 (("CHANGES =.*") "CHANGES = \"\"\n")
1611 (("TODO =.*") "TODO = \"\"\n"))
1614 `(("portmidi" ,portmidi)
1615 ("alsa-lib" ,alsa-lib)))
1617 `(("python-cython" ,python-cython)
1619 (home-page "http://portmedia.sourceforge.net/portmidi/")
1620 (synopsis "Python bindings to PortMidi")
1622 "This package provides Python bindings to the PortMidi library.")
1623 (license license:expat)))
1625 (define-public frescobaldi
1627 (name "frescobaldi")
1632 "https://github.com/wbsoft/frescobaldi/releases/download/v"
1633 version "/frescobaldi-" version ".tar.gz"))
1636 "15cqhbjbjikr7ljgiq56bz2gxrr38j8p0f78p2vhyzydaviy9a2z"))))
1637 (build-system python-build-system)
1638 (arguments `(#:tests? #f)) ; no tests included
1640 `(("lilypond" ,lilypond)
1641 ("portmidi" ,portmidi)
1642 ("python-pyqt" ,python-pyqt)
1643 ("python-ly" ,python-ly)
1644 ("python-pyportmidi" ,python-pyportmidi)
1645 ("poppler" ,poppler)
1646 ("python-poppler-qt5" ,python-poppler-qt5)
1647 ("python-sip" ,python-sip)))
1648 (home-page "http://www.frescobaldi.org/")
1649 (synopsis "LilyPond sheet music text editor")
1651 "Frescobaldi is a LilyPond sheet music text editor with syntax
1652 highlighting and automatic completion. Among other things, it can render
1653 scores next to the source, can capture input from MIDI or read MusicXML and
1654 ABC files, has a MIDI player for proof-listening, and includes a documentation
1656 (license license:gpl2+)))
1658 (define-public drumstick
1664 (uri (string-append "mirror://sourceforge/drumstick/"
1665 version "/drumstick-" version ".tar.bz2"))
1668 "13pkfqrav30bbcddgf1imd7jk6lpqbxkz1qv31718pdl446jq7df"))))
1669 (build-system cmake-build-system)
1671 `(#:tests? #f ; no test target
1672 #:configure-flags '("-DLIB_SUFFIX=")
1674 (modify-phases %standard-phases
1675 (add-before 'configure 'fix-docbook
1676 (lambda* (#:key inputs #:allow-other-keys)
1677 (substitute* "cmake_admin/CreateManpages.cmake"
1678 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
1679 (string-append (assoc-ref inputs "docbook-xsl")
1680 "/xml/xsl/docbook-xsl-"
1681 ,(package-version docbook-xsl)
1682 "/manpages/docbook.xsl")))
1685 `(("qtbase" ,qtbase)
1687 ("alsa-lib" ,alsa-lib)
1688 ("fluidsynth" ,fluidsynth)))
1690 `(("pkg-config" ,pkg-config)
1691 ("libxslt" ,libxslt) ;for xsltproc
1692 ("docbook-xsl" ,docbook-xsl)
1693 ("doxygen" ,doxygen)))
1694 (home-page "http://drumstick.sourceforge.net/")
1695 (synopsis "C++ MIDI library")
1697 "Drumstick is a set of MIDI libraries using C++/Qt5 idioms and style. It
1698 includes a C++ wrapper around the ALSA library sequencer interface. A
1699 complementary library provides classes for processing SMF (Standard MIDI
1700 files: .MID/.KAR), Cakewalk (.WRK), and Overture (.OVE) file formats. A
1701 multiplatform realtime MIDI I/O library is also provided with various output
1702 backends, including ALSA, OSS, Network and FluidSynth.")
1703 (license license:gpl2+)))
1705 (define-public zynaddsubfx
1707 (name "zynaddsubfx")
1712 "mirror://sourceforge/zynaddsubfx/zynaddsubfx/"
1713 version "/zynaddsubfx-" version ".tar.bz2"))
1716 "09mr23lqc51r7gskry5b7hk84pghdpgn1s4vnrzvx7xpa21gvplm"))))
1717 (build-system cmake-build-system)
1720 (modify-phases %standard-phases
1721 ;; Move SSE compiler optimization flags from generic target to
1722 ;; athlon64 and core2 targets, because otherwise the build would fail
1723 ;; on non-Intel machines.
1724 (add-after 'unpack 'remove-sse-flags-from-generic-target
1726 (substitute* "src/CMakeLists.txt"
1727 (("-msse -msse2 -mfpmath=sse") "")
1728 (("-march=(athlon64|core2)" flag)
1729 (string-append flag " -msse -msse2 -mfpmath=sse")))
1735 ("alsa-lib" ,alsa-lib)
1738 ("minixml" ,minixml)
1742 `(("pkg-config" ,pkg-config)))
1743 (home-page "http://zynaddsubfx.sf.net/")
1744 (synopsis "Software synthesizer")
1746 "ZynAddSubFX is a feature heavy realtime software synthesizer. It offers
1747 three synthesizer engines, multitimbral and polyphonic synths, microtonal
1748 capabilities, custom envelopes, effects, etc.")
1749 (license license:gpl2)))
1751 (define-public yoshimi
1757 (uri (string-append "mirror://sourceforge/yoshimi/"
1758 (version-major+minor version)
1759 "/yoshimi-" version ".tar.bz2"))
1762 "0sns35pyw2f74xrv1fxiyf9g9415kvh2rrbdjd60hsiv584nlari"))))
1763 (build-system cmake-build-system)
1765 `(#:tests? #f ; there are no tests
1767 (list (string-append "-DCMAKE_INSTALL_DATAROOTDIR="
1768 (assoc-ref %outputs "out") "/share"))
1770 (modify-phases %standard-phases
1771 (add-before 'configure 'enter-dir
1772 (lambda _ (chdir "src") #t))
1773 ;; Move SSE compiler optimization flags from generic target to
1774 ;; athlon64 and core2 targets, because otherwise the build would fail
1775 ;; on non-Intel machines.
1776 (add-after 'unpack 'remove-sse-flags-from-generic-target
1778 (substitute* "src/CMakeLists.txt"
1779 (("-msse -msse2 -mfpmath=sse") "")
1780 (("-march=(athlon64|core2)" flag)
1781 (string-append flag " -msse -msse2 -mfpmath=sse")))
1783 ;; Yoshimi tries to find ncurses with pkg-config, but our ncurses
1784 ;; package does not install .pc files.
1785 (add-after 'unpack 'find-ncurses
1787 (substitute* "src/CMakeLists.txt"
1788 (("LIBNCURSES REQUIRED") "LIBNCURSES")
1789 (("NCURSES REQUIRED") "NCURSES")
1790 (("FATAL_ERROR \"libncurses") "STATUS \"libncurses")
1791 (("\\$\\{NCURSES_LIBRARIES\\}") "ncurses"))
1796 ("alsa-lib" ,alsa-lib)
1798 ("fontconfig" ,fontconfig)
1799 ("minixml" ,minixml)
1803 ("readline" ,readline)
1804 ("ncurses" ,ncurses)
1808 `(("pkg-config" ,pkg-config)))
1809 (home-page "http://yoshimi.sourceforge.net/")
1810 (synopsis "Multi-paradigm software synthesizer")
1812 "Yoshimi is a fork of ZynAddSubFX, a feature heavy realtime software
1813 synthesizer. It offers three synthesizer engines, multitimbral and polyphonic
1814 synths, microtonal capabilities, custom envelopes, effects, etc. Yoshimi
1815 improves on support for JACK features, such as JACK MIDI.")
1816 (license license:gpl2)))
1818 (define-public libgig
1824 (uri (string-append "http://download.linuxsampler.org/packages/"
1825 "libgig-" version ".tar.bz2"))
1828 "1wr8mwjmqpnyz6bx9757lspiii1zzn8zfbqsvn2ipzpgqkxv6kaz"))))
1829 (build-system gnu-build-system)
1831 `(("libuuid" ,util-linux)
1832 ("libsndfile" ,libsndfile)))
1834 `(("pkg-config" ,pkg-config)))
1835 (home-page "http://linuxsampler.org/libgig/")
1836 (synopsis "C++ library for working with Gigasampler (.gig) files")
1838 "Libgig is a C++ library for loading, modifying existing and creating new
1839 Gigasampler (.gig) files and DLS (Downloadable Sounds) Level 1/2 files, KORG
1840 sample based instruments (.KSF and .KMP files), SoundFont v2 (.sf2) files and
1841 AKAI sampler data. The package includes a couple of command line tools based
1843 ;; The library and tools are released under the GPL, except the AKAI
1844 ;; classes which are released under the LGPL.
1845 (license (list license:gpl2+ license:lgpl2.1+))))
1847 (define-public jack-keyboard
1849 (name "jack-keyboard")
1854 (uri (string-append "mirror://sourceforge/jack-keyboard/jack-keyboard/"
1855 version "/jack-keyboard-" version ".tar.gz"))
1858 "0mzmg8aavybcfdlq2yd9d0vscqd6is5p6jzrgfpfm5j3xdcvh2s3"))))
1859 (build-system gnu-build-system)
1865 `(("pkg-config" ,pkg-config)))
1866 (home-page "http://jack-keyboard.sourceforge.net/")
1867 (synopsis "Virtual MIDI keyboard")
1868 (description "Jack-keyboard is a virtual MIDI keyboard, a program that
1869 allows you to send JACK MIDI events (i.e. play) using your PC keyboard.")
1870 (license license:bsd-2)))
1872 (define-public cursynth
1879 (uri (string-append "mirror://gnu/cursynth/cursynth-"
1882 (base32 "1dhphsya41rv8z6yqcv9l6fwbslsds4zh1y56zizi39nd996d40v"))
1883 (patches (search-patches "cursynth-wave-rand.patch"))))
1884 (build-system gnu-build-system)
1885 (native-inputs `(("pkg-config" ,pkg-config)))
1886 ;; TODO: See https://github.com/iyoko/cursynth/issues/4 which currently
1887 ;; prevents us from using pulseaudio
1888 (inputs `(("ncurses" ,ncurses)
1889 ("alsa" ,alsa-lib)))
1890 (home-page "https://www.gnu.org/software/cursynth/")
1891 (synopsis "Polyphonic and MIDI subtractive music synthesizer using curses")
1892 (description "GNU cursynth is a polyphonic synthesizer that runs
1893 graphically in the terminal. It is built on a full-featured subtractive
1894 synthesis engine. Notes and parameter changes may be entered via MIDI or the
1895 computer's keyboard.")
1896 (license license:gpl3+)))
1898 (define-public qtractor
1904 (uri (string-append "http://downloads.sourceforge.net/qtractor/"
1905 "qtractor-" version ".tar.gz"))
1908 "17bbjfn94843g5q1h7xh23fwyazpfgg4fw6drrn5wgk2vx7qpkis"))))
1909 (build-system gnu-build-system)
1910 (arguments `(#:tests? #f)) ; no "check" target
1913 ("qtx11extras" ,qtx11extras)
1914 ("alsa-lib" ,alsa-lib)
1916 ("libsndfile" ,libsndfile)
1921 ("libsamplerate" ,libsamplerate)
1922 ("libvorbis" ,libvorbis)
1924 ("rubberband" ,rubberband)
1928 `(("pkg-config" ,pkg-config)
1929 ("qttools" ,qttools)))
1930 (home-page "http://qtractor.org/")
1931 (synopsis "Audio/MIDI multi-track sequencer")
1933 "Qtractor is an Audio/MIDI multi-track sequencer application. It uses
1934 JACK for audio and ALSA sequencer for MIDI as multimedia infrastructures and
1935 follows a traditional multi-track tape recorder control paradigm.")
1936 (license license:gpl2+)))
1938 (define-public ams-lv2
1945 (uri (string-append "https://github.com/blablack/ams-lv2/"
1946 "archive/" version ".tar.gz"))
1947 (file-name (string-append name "-" version ".tar.gz"))
1950 "1xacxyzqcj83g9c1gwfn36gg1c6yi15v7km4vidfidrjzb4x27fq"))))
1951 (build-system waf-build-system)
1954 (modify-phases %standard-phases
1955 (add-after 'unpack 'remove-sse-flags
1956 (lambda* (#:key system #:allow-other-keys)
1957 (when (not (or (string-prefix? "x86_64" system)
1958 (string-prefix? "i686" system)))
1959 (substitute* "wscript"
1960 (("'-msse', '-mfpmath=sse', ") ""))
1962 #:tests? #f)) ; no tests
1971 `(("pkg-config" ,pkg-config)))
1972 (home-page "https://objectivewave.wordpress.com/ams-lv2/")
1973 (synopsis "Port of Alsa Modular Synth internal modules into LV2")
1974 (description "This set of LV2 plugins is a port of the internal modules
1975 found in Alsa Modular Synth. These plugins are used to create modular
1976 synthesizers and contain: VCO, VCF, VCA, LFO, slew limiter, envelopes, sample
1978 (license license:gpl2)))
1980 (define-public gxtuner
1986 (uri (string-append "https://github.com/brummer10/gxtuner/"
1987 "archive/v" version ".tar.gz"))
1988 (file-name (string-append name "-" version ".tar.gz"))
1991 "1hn5qjac7qd00v0sp7ijhhc3sb26ks9bni06nngivva21h61xrjr"))))
1992 (build-system gnu-build-system)
1995 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1996 (string-append "INCLUDE_L_DIR="
1997 (assoc-ref %build-inputs "zita-resampler")
2000 (modify-phases %standard-phases
2001 (delete 'configure))))
2007 ("zita-resampler" ,zita-resampler)))
2009 `(("pkg-config" ,pkg-config)))
2010 (home-page "https://github.com/brummer10/gxtuner")
2011 (synopsis "Guitar tuner")
2012 (description "GXtuner is a simple guitar tuner for JACK with an
2013 analogue-like user interface.")
2014 (license license:gpl2+)))
2016 (define-public mod-host
2017 ;; The last release was in 2014 but since then more than 140 commits have
2019 (let ((commit "299a3977476e8eb0285837fbd7522cec506a11de")
2023 (version (string-append "0.10.6-" revision "." (string-take commit 9)))
2027 (url "https://github.com/moddevices/mod-host")
2031 "128q7p5mph086v954rqnafalfbkyvhgwclaq6ks6swrhj45wnag6"))
2032 (file-name (string-append name "-" version "-checkout"))))
2033 (build-system gnu-build-system)
2035 `(#:tests? #f ; no tests included
2037 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2040 (modify-phases %standard-phases
2042 (add-after 'unpack 'fix-jack-installation-directory
2044 ;; Do not attempt to install files to output of "jack" package.
2045 (substitute* "Makefile"
2046 (("\\$\\(shell pkg-config --variable=libdir jack\\)")
2055 ("readline" ,readline)))
2057 `(("pkg-config" ,pkg-config)
2058 ("python" ,python-2)))
2059 (home-page "https://github.com/moddevices/mod-host")
2060 (synopsis "LV2 host for Jack controllable via socket or command line")
2061 (description "mod-host is an LV2 plugin host for JACK, controllable via
2062 socket or command line.")
2063 (license license:gpl3+))))
2065 (define-public pianobar
2068 (version "2016.06.02")
2071 (uri (string-append "https://github.com/PromyLOPh/"
2072 name "/archive/" version ".tar.gz"))
2073 (file-name (string-append name "-" version ".tar.gz"))
2076 "1hi5rr6jcr0kwf4xfz007ndwkjkp287lhwlsgfz6iryqa5n6jzcp"))))
2077 (build-system gnu-build-system)
2079 `(#:tests? #f ; no tests
2080 #:make-flags (list "CC=gcc" "CFLAGS=-std=c99"
2081 (string-append "PREFIX=" %output))
2082 #:phases (modify-phases %standard-phases
2083 (delete 'configure))))
2087 ("libgcrypt" ,libgcrypt)
2089 ("ffmpeg" ,ffmpeg)))
2091 `(("pkg-config" ,pkg-config)))
2092 (home-page "http://6xq.net/projects/pianobar/")
2093 (synopsis "Console-based pandora.com player")
2094 (description "pianobar is a console-based music player for the
2095 personalized online radio pandora.com. It has configurable keys for playing
2096 and managing stations, can be controlled remotely via fifo, and can run
2097 event-based scripts for scrobbling, notifications, etc.")
2098 (license license:expat)))
2100 (define-public python-mutagen
2102 (name "python-mutagen")
2106 (uri (pypi-uri "mutagen" version))
2109 "0rl7sxn1rcjl48fwga3dqf9f6pzspsny4ngxyf6pp337mrq0z693"))))
2110 (build-system python-build-system)
2112 `(("python-pytest" ,python-pytest)))
2113 (home-page "https://bitbucket.org/lazka/mutagen")
2114 (synopsis "Read and write audio tags")
2115 (description "Mutagen is a Python module to handle audio metadata. It
2116 supports ASF, FLAC, M4A, Monkey’s Audio, MP3, Musepack, Ogg FLAC, Ogg Speex, Ogg
2117 Theora, Ogg Vorbis, True Audio, WavPack and OptimFROG audio files. All versions
2118 of ID3v2 are supported, and all standard ID3v2.4 frames are parsed. It can read
2119 Xing headers to accurately calculate the bitrate and length of MP3s. ID3 and
2120 APEv2 tags can be edited regardless of audio format. It can also manipulate Ogg
2121 streams on an individual packet/page level.")
2122 (license license:gpl2))) ; "later version" never mentioned
2124 (define-public python2-mutagen
2125 (package-with-python2 python-mutagen))
2127 (define-public python-musicbrainzngs
2129 (name "python-musicbrainzngs")
2133 (uri (pypi-uri "musicbrainzngs" version))
2136 "1dddarpjawryll2wss65xq3v9q8ln8dan7984l5dxzqx88d2dvr8"))))
2137 (build-system python-build-system)
2139 '(;; The tests fail suffer from race conditions:
2140 ;; https://github.com/alastair/python-musicbrainzngs/issues/211
2142 (home-page "https://python-musicbrainzngs.readthedocs.org/")
2143 (synopsis "Python bindings for MusicBrainz NGS webservice")
2144 (description "Musicbrainzngs implements Python bindings of the MusicBrainz
2145 web service. This library can be used to retrieve music metadata from the
2146 MusicBrainz database.")
2147 ;; 'musicbrainzngs/compat.py' is ISC licensed.
2148 (license (list license:bsd-2 license:isc))))
2150 (define-public python2-musicbrainzngs
2151 (package-with-python2 python-musicbrainzngs))
2153 (define-public python2-pyechonest
2155 (name "python2-pyechonest")
2159 (uri (pypi-uri "pyechonest" version))
2162 "1584nira3rkiman9dm81kdshihmkj21s8navndz2l8spnjwb790x"))))
2163 (build-system python-build-system)
2165 `(;; Python 3 is not supported:
2166 ;; https://github.com/echonest/pyechonest/issues/42
2167 #:python ,python-2))
2168 (home-page "https://github.com/echonest/pyechonest")
2169 (synopsis "Python interface to The Echo Nest APIs")
2170 (description "Pyechonest is a Python library for the Echo Nest API. With
2171 Pyechonest you have Python access to the entire set of API methods including:
2174 @item artist - search for artists by name, description, or attribute, and get
2175 back detailed information about any artist including audio, similar artists,
2176 blogs, familiarity, hotttnesss, news, reviews, urls and video.
2177 @item song - search songs by artist, title, description, or attribute (tempo,
2178 duration, etc) and get detailed information back about each song, such as
2179 hotttnesss, audio_summary, or tracks.
2180 @item track - upload a track to the Echo Nest and receive summary information
2181 about the track including key, duration, mode, tempo, time signature along with
2182 detailed track info including timbre, pitch, rhythm and loudness information.
2184 (license license:bsd-3)))
2186 (define-public python-pylast
2188 (name "python-pylast")
2192 (uri (pypi-uri "pylast" version))
2195 "190c6sicc80v21wbbwbq771nqmxw4r6aqmxs22ndj177rc2l275f"))))
2196 (build-system python-build-system)
2198 '(#:tests? #f)) ; FIXME: Requires unpackaged python-flaky.
2200 `(("python-coverage" ,python-coverage)
2201 ("python-mock" ,python-mock)
2202 ("python-pep8" ,python-pep8)
2203 ("python-pytest" ,python-pytest)
2204 ("python-pyflakes" ,python-pyflakes)
2205 ("python-pyyaml" ,python-pyyaml)))
2207 `(("python-six" ,python-six)))
2208 (home-page "https://github.com/pylast/pylast")
2209 (synopsis "Python interface to Last.fm and Libre.fm")
2210 (description "A Python interface to Last.fm and other API-compatible
2211 websites such as Libre.fm.")
2212 (license license:asl2.0)))
2214 (define-public python2-pylast
2215 (package-with-python2 python-pylast))
2217 (define-public beets
2223 (uri (pypi-uri "beets" version))
2226 "1z02j871gc8l9mnd344qy9z8akigikgmc22r15ns6driqb2qishv"))))
2227 (build-system python-build-system)
2230 (modify-phases %standard-phases
2231 (add-after 'unpack 'set-HOME
2232 (lambda _ (setenv "HOME" (string-append (getcwd) "/tmp"))))
2234 (lambda _ (zero? (system* "nosetests" "-v")))))))
2236 `(("python-beautifulsoup4" ,python-beautifulsoup4)
2237 ("python-flask" ,python-flask)
2238 ("python-mock" ,python-mock)
2239 ("python-mpd2" ,python-mpd2)
2240 ("python-nose" ,python-nose)
2241 ("python-pathlib" ,python-pathlib)
2242 ("python-pyxdg" ,python-pyxdg)
2243 ("python-pylast" ,python-pylast)
2244 ("python-rarfile" ,python-rarfile)
2245 ("python-responses" ,python-responses)))
2246 ;; TODO: Install optional plugins and dependencies.
2248 `(("python-discogs-client" ,python-discogs-client)
2249 ("python-jellyfish" ,python-jellyfish)
2250 ("python-munkres" ,python-munkres)
2251 ("python-musicbrainzngs" ,python-musicbrainzngs)
2252 ("python-mutagen" ,python-mutagen)
2253 ("python-pyyaml" ,python-pyyaml)
2254 ("python-unidecode" ,python-unidecode)))
2255 (home-page "http://beets.io")
2256 (synopsis "Music organizer")
2257 (description "The purpose of beets is to get your music collection right
2258 once and for all. It catalogs your collection, automatically improving its
2259 metadata as it goes using the MusicBrainz database. Then it provides a variety
2260 of tools for manipulating and accessing your music.")
2261 (license license:expat)))
2263 (define-public milkytracker
2265 (name "milkytracker")
2269 (uri (string-append "https://github.com/milkytracker/"
2270 "MilkyTracker/archive/v"
2272 (file-name (string-append name "-" version ".tar.gz"))
2275 "1dvnddsnn9c83lz4dlm0cfjpc0m524amfkbalxbswdy0qc8cj1wv"))
2276 (modules '((guix build utils)))
2277 ;; Remove non-FSDG compliant sample songs.
2280 (delete-file-recursively "resources/music")
2281 (substitute* "CMakeLists.txt"
2282 (("add_subdirectory\\(resources/music\\)") ""))))))
2283 (build-system cmake-build-system)
2285 '(#:tests? #f)) ; no check target
2287 `(("alsa-lib" ,alsa-lib)
2292 `(("pkg-config" ,pkg-config)))
2293 (synopsis "Music tracker for working with .MOD/.XM module files")
2294 (description "MilkyTracker is a music application for creating .MOD and .XM
2295 module files. It attempts to recreate the module replay and user experience of
2296 the popular DOS program Fasttracker II, with special playback modes available
2297 for improved Amiga ProTracker 2/3 compatibility.")
2298 (home-page "http://milkytracker.titandemo.org/")
2299 ;; 'src/milkyplay' is under Modified BSD, the rest is under GPL3 or later.
2300 (license (list license:bsd-3 license:gpl3+))))
2302 (define-public schismtracker
2304 (name "schismtracker")
2305 (version "20170910")
2309 "https://github.com/" name "/" name "/archive/"
2311 (file-name (string-append name "-" version ".tar.gz"))
2314 "01gfcjngbpv87y9w5jln8k313hycpkb1d617hdy2cdw2hxqzlclz"))
2315 (modules '((guix build utils)))
2317 ;; Remove use of __DATE__ and __TIME__ for reproducibility.
2318 `(substitute* "schism/version.c"
2319 (("Schism Tracker built %s %s.*$")
2320 (string-append "Schism Tracker version " ,version "\");"))))))
2321 (build-system gnu-build-system)
2324 (modify-phases %standard-phases
2325 (add-after 'unpack 'autoconf
2326 (lambda _ (zero? (system* "autoreconf" "-vfi"))))
2327 (add-before 'configure 'link-libm
2328 (lambda _ (setenv "LIBS" "-lm") #t)))))
2330 `(("autoconf" ,autoconf)
2331 ("automake" ,automake)
2332 ("python" ,python)))
2334 `(("alsa-lib" ,alsa-lib) ; for asound dependency
2336 ("libxext" ,libxext)
2338 (home-page "http://schismtracker.org")
2339 (synopsis "Oldschool sample-based music composition tool")
2341 "Schism Tracker is a reimplementation of Impulse Tracker, a program used to
2342 create high quality music without the requirements of specialized, expensive
2343 equipment, and with a unique \"finger feel\" that is difficult to replicate in
2344 part. The player is based on a highly modified version of the ModPlug engine,
2345 with a number of bugfixes and changes to improve IT playback.")
2346 (license license:gpl2+)))
2348 (define-public sooperlooper
2350 (name "sooperlooper")
2354 (uri (string-append "http://essej.net/sooperlooper/sooperlooper-"
2358 "0n2gdxw1fx8nxxnpzf4sj0kp6k6zi1yq59cbz6qqzcnsnpnvszbs"))
2359 (patches (search-patches "sooperlooper-build-with-wx-30.patch"))))
2360 (build-system gnu-build-system)
2362 `(#:make-flags (list "CXXFLAGS=-std=gnu++11")
2364 (modify-phases %standard-phases
2365 (add-after 'unpack 'add-sigc++-includes
2366 (lambda* (#:key inputs #:allow-other-keys)
2367 (let ((sig (assoc-ref inputs "libsigc++"))
2368 (xml (assoc-ref inputs "libxml2"))
2371 (string-append sig "/include/sigc++-2.0:"
2372 sig "/lib/sigc++-2.0/include:"
2373 xml "/include/libxml2/:"
2375 cwd "/libs/midi++")))
2376 (substitute* '("src/control_osc.hpp"
2377 "src/gui/app_frame.hpp"
2378 "src/gui/config_panel.hpp"
2379 "src/gui/keys_panel.hpp"
2380 "src/gui/latency_panel.hpp"
2381 "src/gui/main_panel.hpp"
2382 "src/gui/midi_bind_panel.hpp"
2383 "src/gui/prefs_dialog.hpp")
2384 (("sigc\\+\\+/object.h")
2386 (substitute* '("src/engine.cpp"
2387 "src/gui/latency_panel.cpp"
2388 "src/gui/looper_panel.cpp"
2389 "src/gui/main_panel.cpp")
2390 (("(\\(| )bind " _ pre)
2391 (string-append pre "sigc::bind ")))
2393 (add-after 'unpack 'fix-xpm-warnings
2395 (substitute* (find-files "." "\\.xpm$")
2396 (("static char") "static const char"))
2400 ("alsa-lib" ,alsa-lib)
2401 ("wxwidgets" ,wxwidgets-gtk2)
2402 ("libsndfile" ,libsndfile)
2403 ("libsamplerate" ,libsamplerate)
2405 ("rubberband" ,rubberband)
2406 ("libxml2" ,libxml2)
2407 ("libsigc++" ,libsigc++)
2408 ("ncurses" ,ncurses)))
2410 `(("pkg-config" ,pkg-config)))
2411 (home-page "http://essej.net/sooperlooper/")
2412 (synopsis "Live looping sampler")
2414 "SooperLooper is a live looping sampler capable of immediate loop
2415 recording, overdubbing, multiplying, reversing and more. It allows for
2416 multiple simultaneous multi-channel loops limited only by your computer's
2418 (license license:gpl2+)))
2426 (uri (string-append "http://ftp.daper.net/pub/soft/"
2428 name "-" version ".tar.bz2"))
2431 "026v977kwb0wbmlmf6mnik328plxg8wykfx9ryvqhirac0aq39pk"))
2432 (modules '((guix build utils)))
2434 ;; Remove use of __DATE__ and __TIME__ for reproducibility.
2435 '(substitute* "main.c"
2436 (("printf \\(\" Built : %s\", __DATE__\\);") "")
2437 (("printf \\(\" %s\", __TIME__\\);") "")))))
2438 (build-system gnu-build-system)
2440 `(("alsa-lib" ,alsa-lib)
2446 ("libid3tag" ,libid3tag)
2447 ("libltdl" ,libltdl)
2448 ("libmodplug" ,libmodplug)
2449 ("libmpcdec" ,libmpcdec)
2452 ("libvorbis" ,libvorbis)
2453 ("ncurses" ,ncurses)
2454 ("openssl" ,openssl)
2455 ("sasl" ,cyrus-sasl)
2458 ("wavpack" ,wavpack)
2461 `(("pkg-config" ,pkg-config)))
2462 (synopsis "Console audio player designed to be powerful and easy to use")
2464 "Music on Console is a console audio player that supports many file
2465 formats, including most audio formats recognized by FFMpeg.")
2466 (home-page "http://moc.daper.net")
2467 (license license:gpl2+)))
2469 (define-public midicsv
2475 (uri (string-append "http://www.fourmilab.ch/webtools/midicsv/"
2476 name "-" version ".tar.gz"))
2479 "1vvhk2nf9ilfw0wchmxy8l13hbw9cnpz079nsx5srsy4nnd78nkw"))))
2480 (build-system gnu-build-system)
2482 `(#:phases (modify-phases %standard-phases (delete 'configure))
2483 #:make-flags (list "CC=gcc" (string-append "INSTALL_DEST=" %output))))
2484 (synopsis "Convert MIDI files to and from CSV")
2486 "Midicsv reads a standard MIDI file and decodes it into a comma-separated
2487 value file (CSV), which preserves all the information in the MIDI file. The
2488 ASCII CSV file may be loaded into a spreadsheet or database application, or
2489 processed by a program to transform the MIDI data (for example, to key
2490 transpose a composition or extract a track from a multi-track sequence). A
2491 CSV file in the format created by midicsv may be converted back into a
2492 standard MIDI file with the csvmidi program.")
2493 (home-page "http://www.fourmilab.ch/webtools/midicsv/")
2494 (license license:public-domain)))
2496 (define-public gx-guvnor-lv2
2498 (name "gx-guvnor-lv2")
2502 (uri (string-append "https://github.com/brummer10/GxGuvnor.lv2/"
2503 "archive/v" version ".tar.gz"))
2504 (file-name (string-append name "-" version ".tar.gz"))
2507 "0rnfvrvs8qmmldyfmx4llyly33zp68448gx40ywdwj42x0mam92p"))))
2508 (build-system gnu-build-system)
2510 `(;; The check target is used only to output a warning.
2513 (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
2515 (modify-phases %standard-phases
2518 (substitute* "Makefile"
2519 (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n"))
2523 (home-page "https://github.com/brummer10/GxGuvnor.lv2")
2524 (synopsis "Overdrive/distortion pedal simulation")
2525 (description "This package provides the LV2 plugin \"GxGuvnor\", a
2526 simulation of an overdrive or distortion pedal for guitars.")
2527 ;; The LICENSE file says GPLv3 but the license headers in the files say
2529 (license license:gpl2+)))
2531 (define-public gx-vbass-preamp-lv2
2532 (let ((commit "0e599abab10c7669dd444e5d06f671c2fc1b9c6c")
2534 (package (inherit gx-guvnor-lv2)
2535 (name "gx-vbass-preamp-lv2")
2536 (version (string-append "0-" revision "." (string-take commit 9)))
2540 (url "https://github.com/brummer10/GxVBassPreAmp.lv2")
2544 "1dzksdfrva666gpi62fd2ni9rhf18sl917f1894qr0b17pbdh9k1"))
2545 (file-name (string-append name "-" version "-checkout"))))
2547 (substitute-keyword-arguments (package-arguments gx-guvnor-lv2)
2549 `(modify-phases ,phases
2552 (substitute* "Makefile"
2553 (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n")
2554 (("install : all") "install :"))
2556 (home-page "https://github.com/brummer10/GxVBassPreAmp.lv2")
2557 (synopsis "Simulation of the Vox Venue Bass 100 Pre Amp Section")
2558 (description "This package provides the LV2 plugin \"GxVBassPreAmp\", a
2559 pre-amplifier simulation modelled after the 1984 Vox Venue Bass 100 Pre Amp
2562 (define-public gx-overdriver-lv2
2563 (let ((commit "ed71801987449414bf3adaa0dbfac68e8775f1ce")
2565 (package (inherit gx-vbass-preamp-lv2)
2566 (name "gx-overdriver-lv2")
2567 (version (string-append "0-" revision "." (string-take commit 9)))
2571 (url "https://github.com/brummer10/GxOverDriver.lv2")
2575 "13j614jh525fbkby79nnzwj0z1ac0c9wclyn5pfqvkmx6a7j24r8"))
2576 (file-name (string-append name "-" version "-checkout"))))
2577 (home-page "https://github.com/brummer10/GxOverDriver.lv2")
2578 (synopsis "Overdrive effect with level and tone control")
2579 (description "This package provides the LV2 plugin \"GxOverDriver\", an
2580 overdrive effect."))))
2582 (define-public gx-tone-mender-lv2
2583 (let ((commit "b6780b4a3e4782b3ed0e5882d6788f178aed138f")
2585 (package (inherit gx-vbass-preamp-lv2)
2586 (name "gx-tone-mender-lv2")
2587 (version (string-append "0-" revision "." (string-take commit 9)))
2591 (url "https://github.com/brummer10/GxToneMender.lv2")
2595 "07qdcfsvv2vdnfnjh91pfgvjdcs5y91nvwfm8c0z8fp6b4bk7a9q"))
2596 (file-name (string-append name "-" version "-checkout"))))
2597 (home-page "https://github.com/brummer10/GxToneMender.lv2")
2598 (synopsis "Clean boost with a 3-knob tonestack")
2599 (description "This package provides the LV2 plugin \"GxToneMender\", a
2600 clean boost effect with a 3-knob tonestack."))))
2602 (define-public gx-push-pull-lv2
2603 (let ((commit "7f76ae2068498643ac8671ee0930b13ee3fd8eb5")
2605 (package (inherit gx-vbass-preamp-lv2)
2606 (name "gx-push-pull-lv2")
2607 (version (string-append "0-" revision "." (string-take commit 9)))
2611 (url "https://github.com/brummer10/GxPushPull.lv2")
2615 "12f5hwck2irph0gjbj8xy8jqcqdwb8l1hlwf29k0clz52h1jhb5q"))
2616 (file-name (string-append name "-" version "-checkout"))))
2617 (home-page "https://github.com/brummer10/GxPushPull.lv2")
2618 (synopsis "Octave up push pull transistor fuzz simulation")
2619 (description "This package provides the LV2 plugin \"GxPushPull\", a
2620 simulation of a push pull transistor fuzz effect with added high octave."))))
2622 (define-public gx-suppa-tone-bender-lv2
2623 (package (inherit gx-guvnor-lv2)
2624 (name "gx-suppa-tone-bender-lv2")
2628 (uri (string-append "https://github.com/brummer10/"
2629 "GxSuppaToneBender.lv2/archive/v"
2633 "1j90fns87035sfr6bxs4cvqxbyy3pqjhihx1nis8xajn202nl1hx"))
2634 (file-name (string-append name "-" version ".tar.gz"))))
2635 (home-page "https://github.com/brummer10/GxSuppaToneBender.lv2")
2636 (synopsis "Simulation of the Vox Suppa Tone Bender pedal")
2637 (description "This package provides the LV2 plugin
2638 \"GxSuppaToneBender\", a simulation modelled after the Vox Suppa Tone Bender
2641 (define-public gx-saturator-lv2
2642 (let ((commit "0b581ac85c515325b9f16e51937cae6e1bf81a0a")
2644 (package (inherit gx-vbass-preamp-lv2)
2645 (name "gx-saturator-lv2")
2646 (version (string-append "0-" revision "." (string-take commit 9)))
2650 (url "https://github.com/brummer10/GxSaturator.lv2")
2654 "1cl785pzq8zk55m1rnhfd6qsabci6kpf4pf002gwr91vagyq246z"))
2655 (file-name (string-append name "-" version "-checkout"))))
2656 (home-page "https://github.com/brummer10/GxSaturator.lv2")
2657 (synopsis "Saturation effect")
2658 (description "This package provides the LV2 plugin \"GxSaturator\", a
2659 saturation effect."))))
2661 (define-public gx-hyperion-lv2
2662 (package (inherit gx-guvnor-lv2)
2663 (name "gx-hyperion-lv2")
2667 (uri (string-append "https://github.com/brummer10/"
2668 "GxHyperion.lv2/archive/v"
2672 "1pd7l33a14kq73wavgqq7csw4n3mwjz9d5rxaj0jgsyxd3llp3wh"))
2673 (file-name (string-append name "-" version ".tar.gz"))))
2674 (home-page "https://github.com/brummer10/GxHyperion.lv2")
2675 (synopsis "Simulation of the Hyperion Fuzz pedal")
2676 (description "This package provides the LV2 plugin \"GxHyperion\", a
2677 simulation of the Hyperion Fuzz pedal.")))
2679 (define-public gx-voodoo-fuzz-lv2
2680 (package (inherit gx-guvnor-lv2)
2681 (name "gx-voodoo-fuzz-lv2")
2685 (uri (string-append "https://github.com/brummer10/"
2686 "GxVoodoFuzz.lv2/archive/v"
2690 "0cc8sg7q493bs6pcq4ipqp6czpxv04nh9yvn8kq2x65ni2208n2f"))
2691 (file-name (string-append name "-" version ".tar.gz"))))
2692 (home-page "https://github.com/brummer10/GxVoodoFuzz.lv2")
2693 (synopsis "Fuzz effect modelled after the Voodoo Lab SuperFuzz")
2694 (description "This package provides the LV2 plugin \"GxVoodooFuzz\", a
2695 simulation modelled after the Voodoo Lab SuperFuzz pedal. It's basically a
2696 Bosstone circuit, followed by the tone control of the FoxToneMachine in
2697 parallel with a DarkBooster, followed by a volume control.")))
2699 (define-public gx-super-fuzz-lv2
2700 (package (inherit gx-guvnor-lv2)
2701 (name "gx-super-fuzz-lv2")
2705 (uri (string-append "https://github.com/brummer10/"
2706 "GxSuperFuzz.lv2/archive/v"
2710 "0pnivq05f1kji8c5jxsqdzhdfk3xn422v2d1x20x3jfsxnaf115x"))
2711 (file-name (string-append name "-" version ".tar.gz"))))
2712 (home-page "https://github.com/brummer10/GxSuperFuzz.lv2")
2713 (synopsis "Fuzz effect modelled after the UniVox SuperFuzz")
2714 (description "This package provides the LV2 plugin \"GxSuperFuzz\", an
2715 analog simulation of the UniVox SuperFuzz pedal. In this simulation the trim
2716 pot, which is usually in the housing, is exposed as a control parameter. It
2717 adjusts the amount of harmonics.")))
2719 (define-public gx-vintage-fuzz-master-lv2
2720 (package (inherit gx-guvnor-lv2)
2721 (name "gx-vintage-fuzz-master-lv2")
2725 (uri (string-append "https://github.com/brummer10/"
2726 "GxVintageFuzzMaster.lv2/archive/v"
2730 "0bdkfj6xi2g4izfw3pmr4i0nqzg8jnkdwc23x9ifxwc6p1kbayzk"))
2731 (file-name (string-append name "-" version ".tar.gz"))))
2732 (home-page "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
2733 (synopsis "Fuzz effect simulation of the vintage Fuzz Master")
2734 (description "This package provides the LV2 plugin
2735 \"GxVintageFuzzMaster\", a simulation of the vintage Fuzz Master pedal.")))
2737 (define-public gx-slow-gear-lv2
2738 (let ((commit "cb852e0426f4e6fe077e7f1ede73a4da335cfc5e")
2740 (package (inherit gx-vbass-preamp-lv2)
2741 (name "gx-slow-gear-lv2")
2742 (version (string-append "0-" revision "." (string-take commit 9)))
2746 (url "https://github.com/brummer10/GxSlowGear.lv2")
2750 "0dp7afi1r3kzciiyn1hrkz6arsq47ys9sx5g4b7xa9k1dv92ishp"))
2751 (file-name (string-append name "-" version "-checkout"))))
2752 (home-page "https://github.com/brummer10/GxSlowGear.lv2")
2753 (synopsis "Slow gear audio effect")
2754 (description "This package provides the LV2 plugin \"GxSlowGear\", a
2755 slow gear audio effect to produce volume swells."))))
2757 (define-public gx-switchless-wah-lv2
2758 (let ((commit "7b08691203314612999f0ce2328cdc1161cd6665")
2760 (package (inherit gx-vbass-preamp-lv2)
2761 (name "gx-switchless-wah-lv2")
2762 (version (string-append "0-" revision "." (string-take commit 9)))
2766 (url "https://github.com/brummer10/GxSwitchlessWah.lv2")
2770 "04jqfpncmrrqn34p21w4v9m2x5a5wsqwbm4f3byxvq4vcibwxzk2"))
2771 (file-name (string-append name "-" version "-checkout"))))
2772 (home-page "https://github.com/brummer10/GxSwitchlessWah.lv2")
2773 (synopsis "Wah emulation with switchless activation")
2774 (description "This package provides the LV2 plugin \"GxSwitchlessWah\",
2775 a simulation of an analog Wah pedal with switchless activation."))))
2777 (define-public mod-utilities
2778 (let ((commit "7cdeeac26ae682730740105ece121d4dddb8ba3f")
2781 (name "mod-utilities")
2782 (version (string-append "0-" revision "." (string-take commit 9)))
2786 (url "https://github.com/moddevices/mod-utilities.git")
2790 "1ilnkbrmwrszxvc21qlb86h29yz7cnc6rcp0jmna1y693ny2qhf4"))
2791 (file-name (string-append name "-" version "-checkout"))))
2792 (build-system gnu-build-system)
2794 `(#:tests? #f ; there are no tests
2796 (list (string-append "INSTALL_PATH="
2797 (assoc-ref %outputs "out")
2800 (modify-phases %standard-phases
2801 (delete 'configure))))
2804 (home-page "https://github.com/moddevices/mod-utilities")
2805 (synopsis "LV2 utility plugins")
2806 (description "This package provides LV2 audio utility plugins, such as
2807 filters, crossovers, simple gain plugins without zipper noise, switch box
2808 plugins, a switch trigger, a toggle switch, and a peakmeter.")
2809 (license license:gpl2+))))
2811 (define-public ingen
2812 (let ((commit "cc4a4db33f4d126a07a4a498e053c5fb9a883be3")
2816 (version (string-append "0.0.0-" revision "."
2817 (string-take commit 9)))
2822 (url "http://git.drobilla.net/ingen.git")
2824 (file-name (string-append name "-" version "-checkout"))
2827 "1wg47vjw9djn99gbnsl2bcwj4xhdid61m4wrbn2nlp797flj91ic"))))
2828 (build-system waf-build-system)
2830 `(#:tests? #f ; no "check" target
2831 #:configure-flags (list "--no-webkit")
2833 (modify-phases %standard-phases
2834 (add-after 'unpack 'patch-wscript
2835 (lambda* (#:key outputs #:allow-other-keys)
2836 (let ((out (assoc-ref outputs "out")))
2837 (substitute* "wscript"
2838 ;; FIXME: Our version of lv2specgen.py does not behave as
2839 ;; expected. Maybe this requires a development version of
2841 (("lv2specgen.py") "touch ingen.lv2/ingen.html; echo")
2842 ;; Add libraries to RUNPATH.
2843 (("^(.+)target.*= 'src/ingen/ingen'," line prefix)
2844 (string-append prefix
2845 "linkflags=[\"-Wl,-rpath="
2846 out "/lib" "\"]," line)))
2847 (substitute* '("src/wscript"
2848 "src/server/wscript")
2849 ;; Add libraries to RUNPATH.
2850 (("bld.env.PTHREAD_LINKFLAGS" line)
2852 " + [\"-Wl,-rpath=" out "/lib" "\"]")))
2853 (substitute* "src/client/wscript"
2854 ;; Add libraries to RUNPATH.
2855 (("^(.+)target.*= 'ingen_client'," line prefix)
2856 (string-append prefix
2857 "linkflags=[\"-Wl,-rpath="
2858 out "/lib" "\"]," line)))
2859 (substitute* "src/gui/wscript"
2860 ;; Add libraries to RUNPATH.
2861 (("^(.+)target.* = 'ingen_gui.*" line prefix)
2862 (string-append prefix
2863 "linkflags=[\"-Wl,-rpath="
2864 out "/lib" "\"]," line))))
2868 ("python-rdflib" ,python-rdflib)
2873 ("raul" ,raul-devel)
2874 ("ganv" ,ganv-devel)
2879 ("gtkmm" ,gtkmm-2)))
2881 `(("pkg-config" ,pkg-config)
2882 ("python-pygments" ,python-pygments)))
2883 (home-page "http://drobilla.net/software/ingen")
2884 (synopsis "Modular audio processing system")
2885 (description "Ingen is a modular audio processing system for JACK and
2886 LV2 based systems. Ingen is built around LV2 technology and a strict
2887 separation of engine from user interface. The engine is controlled
2888 exclusively through a protocol, and can execute as a headless process, with an
2889 in-process GUI, or as an LV2 plugin. The GUI can run as a program which
2890 communicates over a Unix or TCP/IP socket, or as an embeddable LV2 GUI which
2891 communicates via LV2 ports. Any saved Ingen graph can be loaded as an LV2
2892 plugin on any system where Ingen is installed. This allows users to visually
2893 develop custom plugins for use in other applications without programming.")
2894 (license license:agpl3+))))
2896 (define-public qmidiarp
2902 (uri (string-append "mirror://sourceforge/qmidiarp/qmidiarp/"
2903 version "/qmidiarp-" version ".tar.bz2"))
2906 "1gkfv8ajgf86kbn6j5ilfc1zlz17gdi9yxzywqd6jwff4xlm75hx"))))
2907 (build-system gnu-build-system)
2910 (list "--enable-qt5"
2911 "CXXFLAGS=-std=gnu++11")))
2913 `(("qtbase" ,qtbase)
2914 ("alsa-lib" ,alsa-lib)
2919 `(("pkg-config" ,pkg-config)
2920 ("qttools" ,qttools)))
2921 (home-page "http://qmidiarp.sourceforge.net/")
2922 (synopsis "MIDI arpeggiator")
2923 (description "QMidiArp is an advanced MIDI arpeggiator, programmable step
2924 sequencer and LFO. It can hold any number of arpeggiator, sequencer, or LFO
2925 modules running in parallel.")
2926 (license license:gpl2+)))
2928 (define-public qmidiroute
2934 (uri (string-append "mirror://sourceforge/alsamodular/QMidiRoute/"
2935 version "/qmidiroute-" version ".tar.bz2"))
2938 "19v1ppbglgl3z9v7xdqc0k33w71cqq8a7d6ihvfs7iz77dygrih9"))))
2939 (build-system gnu-build-system)
2942 (list "--enable-qt5"
2943 "CXXFLAGS=-std=gnu++11")))
2945 `(("qtbase" ,qtbase)
2946 ("alsa-lib" ,alsa-lib)))
2948 `(("pkg-config" ,pkg-config)
2949 ("qttools" ,qttools)))
2950 (home-page "http://alsamodular.sourceforge.net/")
2951 (synopsis "MIDI event router and filter")
2952 (description "QMidiRoute is a MIDI event router and filter. MIDI note,
2953 control change, program change and pitch bend events are logged, and can be
2954 filtered, redirected and transformed into other events according to MIDI maps
2955 defined as tabs in the main control surface.")
2956 (license license:gpl2+)))
2958 (define-public seq24
2964 (uri (string-append "https://launchpad.net/seq24/trunk/"
2965 version "/+download/seq24-"
2966 version ".tar.bz2"))
2969 "12dphdhnvfk1k0vmagi1v2lhyxjyj1j3cz6ksjw0ydcvid1x8ap2"))
2970 (patches (search-patches "seq24-rename-mutex.patch"))))
2971 (build-system gnu-build-system)
2974 (list "CXXFLAGS=-std=gnu++11")))
2976 `(("gtkmm" ,gtkmm-2)
2977 ("alsa-lib" ,alsa-lib)
2981 `(("pkg-config" ,pkg-config)))
2982 (home-page "https://edge.launchpad.net/seq24/")
2983 (synopsis "Real-time MIDI sequencer")
2984 (description "Seq24 is a real-time MIDI sequencer. It was created to
2985 provide a very simple interface for editing and playing MIDI loops.")
2986 (license license:gpl2+)))
2988 (define-public python-discogs-client
2990 (name "python-discogs-client")
2994 (uri (pypi-uri "discogs-client" version))
2997 "053ld2psh0yj3z0kg6z5bn4y3cr562m727494n0ayhgzbkjbacly"))))
2998 (build-system python-build-system)
3000 `(("python-oauthlib" ,python-oauthlib)
3001 ("python-requests" ,python-requests)))
3003 `(("python-six" ,python-six)))
3004 (home-page "https://github.com/discogs/discogs_client")
3005 (synopsis "Official Python client for the Discogs API")
3006 (description "This is the official Discogs API client for Python. It enables
3007 you to query the Discogs database for information on artists, releases, labels,
3008 users, Marketplace listings, and more. It also supports OAuth 1.0a
3009 authorization, which allows you to change user data such as profile information,
3010 collections and wantlists, inventory, and orders.")
3011 (license license:bsd-2)))
3013 (define-public python2-discogs-client
3014 (package-with-python2 python-discogs-client))
3016 (define-public libsmf
3023 ;; SF download page says development moved, but the link it points to
3024 ;; is gone (https://github.com/nilsgey/libsmf). Someone else adopted
3025 ;; it but made no release so far (https://github.com/stump/libsmf).
3026 (uri (string-append "mirror://sourceforge/libsmf/libsmf/"
3027 version "/libsmf-" version ".tar.gz"))
3030 "16c0n40h0r56gzbh5ypxa4dwp296dan3jminml2qkb4lvqarym6k"))))
3031 (build-system gnu-build-system)
3033 "static")) ; 88KiB of .a files
3036 (modify-phases %standard-phases
3037 (add-after 'install 'move-static-libraries
3038 (lambda* (#:key outputs #:allow-other-keys)
3039 ;; Move static libraries to the "static" output.
3040 (let* ((out (assoc-ref outputs "out"))
3041 (lib (string-append out "/lib"))
3042 (static (assoc-ref outputs "static"))
3043 (slib (string-append static "/lib")))
3045 (for-each (lambda (file)
3046 (install-file file slib)
3048 (find-files lib "\\.a$"))
3051 `(("readline" ,readline)
3054 `(("doxygen" ,doxygen)
3055 ("pkg-config" ,pkg-config)))
3056 (home-page "http://libsmf.sourceforge.net/")
3057 (synopsis "Standard MIDI File format library")
3059 "LibSMF is a C library for handling SMF (\"*.mid\") files. It transparently handles
3060 conversions between time and pulses, tempo map handling and more. The only dependencies
3061 are a C compiler and glib. Full API documentation and examples are included.")
3062 (license license:bsd-2)))
3071 (uri (string-append "https://github.com/LMMS/lmms/archive/v"
3073 (file-name (string-append name "-" version ".tar.gz"))
3076 "1g76z7ha3hd53vbqaq9n1qg6s3lw8zzaw51iny6y2bz0j1xqwcsr"))))
3077 (build-system cmake-build-system)
3079 `(#:tests? #f ; no tests
3081 (modify-phases %standard-phases
3083 'configure 'set-ldflags
3084 (lambda* (#:key outputs #:allow-other-keys)
3088 (assoc-ref outputs "out") "/lib/lmms"
3090 (assoc-ref outputs "out") "/lib/lmms/ladspa"
3093 `(("pkg-config" ,pkg-config)))
3099 ("libsamplerate" ,libsamplerate)
3100 ("fluidsynth" ,fluidsynth)
3101 ("libvorbis" ,libvorbis)
3102 ("alsa-lib" ,alsa-lib)
3103 ("portaudio" ,portaudio)
3105 ("libsndfile1" ,libsndfile)
3107 ("freetype2" ,freetype)
3109 (home-page "https://lmms.io/")
3110 (synopsis "Music composition tool")
3111 (description "LMMS is a digital audio workstation. It includes tools for sequencing
3112 melodies and beats and for mixing and arranging songs. LMMS includes instruments based on
3113 audio samples and various soft sythesizers. It can receive input from a MIDI keyboard.")
3114 (license license:gpl2+)))
3116 (define-public musescore
3123 "https://github.com/musescore/MuseScore/archive/"
3124 "v" version ".tar.gz"))
3125 (file-name (string-append name "-" version ".tar.gz"))
3128 "0irwsq6ihfz3y3b943cwqy29g3si7gqbgxdscgw53vwv9vfvi085"))
3129 (modules '((guix build utils)))
3131 ;; Un-bundle OpenSSL and remove unused libraries.
3133 (substitute* "thirdparty/kQOAuth/CMakeLists.txt"
3134 (("-I \\$\\{PROJECT_SOURCE_DIR\\}/thirdparty/openssl/include ")
3136 (substitute* "thirdparty/kQOAuth/kqoauthutils.cpp"
3137 (("#include <openssl/.*") ""))
3138 (for-each delete-file-recursively
3139 '("thirdparty/freetype"
3140 "thirdparty/openssl"
3141 "thirdparty/portmidi"))
3143 (build-system gnu-build-system)
3146 `(,(string-append "PREFIX=" (assoc-ref %outputs "out")))
3147 ;; There are tests, but no simple target to run. The command
3148 ;; used to run them is:
3150 ;; make debug && sudo make installdebug && cd \
3151 ;; build.debug/mtest && make && ctest
3153 ;; Basically, it requires to start a whole new build process.
3154 ;; So we simply skip them.
3157 (modify-phases %standard-phases
3159 (add-after 'unpack 'use-system-freetype
3161 ;; XXX: For the time being, we grossly insert the CMake
3162 ;; option needed to ignore bundled freetype. However,
3163 ;; there's a pending PR to have it as a regular make
3164 ;; option, in a future release.
3165 (substitute* "Makefile"
3166 (("cmake -DCMAKE") "cmake -DUSE_SYSTEM_FREETYPE=ON -DCMAKE"))
3169 `(("alsa-lib" ,alsa-lib)
3170 ("freetype" ,freetype)
3171 ("gtk+-bin" ,gtk+ "bin") ;for gtk-update-icon-cache
3175 ("libsndfile" ,libsndfile)
3176 ("libvorbis" ,libvorbis)
3177 ("portaudio" ,portaudio)
3178 ("pulseaudio" ,pulseaudio)
3180 ("qtdeclarative" ,qtdeclarative)
3181 ("qtscript" ,qtscript)
3183 ("qtwebkit" ,qtwebkit)
3184 ("qtxmlpatterns" ,qtxmlpatterns)))
3187 ("pkg-config" ,pkg-config)
3188 ("qttools" ,qttools)))
3189 (synopsis "Music composition and notation software")
3190 (description "MuseScore is a music score typesetter. Its main purpose is
3191 the creation of high-quality engraved musical scores in a WYSIWYG environment.
3193 It supports unlimited staves, linked parts and part extraction, tablature,
3194 MIDI input, percussion notation, cross-staff beaming, automatic transposition,
3195 lyrics (multiple verses), fretboard diagrams, and in general everything
3196 commonly used in sheet music. Style options and style sheets to change the
3197 appearance and layout are provided.
3199 MuseScore can also play back scores through the built-in sequencer and SoundFont
3201 (home-page "https://musescore.org")
3202 (license license:gpl2)))
3211 "mirror://sourceforge/dssi/dssi/" version
3212 "/dssi-" version ".tar.gz"))
3215 "0kl1hzhb7cykzkrqcqgq1dk4xcgrcxv0jja251aq4z4l783jpj7j"))))
3216 (build-system gnu-build-system)
3218 `(("alsa-lib" ,alsa-lib)
3221 ("libsamplerate" ,libsamplerate)
3222 ("libsndfile" ,libsndfile)
3225 `(("pkg-config" ,pkg-config)))
3226 (synopsis "Audio plugin API for soft synths and effects")
3227 (description "DSSI is a plugin API for software instruments with user
3228 interfaces, permitting them to be hosted in-process by audio applications.
3229 It is intended to be simple, GUI-toolkit-agnostic, and slightly biased
3230 towards familiarity with MIDI. The DSSI distribution package contains
3231 a JACK/ALSA-sequencer reference host and some plugins as well as the
3232 specification and header.")
3233 (home-page "http://dssi.sourceforge.net/")
3234 ;; The DSSI interface is LGPL2.1+, some tests and examples are GPL2+.
3235 ;; The vast majority of examples are in the public domain.
3236 (license (list license:lgpl2.1+ license:gpl2+))))
3238 (define-public rosegarden
3245 "mirror://sourceforge/rosegarden/rosegarden/"
3246 version "/rosegarden-" version ".tar.bz2"))
3249 "1khfcj22asdhjh0jvhkqsz200wgmigkhsrcz09ffia5hqm0n32lq"))))
3250 (build-system cmake-build-system)
3252 `(#:configure-flags '("-DUSE_QT5=1") ; "-DCMAKE_BUILD_TYPE=Release"
3254 (modify-phases %standard-phases
3255 (add-after 'unpack 'patch-tests
3257 (substitute* "CMakeLists.txt"
3258 (("BUILD_TESTING OFF") "BUILD_TESTING ON")
3260 ((" -fvisibility=hidden") ""))
3262 (add-after 'unpack 'fix-references
3263 (lambda* (#:key inputs #:allow-other-keys)
3264 (substitute* "src/gui/general/ProjectPackager.cpp"
3266 (string-append "\"" (assoc-ref inputs "flac") "/bin/flac"))
3268 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wavpack"))
3270 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wvunpack"))
3272 (string-append "\"" (assoc-ref inputs "bash") "/bin/bash"))
3274 (string-append "\"" (assoc-ref inputs "tar") "/bin/tar")))
3275 (substitute* "src/gui/general/LilyPondProcessor.cpp"
3276 (("\"convert-ly\\>")
3277 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/convert-ly"))
3279 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/lilypond")))
3281 (add-after 'unpack 'make-reproducible
3283 ;; Prevent Last-Modified from being written.
3284 ;; The "*.qm" files that are used in locale.qrc would have a new
3285 ;; mtime otherwise that is written into qrc_locale.cpp in the
3286 ;; end - except when we disable it.
3287 (substitute* "src/CMakeLists.txt"
3288 (("COMMAND [$][{]QT_RCC_EXECUTABLE[}]")
3289 "COMMAND ${QT_RCC_EXECUTABLE} --format-version 1")
3291 ;(("qt5_add_resources[(]rg_SOURCES ../data/data.qrc[)]")
3292 ; "qt5_add_resources(rg_SOURCES ../data/data.qrc OPTIONS --format-version 1)")
3294 ;; Make hashtable traversal order predicable.
3295 (setenv "QT_RCC_TEST" "1") ; important
3297 (add-before 'check 'prepare-check
3299 (setenv "QT_QPA_PLATFORM" "offscreen")
3300 ;; Tests create files in $HOME/.local/share/rosegarden .
3301 (mkdir-p "/tmp/foo")
3302 (setenv "HOME" "/tmp/foo")
3305 `(("alsa-lib" ,alsa-lib)
3313 ("libsamplerate" ,libsamplerate)
3314 ("lilypond" ,lilypond)
3319 ("wavpack" ,wavpack)
3322 `(("pkg-config" ,pkg-config)
3323 ("qtlinguist" ,qttools)))
3324 (synopsis "Music composition and editing environment based around a MIDI
3326 (description "Rosegarden is a music composition and editing environment
3327 based around a MIDI sequencer that features a rich understanding of music
3328 notation and includes basic support for digital audio.")
3329 (home-page "http://www.rosegardenmusic.com/")
3330 (license license:gpl2)))
3332 (define-public sorcer
3338 (uri (string-append "https://github.com/openAVproductions/"
3339 "openAV-Sorcer/archive/release-"
3341 (file-name (string-append name "-" version ".tar.gz"))
3344 "07iyqj28wm0xc4arrq893bm12xjpz65db7ynrlmf6w8krg8wjmd0"))))
3345 (build-system cmake-build-system)
3347 `(#:tests? #f ; no tests included
3349 (modify-phases %standard-phases
3350 (add-after 'unpack 'remove-architecture-specific-flags
3352 (substitute* "CMakeLists.txt"
3353 (("-msse2 -mfpmath=sse") ""))
3355 (add-after 'unpack 'build-faust-sources
3356 (lambda* (#:key inputs #:allow-other-keys)
3357 (with-directory-excursion "faust"
3358 (delete-file "main.cpp")
3359 (zero? (system* "faust" "-i"
3361 "-o" "main.cpp" "main.dsp"))))))))
3368 ("pkg-config" ,pkg-config)))
3369 (home-page "http://openavproductions.com/sorcer/")
3370 (synopsis "Wavetable LV2 plugin synth")
3371 (description "Sorcer is a wavetable LV2 plugin synthesizer, targeted at
3372 the electronic or dubstep genre.")
3373 (license license:gpl3+)))
3375 (define-public libechonest
3377 (name "libechonest")
3382 (url "git://anongit.kde.org/libechonest.git")
3384 (file-name (string-append name "-" version "-checkout"))
3387 "0xbavf9f355dl1d3qv59x4ryypqrdanh9xdvw2d0q66l008crdkq"))))
3388 (build-system cmake-build-system)
3390 '(#:tests? #f ; Tests require Internet access
3391 #:configure-flags '("-DBUILD_WITH_QT4=OFF")))
3393 `(("qtbase" ,qtbase)
3395 (home-page "https://projects.kde.org/projects/playground/libs/libechonest")
3396 (synopsis "C++/Qt classes to interface with The Echo Nest API")
3397 (description "@code{libechonest} is a collection of C++/Qt classes
3398 designed to make a developer's life easy when trying to use the APIs provided
3400 (license license:gpl2+)))