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 Kei Kebreau <kei@openmailbox.org>
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>
14 ;;; This file is part of GNU Guix.
16 ;;; GNU Guix is free software; you can redistribute it and/or modify it
17 ;;; under the terms of the GNU General Public License as published by
18 ;;; the Free Software Foundation; either version 3 of the License, or (at
19 ;;; your option) any later version.
21 ;;; GNU Guix is distributed in the hope that it will be useful, but
22 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
23 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
24 ;;; GNU General Public License for more details.
26 ;;; You should have received a copy of the GNU General Public License
27 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
29 (define-module (gnu packages music)
30 #:use-module (guix utils)
31 #:use-module (guix packages)
32 #:use-module (guix download)
33 #:use-module (guix git-download)
34 #:use-module ((guix licenses) #:prefix license:)
35 #:use-module (guix build-system gnu)
36 #:use-module (guix build-system ant)
37 #:use-module (guix build-system cmake)
38 #:use-module (guix build-system python)
39 #:use-module (guix build-system waf)
40 #:use-module (gnu packages)
41 #:use-module (gnu packages algebra)
42 #:use-module (gnu packages apr)
43 #:use-module (gnu packages audio)
44 #:use-module (gnu packages autotools)
45 #:use-module (gnu packages backup)
46 #:use-module (gnu packages base) ;libbdf
47 #:use-module (gnu packages bison)
48 #:use-module (gnu packages boost)
49 #:use-module (gnu packages cdrom)
50 #:use-module (gnu packages code)
51 #:use-module (gnu packages check)
52 #:use-module (gnu packages compression)
53 #:use-module (gnu packages curl)
54 #:use-module (gnu packages cyrus-sasl)
55 #:use-module (gnu packages docbook)
56 #:use-module (gnu packages documentation)
57 #:use-module (gnu packages emacs)
58 #:use-module (gnu packages file)
59 #:use-module (gnu packages flex)
60 #:use-module (gnu packages fltk)
61 #:use-module (gnu packages fonts)
62 #:use-module (gnu packages fontutils)
63 #:use-module (gnu packages freedesktop)
64 #:use-module (gnu packages gcc)
65 #:use-module (gnu packages gnupg)
66 #:use-module (gnu packages gettext)
67 #:use-module (gnu packages ghostscript)
68 #:use-module (gnu packages gl)
69 #:use-module (gnu packages glib)
70 #:use-module (gnu packages gnome)
71 #:use-module (gnu packages graphics)
72 #:use-module (gnu packages gtk)
73 #:use-module (gnu packages guile)
74 #:use-module (gnu packages image)
75 #:use-module (gnu packages imagemagick)
76 #:use-module (gnu packages java)
77 #:use-module (gnu packages linux) ; for alsa-utils
78 #:use-module (gnu packages libffi)
79 #:use-module (gnu packages llvm)
80 #:use-module (gnu packages man)
81 #:use-module (gnu packages mp3)
82 #:use-module (gnu packages mpd)
83 #:use-module (gnu packages ncurses)
84 #:use-module (gnu packages netpbm)
85 #:use-module (gnu packages pcre)
86 #:use-module (gnu packages pdf)
87 #:use-module (gnu packages perl)
88 #:use-module (gnu packages pkg-config)
89 #:use-module (gnu packages pulseaudio) ;libsndfile
90 #:use-module (gnu packages python)
91 #:use-module (gnu packages qt)
92 #:use-module (gnu packages rdf)
93 #:use-module (gnu packages readline)
94 #:use-module (gnu packages rsync)
95 #:use-module (gnu packages sdl)
96 #:use-module (gnu packages tcl)
97 #:use-module (gnu packages texinfo)
98 #:use-module (gnu packages tex)
99 #:use-module (gnu packages tls)
100 #:use-module (gnu packages video)
101 #:use-module (gnu packages web)
102 #:use-module (gnu packages wxwidgets)
103 #:use-module (gnu packages xml)
104 #:use-module (gnu packages xorg)
105 #:use-module (gnu packages xiph)
106 #:use-module (gnu packages zip)
107 #:use-module ((srfi srfi-1) #:select (last)))
109 (define-public aria-maestosa
111 (name "aria-maestosa")
115 (uri (string-append "mirror://sourceforge/ariamaestosa/ariamaestosa/"
116 version "/AriaSrc-" version ".tar.bz2"))
119 "0gf9z96z83jiabxhpl856j15vl9flfgs6x1r0r6hc7g2xvwag0vy"))))
120 (build-system gnu-build-system)
122 `(#:tests? #f ;no tests
124 ;; TODO: Add scons-build-system and use it here.
125 (modify-phases %standard-phases
127 (add-after 'unpack 'scons-propagate-environment
129 ;; By design, SCons does not, by default, propagate
130 ;; environment variables to subprocesses. See:
131 ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
132 ;; Here, we modify the SConstruct file to arrange for
133 ;; environment variables to be propagated.
134 (substitute* "SConstruct"
135 (("env = Environment\\(\\)")
136 "env = Environment(ENV=os.environ)")
137 ;; Scons errors out when copying subdirectories from Resources,
138 ;; so we move them instead.
140 ;; We move the "score" and "Documentation" directories at once,
141 ;; so we have to ignore files contained therein.
142 (("if \".svn\" in file" line)
144 " or \"score/\" in file"
145 " or \"Documentation/\" in file")))
147 (replace 'build (lambda _ (zero? (system* "scons"))))
149 (lambda* (#:key outputs #:allow-other-keys)
150 (let ((out (assoc-ref outputs "out")))
152 (zero? (system* "scons"
153 (string-append "prefix=" out)
155 ;; Fix directory permissions
157 (chmod (string-append out "/share/Aria/Documentation") #o555)
158 (chmod (string-append out "/share/Aria/score") #o555)
161 `(("wxwidgets" ,wxwidgets)
163 ("alsa-lib" ,alsa-lib)))
166 ("pkg-config" ,pkg-config)))
167 (home-page "http://ariamaestosa.sourceforge.net/")
168 (synopsis "MIDI sequencer and editor")
170 "Aria Maestosa is a MIDI sequencer and editor. It lets you compose, edit
171 and play MIDI files with a few clicks in a user-friendly interface offering
172 score, keyboard, guitar, drum and controller views.")
173 (license license:gpl3+)))
182 "https://github.com/" name "/" name "/archive/v"
184 (file-name (string-append name "-" version ".tar.gz"))
187 "0raixgjavkm7hxppzsc5zqbfbh2bhjcmbiplhnsxsmyj8flafyc1"))))
188 (build-system gnu-build-system)
190 `(#:tests? #f ; cmus does not include tests
192 (modify-phases %standard-phases
195 (lambda* (#:key outputs #:allow-other-keys)
196 (let ((out (assoc-ref outputs "out")))
198 ;; It's an idiosyncratic configure script that doesn't
199 ;; understand --prefix=..; it wants prefix=.. instead.
201 (system* "./configure"
202 (string-append "prefix=" out)))))))))
203 ;; TODO: cmus optionally supports the following formats, which haven't yet
204 ;; been added to Guix:
208 ;; - DISCID_LIBS, apparently different from cd-discid which is included in
209 ;; Guix. See <http://sourceforge.net/projects/discid/>
211 `(("pkg-config" ,pkg-config)))
213 `(("alsa-lib" ,alsa-lib)
219 ("libcdio-paranoia" ,libcdio-paranoia)
222 ("libmodplug" ,libmodplug)
223 ("libmpcdec" ,libmpcdec)
224 ("libsamplerate" ,libsamplerate)
225 ("libvorbis" ,libvorbis)
227 ("opusfile" ,opusfile)
228 ("pulseaudio" ,pulseaudio)
229 ("wavpack" ,wavpack)))
230 (home-page "https://cmus.github.io/")
231 (synopsis "Small console music player")
232 (description "Cmus is a small and fast console music player. It supports
233 many input formats and provides a customisable Vi-style user interface.")
234 (license license:gpl2+)))
236 (define-public denemo
242 (uri (string-append "mirror://gnu/denemo/denemo-"
246 "0hggf8c4xcrjcxd5m00r788r7jg7g8ff54w2idfaqpj5j2ix3299"))))
247 (build-system gnu-build-system)
250 (modify-phases %standard-phases
252 ;; Denemo's documentation says to use this command to run its
255 (zero? (system* "make" "-C" "tests" "check"))))
256 (add-before 'build 'set-lilypond
257 ;; This phase sets the default path for lilypond to its current
258 ;; location in the store.
259 (lambda* (#:key inputs #:allow-other-keys)
260 (let* ((lilypond (string-append (assoc-ref inputs "lilypond")
262 (substitute* "src/core/prefops.c"
263 (("g_string_new \\(\"lilypond\"\\);")
264 (string-append "g_string_new (\""
268 (add-after 'install 'correct-filename
269 ;; "graft-derivation/shallow" from the (guix grafts) module runs in
270 ;; the C locale, expecting file names to be ASCII encoded. This
271 ;; phase renames a filename with a Unicode character in it to meet
272 ;; the aforementioned condition.
273 (lambda* (#:key outputs #:allow-other-keys)
274 (let* ((out (assoc-ref outputs "out")))
275 (chdir (string-append
277 "/share/denemo/templates/instruments/woodwind"))
278 (rename-file "Clarinet in B♭.denemo"
279 "Clarinet in Bb.denemo"))
282 `(("glib:bin", glib "bin") ; for gtester
283 ("pkg-config" ,pkg-config)))
285 `(("alsa-lib" ,alsa-lib)
289 ("fluidsynth" ,fluidsynth)
293 ("gtksourceview" ,gtksourceview)
295 ("intltool" ,intltool)
297 ("libsndfile" ,libsndfile)
300 ("lilypond", lilypond)
301 ("portaudio" ,portaudio)
302 ("portmidi" ,portmidi)
303 ("rubberband" ,rubberband)))
304 (synopsis "Graphical music notation, front-end to GNU Lilypond")
306 "GNU Denemo is a music notation editor that provides a convenient
307 interface to the powerful music engraving program Lilypond. Music can be
308 typed in using the computer keyboard, played in using a MIDI keyboard, or
309 even input via a microphone connected to the sound card. The final product
310 is publication-quality music notation that is continuously generated in the
311 background while you work.")
312 (home-page "http://www.denemo.org")
313 (license license:gpl3+)))
315 (define-public hydrogen
322 "https://github.com/hydrogen-music/hydrogen/archive/"
326 "1dy2jfkdw0nchars4xi4isrz66fqn53a9qk13bqza7lhmsg3s3qy"))))
327 (build-system cmake-build-system)
329 `(#:test-target "tests"))
331 `(("cppunit" ,cppunit)
332 ("pkg-config" ,pkg-config)))
334 `(("alsa-lib" ,alsa-lib)
336 ;; ("ladspa" ,ladspa) ; cannot find during configure
338 ("libarchive" ,libarchive)
339 ("libsndfile" ,libsndfile)
344 (home-page "http://www.hydrogen-music.org")
345 (synopsis "Drum machine")
347 "Hydrogen is an advanced drum machine for GNU/Linux. Its main goal is to
348 enable professional yet simple and intuitive pattern-based drum programming.")
349 (license license:gpl2+)))
351 (define-public extempore
358 "https://github.com/digego/extempore/archive/"
362 "1wap1mvsicrhlazikf7l8zxg37fir8bmnh9rin28m1rix730vcch"))
363 (file-name (string-append name "-" version ".tar.gz"))))
364 (build-system cmake-build-system)
366 `(;; The default target also includes ahead-of-time compilation of the
367 ;; standard libraries. However, during the "install" phase this would
368 ;; happen *again* for unknown reasons. Hence we only build the
369 ;; extempore executable during the build phase.
370 #:make-flags '("extempore")
371 #:configure-flags '("-DJACK=ON"
372 ;; We want to distribute.
374 ;; Don't download any dependencies.
376 #:modules ((ice-9 match)
377 (guix build cmake-build-system)
380 (modify-phases %standard-phases
381 (add-after 'unpack 'patch-directories
382 (lambda* (#:key outputs #:allow-other-keys)
383 ;; Rewrite default path to runtime directory
384 (substitute* "src/Extempore.cpp"
385 (("runtimedir \\+= \"runtime\"")
386 (string-append "runtimedir = \""
387 (assoc-ref outputs "out")
388 "/lib/extempore/runtime\"")))
389 (substitute* "extras/extempore.el"
390 (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
391 (string-append "(runtime-directory \""
392 (assoc-ref outputs "out")
393 "/lib/extempore/runtime"
396 (add-after 'unpack 'link-with-additional-libs
398 ;; The executable must be linked with libffi and zlib.
399 (substitute* "CMakeLists.txt"
400 (("add_dependencies\\(aot_extended extended_deps\\)") "")
401 (("target_link_libraries\\(extempore PRIVATE dl" line)
402 (string-append line " ffi z")))
404 ;; FIXME: AOT compilation of the nanovg bindings fail with the error:
405 ;; "Compiler Error could not bind _nvgLinearGradient"
406 (add-after 'unpack 'disable-nanovg
408 (substitute* "CMakeLists.txt"
409 (("aotcompile_lib\\(libs/external/nanovg.xtm.*") ""))
411 ;; FIXME: All examples that are used as tests segfault for some
413 (add-after 'unpack 'disable-broken-tests
415 (substitute* "CMakeLists.txt"
416 (("extempore_add_example_as_test\\(.*") ""))
418 (add-after 'unpack 'hardcode-external-lib-paths
419 (lambda* (#:key inputs #:allow-other-keys)
420 (use-modules (ice-9 match))
423 ((file-name lib pkg-name)
424 (substitute* (string-append "libs/external/" file-name ".xtm")
425 ((lib) (string-append (assoc-ref inputs pkg-name)
427 '(("assimp" "libassimp.so" "assimp")
428 ("portmidi" "libportmidi.so" "portmidi")
429 ("sndfile" "libsndfile.so" "libsndfile")
430 ("fft" "libkiss_fft.so" "kiss-fft")
431 ("stb_image" "libstb_image.so" "stb-image")
432 ("nanovg" "libnanovg.so" "nanovg")
433 ("glext" "libGL.so" "mesa")
434 ("glfw3" "libglfw.so" "glfw")
435 ("gl/glcore-directbind" "libGL.so" "mesa")
436 ("gl/glcompat-directbind" "libGL.so" "mesa")))
438 (add-after 'unpack 'use-own-llvm
439 (lambda* (#:key inputs #:allow-other-keys)
440 (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
441 ;; Our LLVM builds shared libraries, so Extempore should use
443 (substitute* "CMakeLists.txt"
444 (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
446 (add-after 'unpack 'fix-aot-compilation
447 (lambda* (#:key outputs #:allow-other-keys)
448 (substitute* "CMakeLists.txt"
449 ;; EXT_SHARE_DIR does not exist before installation, so the
450 ;; working directory should be the source directory instead.
451 (("WORKING_DIRECTORY \\$\\{EXT_SHARE_DIR\\}")
452 "WORKING_DIRECTORY ${CMAKE_SOURCE_DIR}")
453 ;; Extempore needs to be told where the runtime is to be found.
454 ;; While we're at it we disable automatic tuning for a specific
455 ;; CPU to make binary substitution possible.
456 (("COMMAND extempore" prefix)
457 (string-append prefix " --sharedir " (getcwd)
458 " --mcpu=generic --attr=none")))
461 `(("llvm" ,llvm-for-extempore)
464 ("libsndfile" ,libsndfile)
467 ("stb-image" ,stb-image-for-extempore)
468 ("kiss-fft" ,kiss-fft-for-extempore)
469 ("nanovg" ,nanovg-for-extempore)
470 ("portmidi" ,portmidi-for-extempore)
472 ("alsa-lib" ,alsa-lib)
473 ("portaudio" ,portaudio)
479 ("emacs" ,emacs-no-x)))
480 ;; Extempore refuses to build on architectures other than x86_64
481 (supported-systems '("x86_64-linux"))
482 (home-page "http://benswift.me/extempore-docs/index.html")
483 (synopsis "Programming environment for live coding of multimedia")
485 "Extempore is a programming language and runtime environment designed
486 with live programming in mind. It supports interactive programming in a REPL
487 style, compiling and binding code just-in-time. Although Extempore has its
488 roots in 'live coding' of audiovisual media art, it is suitable for any task
489 domain where dynamic run-time modifiability and good numerical performance are
490 required. Extempore also has strong timing and concurrency semantics, which
491 are helpful when working in problem spaces where timing is important (such as
493 (license license:bsd-2)))
501 (uri (string-append "http://das.nasophon.de/download/klick-"
505 "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
506 (build-system gnu-build-system)
508 `(#:tests? #f ;no "check" target
510 ;; TODO: Add scons-build-system and use it here.
511 (modify-phases %standard-phases
514 (lambda* (#:key inputs outputs #:allow-other-keys)
515 (let ((out (assoc-ref outputs "out")))
517 (zero? (system* "scons" (string-append "PREFIX=" out))))))
518 (replace 'install (lambda _ (zero? (system* "scons" "install")))))))
522 ("libsndfile" ,libsndfile)
523 ("libsamplerate" ,libsamplerate)
525 ("rubberband" ,rubberband)))
529 ("pkg-config" ,pkg-config)))
530 (home-page "http://das.nasophon.de/klick/")
531 (synopsis "Metronome for JACK")
533 "klick is an advanced command-line based metronome for JACK. It allows
534 you to define complex tempo maps for entire songs or performances.")
535 (license license:gpl2+)))
537 (define-public gtklick
543 (uri (string-append "http://das.nasophon.de/download/gtklick-"
547 "0dq1km6njnzsqdqyf6wzir9g733z0mc9vmxfg2383k3c2a2di6bp"))))
548 (build-system python-build-system)
550 `(#:tests? #f ; no tests
553 (modify-phases %standard-phases
554 (add-before 'build 'add-sitedirs
555 ;; .pth files are not automatically interpreted unless the
556 ;; directories containing them are added as "sites". The directories
557 ;; are then added to those in the PYTHONPATH. This is required for
558 ;; the operation of pygtk.
560 (substitute* "gtklick/gtklick.py"
562 "import pygtk, site, sys
563 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))))
564 (add-after 'unpack 'inject-store-path-to-klick
565 (lambda* (#:key inputs #:allow-other-keys)
566 (substitute* "gtklick/klick_backend.py"
567 (("KLICK_PATH = 'klick'")
568 (string-append "KLICK_PATH = '"
569 (assoc-ref inputs "klick")
574 ("python2-pyliblo" ,python2-pyliblo)
575 ("python2-pygtk" ,python2-pygtk)))
577 `(("gettext" ,gettext-minimal)))
578 (home-page "http://das.nasophon.de/gtklick/")
579 (synopsis "Simple metronome with an easy-to-use graphical interface")
581 "Gtklick is a simple metronome with an easy-to-use graphical user
582 interface. It is implemented as a frontend to @code{klick}.")
583 (license license:gpl2+)))
585 (define-public lilypond
592 "http://download.linuxaudio.org/lilypond/sources/v"
593 (version-major+minor version) "/"
594 name "-" version ".tar.gz"))
597 "1b4jvc0fixbnp8x457fzk5wgb4zd03npwwivp60kc27fmv63w5l1"))))
598 (build-system gnu-build-system)
600 `(#:tests? #f ; out-test/collated-files.html fails
602 #:make-flags '("conf=www") ;to generate images for info manuals
604 (list "CONFIGURATION=www"
605 (string-append "--with-texgyre-dir="
606 (assoc-ref %build-inputs "font-tex-gyre")
607 "/share/fonts/opentype/"))
609 (modify-phases %standard-phases
610 (add-after 'unpack 'fix-path-references
612 (substitute* "scm/backend-library.scm"
613 (("\\(search-executable '\\(\"gs\"\\)\\)")
614 (string-append "\"" (which "gs") "\""))
616 (string-append "\"" (which "sh") "\"")))
618 (add-before 'configure 'prepare-configuration
620 (substitute* "configure"
621 (("SHELL=/bin/sh") "SHELL=sh")
622 ;; When checking the fontforge version do not consider the
623 ;; version string that's part of the directory.
624 (("head -n") "tail -n"))
626 (setenv "conf" "www")
628 (add-after 'install 'install-info
630 (zero? (system* "make"
631 "-j" (number->string (parallel-job-count))
632 "conf=www" "install-info")))))))
634 `(("guile" ,guile-1.8)
635 ("font-dejavu" ,font-dejavu)
636 ("font-tex-gyre" ,font-tex-gyre)
637 ("fontconfig" ,fontconfig)
638 ("freetype" ,freetype)
639 ("ghostscript" ,ghostscript)
641 ("python" ,python-2)))
646 ("fontforge" ,fontforge)
648 ("gettext" ,gettext-minimal)
649 ("imagemagick" ,imagemagick)
650 ("netpbm" ,netpbm) ;for pngtopnm
651 ("texlive" ,texlive) ;metafont and metapost
653 ("texi2html" ,texi2html)
655 ("pkg-config" ,pkg-config)
657 (home-page "http://www.lilypond.org/")
658 (synopsis "Music typesetting")
660 "GNU LilyPond is a music typesetter, which produces high-quality sheet
661 music. Music is input in a text file containing control sequences which are
662 interpreted by LilyPond to produce the final document. It is extendable with
664 (license license:gpl3+)
666 ;; On armhf and mips64el, building the documentation sometimes leads to
667 ;; more than an hour of silence, so double the max silent time.
668 (properties `((max-silent-time . 7200)))))
670 (define-public non-sequencer
671 ;; The latest tagged release is three years old and uses a custom build
672 ;; system, so we take the last commit.
673 (let ((commit "a22f33f486a5c6f75b60e36f66504c036c0f6f8c")
676 (name "non-sequencer")
677 (version (string-append "1.9.5-" revision "." (string-take commit 7)))
681 (url "git://git.tuxfamily.org/gitroot/non/non.git")
685 "09q5x8i4f8mqnl8w6xnsq5zriy4bzdl4x2vq9n34a433rfrk84bg"))
686 (file-name (string-append name "-" version "-checkout"))))
687 (build-system waf-build-system)
689 `(#:tests? #f ;no "check" target
691 (list "--project=sequencer"
692 ;; Disable the use of SSE unless on x86_64.
693 ,@(if (not (string-prefix? "x86_64" (or (%current-target-system)
698 (modify-phases %standard-phases
700 'configure 'set-flags
702 ;; Compile with C++11, required by libsigc++.
703 (setenv "CXXFLAGS" "-std=c++11")
708 ("libsigc++" ,libsigc++)
712 `(("pkg-config" ,pkg-config)))
713 (home-page "http://non.tuxfamily.org/wiki/Non%20Sequencer")
714 (synopsis "Pattern-based MIDI sequencer")
716 "The Non Sequencer is a powerful, lightweight, real-time,
717 pattern-based MIDI sequencer. It utilizes the JACK Audio Connection Kit for
718 MIDI I/O and the NTK GUI toolkit for its user interface. Everything in Non
719 Sequencer happens on-line, in real-time. Music can be composed live, while the
720 transport is rolling.")
721 (license license:gpl2+))))
723 (define-public non-session-manager
724 (package (inherit non-sequencer)
725 (name "non-session-manager")
727 (substitute-keyword-arguments (package-arguments non-sequencer)
728 ((#:configure-flags flags)
729 `(cons "--project=session-manager"
730 (delete "--project=sequencer" ,flags)))))
736 `(("pkg-config" ,pkg-config)))
737 (home-page "http://non.tuxfamily.org/nsm/")
738 (synopsis "Audio session management")
740 "The Non Session Manager is an API and an implementation for audio
741 session management. NSM clients use a well-specified OSC protocol to
742 communicate with the session management daemon.")
743 (license license:gpl2+)))
745 (define-public solfege
752 "mirror://gnu/solfege/solfege-"
756 "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
757 (build-system gnu-build-system)
759 `(#:tests? #f ; xmllint attempts to download DTD
763 'unpack 'fix-configuration
764 (lambda* (#:key inputs #:allow-other-keys)
765 (substitute* "default.config"
767 (string-append "csound="
768 (assoc-ref inputs "csound")
771 (string-append (assoc-ref inputs "aplay")
773 (("/usr/bin/timidity")
774 (string-append (assoc-ref inputs "timidity")
777 (string-append (assoc-ref inputs "mpg123")
780 (string-append (assoc-ref inputs "ogg123")
783 'build 'patch-python-shebangs
785 ;; Two python scripts begin with a Unicode BOM, so patch-shebang
787 (substitute* '("solfege/parsetree.py"
788 "solfege/presetup.py")
789 (("#!/usr/bin/python") (string-append "#!" (which "python")))))
792 ;; .pth files are not automatically interpreted unless the
793 ;; directories containing them are added as "sites". The directories
794 ;; are then added to those in the PYTHONPATH. This is required for
795 ;; the operation of pygtk and pygobject.
797 (substitute* "run-solfege.py"
800 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)")))
802 'build 'adjust-config-file-prefix
803 (lambda* (#:key outputs #:allow-other-keys)
804 (substitute* "run-solfege.py"
805 (("prefix = os.path.*$")
806 (string-append "prefix = " (assoc-ref outputs "out")))))
808 'install 'wrap-program
809 (lambda* (#:key inputs outputs #:allow-other-keys)
810 ;; Make sure 'solfege' runs with the correct PYTHONPATH.
811 (let* ((out (assoc-ref outputs "out"))
812 (path (getenv "PYTHONPATH")))
813 (wrap-program (string-append out "/bin/solfege")
814 `("PYTHONPATH" ":" prefix (,path)))))
815 %standard-phases)))))))
817 `(("python" ,python-2)
818 ("pygtk" ,python2-pygtk)
819 ("gettext" ,gettext-minimal)
821 ("lilypond" ,lilypond)
822 ;; players needed at runtime
823 ("aplay" ,alsa-utils)
824 ("csound" ,csound) ; optional, needed for some exercises
826 ("ogg123" ,vorbis-tools)
827 ("timidity" ,timidity++)))
829 `(("pkg-config" ,pkg-config)
831 ("libxml2" ,libxml2) ; for tests
832 ("ghostscript" ,ghostscript)
833 ("texinfo" ,texinfo)))
834 (home-page "https://www.gnu.org/software/solfege/")
835 (synopsis "Ear training")
837 "GNU Solfege is a program for practicing musical ear-training. With it,
838 you can practice your recognition of various musical intervals and chords. It
839 features a statistics overview so you can monitor your progress across several
840 sessions. Solfege is also designed to be extensible so you can easily write
842 (license license:gpl3+)))
844 (define-public powertabeditor
846 (name "powertabeditor")
847 (version "2.0.0-alpha9")
851 "https://github.com/powertab/powertabeditor/archive/"
853 (file-name (string-append name "-" version ".tar.gz"))
856 "1zjdz1qpkl83xr6dkap8airqcyjs3mxc5dzfyhrrvkyr7dics7ii"))
857 (modules '((guix build utils)))
860 ;; Remove bundled sources for external libraries
861 (delete-file-recursively "external")
862 ;; Use only system libraries
863 (substitute* "CMakeLists.txt"
864 (("include\\( PTE_ThirdParty \\)")
866 include(third_party/Qt)
867 include(third_party/boost)
868 add_library( Catch INTERFACE IMPORTED )
869 add_library( rapidjson INTERFACE IMPORTED )"))
871 (build-system cmake-build-system)
873 `(#:modules ((guix build cmake-build-system)
877 ;; CMake appears to lose the RUNPATH for some reason, so it has to be
878 ;; explicitly set with CMAKE_INSTALL_RPATH.
879 (list "-DCMAKE_BUILD_WITH_INSTALL_RPATH=TRUE"
880 (string-append "-DCMAKE_INSTALL_RPATH="
881 (string-join (map (match-lambda
883 (string-append directory "/lib")))
885 "-DPTE_DATA_DIR=share/powertabeditor")
887 (modify-phases %standard-phases
890 (zero? (system* "bin/pte_tests"
891 ;; FIXME: one test fails.
892 "exclude:Formats/PowerTabOldImport/Directions"))))
893 (add-after 'unpack 'set-target-directories
895 (substitute* "cmake/PTE_Executable.cmake"
896 (("set\\( install_dir.*")
897 "set( install_dir bin )\n"))
898 (substitute* "cmake/PTE_Paths.cmake"
899 (("set\\( PTE_DATA_DIR .*")
900 "set( PTE_DATA_DIR share/powertabeditor )\n"))
901 ;; Tests hardcode the data directory as "data"
902 (substitute* "test/CMakeLists.txt"
903 (("\\$\\{PTE_DATA_DIR\\}") "data"))
905 (add-before 'configure 'remove-third-party-libs
906 (lambda* (#:key inputs #:allow-other-keys)
907 ;; Link with required static libraries, because we're not
908 ;; using the bundled version of withershins.
909 (substitute* "source/build/CMakeLists.txt"
910 (("withershins" line)
911 (string-append line "\n"
912 (assoc-ref inputs "binutils")
914 (assoc-ref inputs "libiberty")
921 ("alsa-lib" ,alsa-lib)
923 ("withershins" ,withershins)
924 ("libiberty" ,libiberty) ;for withershins
925 ("binutils" ,binutils) ;for -lbfd and -liberty (for withershins)
926 ("timidity" ,timidity++)
929 ("rapidjson" ,rapidjson)
932 `(("catch" ,catch-framework)
933 ("pkg-config" ,pkg-config)))
934 (home-page "http://powertabs.net")
935 (synopsis "Guitar tablature editor")
937 "Power Tab Editor 2.0 is the successor to the famous original Power Tab
938 Editor. It is compatible with Power Tab Editor 1.7 and Guitar Pro.")
939 (license license:gpl3+)))
941 (define-public jalv-select
947 (uri (string-append "https://github.com/brummer10/jalv_select/"
948 "archive/V" version ".tar.gz"))
951 "01y93l5c1f8za04a0y4b3v0nhsm1lhj6rny9xpdgd7jz6sl6w581"))))
952 (build-system gnu-build-system)
955 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
957 (modify-phases %standard-phases
959 (add-after 'unpack 'ignore-PATH
960 (lambda* (#:key inputs #:allow-other-keys)
961 (substitute* "jalv.select.cpp"
962 (("echo \\$PATH | tr ':' '\\\n' | xargs ls")
963 (string-append "ls -1 " (assoc-ref inputs "jalv") "/bin")))
964 (substitute* "jalv.select.h"
965 (("gtkmm.h") "gtkmm-2.4/gtkmm.h"))
973 `(("pkg-config" ,pkg-config)))
974 (home-page "https://github.com/brummer10/jalv_select")
975 (synopsis "GUI to select LV2 plugins and run them with jalv")
977 "The jalv.select package provides a graphical user interface allowing
978 users to select LV2 plugins and run them with jalv.")
979 (license license:public-domain)))
981 (define-public synthv1
988 (string-append "mirror://sourceforge/synthv1/synthv1/" version
989 "/synthv1-" version ".tar.gz"))
992 "155pfyhr6d35ciw95pbxlqy7751cmij8j5d849rvblqbjzyzb5qx"))))
993 (build-system gnu-build-system)
995 `(#:tests? #f ; There are no tests.
997 '("CXXFLAGS=-std=gnu++11")))
1001 ("alsa-lib" ,alsa-lib)
1004 ("qttools" ,qttools)))
1005 (home-page "http://synthv1.sourceforge.net")
1006 (synopsis "Polyphonic subtractive synthesizer")
1008 "Synthv1 is an old-school subtractive polyphonic synthesizer with four
1009 oscillators and stereo effects.")
1010 (license license:gpl2+)))
1012 (define-public drumkv1
1019 (string-append "mirror://sourceforge/drumkv1/drumkv1/" version
1020 "/drumkv1-" version ".tar.gz"))
1023 "1n2kd468kn71yp2asmamprvblmdlvh0zd8lsh3598dwi4b7aa3ga"))))
1024 (build-system gnu-build-system)
1026 `(#:tests? #f ; There are no tests.
1028 '("CXXFLAGS=-std=gnu++11")))
1032 ("libsndfile" ,libsndfile)
1033 ("alsa-lib" ,alsa-lib)
1035 ("qtbase" ,qtbase)))
1037 `(("pkg-config" ,pkg-config)
1038 ("qttools" ,qttools)))
1039 (home-page "http://drumkv1.sourceforge.net")
1040 (synopsis "Drum-kit sampler synthesizer with stereo effects")
1042 "Drumkv1 is an old-school drum-kit sampler synthesizer with stereo
1044 (license license:gpl2+)))
1046 (define-public samplv1
1053 (string-append "mirror://sourceforge/samplv1/samplv1/" version
1054 "/samplv1-" version ".tar.gz"))
1057 "0j3hkmd9q0bw9b7nk9cssqywlrishkd1n790a9vq6gh3pdc5sf3r"))))
1058 (build-system gnu-build-system)
1060 `(#:tests? #f ; There are no tests.
1062 '("CXXFLAGS=-std=gnu++11")))
1066 ("libsndfile" ,libsndfile)
1067 ("alsa-lib" ,alsa-lib)
1069 ("qtbase" ,qtbase)))
1071 `(("pkg-config" ,pkg-config)
1072 ("qttools" ,qttools)))
1073 (home-page "http://samplv1.sourceforge.net")
1074 (synopsis "Polyphonic sampler synthesizer with stereo effects")
1076 "Samplv1 is an old-school polyphonic sampler synthesizer with stereo
1078 (license license:gpl2+)))
1080 (define-public amsynth
1087 (uri (string-append "https://github.com/amsynth/amsynth/releases/"
1088 "download/release-" version
1089 "/amsynth-" version ".tar.bz2"))
1092 "07dp9dl38g9krjqxxh89l2z42z08yzrl57cx95b1l67xnxwjp5k3"))))
1093 (build-system gnu-build-system)
1096 (modify-phases %standard-phases
1097 (add-before 'configure 'set-flags
1099 ;; Compile with C++11, required by gtkmm.
1100 (setenv "CXXFLAGS" "-std=c++11")
1103 `(("alsa-lib" ,alsa-lib)
1106 ("libsndfile" ,libsndfile)
1108 ("gtkmm" ,gtkmm-2)))
1110 `(("pkg-config" ,pkg-config)))
1111 (home-page "http://amsynth.github.io")
1112 (synopsis "Analog modeling synthesizer")
1114 "amsynth is an easy-to-use software synthesizer with a classic
1115 subtractive synthesizer topology. Its features include: dual
1116 oscillators (sine, saw, square, noise) with hard sync; 12 and 24 dB/oct
1117 resonant filters (low-pass, high-pass, band-pass, notch); mono, poly, legato
1118 keyboard modes; dual ADSR envelope generators for filter and amplitude; LFO
1119 which can modulate the oscillators, filter, and amplitude; distortion and
1121 (license license:gpl2+)))
1123 (define-public setbfree
1130 (string-append "https://github.com/pantherb/setBfree/archive/v"
1132 (file-name (string-append name "-" version ".tar.gz"))
1135 "0hj0rqk5yd4fzs7bwy6a6nhqgrmcggkjcr4il76rxy92r7nwabf3"))))
1136 (build-system gnu-build-system)
1138 `(#:tests? #f ; no "check" target
1140 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1141 (string-append "FONTFILE="
1142 (assoc-ref %build-inputs "font-bitstream-vera")
1143 "/share/fonts/truetype/VeraBd.ttf")
1144 ;; Disable unsupported optimization flags on non-x86
1145 ,@(let ((system (or (%current-target-system)
1146 (%current-system))))
1147 (if (or (string-prefix? "x86_64" system)
1148 (string-prefix? "i686" system))
1150 '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
1152 (modify-phases %standard-phases
1153 (add-before 'build 'set-CC-variable
1154 (lambda _ (setenv "CC" "gcc") #t))
1155 (delete 'configure))))
1159 ("zita-convolver" ,zita-convolver)
1162 ("font-bitstream-vera" ,font-bitstream-vera)))
1164 `(("help2man" ,help2man)
1165 ("pkg-config" ,pkg-config)))
1166 (home-page "http://setbfree.org")
1167 (synopsis "Tonewheel organ")
1169 "setBfree is a MIDI-controlled, software synthesizer designed to imitate
1170 the sound and properties of the electromechanical organs and sound
1171 modification devices that brought world-wide fame to the names and products of
1172 Laurens Hammond and Don Leslie.")
1173 (license license:gpl2+)))
1175 (define-public beast
1181 (uri (string-append "https://testbit.eu/pub/dists/beast/beast-"
1185 "1jzzmfwssklzw8fvvil04n8csc0zm99fnd9p2xa7c0xchg37lvhn"))))
1186 (build-system gnu-build-system)
1188 '(#:parallel-build? #f)) ; Race conditions cause build failures
1190 `(("rapicorn" ,rapicorn)
1191 ("guile" ,guile-1.8)
1192 ("python" ,python-2)
1193 ("libgnomecanvas" ,libgnomecanvas)
1197 ("alsa-lib" ,alsa-lib)
1198 ("libvorbis" ,libvorbis)
1199 ("gettext" ,gettext-minimal)))
1201 `(("pkg-config" ,pkg-config)
1202 ("glib:bin" ,glib "bin")
1203 ("cython" ,python2-cython)
1205 ("perl-xml-parser" ,perl-xml-parser)))
1206 (home-page "https://testbit.eu/wiki/Beast_Home")
1207 (synopsis "Music composition and modular synthesis environment")
1209 "Beast is a music composition and modular synthesis application. It
1210 supports a wide range of standards in the field, such as MIDI, various audio
1211 file formats and LADSPA modules. It allows for multitrack editing, real-time
1212 synthesis, 32bit audio rendering, precise timing down to sample granularity,
1213 on-demand and partial loading of wave files, on the fly decoding, stereo
1214 mixing, FFT scopes, MIDI automation and full scriptability in Scheme.")
1215 (license license:gpl3+)))
1217 (define-public bristol
1223 (uri (string-append "mirror://sourceforge/bristol/bristol/"
1224 (version-major+minor version)
1225 "/bristol-" version ".tar.gz"))
1228 "1fi2m4gmvxdi260821y09lxsimq82yv4k5bbgk3kyc3x1nyhn7vx"))))
1229 (build-system gnu-build-system)
1232 (modify-phases %standard-phases
1233 (add-after 'unpack 'remove-sse-flags
1234 (lambda* (#:key system #:allow-other-keys)
1235 (when (not (or (string-prefix? "x86_64" system)
1236 (string-prefix? "i686" system)))
1237 (substitute* "bristol/Makefile.in"
1238 (("-msse -mfpmath=sse") "")))
1240 ;; We know that Bristol has been linked with JACK and we don't have
1241 ;; ldd, so we can just skip this check.
1242 (add-after 'unpack 'do-not-grep-for-jack
1244 (substitute* "bin/startBristol.in"
1245 (("ldd `which bristol` | grep jack") "echo guix"))
1248 `(("alsa-lib" ,alsa-lib)
1251 ("libx11" ,libx11)))
1253 `(("pkg-config" ,pkg-config)))
1254 (home-page "http://bristol.sourceforge.net/")
1255 (synopsis "Synthesizer emulator")
1257 "Bristol is an emulation package for a number of different 'classic'
1258 synthesizers including additive and subtractive and a few organs. The
1259 application consists of the engine, which is called bristol, and its own GUI
1260 library called brighton that represents all the emulations. There are
1261 currently more than twenty different emulations; each does sound different
1262 although the author maintains that the quality and accuracy of each emulation
1264 (license license:gpl3+)))
1266 (define-public tuxguitar
1273 "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
1274 version "/tuxguitar-" version "-src.tar.gz"))
1277 "0ldml31zvywid1w28mfd65ramyiics55fdl0ch846vm7j7nwv58j"))
1278 (modules '((guix build utils)))
1280 ;; Delete pre-built classes
1281 '(delete-file-recursively "TuxGuitar-android/bin"))))
1282 (build-system ant-build-system)
1284 `(#:build-target "build"
1285 #:tests? #f ; no tests
1287 (modify-phases %standard-phases
1288 (add-after 'unpack 'enter-dir
1289 (lambda _ (chdir "TuxGuitar-lib") #t))
1290 (add-after 'build 'build-editor-utils
1291 (lambda* (#:key inputs outputs #:allow-other-keys)
1293 (let ((cwd (getcwd)))
1296 cwd "/TuxGuitar-lib/tuxguitar-lib.jar" ":"
1297 cwd "/TuxGuitar-editor-utils/build/jar/tuxguitar-editor-utils.jar" ":"
1298 (getenv "CLASSPATH"))))
1299 (chdir "TuxGuitar-editor-utils")
1300 ;; Generate default build.xml
1301 ((@@ (guix build ant-build-system) default-build.xml)
1302 "tuxguitar-editor-utils.jar"
1303 (string-append (assoc-ref outputs "out")
1305 ((assoc-ref %standard-phases 'build))))
1306 (add-after 'build-editor-utils 'build-application
1308 (chdir "../TuxGuitar")
1309 ((assoc-ref %standard-phases 'build)
1310 #:build-target "build")))
1312 (lambda* (#:key inputs outputs #:allow-other-keys)
1313 (let* ((out (assoc-ref outputs "out"))
1314 (bin (string-append out "/bin"))
1315 (share (string-append out "/share"))
1316 (lib (string-append share "/java"))
1317 (swt (assoc-ref inputs "java-swt")))
1320 (for-each (lambda (file)
1321 (install-file file lib))
1322 (find-files ".." "\\.jar$"))
1323 ;; install all resources
1324 (for-each (lambda (file)
1325 (install-file file share))
1326 (find-files "share" ".*"))
1328 (call-with-output-file (string-append bin "/tuxguitar")
1330 (let ((classpath (string-join (append (find-files lib "\\.jar$")
1331 (find-files swt "\\.jar$"))
1335 (string-append "#!/bin/sh\n"
1338 " -Dtuxguitar.home.path=" out
1339 " -Dtuxguitar.share.path=" out "/share"
1340 " -Dswt.library.path=" swt "/lib"
1341 " org.herac.tuxguitar.app.TGMainSingleton"
1342 " \"$1\" \"$2\"")))))
1343 (chmod (string-append bin "/tuxguitar") #o555)
1346 `(("java-swt" ,java-swt)))
1347 (home-page "http://tuxguitar.com.ar")
1348 (synopsis "Multitrack tablature editor and player")
1350 "TuxGuitar is a guitar tablature editor with player support through midi.
1351 It can display scores and multitrack tabs. TuxGuitar provides various
1352 additional features, including autoscrolling while playing, note duration
1353 management, bend/slide/vibrato/hammer-on/pull-off effects, support for
1354 tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
1356 (license license:lgpl2.1+)))
1365 (string-append "mirror://sourceforge/pure-data/pure-data/"
1366 version "/pd-" (version-major+minor version)
1367 "-" (last (string-split version #\.))
1371 "1ls2ap5yi2zxvmr247621g4jx0hhfds4j5704a050bn2n3l0va2p"))))
1372 (build-system gnu-build-system)
1374 `(#:tests? #f ; no "check" target
1376 (modify-phases %standard-phases
1378 'configure 'fix-wish-path
1380 (substitute* "src/s_inter.c"
1381 ((" wish ") (string-append " " (which "wish8.6") " ")))
1382 (substitute* "tcl/pd-gui.tcl"
1383 (("exec wish ") (string-append "exec " (which "wish8.6") " ")))
1387 (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
1389 `(("autoconf" ,autoconf)
1390 ("automake" ,automake)
1391 ("libtool" ,libtool)
1392 ("gettext" ,gettext-minimal)
1393 ("pkg-config" ,pkg-config)))
1396 ("alsa-lib" ,alsa-lib)
1398 (home-page "http://puredata.info")
1399 (synopsis "Visual programming language for artistic performances")
1401 "Pure Data (aka Pd) is a visual programming language. Pd enables
1402 musicians, visual artists, performers, researchers, and developers to create
1403 software graphically, without writing lines of code. Pd is used to process
1404 and generate sound, video, 2D/3D graphics, and interface sensors, input
1405 devices, and MIDI. Pd can easily work over local and remote networks to
1406 integrate wearable technology, motor systems, lighting rigs, and other
1407 equipment. Pd is suitable for learning basic multimedia processing and visual
1408 programming methods as well as for realizing complex systems for large-scale
1410 (license license:bsd-3)))
1412 (define-public portmidi
1418 (uri (string-append "mirror://sourceforge/portmedia/portmidi/"
1419 version "/portmidi-src-" version ".zip"))
1422 "03rfsk7z6rdahq2ihy5k13qjzgx757f75yqka88v3gc0pn9ais88"))
1423 (patches (list (search-patch "portmidi-modular-build.patch")))))
1424 (build-system cmake-build-system)
1426 `(#:tests? #f ; tests cannot be linked
1428 (list "-DPORTMIDI_ENABLE_JAVA=Off"
1429 "-DCMAKE_BUILD_TYPE=Release" ; needed to have PMALSA set
1430 "-DPORTMIDI_ENABLE_TEST=Off"))) ; tests fail linking
1432 `(("alsa-lib" ,alsa-lib)))
1434 `(("unzip" ,unzip)))
1435 (home-page "http://portmedia.sourceforge.net/portmidi/")
1436 (synopsis "Library for MIDI I/O")
1438 "PortMidi is a library supporting real-time input and output of MIDI data
1439 using a system-independent interface.")
1440 (license license:expat)))
1442 (define-public portmidi-for-extempore
1443 (package (inherit portmidi)
1444 (name "portmidi-for-extempore")
1448 (uri (string-append "https://github.com/extemporelang/portmidi/"
1449 "archive/" version ".tar.gz"))
1450 (file-name (string-append name "-" version ".tar.gz"))
1453 "0gjikwciyr8kk4y3qiv1pcq58xpgw38ql1m2gs6g0qc1s8sx4235"))))
1454 (build-system cmake-build-system)
1455 (arguments `(#:tests? #f)) ; no tests
1457 ;; Extempore refuses to build on architectures other than x86_64
1458 (supported-systems '("x86_64-linux"))
1459 (home-page "https://github.com/extemporelang/portmidi/")))
1461 (define-public python-pyportmidi
1463 (name "python-pyportmidi")
1464 (version (package-version portmidi))
1465 (source (package-source portmidi))
1466 (build-system python-build-system)
1468 `(#:tests? #f ; no tests included
1470 (modify-phases %standard-phases
1471 (add-after 'unpack 'enter-dir
1472 (lambda _ (chdir "pm_python") #t))
1473 (add-after 'enter-dir 'fix-setup.py
1475 (substitute* "setup.py"
1476 ;; Use Python 3 syntax
1477 (("print (\".*\")" _ text)
1478 (string-append "print(" text ")\n"))
1479 ;; TODO.txt and CHANGES.txt don't exist
1480 (("CHANGES =.*") "CHANGES = \"\"\n")
1481 (("TODO =.*") "TODO = \"\"\n"))
1484 `(("portmidi" ,portmidi)
1485 ("alsa-lib" ,alsa-lib)))
1487 `(("python-cython" ,python-cython)
1489 (home-page "http://portmedia.sourceforge.net/portmidi/")
1490 (synopsis "Python bindings to PortMidi")
1492 "This package provides Python bindings to the PortMidi library.")
1493 (license license:expat)))
1495 (define-public frescobaldi
1497 (name "frescobaldi")
1502 "https://github.com/wbsoft/frescobaldi/releases/download/v"
1503 version "/frescobaldi-" version ".tar.gz"))
1506 "1rnk8i8dlshzx16n2qxcsqcs7kywgyazzyzw2vy4vp2gsm9vs9ml"))))
1507 (build-system python-build-system)
1508 (arguments `(#:tests? #f)) ; no tests included
1510 `(("lilypond" ,lilypond)
1511 ("portmidi" ,portmidi)
1512 ("python-pyqt-4" ,python-pyqt-4)
1513 ("python-ly" ,python-ly)
1514 ("python-pyportmidi" ,python-pyportmidi)
1515 ("poppler" ,poppler)
1516 ("python-poppler-qt4" ,python-poppler-qt4)
1517 ("python-sip" ,python-sip)))
1518 (home-page "http://www.frescobaldi.org/")
1519 (synopsis "LilyPond sheet music text editor")
1521 "Frescobaldi is a LilyPond sheet music text editor with syntax
1522 highlighting and automatic completion. Among other things, it can render
1523 scores next to the source, can capture input from MIDI or read MusicXML and
1524 ABC files, has a MIDI player for proof-listening, and includes a documentation
1526 (license license:gpl2+)))
1528 (define-public drumstick
1534 (uri (string-append "mirror://sourceforge/drumstick/"
1535 version "/drumstick-" version ".tar.bz2"))
1538 "13pkfqrav30bbcddgf1imd7jk6lpqbxkz1qv31718pdl446jq7df"))))
1539 (build-system cmake-build-system)
1541 `(#:tests? #f ; no test target
1542 #:configure-flags '("-DLIB_SUFFIX=")
1544 (modify-phases %standard-phases
1545 (add-before 'configure 'fix-docbook
1546 (lambda* (#:key inputs #:allow-other-keys)
1547 (substitute* "cmake_admin/CreateManpages.cmake"
1548 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
1549 (string-append (assoc-ref inputs "docbook-xsl")
1550 "/xml/xsl/docbook-xsl-"
1551 ,(package-version docbook-xsl)
1552 "/manpages/docbook.xsl")))
1555 `(("qtbase" ,qtbase)
1557 ("alsa-lib" ,alsa-lib)
1558 ("fluidsynth" ,fluidsynth)))
1560 `(("pkg-config" ,pkg-config)
1561 ("libxslt" ,libxslt) ;for xsltproc
1562 ("docbook-xsl" ,docbook-xsl)
1563 ("doxygen" ,doxygen)))
1564 (home-page "http://drumstick.sourceforge.net/")
1565 (synopsis "C++ MIDI library")
1567 "Drumstick is a set of MIDI libraries using C++/Qt5 idioms and style. It
1568 includes a C++ wrapper around the ALSA library sequencer interface. A
1569 complementary library provides classes for processing SMF (Standard MIDI
1570 files: .MID/.KAR), Cakewalk (.WRK), and Overture (.OVE) file formats. A
1571 multiplatform realtime MIDI I/O library is also provided with various output
1572 backends, including ALSA, OSS, Network and FluidSynth.")
1573 (license license:gpl2+)))
1575 (define-public zynaddsubfx
1577 (name "zynaddsubfx")
1582 "mirror://sourceforge/zynaddsubfx/zynaddsubfx/"
1583 version "/zynaddsubfx-" version ".tar.bz2"))
1586 "1qijvlbv41lnqaqbp6gh1i42xzf1syviyxz8wr39xbz55cw7y0d8"))))
1587 (build-system cmake-build-system)
1590 (modify-phases %standard-phases
1591 ;; Move SSE compiler optimization flags from generic target to
1592 ;; athlon64 and core2 targets, because otherwise the build would fail
1593 ;; on non-Intel machines.
1594 (add-after 'unpack 'remove-sse-flags-from-generic-target
1596 (substitute* "src/CMakeLists.txt"
1597 (("-msse -msse2 -mfpmath=sse") "")
1598 (("-march=(athlon64|core2)" flag)
1599 (string-append flag " -msse -msse2 -mfpmath=sse")))
1605 ("alsa-lib" ,alsa-lib)
1608 ("minixml" ,minixml)
1612 `(("pkg-config" ,pkg-config)))
1613 (home-page "http://zynaddsubfx.sf.net/")
1614 (synopsis "Software synthesizer")
1616 "ZynAddSubFX is a feature heavy realtime software synthesizer. It offers
1617 three synthesizer engines, multitimbral and polyphonic synths, microtonal
1618 capabilities, custom envelopes, effects, etc.")
1619 (license license:gpl2)))
1621 (define-public yoshimi
1627 (uri (string-append "mirror://sourceforge/yoshimi/"
1628 (version-major+minor version)
1629 "/yoshimi-" version ".tar.bz2"))
1632 "10s1i18xlmvqfrnr0zn2mj2b28i7p62dlqzzzkmpaapqj1gsgpz5"))))
1633 (build-system cmake-build-system)
1635 `(#:tests? #f ; there are no tests
1637 (list (string-append "-DCMAKE_INSTALL_DATAROOTDIR="
1638 (assoc-ref %outputs "out") "/share"))
1640 (modify-phases %standard-phases
1641 (add-before 'configure 'enter-dir
1642 (lambda _ (chdir "src") #t))
1643 ;; Move SSE compiler optimization flags from generic target to
1644 ;; athlon64 and core2 targets, because otherwise the build would fail
1645 ;; on non-Intel machines.
1646 (add-after 'unpack 'remove-sse-flags-from-generic-target
1648 (substitute* "src/CMakeLists.txt"
1649 (("-msse -msse2 -mfpmath=sse") "")
1650 (("-march=(athlon64|core2)" flag)
1651 (string-append flag " -msse -msse2 -mfpmath=sse")))
1653 ;; Yoshimi tries to find ncurses with pkg-config, but our ncurses
1654 ;; package does not install .pc files.
1655 (add-after 'unpack 'find-ncurses
1657 (substitute* "src/CMakeLists.txt"
1658 (("LIBNCURSES REQUIRED") "LIBNCURSES")
1659 (("NCURSES REQUIRED") "NCURSES")
1660 (("FATAL_ERROR \"libncurses") "STATUS \"libncurses")
1661 (("\\$\\{NCURSES_LIBRARIES\\}") "ncurses"))
1666 ("alsa-lib" ,alsa-lib)
1668 ("fontconfig" ,fontconfig)
1669 ("minixml" ,minixml)
1673 ("readline" ,readline)
1674 ("ncurses" ,ncurses)
1678 `(("pkg-config" ,pkg-config)))
1679 (home-page "http://yoshimi.sourceforge.net/")
1680 (synopsis "Multi-paradigm software synthesizer")
1682 "Yoshimi is a fork of ZynAddSubFX, a feature heavy realtime software
1683 synthesizer. It offers three synthesizer engines, multitimbral and polyphonic
1684 synths, microtonal capabilities, custom envelopes, effects, etc. Yoshimi
1685 improves on support for JACK features, such as JACK MIDI.")
1686 (license license:gpl2)))
1688 (define-public libgig
1694 (uri (string-append "http://download.linuxsampler.org/packages/"
1695 "libgig-" version ".tar.bz2"))
1698 "1wr8mwjmqpnyz6bx9757lspiii1zzn8zfbqsvn2ipzpgqkxv6kaz"))))
1699 (build-system gnu-build-system)
1701 `(("libuuid" ,util-linux)
1702 ("libsndfile" ,libsndfile)))
1704 `(("pkg-config" ,pkg-config)))
1705 (home-page "http://linuxsampler.org/libgig/")
1706 (synopsis "C++ library for working with Gigasampler (.gig) files")
1708 "Libgig is a C++ library for loading, modifying existing and creating new
1709 Gigasampler (.gig) files and DLS (Downloadable Sounds) Level 1/2 files, KORG
1710 sample based instruments (.KSF and .KMP files), SoundFont v2 (.sf2) files and
1711 AKAI sampler data. The package includes a couple of command line tools based
1713 ;; The library and tools are released under the GPL, except the AKAI
1714 ;; classes which are released under the LGPL.
1715 (license (list license:gpl2+ license:lgpl2.1+))))
1717 (define-public jack-keyboard
1719 (name "jack-keyboard")
1724 (uri (string-append "mirror://sourceforge/jack-keyboard/jack-keyboard/"
1725 version "/jack-keyboard-" version ".tar.gz"))
1728 "0mzmg8aavybcfdlq2yd9d0vscqd6is5p6jzrgfpfm5j3xdcvh2s3"))))
1729 (build-system gnu-build-system)
1735 `(("pkg-config" ,pkg-config)))
1736 (home-page "http://jack-keyboard.sourceforge.net/")
1737 (synopsis "Virtual MIDI keyboard")
1738 (description "Jack-keyboard is a virtual MIDI keyboard, a program that
1739 allows you to send JACK MIDI events (i.e. play) using your PC keyboard.")
1740 (license license:bsd-2)))
1742 (define-public cursynth
1749 (uri (string-append "mirror://gnu/cursynth/cursynth-"
1752 (base32 "1dhphsya41rv8z6yqcv9l6fwbslsds4zh1y56zizi39nd996d40v"))
1753 (patches (search-patches "cursynth-wave-rand.patch"))))
1754 (build-system gnu-build-system)
1755 (native-inputs `(("pkg-config" ,pkg-config)))
1756 ;; TODO: See https://github.com/iyoko/cursynth/issues/4 which currently
1757 ;; prevents us from using pulseaudio
1758 (inputs `(("ncurses" ,ncurses)
1759 ("alsa" ,alsa-lib)))
1760 (home-page "https://www.gnu.org/software/cursynth/")
1761 (synopsis "Polyphonic and MIDI subtractive music synthesizer using curses")
1762 (description "GNU cursynth is a polyphonic synthesizer that runs
1763 graphically in the terminal. It is built on a full-featured subtractive
1764 synthesis engine. Notes and parameter changes may be entered via MIDI or the
1765 computer's keyboard.")
1766 (license license:gpl3+)))
1768 (define-public qtractor
1774 (uri (string-append "http://downloads.sourceforge.net/qtractor/"
1775 "qtractor-" version ".tar.gz"))
1778 "1pvs9r5ykfaci900p0kz2xc5xsrswnwwbcl2chsvd98f1ns4vwds"))))
1779 (build-system gnu-build-system)
1780 (arguments `(#:tests? #f)) ; no "check" target
1783 ("alsa-lib" ,alsa-lib)
1785 ("libsndfile" ,libsndfile)
1790 ("libsamplerate" ,libsamplerate)
1791 ("libvorbis" ,libvorbis)
1793 ("rubberband" ,rubberband)
1797 `(("pkg-config" ,pkg-config)))
1798 (home-page "http://qtractor.org/")
1799 (synopsis "Audio/MIDI multi-track sequencer")
1801 "Qtractor is an Audio/MIDI multi-track sequencer application. It uses
1802 JACK for audio and ALSA sequencer for MIDI as multimedia infrastructures and
1803 follows a traditional multi-track tape recorder control paradigm.")
1804 (license license:gpl2+)))
1806 (define-public ams-lv2
1813 (uri (string-append "https://github.com/blablack/ams-lv2/"
1814 "archive/" version ".tar.gz"))
1815 (file-name (string-append name "-" version ".tar.gz"))
1818 "1392spswkhfd38fggf584wb3m8aqpg7csfrs9zxnzyvhgmp0fgqk"))))
1819 (build-system waf-build-system)
1822 (modify-phases %standard-phases
1823 (add-after 'unpack 'remove-sse-flags
1824 (lambda* (#:key system #:allow-other-keys)
1825 (when (not (or (string-prefix? "x86_64" system)
1826 (string-prefix? "i686" system)))
1827 (substitute* "wscript"
1828 (("'-msse', '-mfpmath=sse', ") ""))
1830 #:tests? #f)) ; no tests
1839 `(("pkg-config" ,pkg-config)))
1840 (home-page "https://objectivewave.wordpress.com/ams-lv2/")
1841 (synopsis "Port of Alsa Modular Synth internal modules into LV2")
1842 (description "This set of LV2 plugins is a port of the internal modules
1843 found in Alsa Modular Synth. These plugins are used to create modular
1844 synthesizers and contain: VCO, VCF, VCA, LFO, slew limiter, envelopes, sample
1846 (license license:gpl2)))
1848 (define-public gxtuner
1854 (uri (string-append "https://github.com/brummer10/gxtuner/"
1855 "archive/v" version ".tar.gz"))
1856 (file-name (string-append name "-" version ".tar.gz"))
1859 "1abpxiydn4c9wssz6895hnad9ipkcy3rkgzbnanvwb46nm44x6if"))))
1860 (build-system gnu-build-system)
1863 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1864 (string-append "INCLUDE_L_DIR="
1865 (assoc-ref %build-inputs "zita-resampler")
1868 (modify-phases %standard-phases
1869 (delete 'configure))))
1875 ("zita-resampler" ,zita-resampler)))
1877 `(("pkg-config" ,pkg-config)))
1878 (home-page "https://github.com/brummer10/gxtuner")
1879 (synopsis "Guitar tuner")
1880 (description "GXtuner is a simple guitar tuner for JACK with an
1881 analogue-like user interface.")
1882 (license license:gpl2+)))
1884 (define-public mod-host
1885 ;; The last release was in 2014 but since then more than 140 commits have
1887 (let ((commit "72aca771e3a4e3889641b9bab84985586c9bb926")
1891 (version (string-append "0.10.6-" revision "." (string-take commit 9)))
1895 (url "https://github.com/moddevices/mod-host")
1899 "19szi8cy65jlchbrmbjbma03g6gxj9zyyp4dgw1k06r0cxbx82gq"))
1900 (file-name (string-append name "-" version "-checkout"))))
1901 (build-system gnu-build-system)
1903 `(#:tests? #f ; no tests included
1905 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1908 (modify-phases %standard-phases
1910 (add-after 'unpack 'fix-jack-installation-directory
1912 ;; Do not attempt to install files to output of "jack" package.
1913 (substitute* "Makefile"
1914 (("\\$\\(shell pkg-config --variable=libdir jack\\)")
1923 ("readline" ,readline)))
1925 `(("pkg-config" ,pkg-config)
1926 ("python" ,python-2)))
1927 (home-page "https://github.com/moddevices/mod-host")
1928 (synopsis "LV2 host for Jack controllable via socket or command line")
1929 (description "mod-host is an LV2 plugin host for JACK, controllable via
1930 socket or command line.")
1931 (license license:gpl3+))))
1933 (define-public pianobar
1936 (version "2015.11.22")
1939 (uri (string-append "https://github.com/PromyLOPh/"
1940 name "/archive/" version ".tar.gz"))
1941 (file-name (string-append name "-" version ".tar.gz"))
1944 "022df19bhxqvkhy0qy21xahba5s1fm17b13y0p9p9dnf2yl44wfv"))))
1945 (build-system gnu-build-system)
1947 `(#:tests? #f ; no tests
1948 #:make-flags (list "CC=gcc" "CFLAGS=-std=c99"
1949 (string-append "PREFIX=" %output))
1950 #:phases (modify-phases %standard-phases
1951 (delete 'configure))))
1955 ("libgcrypt" ,libgcrypt)
1957 ("ffmpeg" ,ffmpeg)))
1959 `(("pkg-config" ,pkg-config)))
1960 (home-page "http://6xq.net/projects/pianobar/")
1961 (synopsis "Console-based pandora.com player")
1962 (description "pianobar is a console-based music player for the
1963 personalized online radio pandora.com. It has configurable keys for playing
1964 and managing stations, can be controlled remotely via fifo, and can run
1965 event-based scripts for scrobbling, notifications, etc.")
1966 (license license:expat)))
1968 (define-public python-mutagen
1970 (name "python-mutagen")
1974 (uri (pypi-uri "mutagen" version))
1977 "1kabb9b81hgvpd3wcznww549vss12b1xlvpnxg1r6n4c7gikgvnp"))))
1978 (build-system python-build-system)
1980 `(("python-pytest" ,python-pytest)))
1981 (home-page "https://bitbucket.org/lazka/mutagen")
1982 (synopsis "Read and write audio tags")
1983 (description "Mutagen is a Python module to handle audio metadata. It
1984 supports ASF, FLAC, M4A, Monkey’s Audio, MP3, Musepack, Ogg FLAC, Ogg Speex, Ogg
1985 Theora, Ogg Vorbis, True Audio, WavPack and OptimFROG audio files. All versions
1986 of ID3v2 are supported, and all standard ID3v2.4 frames are parsed. It can read
1987 Xing headers to accurately calculate the bitrate and length of MP3s. ID3 and
1988 APEv2 tags can be edited regardless of audio format. It can also manipulate Ogg
1989 streams on an individual packet/page level.")
1990 (license license:gpl2))) ; "later version" never mentioned
1992 (define-public python2-mutagen
1993 (package-with-python2 python-mutagen))
1995 (define-public python-musicbrainzngs
1997 (name "python-musicbrainzngs")
2001 (uri (pypi-uri "musicbrainzngs" version))
2004 "1dddarpjawryll2wss65xq3v9q8ln8dan7984l5dxzqx88d2dvr8"))))
2005 (build-system python-build-system)
2007 '(;; The tests fail suffer from race conditions:
2008 ;; https://github.com/alastair/python-musicbrainzngs/issues/211
2010 (home-page "https://python-musicbrainzngs.readthedocs.org/")
2011 (synopsis "Python bindings for MusicBrainz NGS webservice")
2012 (description "Musicbrainzngs implements Python bindings of the MusicBrainz
2013 web service. This library can be used to retrieve music metadata from the
2014 MusicBrainz database.")
2015 ;; 'musicbrainzngs/compat.py' is ISC licensed.
2016 (license (list license:bsd-2 license:isc))))
2018 (define-public python2-musicbrainzngs
2019 (package-with-python2 python-musicbrainzngs))
2021 (define-public python2-pyechonest
2023 (name "python2-pyechonest")
2027 (uri (pypi-uri "pyechonest" version))
2030 "1584nira3rkiman9dm81kdshihmkj21s8navndz2l8spnjwb790x"))))
2031 (build-system python-build-system)
2033 `(;; Python 3 is not supported:
2034 ;; https://github.com/echonest/pyechonest/issues/42
2035 #:python ,python-2))
2036 (home-page "https://github.com/echonest/pyechonest")
2037 (synopsis "Python interface to The Echo Nest APIs")
2038 (description "Pyechonest is a Python library for the Echo Nest API. With
2039 Pyechonest you have Python access to the entire set of API methods including:
2042 @item artist - search for artists by name, description, or attribute, and get
2043 back detailed information about any artist including audio, similar artists,
2044 blogs, familiarity, hotttnesss, news, reviews, urls and video.
2045 @item song - search songs by artist, title, description, or attribute (tempo,
2046 duration, etc) and get detailed information back about each song, such as
2047 hotttnesss, audio_summary, or tracks.
2048 @item track - upload a track to the Echo Nest and receive summary information
2049 about the track including key, duration, mode, tempo, time signature along with
2050 detailed track info including timbre, pitch, rhythm and loudness information.
2052 (license license:bsd-3)))
2054 (define-public python-pylast
2056 (name "python-pylast")
2060 (uri (pypi-uri "pylast" version))
2063 "0bml11gfkxqd3i2jxkn5k2xllc4rvxjcyhs8an05gcyy1zp2bwvb"))))
2064 (build-system python-build-system)
2066 '(#:tests? #f)) ; FIXME: Requires unpackaged python-flaky.
2068 `(("python-coverage" ,python-coverage)
2069 ("python-mock" ,python-mock)
2070 ("python-pep8" ,python-pep8)
2071 ("python-pytest" ,python-pytest)
2072 ("python-pyflakes" ,python-pyflakes)
2073 ("python-pyyaml" ,python-pyyaml)))
2075 `(("python-six" ,python-six)))
2076 (home-page "https://github.com/pylast/pylast")
2077 (synopsis "Python interface to Last.fm and Libre.fm")
2078 (description "A Python interface to Last.fm and other API-compatible
2079 websites such as Libre.fm.")
2080 (license license:asl2.0)))
2082 (define-public python2-pylast
2083 (package-with-python2 python-pylast))
2085 (define-public beets
2091 (uri (pypi-uri "beets" version))
2094 "0r743a2pv1iyw50jsdl01v2ml3pdkhdp920a5d1wsacak48vwgxr"))))
2095 (build-system python-build-system)
2098 (modify-phases %standard-phases
2099 (add-after 'unpack 'set-HOME
2100 (lambda _ (setenv "HOME" (string-append (getcwd) "/tmp"))))
2102 (lambda _ (zero? (system* "nosetests" "-v")))))))
2104 `(("python-beautifulsoup4" ,python-beautifulsoup4)
2105 ("python-flask" ,python-flask)
2106 ("python-mock" ,python-mock)
2107 ("python-mpd2" ,python-mpd2)
2108 ("python-nose" ,python-nose)
2109 ("python-pathlib" ,python-pathlib)
2110 ("python-pyxdg" ,python-pyxdg)
2111 ("python-pylast" ,python-pylast)
2112 ("python-rarfile" ,python-rarfile)
2113 ("python-responses" ,python-responses)))
2114 ;; TODO: Install optional plugins and dependencies.
2116 `(("python-discogs-client" ,python-discogs-client)
2117 ("python-jellyfish" ,python-jellyfish)
2118 ("python-munkres" ,python-munkres)
2119 ("python-musicbrainzngs" ,python-musicbrainzngs)
2120 ("python-mutagen" ,python-mutagen)
2121 ("python-pyyaml" ,python-pyyaml)
2122 ("python-unidecode" ,python-unidecode)))
2123 (home-page "http://beets.io")
2124 (synopsis "Music organizer")
2125 (description "The purpose of beets is to get your music collection right
2126 once and for all. It catalogs your collection, automatically improving its
2127 metadata as it goes using the MusicBrainz database. Then it provides a variety
2128 of tools for manipulating and accessing your music.")
2129 (license license:expat)))
2131 (define-public milkytracker
2133 (name "milkytracker")
2137 (uri (string-append "http://milkytracker.titandemo.org/files/"
2138 name "-" version ".tar.bz2"))
2141 "1v9vp8vi24lkagfpr92c128whvakwgrm9pq2zf6ijpl5sh7014zb"))))
2142 (build-system gnu-build-system)
2144 `(#:make-flags '("CXXFLAGS=-lasound")))
2146 `(("alsa-lib" ,alsa-lib)
2151 `(("pkg-config" ,pkg-config)))
2152 (synopsis "Music tracker for working with .MOD/.XM module files")
2153 (description "MilkyTracker is a music application for creating .MOD and .XM
2154 module files. It attempts to recreate the module replay and user experience of
2155 the popular DOS program Fasttracker II, with special playback modes available
2156 for improved Amiga ProTracker 2/3 compatibility.")
2157 (home-page "http://milkytracker.titandemo.org/")
2158 ;; 'src/milkyplay' is under Modified BSD, the rest is under GPL3 or later.
2159 (license (list license:bsd-3 license:gpl3+))))
2161 (define-public schismtracker
2163 (name "schismtracker")
2164 (version "20160913")
2168 "https://github.com/" name "/" name "/archive/"
2170 (file-name (string-append name "-" version ".tar.gz"))
2173 "1sc813qi4gl6mf7xp8rrarvyigzhxv3qdrryqsy42yxsb2jcwbrw"))
2174 (modules '((guix build utils)))
2176 ;; Remove use of __DATE__ and __TIME__ for reproducibility.
2177 `(substitute* "schism/version.c"
2178 (("Schism Tracker built %s %s.*$")
2179 (string-append "Schism Tracker version " ,version "\");"))))))
2180 (build-system gnu-build-system)
2183 (modify-phases %standard-phases
2184 (add-after 'unpack 'autoconf
2185 (lambda _ (zero? (system* "autoreconf" "-vfi"))))
2186 (add-before 'configure 'link-libm
2187 (lambda _ (setenv "LIBS" "-lm") #t)))))
2189 `(("autoconf" ,autoconf)
2190 ("automake" ,automake)
2191 ("python" ,python)))
2193 `(("alsa-lib" ,alsa-lib) ; for asound dependency
2195 ("libxext" ,libxext)
2197 (home-page "http://schismtracker.org")
2198 (synopsis "Oldschool sample-based music composition tool")
2200 "Schism Tracker is a reimplementation of Impulse Tracker, a program used to
2201 create high quality music without the requirements of specialized, expensive
2202 equipment, and with a unique \"finger feel\" that is difficult to replicate in
2203 part. The player is based on a highly modified version of the ModPlug engine,
2204 with a number of bugfixes and changes to improve IT playback.")
2205 (license license:gpl2+)))
2213 (uri (string-append "http://ftp.daper.net/pub/soft/"
2215 name "-" version ".tar.bz2"))
2218 "026v977kwb0wbmlmf6mnik328plxg8wykfx9ryvqhirac0aq39pk"))
2219 (modules '((guix build utils)))
2221 ;; Remove use of __DATE__ and __TIME__ for reproducibility.
2222 '(substitute* "main.c"
2223 (("printf \\(\" Built : %s\", __DATE__\\);") "")
2224 (("printf \\(\" %s\", __TIME__\\);") "")))))
2225 (build-system gnu-build-system)
2227 `(("alsa-lib" ,alsa-lib)
2233 ("libid3tag" ,libid3tag)
2234 ("libltdl" ,libltdl)
2235 ("libmodplug" ,libmodplug)
2236 ("libmpcdec" ,libmpcdec)
2238 ("ncurses" ,ncurses)
2239 ("openssl" ,openssl)
2240 ("sasl" ,cyrus-sasl)
2243 ("wavpack" ,wavpack)
2246 `(("pkg-config" ,pkg-config)))
2247 (synopsis "Console audio player designed to be powerful and easy to use")
2249 "Music on Console is a console audio player that supports many file
2250 formats, including most audio formats recognized by FFMpeg.")
2251 (home-page "http://moc.daper.net")
2252 (license license:gpl2+)))
2254 (define-public midicsv
2260 (uri (string-append "http://www.fourmilab.ch/webtools/midicsv/"
2261 name "-" version ".tar.gz"))
2264 "1vvhk2nf9ilfw0wchmxy8l13hbw9cnpz079nsx5srsy4nnd78nkw"))))
2265 (build-system gnu-build-system)
2267 `(#:phases (modify-phases %standard-phases (delete 'configure))
2268 #:make-flags (list "CC=gcc" (string-append "INSTALL_DEST=" %output))))
2269 (synopsis "Convert MIDI files to and from CSV")
2271 "Midicsv reads a standard MIDI file and decodes it into a comma-separated
2272 value file (CSV), which preserves all the information in the MIDI file. The
2273 ASCII CSV file may be loaded into a spreadsheet or database application, or
2274 processed by a program to transform the MIDI data (for example, to key
2275 transpose a composition or extract a track from a multi-track sequence). A
2276 CSV file in the format created by midicsv may be converted back into a
2277 standard MIDI file with the csvmidi program.")
2278 (home-page "http://www.fourmilab.ch/webtools/midicsv/")
2279 (license license:public-domain)))
2281 (define-public gx-guvnor-lv2
2282 (let ((commit "9f528a7623a201383e119bb6a2df32b18396a9d5")
2285 (name "gx-guvnor-lv2")
2286 (version (string-append "0-" revision "." (string-take commit 9)))
2290 (url "https://github.com/brummer10/GxGuvnor.lv2")
2294 "10zx84p2vd7i1yqc5ma9p17927265j4g0zfwv9rxladw0nm8y45k"))
2295 (file-name (string-append name "-" version "-checkout"))))
2296 (build-system gnu-build-system)
2298 `(;; The check target is used only to output a warning.
2301 (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
2303 (modify-phases %standard-phases
2306 (substitute* "Makefile"
2307 (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n")
2308 ;; Avoid rebuilding everything
2309 (("install : all") "install:"))
2313 (home-page "https://github.com/brummer10/GxGuvnor.lv2")
2314 (synopsis "Overdrive/distortion pedal simulation")
2315 (description "This package provides the LV2 plugin \"GxGuvnor\", a
2316 simulation of an overdrive or distortion pedal for guitars.")
2317 ;; The LICENSE file says GPLv3 but the license headers in the files say
2319 (license license:gpl2+))))
2321 (define-public gx-vbass-preamp-lv2
2322 (let ((commit "0e599abab10c7669dd444e5d06f671c2fc1b9c6c")
2324 (package (inherit gx-guvnor-lv2)
2325 (name "gx-vbass-preamp-lv2")
2326 (version (string-append "0-" revision "." (string-take commit 9)))
2330 (url "https://github.com/brummer10/GxVBassPreAmp.lv2")
2334 "1dzksdfrva666gpi62fd2ni9rhf18sl917f1894qr0b17pbdh9k1"))
2335 (file-name (string-append name "-" version "-checkout"))))
2336 (home-page "https://github.com/brummer10/GxVBassPreAmp.lv2")
2337 (synopsis "Simulation of the Vox Venue Bass 100 Pre Amp Section")
2338 (description "This package provides the LV2 plugin \"GxVBassPreAmp\", a
2339 pre-amplifier simulation modelled after the 1984 Vox Venue Bass 100 Pre Amp
2342 (define-public gx-overdriver-lv2
2343 (let ((commit "ed71801987449414bf3adaa0dbfac68e8775f1ce")
2345 (package (inherit gx-guvnor-lv2)
2346 (name "gx-overdriver-lv2")
2347 (version (string-append "0-" revision "." (string-take commit 9)))
2351 (url "https://github.com/brummer10/GxOverDriver.lv2")
2355 "13j614jh525fbkby79nnzwj0z1ac0c9wclyn5pfqvkmx6a7j24r8"))
2356 (file-name (string-append name "-" version "-checkout"))))
2357 (home-page "https://github.com/brummer10/GxOverDriver.lv2")
2358 (synopsis "Overdrive effect with level and tone control")
2359 (description "This package provides the LV2 plugin \"GxOverDriver\", an
2360 overdrive effect."))))
2362 (define-public gx-tone-mender-lv2
2363 (let ((commit "b6780b4a3e4782b3ed0e5882d6788f178aed138f")
2365 (package (inherit gx-guvnor-lv2)
2366 (name "gx-tone-mender-lv2")
2367 (version (string-append "0-" revision "." (string-take commit 9)))
2371 (url "https://github.com/brummer10/GxToneMender.lv2")
2375 "07qdcfsvv2vdnfnjh91pfgvjdcs5y91nvwfm8c0z8fp6b4bk7a9q"))
2376 (file-name (string-append name "-" version "-checkout"))))
2377 (home-page "https://github.com/brummer10/GxToneMender.lv2")
2378 (synopsis "Clean boost with a 3-knob tonestack")
2379 (description "This package provides the LV2 plugin \"GxToneMender\", a
2380 clean boost effect with a 3-knob tonestack."))))
2382 (define-public gx-push-pull-lv2
2383 (let ((commit "7f76ae2068498643ac8671ee0930b13ee3fd8eb5")
2385 (package (inherit gx-guvnor-lv2)
2386 (name "gx-push-pull-lv2")
2387 (version (string-append "0-" revision "." (string-take commit 9)))
2391 (url "https://github.com/brummer10/GxPushPull.lv2")
2395 "12f5hwck2irph0gjbj8xy8jqcqdwb8l1hlwf29k0clz52h1jhb5q"))
2396 (file-name (string-append name "-" version "-checkout"))))
2397 (home-page "https://github.com/brummer10/GxPushPull.lv2")
2398 (synopsis "Octave up push pull transistor fuzz simulation")
2399 (description "This package provides the LV2 plugin \"GxPushPull\", a
2400 simulation of a push pull transistor fuzz effect with added high octave."))))
2402 (define-public gx-suppa-tone-bender-lv2
2403 (let ((commit "4e6dc713ec24e7fcf5ea23b7e685af627c01b9c9")
2405 (package (inherit gx-guvnor-lv2)
2406 (name "gx-suppa-tone-bender-lv2")
2407 (version (string-append "0-" revision "." (string-take commit 9)))
2411 (url "https://github.com/brummer10/GxSuppaToneBender.lv2")
2415 "1i22xr252nkbazkwidll2zb3i96610gx65qn5djdkijlz7j77138"))
2416 (file-name (string-append name "-" version "-checkout"))))
2417 (home-page "https://github.com/brummer10/GxSuppaToneBender.lv2")
2418 (synopsis "Simulation of the Vox Suppa Tone Bender pedal")
2419 (description "This package provides the LV2 plugin
2420 \"GxSuppaToneBender\", a simulation modelled after the Vox Suppa Tone Bender
2423 (define-public gx-saturator-lv2
2424 (let ((commit "0b581ac85c515325b9f16e51937cae6e1bf81a0a")
2426 (package (inherit gx-guvnor-lv2)
2427 (name "gx-saturator-lv2")
2428 (version (string-append "0-" revision "." (string-take commit 9)))
2432 (url "https://github.com/brummer10/GxSaturator.lv2")
2436 "1cl785pzq8zk55m1rnhfd6qsabci6kpf4pf002gwr91vagyq246z"))
2437 (file-name (string-append name "-" version "-checkout"))))
2438 (home-page "https://github.com/brummer10/GxSaturator.lv2")
2439 (synopsis "Saturation effect")
2440 (description "This package provides the LV2 plugin \"GxSaturator\", a
2441 saturation effect."))))
2443 (define-public gx-hyperion-lv2
2444 (let ((commit "6a096a664e553e551e179e85cf390bd1683410fb")
2446 (package (inherit gx-guvnor-lv2)
2447 (name "gx-hyperion-lv2")
2448 (version (string-append "0-" revision "." (string-take commit 9)))
2452 (url "https://github.com/brummer10/GxHyperion.lv2")
2456 "1ksv3wmylhwbf6kjl2lnhr14h9rfl291cfm21471gnb1r68yqfxh"))
2457 (file-name (string-append name "-" version "-checkout"))))
2458 (home-page "https://github.com/brummer10/GxHyperion.lv2")
2459 (synopsis "Simulation of the Hyperion Fuzz pedal")
2460 (description "This package provides the LV2 plugin \"GxHyperion\", a
2461 simulation of the Hyperion Fuzz pedal."))))
2463 (define-public gx-voodoo-fuzz-lv2
2464 (let ((commit "aec7889b489385e8add06126e7a36ae2e26254b1")
2466 (package (inherit gx-guvnor-lv2)
2467 (name "gx-voodoo-fuzz-lv2")
2468 (version (string-append "0-" revision "." (string-take commit 9)))
2472 (url "https://github.com/brummer10/GxVoodoFuzz.lv2")
2476 "0mc41ldlv89069iaysnfiqxy5h5sr8mdi5cxm3ij5q5v4jv3viwx"))
2477 (file-name (string-append name "-" version "-checkout"))))
2478 (home-page "https://github.com/brummer10/GxVoodoFuzz.lv2")
2479 (synopsis "Fuzz effect modelled after the Voodoo Lab SuperFuzz")
2480 (description "This package provides the LV2 plugin \"GxVoodooFuzz\", a
2481 simulation modelled after the Voodoo Lab SuperFuzz pedal. It's basically a
2482 Bosstone circuit, followed by the tone control of the FoxToneMachine in
2483 parallel with a DarkBooster, followed by a volume control."))))
2485 (define-public gx-super-fuzz-lv2
2486 (let ((commit "f40389575812c909007d140d327ce579930b71f7")
2488 (package (inherit gx-guvnor-lv2)
2489 (name "gx-super-fuzz-lv2")
2490 (version (string-append "0-" revision "." (string-take commit 9)))
2494 (url "https://github.com/brummer10/GxSuperFuzz.lv2")
2498 "174bibj8qzm8zr6f5h8bcj94iry17zravk8flpdy84n6yg7cixji"))
2499 (file-name (string-append name "-" version "-checkout"))))
2500 (home-page "https://github.com/brummer10/GxSuperFuzz.lv2")
2501 (synopsis "Fuzz effect modelled after the UniVox SuperFuzz")
2502 (description "This package provides the LV2 plugin \"GxVoodooFuzz\", an
2503 analog simulation of the UniVox SuperFuzz pedal. In this simulation the trim
2504 pot, which is usualy in the housing, is exposed as a control parameter. It
2505 adjusts the amount of harmonics."))))
2507 (define-public gx-vintage-fuzz-master-lv2
2508 (let ((commit "0fec0bc1e8a8ba909a68e916e036138a3425d7db")
2510 (package (inherit gx-guvnor-lv2)
2511 (name "gx-vintage-fuzz-master-lv2")
2512 (version (string-append "0-" revision "." (string-take commit 9)))
2516 (url "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
2520 "06szi6d2iwkygbw5azhwzhcl2as4lmk2gs9hanngsf46a1zbdcp7"))
2521 (file-name (string-append name "-" version "-checkout"))))
2522 (home-page "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
2523 (synopsis "Fuzz effect simulation of the vintage Fuzz Master")
2524 (description "This package provides the LV2 plugin
2525 \"GxVintageFuzzMaster\", a simulation of the vintage Fuzz Master pedal."))))
2527 (define-public gx-slow-gear-lv2
2528 (let ((commit "cb852e0426f4e6fe077e7f1ede73a4da335cfc5e")
2530 (package (inherit gx-guvnor-lv2)
2531 (name "gx-slow-gear-lv2")
2532 (version (string-append "0-" revision "." (string-take commit 9)))
2536 (url "https://github.com/brummer10/GxSlowGear.lv2")
2540 "0dp7afi1r3kzciiyn1hrkz6arsq47ys9sx5g4b7xa9k1dv92ishp"))
2541 (file-name (string-append name "-" version "-checkout"))))
2542 (home-page "https://github.com/brummer10/GxSlowGear.lv2")
2543 (synopsis "Slow gear audio effect")
2544 (description "This package provides the LV2 plugin \"GxSlowGear\", a
2545 slow gear audio effect to produce volume swells."))))
2547 (define-public gx-switchless-wah-lv2
2548 (let ((commit "7b08691203314612999f0ce2328cdc1161cd6665")
2550 (package (inherit gx-guvnor-lv2)
2551 (name "gx-switchless-wah-lv2")
2552 (version (string-append "0-" revision "." (string-take commit 9)))
2556 (url "https://github.com/brummer10/GxSwitchlessWah.lv2")
2560 "04jqfpncmrrqn34p21w4v9m2x5a5wsqwbm4f3byxvq4vcibwxzk2"))
2561 (file-name (string-append name "-" version "-checkout"))))
2562 (home-page "https://github.com/brummer10/GxSwitchlessWah.lv2")
2563 (synopsis "Wah emulation with switchless activation")
2564 (description "This package provides the LV2 plugin \"GxSwitchlessWah\",
2565 a simulation of an analog Wah pedal with switchless activation."))))
2567 (define-public mod-utilities
2568 (let ((commit "7cdeeac26ae682730740105ece121d4dddb8ba3f")
2571 (name "mod-utilities")
2572 (version (string-append "0-" revision "." (string-take commit 9)))
2576 (url "https://github.com/moddevices/mod-utilities.git")
2580 "1ilnkbrmwrszxvc21qlb86h29yz7cnc6rcp0jmna1y693ny2qhf4"))
2581 (file-name (string-append name "-" version "-checkout"))))
2582 (build-system gnu-build-system)
2584 `(#:tests? #f ; there are no tests
2586 (list (string-append "INSTALL_PATH="
2587 (assoc-ref %outputs "out")
2590 (modify-phases %standard-phases
2591 (delete 'configure))))
2594 (home-page "https://github.com/moddevices/mod-utilities")
2595 (synopsis "LV2 utility plugins")
2596 (description "This package provides LV2 audio utility plugins, such as
2597 filters, crossovers, simple gain plugins without zipper noise, switch box
2598 plugins, a switch trigger, a toggle switch, and a peakmeter.")
2599 (license license:gpl2+))))
2601 (define-public ingen
2602 (let ((commit "fd147d0b888090bfb897505852c1f25dbdf77e18")
2606 (version (string-append "0.0.0-" revision "."
2607 (string-take commit 9)))
2612 (url "http://git.drobilla.net/ingen.git")
2614 (file-name (string-append name "-" version "-checkout"))
2617 "1qmg79962my82c43vyrv5sxbqci9c7gc2s9bwaaqd0fcf08xcz1z"))))
2618 (build-system waf-build-system)
2620 `(#:tests? #f ; no "check" target
2621 #:configure-flags (list "--no-webkit")
2623 (modify-phases %standard-phases
2624 (add-after 'unpack 'patch-wscript
2625 (lambda* (#:key outputs #:allow-other-keys)
2626 (let ((out (assoc-ref outputs "out")))
2627 (substitute* "wscript"
2628 ;; FIXME: Our version of lv2specgen.py does not behave as
2629 ;; expected. Maybe this requires a development version of
2631 (("lv2specgen.py") "touch ingen.lv2/ingen.html; echo")
2632 ;; Add libraries to RUNPATH.
2633 (("^(.+)target.*= 'src/ingen/ingen'," line prefix)
2634 (string-append prefix
2635 "linkflags=[\"-Wl,-rpath="
2636 out "/lib" "\"]," line)))
2637 (substitute* '("src/wscript"
2638 "src/server/wscript")
2639 ;; Add libraries to RUNPATH.
2640 (("bld.env.PTHREAD_LINKFLAGS" line)
2642 " + [\"-Wl,-rpath=" out "/lib" "\"]")))
2643 (substitute* "src/client/wscript"
2644 ;; Add libraries to RUNPATH.
2645 (("^(.+)target.*= 'ingen_client'," line prefix)
2646 (string-append prefix
2647 "linkflags=[\"-Wl,-rpath="
2648 out "/lib" "\"]," line)))
2649 (substitute* "src/gui/wscript"
2650 ;; Add libraries to RUNPATH.
2651 (("^(.+)target.* = 'ingen_gui.*" line prefix)
2652 (string-append prefix
2653 "linkflags=[\"-Wl,-rpath="
2654 out "/lib" "\"]," line))))
2658 ("python-rdflib" ,python-rdflib)
2663 ("raul" ,raul-devel)
2664 ("ganv" ,ganv-devel)
2669 ("gtkmm" ,gtkmm-2)))
2671 `(("pkg-config" ,pkg-config)
2672 ("python-pygments" ,python-pygments)))
2673 (home-page "http://drobilla.net/software/ingen")
2674 (synopsis "Modular audio processing system")
2675 (description "Ingen is a modular audio processing system for JACK and
2676 LV2 based systems. Ingen is built around LV2 technology and a strict
2677 separation of engine from user interface. The engine is controlled
2678 exclusively through a protocol, and can execute as a headless process, with an
2679 in-process GUI, or as an LV2 plugin. The GUI can run as a program which
2680 communicates over a Unix or TCP/IP socket, or as an embeddable LV2 GUI which
2681 communicates via LV2 ports. Any saved Ingen graph can be loaded as an LV2
2682 plugin on any system where Ingen is installed. This allows users to visually
2683 develop custom plugins for use in other applications without programming.")
2684 (license license:agpl3+))))
2686 (define-public qmidiarp
2692 (uri (string-append "mirror://sourceforge/qmidiarp/qmidiarp/"
2693 version "/qmidiarp-" version ".tar.bz2"))
2696 "1gkfv8ajgf86kbn6j5ilfc1zlz17gdi9yxzywqd6jwff4xlm75hx"))))
2697 (build-system gnu-build-system)
2700 (list "--enable-qt5"
2701 "CXXFLAGS=-std=gnu++11")))
2703 `(("qtbase" ,qtbase)
2704 ("alsa-lib" ,alsa-lib)
2709 `(("pkg-config" ,pkg-config)
2710 ("qttools" ,qttools)))
2711 (home-page "http://qmidiarp.sourceforge.net/")
2712 (synopsis "MIDI arpeggiator")
2713 (description "QMidiArp is an advanced MIDI arpeggiator, programmable step
2714 sequencer and LFO. It can hold any number of arpeggiator, sequencer, or LFO
2715 modules running in parallel.")
2716 (license license:gpl2+)))
2718 (define-public seq24
2724 (uri (string-append "https://launchpad.net/seq24/trunk/"
2725 version "/+download/seq24-"
2726 version ".tar.bz2"))
2729 "12dphdhnvfk1k0vmagi1v2lhyxjyj1j3cz6ksjw0ydcvid1x8ap2"))
2730 (patches (search-patches "seq24-rename-mutex.patch"))))
2731 (build-system gnu-build-system)
2734 (list "CXXFLAGS=-std=gnu++11")))
2736 `(("gtkmm" ,gtkmm-2)
2737 ("alsa-lib" ,alsa-lib)
2741 `(("pkg-config" ,pkg-config)))
2742 (home-page "https://edge.launchpad.net/seq24/")
2743 (synopsis "Real-time MIDI sequencer")
2744 (description "Seq24 is a real-time MIDI sequencer. It was created to
2745 provide a very simple interface for editing and playing MIDI loops.")
2746 (license license:gpl2+)))
2748 (define-public python-discogs-client
2750 (name "python-discogs-client")
2754 (uri (pypi-uri "discogs-client" version))
2757 "053ld2psh0yj3z0kg6z5bn4y3cr562m727494n0ayhgzbkjbacly"))))
2758 (build-system python-build-system)
2760 `(("python-oauthlib" ,python-oauthlib)
2761 ("python-requests" ,python-requests)))
2763 `(("python-six" ,python-six)))
2764 (home-page "https://github.com/discogs/discogs_client")
2765 (synopsis "Official Python client for the Discogs API")
2766 (description "This is the official Discogs API client for Python. It enables
2767 you to query the Discogs database for information on artists, releases, labels,
2768 users, Marketplace listings, and more. It also supports OAuth 1.0a
2769 authorization, which allows you to change user data such as profile information,
2770 collections and wantlists, inventory, and orders.")
2771 (license license:bsd-2)))
2773 (define-public python2-discogs-client
2774 (package-with-python2 python-discogs-client))
2776 (define-public libsmf
2783 ;; SF download page says development moved, but the link it points to
2784 ;; is gone (https://github.com/nilsgey/libsmf). Someone else adopted
2785 ;; it but made no release so far (https://github.com/stump/libsmf).
2786 (uri (string-append "mirror://sourceforge/libsmf/libsmf/"
2787 version "/libsmf-" version ".tar.gz"))
2790 "16c0n40h0r56gzbh5ypxa4dwp296dan3jminml2qkb4lvqarym6k"))))
2791 (build-system gnu-build-system)
2793 "static")) ; 88KiB of .a files
2796 (modify-phases %standard-phases
2797 (add-after 'install 'move-static-libraries
2798 (lambda* (#:key outputs #:allow-other-keys)
2799 ;; Move static libraries to the "static" output.
2800 (let* ((out (assoc-ref outputs "out"))
2801 (lib (string-append out "/lib"))
2802 (static (assoc-ref outputs "static"))
2803 (slib (string-append static "/lib")))
2805 (for-each (lambda (file)
2806 (install-file file slib)
2808 (find-files lib "\\.a$"))
2811 `(("readline" ,readline)
2814 `(("doxygen" ,doxygen)
2815 ("pkg-config" ,pkg-config)))
2816 (home-page "http://libsmf.sourceforge.net/")
2817 (synopsis "Standard MIDI File format library")
2819 "LibSMF is a C library for handling SMF (\"*.mid\") files. It transparently handles
2820 conversions between time and pulses, tempo map handling and more. The only dependencies
2821 are a C compiler and glib. Full API documentation and examples are included.")
2822 (license license:bsd-2)))
2831 (uri (string-append "https://github.com/LMMS/lmms/archive/v"
2833 (file-name (string-append name "-" version ".tar.gz"))
2836 "1g76z7ha3hd53vbqaq9n1qg6s3lw8zzaw51iny6y2bz0j1xqwcsr"))))
2837 (build-system cmake-build-system)
2839 `(#:tests? #f ; no tests
2841 (modify-phases %standard-phases
2843 'configure 'set-ldflags
2844 (lambda* (#:key outputs #:allow-other-keys)
2848 (assoc-ref outputs "out") "/lib/lmms"
2850 (assoc-ref outputs "out") "/lib/lmms/ladspa"
2853 `(("pkg-config" ,pkg-config)))
2859 ("libsamplerate" ,libsamplerate)
2860 ("fluidsynth" ,fluidsynth)
2861 ("libvorbis" ,libvorbis)
2862 ("alsa-lib" ,alsa-lib)
2863 ("portaudio" ,portaudio)
2865 ("libsndfile1" ,libsndfile)
2867 ("freetype2" ,freetype)
2869 (home-page "https://lmms.io/")
2870 (synopsis "Music composition tool")
2871 (description "LMMS is a digital audio workstation. It includes tools for sequencing
2872 melodies and beats and for mixing and arranging songs. LMMS includes instruments based on
2873 audio samples and various soft sythesizers. It can receive input from a MIDI keyboard.")
2874 (license license:gpl2+)))