1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
3 ;;; Copyright © 2015, 2016 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 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>
12 ;;; This file is part of GNU Guix.
14 ;;; GNU Guix is free software; you can redistribute it and/or modify it
15 ;;; under the terms of the GNU General Public License as published by
16 ;;; the Free Software Foundation; either version 3 of the License, or (at
17 ;;; your option) any later version.
19 ;;; GNU Guix is distributed in the hope that it will be useful, but
20 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ;;; GNU General Public License for more details.
24 ;;; You should have received a copy of the GNU General Public License
25 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
27 (define-module (gnu packages music)
28 #:use-module (guix utils)
29 #:use-module (guix packages)
30 #:use-module (guix download)
31 #:use-module (guix git-download)
32 #:use-module ((guix licenses) #:prefix license:)
33 #:use-module (guix build-system gnu)
34 #:use-module (guix build-system ant)
35 #:use-module (guix build-system cmake)
36 #:use-module (guix build-system python)
37 #:use-module (guix build-system waf)
38 #:use-module (gnu packages)
39 #:use-module (gnu packages algebra)
40 #:use-module (gnu packages apr)
41 #:use-module (gnu packages audio)
42 #:use-module (gnu packages autotools)
43 #:use-module (gnu packages backup)
44 #:use-module (gnu packages base) ;libbdf
45 #:use-module (gnu packages bison)
46 #:use-module (gnu packages boost)
47 #:use-module (gnu packages cdrom)
48 #:use-module (gnu packages code)
49 #:use-module (gnu packages check)
50 #:use-module (gnu packages compression)
51 #:use-module (gnu packages curl)
52 #:use-module (gnu packages cyrus-sasl)
53 #:use-module (gnu packages docbook)
54 #:use-module (gnu packages documentation)
55 #:use-module (gnu packages emacs)
56 #:use-module (gnu packages file)
57 #:use-module (gnu packages flex)
58 #:use-module (gnu packages fltk)
59 #:use-module (gnu packages fonts)
60 #:use-module (gnu packages fontutils)
61 #:use-module (gnu packages freedesktop)
62 #:use-module (gnu packages gcc)
63 #:use-module (gnu packages gnupg)
64 #:use-module (gnu packages gettext)
65 #:use-module (gnu packages ghostscript)
66 #:use-module (gnu packages gl)
67 #:use-module (gnu packages glib)
68 #:use-module (gnu packages gnome)
69 #:use-module (gnu packages graphics)
70 #:use-module (gnu packages gtk)
71 #:use-module (gnu packages guile)
72 #:use-module (gnu packages image)
73 #:use-module (gnu packages imagemagick)
74 #:use-module (gnu packages java)
75 #:use-module (gnu packages linux) ; for alsa-utils
76 #:use-module (gnu packages libffi)
77 #:use-module (gnu packages llvm)
78 #:use-module (gnu packages man)
79 #:use-module (gnu packages mp3)
80 #:use-module (gnu packages mpd)
81 #:use-module (gnu packages ncurses)
82 #:use-module (gnu packages netpbm)
83 #:use-module (gnu packages pcre)
84 #:use-module (gnu packages pdf)
85 #:use-module (gnu packages perl)
86 #:use-module (gnu packages pkg-config)
87 #:use-module (gnu packages pulseaudio) ;libsndfile
88 #:use-module (gnu packages python)
89 #:use-module (gnu packages qt)
90 #:use-module (gnu packages rdf)
91 #:use-module (gnu packages readline)
92 #:use-module (gnu packages rsync)
93 #:use-module (gnu packages sdl)
94 #:use-module (gnu packages tcl)
95 #:use-module (gnu packages texinfo)
96 #:use-module (gnu packages tex)
97 #:use-module (gnu packages tls)
98 #:use-module (gnu packages video)
99 #:use-module (gnu packages web)
100 #:use-module (gnu packages wxwidgets)
101 #:use-module (gnu packages xml)
102 #:use-module (gnu packages xorg)
103 #:use-module (gnu packages xiph)
104 #:use-module (gnu packages zip)
105 #:use-module ((srfi srfi-1) #:select (last)))
107 (define-public aria-maestosa
109 (name "aria-maestosa")
113 (uri (string-append "mirror://sourceforge/ariamaestosa/ariamaestosa/"
114 version "/AriaSrc-" version ".tar.bz2"))
117 "0gf9z96z83jiabxhpl856j15vl9flfgs6x1r0r6hc7g2xvwag0vy"))))
118 (build-system gnu-build-system)
120 `(#:tests? #f ;no tests
122 ;; TODO: Add scons-build-system and use it here.
123 (modify-phases %standard-phases
125 (add-after 'unpack 'scons-propagate-environment
127 ;; By design, SCons does not, by default, propagate
128 ;; environment variables to subprocesses. See:
129 ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
130 ;; Here, we modify the SConstruct file to arrange for
131 ;; environment variables to be propagated.
132 (substitute* "SConstruct"
133 (("env = Environment\\(\\)")
134 "env = Environment(ENV=os.environ)")
135 ;; Scons errors out when copying subdirectories from Resources,
136 ;; so we move them instead.
138 ;; We move the "score" and "Documentation" directories at once,
139 ;; so we have to ignore files contained therein.
140 (("if \".svn\" in file" line)
142 " or \"score/\" in file"
143 " or \"Documentation/\" in file")))
145 (replace 'build (lambda _ (zero? (system* "scons"))))
147 (lambda* (#:key outputs #:allow-other-keys)
148 (let ((out (assoc-ref outputs "out")))
150 (zero? (system* "scons"
151 (string-append "prefix=" out)
153 ;; Fix directory permissions
155 (chmod (string-append out "/share/Aria/Documentation") #o555)
156 (chmod (string-append out "/share/Aria/score") #o555)
159 `(("wxwidgets" ,wxwidgets)
161 ("alsa-lib" ,alsa-lib)))
164 ("pkg-config" ,pkg-config)))
165 (home-page "http://ariamaestosa.sourceforge.net/")
166 (synopsis "MIDI sequencer and editor")
168 "Aria Maestosa is a MIDI sequencer and editor. It lets you compose, edit
169 and play MIDI files with a few clicks in a user-friendly interface offering
170 score, keyboard, guitar, drum and controller views.")
171 (license license:gpl3+)))
180 "https://github.com/" name "/" name "/archive/v"
182 (file-name (string-append name "-" version ".tar.gz"))
185 "0raixgjavkm7hxppzsc5zqbfbh2bhjcmbiplhnsxsmyj8flafyc1"))))
186 (build-system gnu-build-system)
188 `(#:tests? #f ; cmus does not include tests
190 (modify-phases %standard-phases
193 (lambda* (#:key outputs #:allow-other-keys)
194 (let ((out (assoc-ref outputs "out")))
196 ;; It's an idiosyncratic configure script that doesn't
197 ;; understand --prefix=..; it wants prefix=.. instead.
199 (system* "./configure"
200 (string-append "prefix=" out)))))))))
201 ;; TODO: cmus optionally supports the following formats, which haven't yet
202 ;; been added to Guix:
206 ;; - DISCID_LIBS, apparently different from cd-discid which is included in
207 ;; Guix. See <http://sourceforge.net/projects/discid/>
209 `(("pkg-config" ,pkg-config)))
211 `(("alsa-lib" ,alsa-lib)
217 ("libcdio-paranoia" ,libcdio-paranoia)
220 ("libmodplug" ,libmodplug)
221 ("libmpcdec" ,libmpcdec)
222 ("libsamplerate" ,libsamplerate)
223 ("libvorbis" ,libvorbis)
225 ("opusfile" ,opusfile)
226 ("pulseaudio" ,pulseaudio)
227 ("wavpack" ,wavpack)))
228 (home-page "https://cmus.github.io/")
229 (synopsis "Small console music player")
230 (description "Cmus is a small and fast console music player. It supports
231 many input formats and provides a customisable Vi-style user interface.")
232 (license license:gpl2+)))
234 (define-public hydrogen
241 "https://github.com/hydrogen-music/hydrogen/archive/"
245 "1dy2jfkdw0nchars4xi4isrz66fqn53a9qk13bqza7lhmsg3s3qy"))))
246 (build-system cmake-build-system)
248 `(#:test-target "tests"))
250 `(("cppunit" ,cppunit)
251 ("pkg-config" ,pkg-config)))
253 `(("alsa-lib" ,alsa-lib)
255 ;; ("ladspa" ,ladspa) ; cannot find during configure
257 ("libarchive" ,libarchive)
258 ("libsndfile" ,libsndfile)
263 (home-page "http://www.hydrogen-music.org")
264 (synopsis "Drum machine")
266 "Hydrogen is an advanced drum machine for GNU/Linux. Its main goal is to
267 enable professional yet simple and intuitive pattern-based drum programming.")
268 (license license:gpl2+)))
270 (define-public extempore
277 "https://github.com/digego/extempore/archive/"
281 "1wap1mvsicrhlazikf7l8zxg37fir8bmnh9rin28m1rix730vcch"))
282 (file-name (string-append name "-" version ".tar.gz"))))
283 (build-system cmake-build-system)
285 `(;; The default target also includes ahead-of-time compilation of the
286 ;; standard libraries. However, during the "install" phase this would
287 ;; happen *again* for unknown reasons. Hence we only build the
288 ;; extempore executable during the build phase.
289 #:make-flags '("extempore")
290 #:configure-flags '("-DJACK=ON"
291 ;; We want to distribute.
293 ;; Don't download any dependencies.
295 #:modules ((ice-9 match)
296 (guix build cmake-build-system)
299 (modify-phases %standard-phases
300 (add-after 'unpack 'patch-directories
301 (lambda* (#:key outputs #:allow-other-keys)
302 ;; Rewrite default path to runtime directory
303 (substitute* "src/Extempore.cpp"
304 (("runtimedir \\+= \"runtime\"")
305 (string-append "runtimedir = \""
306 (assoc-ref outputs "out")
307 "/lib/extempore/runtime\"")))
308 (substitute* "extras/extempore.el"
309 (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
310 (string-append "(runtime-directory \""
311 (assoc-ref outputs "out")
312 "/lib/extempore/runtime"
315 (add-after 'unpack 'link-with-additional-libs
317 ;; The executable must be linked with libffi and zlib.
318 (substitute* "CMakeLists.txt"
319 (("add_dependencies\\(aot_extended extended_deps\\)") "")
320 (("target_link_libraries\\(extempore PRIVATE dl" line)
321 (string-append line " ffi z")))
323 ;; FIXME: AOT compilation of the nanovg bindings fail with the error:
324 ;; "Compiler Error could not bind _nvgLinearGradient"
325 (add-after 'unpack 'disable-nanovg
327 (substitute* "CMakeLists.txt"
328 (("aotcompile_lib\\(libs/external/nanovg.xtm.*") ""))
330 ;; FIXME: All examples that are used as tests segfault for some
332 (add-after 'unpack 'disable-broken-tests
334 (substitute* "CMakeLists.txt"
335 (("extempore_add_example_as_test\\(.*") ""))
337 (add-after 'unpack 'hardcode-external-lib-paths
338 (lambda* (#:key inputs #:allow-other-keys)
339 (use-modules (ice-9 match))
342 ((file-name lib pkg-name)
343 (substitute* (string-append "libs/external/" file-name ".xtm")
344 ((lib) (string-append (assoc-ref inputs pkg-name)
346 '(("assimp" "libassimp.so" "assimp")
347 ("portmidi" "libportmidi.so" "portmidi")
348 ("sndfile" "libsndfile.so" "libsndfile")
349 ("fft" "libkiss_fft.so" "kiss-fft")
350 ("stb_image" "libstb_image.so" "stb-image")
351 ("nanovg" "libnanovg.so" "nanovg")
352 ("glext" "libGL.so" "mesa")
353 ("glfw3" "libglfw.so" "glfw")
354 ("gl/glcore-directbind" "libGL.so" "mesa")
355 ("gl/glcompat-directbind" "libGL.so" "mesa")))
357 (add-after 'unpack 'use-own-llvm
358 (lambda* (#:key inputs #:allow-other-keys)
359 (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
360 ;; Our LLVM builds shared libraries, so Extempore should use
362 (substitute* "CMakeLists.txt"
363 (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
365 (add-after 'unpack 'fix-aot-compilation
366 (lambda* (#:key outputs #:allow-other-keys)
367 (substitute* "CMakeLists.txt"
368 ;; EXT_SHARE_DIR does not exist before installation, so the
369 ;; working directory should be the source directory instead.
370 (("WORKING_DIRECTORY \\$\\{EXT_SHARE_DIR\\}")
371 "WORKING_DIRECTORY ${CMAKE_SOURCE_DIR}")
372 ;; Extempore needs to be told where the runtime is to be found.
373 ;; While we're at it we disable automatic tuning for a specific
374 ;; CPU to make binary substitution possible.
375 (("COMMAND extempore" prefix)
376 (string-append prefix " --sharedir " (getcwd)
377 " --mcpu=generic --attr=none")))
380 `(("llvm" ,llvm-for-extempore)
383 ("libsndfile" ,libsndfile)
386 ("stb-image" ,stb-image-for-extempore)
387 ("kiss-fft" ,kiss-fft-for-extempore)
388 ("nanovg" ,nanovg-for-extempore)
389 ("portmidi" ,portmidi-for-extempore)
391 ("alsa-lib" ,alsa-lib)
392 ("portaudio" ,portaudio)
398 ("emacs" ,emacs-no-x)))
399 ;; Extempore refuses to build on architectures other than x86_64
400 (supported-systems '("x86_64-linux"))
401 (home-page "http://benswift.me/extempore-docs/index.html")
402 (synopsis "Programming environment for live coding of multimedia")
404 "Extempore is a programming language and runtime environment designed
405 with live programming in mind. It supports interactive programming in a REPL
406 style, compiling and binding code just-in-time. Although Extempore has its
407 roots in 'live coding' of audiovisual media art, it is suitable for any task
408 domain where dynamic run-time modifiability and good numerical performance are
409 required. Extempore also has strong timing and concurrency semantics, which
410 are helpful when working in problem spaces where timing is important (such as
412 (license license:bsd-2)))
420 (uri (string-append "http://das.nasophon.de/download/klick-"
424 "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
425 (build-system gnu-build-system)
427 `(#:tests? #f ;no "check" target
429 ;; TODO: Add scons-build-system and use it here.
430 (modify-phases %standard-phases
433 (lambda* (#:key inputs outputs #:allow-other-keys)
434 (let ((out (assoc-ref outputs "out")))
436 (zero? (system* "scons" (string-append "PREFIX=" out))))))
437 (replace 'install (lambda _ (zero? (system* "scons" "install")))))))
441 ("libsndfile" ,libsndfile)
442 ("libsamplerate" ,libsamplerate)
444 ("rubberband" ,rubberband)))
448 ("pkg-config" ,pkg-config)))
449 (home-page "http://das.nasophon.de/klick/")
450 (synopsis "Metronome for JACK")
452 "klick is an advanced command-line based metronome for JACK. It allows
453 you to define complex tempo maps for entire songs or performances.")
454 (license license:gpl2+)))
456 (define-public gtklick
462 (uri (string-append "http://das.nasophon.de/download/gtklick-"
466 "0dq1km6njnzsqdqyf6wzir9g733z0mc9vmxfg2383k3c2a2di6bp"))))
467 (build-system python-build-system)
469 `(#:tests? #f ; no tests
472 (modify-phases %standard-phases
473 (add-before 'build 'add-sitedirs
474 ;; .pth files are not automatically interpreted unless the
475 ;; directories containing them are added as "sites". The directories
476 ;; are then added to those in the PYTHONPATH. This is required for
477 ;; the operation of pygtk.
479 (substitute* "gtklick/gtklick.py"
481 "import pygtk, site, sys
482 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))))
483 (add-after 'unpack 'inject-store-path-to-klick
484 (lambda* (#:key inputs #:allow-other-keys)
485 (substitute* "gtklick/klick_backend.py"
486 (("KLICK_PATH = 'klick'")
487 (string-append "KLICK_PATH = '"
488 (assoc-ref inputs "klick")
493 ("python2-pyliblo" ,python2-pyliblo)
494 ("python2-pygtk" ,python2-pygtk)))
496 `(("gettext" ,gettext-minimal)))
497 (home-page "http://das.nasophon.de/gtklick/")
498 (synopsis "Simple metronome with an easy-to-use graphical interface")
500 "Gtklick is a simple metronome with an easy-to-use graphical user
501 interface. It is implemented as a frontend to @code{klick}.")
502 (license license:gpl2+)))
504 (define-public lilypond
511 "http://download.linuxaudio.org/lilypond/sources/v"
512 (version-major+minor version) "/"
513 name "-" version ".tar.gz"))
516 "1b4jvc0fixbnp8x457fzk5wgb4zd03npwwivp60kc27fmv63w5l1"))))
517 (build-system gnu-build-system)
519 `(#:tests? #f ; out-test/collated-files.html fails
521 #:make-flags '("conf=www") ;to generate images for info manuals
523 (list "CONFIGURATION=www"
524 (string-append "--with-texgyre-dir="
525 (assoc-ref %build-inputs "font-tex-gyre")
526 "/share/fonts/opentype/"))
528 (modify-phases %standard-phases
529 (add-after 'unpack 'fix-path-references
531 (substitute* "scm/backend-library.scm"
532 (("\\(search-executable '\\(\"gs\"\\)\\)")
533 (string-append "\"" (which "gs") "\""))
535 (string-append "\"" (which "sh") "\"")))
537 (add-before 'configure 'prepare-configuration
539 (substitute* "configure"
540 (("SHELL=/bin/sh") "SHELL=sh")
541 ;; When checking the fontforge version do not consider the
542 ;; version string that's part of the directory.
543 (("head -n") "tail -n"))
545 (setenv "conf" "www")
547 (add-after 'install 'install-info
549 (zero? (system* "make"
550 "-j" (number->string (parallel-job-count))
551 "conf=www" "install-info")))))))
553 `(("guile" ,guile-1.8)
554 ("font-dejavu" ,font-dejavu)
555 ("font-tex-gyre" ,font-tex-gyre)
556 ("fontconfig" ,fontconfig)
557 ("freetype" ,freetype)
558 ("ghostscript" ,ghostscript)
560 ("python" ,python-2)))
565 ("fontforge" ,fontforge)
567 ("gettext" ,gettext-minimal)
568 ("imagemagick" ,imagemagick)
569 ("netpbm" ,netpbm) ;for pngtopnm
570 ("texlive" ,texlive) ;metafont and metapost
572 ("texi2html" ,texi2html)
574 ("pkg-config" ,pkg-config)
576 (home-page "http://www.lilypond.org/")
577 (synopsis "Music typesetting")
579 "GNU LilyPond is a music typesetter, which produces high-quality sheet
580 music. Music is input in a text file containing control sequences which are
581 interpreted by LilyPond to produce the final document. It is extendable with
583 (license license:gpl3+)
585 ;; On armhf and mips64el, building the documentation sometimes leads to
586 ;; more than an hour of silence, so double the max silent time.
587 (properties `((max-silent-time . 7200)))))
589 (define-public non-sequencer
590 ;; The latest tagged release is three years old and uses a custom build
591 ;; system, so we take the last commit affecting the "sequencer" directory.
592 (let ((commit "1d9bd576f6bf7ea240af5f7a60260592750af0dd"))
594 (name "non-sequencer")
595 (version (string-append "1.9.5-" (string-take commit 7)))
599 (url "git://git.tuxfamily.org/gitroot/non/non.git")
603 "0pkkw8q6d55j38xm7r4rwpdv1wy00a44h8c4wrn7vbgpq9nij46y"))
604 (file-name (string-append name "-" version "-checkout"))))
605 (build-system waf-build-system)
607 `(#:tests? #f ;no "check" target
609 (list "--project=sequencer"
610 ;; Disable the use of SSE unless on x86_64.
611 ,@(if (not (string-prefix? "x86_64" (or (%current-target-system)
616 (modify-phases %standard-phases
618 'configure 'set-flags
620 ;; Compile with C++11, required by libsigc++.
621 (setenv "CXXFLAGS" "-std=c++11")
626 ("libsigc++" ,libsigc++)
630 `(("pkg-config" ,pkg-config)))
631 (home-page "http://non.tuxfamily.org/wiki/Non%20Sequencer")
632 (synopsis "Pattern-based MIDI sequencer")
634 "The Non Sequencer is a powerful, lightweight, real-time,
635 pattern-based MIDI sequencer. It utilizes the JACK Audio Connection Kit for
636 MIDI I/O and the NTK GUI toolkit for its user interface. Everything in Non
637 Sequencer happens on-line, in real-time. Music can be composed live, while the
638 transport is rolling.")
639 (license license:gpl2+))))
641 (define-public solfege
648 "mirror://gnu/solfege/solfege-"
652 "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
653 (build-system gnu-build-system)
655 `(#:tests? #f ; xmllint attempts to download DTD
659 'unpack 'fix-configuration
660 (lambda* (#:key inputs #:allow-other-keys)
661 (substitute* "default.config"
663 (string-append "csound="
664 (assoc-ref inputs "csound")
667 (string-append (assoc-ref inputs "aplay")
669 (("/usr/bin/timidity")
670 (string-append (assoc-ref inputs "timidity")
673 (string-append (assoc-ref inputs "mpg123")
676 (string-append (assoc-ref inputs "ogg123")
679 'build 'patch-python-shebangs
681 ;; Two python scripts begin with a Unicode BOM, so patch-shebang
683 (substitute* '("solfege/parsetree.py"
684 "solfege/presetup.py")
685 (("#!/usr/bin/python") (string-append "#!" (which "python")))))
688 ;; .pth files are not automatically interpreted unless the
689 ;; directories containing them are added as "sites". The directories
690 ;; are then added to those in the PYTHONPATH. This is required for
691 ;; the operation of pygtk and pygobject.
693 (substitute* "run-solfege.py"
696 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)")))
698 'build 'adjust-config-file-prefix
699 (lambda* (#:key outputs #:allow-other-keys)
700 (substitute* "run-solfege.py"
701 (("prefix = os.path.*$")
702 (string-append "prefix = " (assoc-ref outputs "out")))))
704 'install 'wrap-program
705 (lambda* (#:key inputs outputs #:allow-other-keys)
706 ;; Make sure 'solfege' runs with the correct PYTHONPATH.
707 (let* ((out (assoc-ref outputs "out"))
708 (path (getenv "PYTHONPATH")))
709 (wrap-program (string-append out "/bin/solfege")
710 `("PYTHONPATH" ":" prefix (,path)))))
711 %standard-phases)))))))
713 `(("python" ,python-2)
714 ("pygtk" ,python2-pygtk)
715 ("gettext" ,gettext-minimal)
717 ("lilypond" ,lilypond)
718 ;; players needed at runtime
719 ("aplay" ,alsa-utils)
720 ("csound" ,csound) ; optional, needed for some exercises
722 ("ogg123" ,vorbis-tools)
723 ("timidity" ,timidity++)))
725 `(("pkg-config" ,pkg-config)
727 ("libxml2" ,libxml2) ; for tests
728 ("ghostscript" ,ghostscript)
729 ("texinfo" ,texinfo)))
730 (home-page "https://www.gnu.org/software/solfege/")
731 (synopsis "Ear training")
733 "GNU Solfege is a program for practicing musical ear-training. With it,
734 you can practice your recognition of various musical intervals and chords. It
735 features a statistics overview so you can monitor your progress across several
736 sessions. Solfege is also designed to be extensible so you can easily write
738 (license license:gpl3+)))
740 (define-public powertabeditor
742 (name "powertabeditor")
743 (version "2.0.0-alpha8")
747 "https://github.com/powertab/powertabeditor/archive/"
749 (file-name (string-append name "-" version ".tar.gz"))
752 "0gaa2x209v3azql8ak3r1n9a9qbxjx2ssirvwdxwklv2lmfqkm82"))
753 (modules '((guix build utils)))
756 ;; Remove bundled sources for external libraries
757 (delete-file-recursively "external")
758 (substitute* "CMakeLists.txt"
759 (("include_directories\\(\\$\\{PROJECT_SOURCE_DIR\\}/external/.*") "")
760 (("add_subdirectory\\(external\\)") ""))
761 (substitute* "test/CMakeLists.txt"
762 (("include_directories\\(\\$\\{PROJECT_SOURCE_DIR\\}/external/.*") ""))
764 ;; Add install target
765 (substitute* "source/CMakeLists.txt"
768 "install(TARGETS powertabeditor "
769 "RUNTIME DESTINATION ${CMAKE_INSTALL_PREFIX}/bin)\n"
770 "install(FILES data/tunings.json DESTINATION "
771 "${CMAKE_INSTALL_PREFIX}/share/powertabeditor/)\n"
774 (build-system cmake-build-system)
776 `(#:modules ((guix build cmake-build-system)
780 ;; CMake appears to lose the RUNPATH for some reason, so it has to be
781 ;; explicitly set with CMAKE_INSTALL_RPATH.
782 (list "-DCMAKE_BUILD_WITH_INSTALL_RPATH=TRUE"
783 "-DCMAKE_ENABLE_PRECOMPILED_HEADERS=OFF" ; if ON pte_tests cannot be built
784 (string-append "-DCMAKE_INSTALL_RPATH="
785 (string-join (map (match-lambda
787 (string-append directory "/lib")))
788 %build-inputs) ";")))
790 (modify-phases %standard-phases
794 (zero? (system* "bin/pte_tests"
795 ;; Exclude this failing test
796 "~Formats/PowerTabOldImport/Directions"))))
798 'configure 'fix-tests
800 ;; Tests cannot be built with precompiled headers
801 (substitute* "test/CMakeLists.txt"
802 (("cotire\\(pte_tests\\)") ""))
805 'configure 'remove-third-party-libs
806 (lambda* (#:key inputs #:allow-other-keys)
807 ;; Link with required static libraries, because we're not
808 ;; using the bundled version of withershins.
809 (substitute* '("source/CMakeLists.txt"
810 "test/CMakeLists.txt")
811 (("target_link_libraries\\((powertabeditor|pte_tests)" _ target)
812 (string-append "target_link_libraries(" target " "
813 (assoc-ref inputs "binutils")
815 (assoc-ref inputs "libiberty")
821 ("alsa-lib" ,alsa-lib)
823 ("withershins" ,withershins)
824 ("libiberty" ,libiberty) ;for withershins
825 ("binutils" ,binutils) ;for -lbfd and -liberty (for withershins)
826 ("timidity" ,timidity++)
829 ("rapidjson" ,rapidjson)
832 `(("catch" ,catch-framework)
833 ("pkg-config" ,pkg-config)))
834 (home-page "http://powertabs.net")
835 (synopsis "Guitar tablature editor")
837 "Power Tab Editor 2.0 is the successor to the famous original Power Tab
838 Editor. It is compatible with Power Tab Editor 1.7 and Guitar Pro.")
839 (license license:gpl3+)))
841 (define-public jalv-select
847 (uri (string-append "https://github.com/brummer10/jalv_select/"
848 "archive/V" version ".tar.gz"))
851 "01y93l5c1f8za04a0y4b3v0nhsm1lhj6rny9xpdgd7jz6sl6w581"))))
852 (build-system gnu-build-system)
855 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
857 (modify-phases %standard-phases
859 (add-after 'unpack 'ignore-PATH
860 (lambda* (#:key inputs #:allow-other-keys)
861 (substitute* "jalv.select.cpp"
862 (("echo \\$PATH | tr ':' '\\\n' | xargs ls")
863 (string-append "ls -1 " (assoc-ref inputs "jalv") "/bin")))
864 (substitute* "jalv.select.h"
865 (("gtkmm.h") "gtkmm-2.4/gtkmm.h"))
873 `(("pkg-config" ,pkg-config)))
874 (home-page "https://github.com/brummer10/jalv_select")
875 (synopsis "GUI to select LV2 plugins and run them with jalv")
877 "The jalv.select package provides a graphical user interface allowing
878 users to select LV2 plugins and run them with jalv.")
879 (license license:public-domain)))
881 (define-public synthv1
888 (string-append "mirror://sourceforge/synthv1/synthv1/" version
889 "/synthv1-" version ".tar.gz"))
892 "155pfyhr6d35ciw95pbxlqy7751cmij8j5d849rvblqbjzyzb5qx"))))
893 (build-system gnu-build-system)
895 `(#:tests? #f ; There are no tests.
897 '("CXXFLAGS=-std=gnu++11")))
901 ("alsa-lib" ,alsa-lib)
904 ("qttools" ,qttools)))
905 (home-page "http://synthv1.sourceforge.net")
906 (synopsis "Polyphonic subtractive synthesizer")
908 "Synthv1 is an old-school subtractive polyphonic synthesizer with four
909 oscillators and stereo effects.")
910 (license license:gpl2+)))
912 (define-public drumkv1
919 (string-append "mirror://sourceforge/drumkv1/drumkv1/" version
920 "/drumkv1-" version ".tar.gz"))
923 "1n2kd468kn71yp2asmamprvblmdlvh0zd8lsh3598dwi4b7aa3ga"))))
924 (build-system gnu-build-system)
926 `(#:tests? #f ; There are no tests.
928 '("CXXFLAGS=-std=gnu++11")))
932 ("libsndfile" ,libsndfile)
933 ("alsa-lib" ,alsa-lib)
937 `(("pkg-config" ,pkg-config)
938 ("qttools" ,qttools)))
939 (home-page "http://drumkv1.sourceforge.net")
940 (synopsis "Drum-kit sampler synthesizer with stereo effects")
942 "Drumkv1 is an old-school drum-kit sampler synthesizer with stereo
944 (license license:gpl2+)))
946 (define-public samplv1
953 (string-append "mirror://sourceforge/samplv1/samplv1/" version
954 "/samplv1-" version ".tar.gz"))
957 "0j3hkmd9q0bw9b7nk9cssqywlrishkd1n790a9vq6gh3pdc5sf3r"))))
958 (build-system gnu-build-system)
960 `(#:tests? #f ; There are no tests.
962 '("CXXFLAGS=-std=gnu++11")))
966 ("libsndfile" ,libsndfile)
967 ("alsa-lib" ,alsa-lib)
971 `(("pkg-config" ,pkg-config)
972 ("qttools" ,qttools)))
973 (home-page "http://samplv1.sourceforge.net")
974 (synopsis "Polyphonic sampler synthesizer with stereo effects")
976 "Samplv1 is an old-school polyphonic sampler synthesizer with stereo
978 (license license:gpl2+)))
980 (define-public amsynth
987 (uri (string-append "https://github.com/amsynth/amsynth/releases/"
988 "download/release-" version
989 "/amsynth-" version ".tar.bz2"))
992 "07dp9dl38g9krjqxxh89l2z42z08yzrl57cx95b1l67xnxwjp5k3"))))
993 (build-system gnu-build-system)
996 (modify-phases %standard-phases
997 (add-before 'configure 'set-flags
999 ;; Compile with C++11, required by gtkmm.
1000 (setenv "CXXFLAGS" "-std=c++11")
1003 `(("alsa-lib" ,alsa-lib)
1006 ("libsndfile" ,libsndfile)
1008 ("gtkmm" ,gtkmm-2)))
1010 `(("pkg-config" ,pkg-config)))
1011 (home-page "http://amsynth.github.io")
1012 (synopsis "Analog modeling synthesizer")
1014 "amsynth is an easy-to-use software synthesizer with a classic
1015 subtractive synthesizer topology. Its features include: dual
1016 oscillators (sine, saw, square, noise) with hard sync; 12 and 24 dB/oct
1017 resonant filters (low-pass, high-pass, band-pass, notch); mono, poly, legato
1018 keyboard modes; dual ADSR envelope generators for filter and amplitude; LFO
1019 which can modulate the oscillators, filter, and amplitude; distortion and
1021 (license license:gpl2+)))
1023 (define-public setbfree
1030 (string-append "https://github.com/pantherb/setBfree/archive/v"
1032 (file-name (string-append name "-" version ".tar.gz"))
1035 "0hj0rqk5yd4fzs7bwy6a6nhqgrmcggkjcr4il76rxy92r7nwabf3"))))
1036 (build-system gnu-build-system)
1038 `(#:tests? #f ; no "check" target
1040 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1041 (string-append "FONTFILE="
1042 (assoc-ref %build-inputs "font-bitstream-vera")
1043 "/share/fonts/truetype/VeraBd.ttf")
1044 ;; Disable unsupported optimization flags on non-x86
1045 ,@(let ((system (or (%current-target-system)
1046 (%current-system))))
1047 (if (or (string-prefix? "x86_64" system)
1048 (string-prefix? "i686" system))
1050 '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
1052 (modify-phases %standard-phases
1053 (add-before 'build 'set-CC-variable
1054 (lambda _ (setenv "CC" "gcc") #t))
1055 (delete 'configure))))
1059 ("zita-convolver" ,zita-convolver)
1062 ("font-bitstream-vera" ,font-bitstream-vera)))
1064 `(("help2man" ,help2man)
1065 ("pkg-config" ,pkg-config)))
1066 (home-page "http://setbfree.org")
1067 (synopsis "Tonewheel organ")
1069 "setBfree is a MIDI-controlled, software synthesizer designed to imitate
1070 the sound and properties of the electromechanical organs and sound
1071 modification devices that brought world-wide fame to the names and products of
1072 Laurens Hammond and Don Leslie.")
1073 (license license:gpl2+)))
1075 (define-public beast
1081 (uri (string-append "https://testbit.eu/pub/dists/beast/beast-"
1085 "1jzzmfwssklzw8fvvil04n8csc0zm99fnd9p2xa7c0xchg37lvhn"))))
1086 (build-system gnu-build-system)
1088 '(#:parallel-build? #f)) ; Race conditions cause build failures
1090 `(("rapicorn" ,rapicorn)
1091 ("guile" ,guile-1.8)
1092 ("python" ,python-2)
1093 ("cython" ,python2-cython)
1094 ("libgnomecanvas" ,libgnomecanvas)
1098 ("alsa-lib" ,alsa-lib)
1099 ("libvorbis" ,libvorbis)
1100 ("gettext" ,gettext-minimal)))
1102 `(("pkg-config" ,pkg-config)
1103 ("glib:bin" ,glib "bin")
1105 ("perl-xml-parser" ,perl-xml-parser)))
1106 (home-page "https://testbit.eu/wiki/Beast_Home")
1107 (synopsis "Music composition and modular synthesis environment")
1109 "Beast is a music composition and modular synthesis application. It
1110 supports a wide range of standards in the field, such as MIDI, various audio
1111 file formats and LADSPA modules. It allows for multitrack editing, real-time
1112 synthesis, 32bit audio rendering, precise timing down to sample granularity,
1113 on-demand and partial loading of wave files, on the fly decoding, stereo
1114 mixing, FFT scopes, MIDI automation and full scriptability in Scheme.")
1115 (license license:gpl3+)))
1117 (define-public bristol
1123 (uri (string-append "mirror://sourceforge/bristol/bristol/"
1124 (version-major+minor version)
1125 "/bristol-" version ".tar.gz"))
1128 "1fi2m4gmvxdi260821y09lxsimq82yv4k5bbgk3kyc3x1nyhn7vx"))))
1129 (build-system gnu-build-system)
1132 (modify-phases %standard-phases
1133 (add-after 'unpack 'remove-sse-flags
1134 (lambda* (#:key system #:allow-other-keys)
1135 (when (not (or (string-prefix? "x86_64" system)
1136 (string-prefix? "i686" system)))
1137 (substitute* "bristol/Makefile.in"
1138 (("-msse -mfpmath=sse") "")))
1140 ;; We know that Bristol has been linked with JACK and we don't have
1141 ;; ldd, so we can just skip this check.
1142 (add-after 'unpack 'do-not-grep-for-jack
1144 (substitute* "bin/startBristol.in"
1145 (("ldd `which bristol` | grep jack") "echo guix"))
1148 `(("alsa-lib" ,alsa-lib)
1151 ("libx11" ,libx11)))
1153 `(("pkg-config" ,pkg-config)))
1154 (home-page "http://bristol.sourceforge.net/")
1155 (synopsis "Synthesizer emulator")
1157 "Bristol is an emulation package for a number of different 'classic'
1158 synthesizers including additive and subtractive and a few organs. The
1159 application consists of the engine, which is called bristol, and its own GUI
1160 library called brighton that represents all the emulations. There are
1161 currently more than twenty different emulations; each does sound different
1162 although the author maintains that the quality and accuracy of each emulation
1164 (license license:gpl3+)))
1166 (define-public tuxguitar
1173 "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
1174 version "/tuxguitar-" version "-src.tar.gz"))
1177 "0ldml31zvywid1w28mfd65ramyiics55fdl0ch846vm7j7nwv58j"))
1178 (modules '((guix build utils)))
1180 ;; Delete pre-built classes
1181 '(delete-file-recursively "TuxGuitar-android/bin"))))
1182 (build-system ant-build-system)
1184 `(#:build-target "build"
1185 #:tests? #f ; no tests
1187 (modify-phases %standard-phases
1188 (add-after 'unpack 'enter-dir
1189 (lambda _ (chdir "TuxGuitar-lib") #t))
1190 (add-after 'build 'build-editor-utils
1191 (lambda* (#:key inputs outputs #:allow-other-keys)
1193 (let ((cwd (getcwd)))
1196 cwd "/TuxGuitar-lib/tuxguitar-lib.jar" ":"
1197 cwd "/TuxGuitar-editor-utils/build/jar/tuxguitar-editor-utils.jar" ":"
1198 (getenv "CLASSPATH"))))
1199 (chdir "TuxGuitar-editor-utils")
1200 ;; Generate default build.xml
1201 ((@@ (guix build ant-build-system) default-build.xml)
1202 "tuxguitar-editor-utils.jar"
1203 (string-append (assoc-ref outputs "out")
1205 ((assoc-ref %standard-phases 'build))))
1206 (add-after 'build-editor-utils 'build-application
1208 (chdir "../TuxGuitar")
1209 ((assoc-ref %standard-phases 'build)
1210 #:build-target "build")))
1212 (lambda* (#:key inputs outputs #:allow-other-keys)
1213 (let* ((out (assoc-ref outputs "out"))
1214 (bin (string-append out "/bin"))
1215 (share (string-append out "/share"))
1216 (lib (string-append share "/java"))
1217 (swt (assoc-ref inputs "java-swt")))
1220 (for-each (lambda (file)
1221 (install-file file lib))
1222 (find-files ".." "\\.jar$"))
1223 ;; install all resources
1224 (for-each (lambda (file)
1225 (install-file file share))
1226 (find-files "share" ".*"))
1228 (call-with-output-file (string-append bin "/tuxguitar")
1230 (let ((classpath (string-join (append (find-files lib "\\.jar$")
1231 (find-files swt "\\.jar$"))
1235 (string-append "#!/bin/sh\n"
1238 " -Dtuxguitar.home.path=" out
1239 " -Dtuxguitar.share.path=" out "/share"
1240 " -Dswt.library.path=" swt "/lib"
1241 " org.herac.tuxguitar.app.TGMainSingleton"
1242 " \"$1\" \"$2\"")))))
1243 (chmod (string-append bin "/tuxguitar") #o555)
1246 `(("java-swt" ,java-swt)))
1247 (home-page "http://tuxguitar.com.ar")
1248 (synopsis "Multitrack tablature editor and player")
1250 "TuxGuitar is a guitar tablature editor with player support through midi.
1251 It can display scores and multitrack tabs. TuxGuitar provides various
1252 additional features, including autoscrolling while playing, note duration
1253 management, bend/slide/vibrato/hammer-on/pull-off effects, support for
1254 tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
1256 (license license:lgpl2.1+)))
1265 (string-append "mirror://sourceforge/pure-data/pure-data/"
1266 version "/pd-" (version-major+minor version)
1267 "-" (last (string-split version #\.))
1271 "1ls2ap5yi2zxvmr247621g4jx0hhfds4j5704a050bn2n3l0va2p"))))
1272 (build-system gnu-build-system)
1274 `(#:tests? #f ; no "check" target
1276 (modify-phases %standard-phases
1278 'configure 'fix-wish-path
1280 (substitute* "src/s_inter.c"
1281 ((" wish ") (string-append " " (which "wish8.6") " ")))
1282 (substitute* "tcl/pd-gui.tcl"
1283 (("exec wish ") (string-append "exec " (which "wish8.6") " ")))
1287 (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
1289 `(("autoconf" ,autoconf)
1290 ("automake" ,automake)
1291 ("libtool" ,libtool)
1292 ("gettext" ,gettext-minimal)
1293 ("pkg-config" ,pkg-config)))
1296 ("alsa-lib" ,alsa-lib)
1298 (home-page "http://puredata.info")
1299 (synopsis "Visual programming language for artistic performances")
1301 "Pure Data (aka Pd) is a visual programming language. Pd enables
1302 musicians, visual artists, performers, researchers, and developers to create
1303 software graphically, without writing lines of code. Pd is used to process
1304 and generate sound, video, 2D/3D graphics, and interface sensors, input
1305 devices, and MIDI. Pd can easily work over local and remote networks to
1306 integrate wearable technology, motor systems, lighting rigs, and other
1307 equipment. Pd is suitable for learning basic multimedia processing and visual
1308 programming methods as well as for realizing complex systems for large-scale
1310 (license license:bsd-3)))
1312 (define-public portmidi
1318 (uri (string-append "mirror://sourceforge/portmedia/portmidi/"
1319 version "/portmidi-src-" version ".zip"))
1322 "03rfsk7z6rdahq2ihy5k13qjzgx757f75yqka88v3gc0pn9ais88"))
1323 (patches (list (search-patch "portmidi-modular-build.patch")))))
1324 (build-system cmake-build-system)
1326 `(#:tests? #f ; tests cannot be linked
1328 (list "-DPORTMIDI_ENABLE_JAVA=Off"
1329 "-DCMAKE_BUILD_TYPE=Release" ; needed to have PMALSA set
1330 "-DPORTMIDI_ENABLE_TEST=Off"))) ; tests fail linking
1332 `(("alsa-lib" ,alsa-lib)))
1334 `(("unzip" ,unzip)))
1335 (home-page "http://portmedia.sourceforge.net/portmidi/")
1336 (synopsis "Library for MIDI I/O")
1338 "PortMidi is a library supporting real-time input and output of MIDI data
1339 using a system-independent interface.")
1340 (license license:expat)))
1342 (define-public portmidi-for-extempore
1343 (package (inherit portmidi)
1344 (name "portmidi-for-extempore")
1348 (uri (string-append "https://github.com/extemporelang/portmidi/"
1349 "archive/" version ".tar.gz"))
1350 (file-name (string-append name "-" version ".tar.gz"))
1353 "0gjikwciyr8kk4y3qiv1pcq58xpgw38ql1m2gs6g0qc1s8sx4235"))))
1354 (build-system cmake-build-system)
1355 (arguments `(#:tests? #f)) ; no tests
1357 ;; Extempore refuses to build on architectures other than x86_64
1358 (supported-systems '("x86_64-linux"))
1359 (home-page "https://github.com/extemporelang/portmidi/")))
1361 (define-public python-pyportmidi
1363 (name "python-pyportmidi")
1364 (version (package-version portmidi))
1365 (source (package-source portmidi))
1366 (build-system python-build-system)
1368 `(#:tests? #f ; no tests included
1370 (modify-phases %standard-phases
1371 (add-after 'unpack 'enter-dir
1372 (lambda _ (chdir "pm_python") #t))
1373 (add-after 'enter-dir 'fix-setup.py
1375 (substitute* "setup.py"
1376 ;; Use Python 3 syntax
1377 (("print (\".*\")" _ text)
1378 (string-append "print(" text ")\n"))
1379 ;; TODO.txt and CHANGES.txt don't exist
1380 (("CHANGES =.*") "CHANGES = \"\"\n")
1381 (("TODO =.*") "TODO = \"\"\n"))
1384 `(("portmidi" ,portmidi)
1385 ("alsa-lib" ,alsa-lib)
1386 ("python-cython" ,python-cython)))
1388 `(("unzip" ,unzip)))
1389 (home-page "http://portmedia.sourceforge.net/portmidi/")
1390 (synopsis "Python bindings to PortMidi")
1392 "This package provides Python bindings to the PortMidi library.")
1393 (license license:expat)))
1395 (define-public frescobaldi
1397 (name "frescobaldi")
1402 "https://github.com/wbsoft/frescobaldi/releases/download/v"
1403 version "/frescobaldi-" version ".tar.gz"))
1406 "1rnk8i8dlshzx16n2qxcsqcs7kywgyazzyzw2vy4vp2gsm9vs9ml"))))
1407 (build-system python-build-system)
1409 `(("lilypond" ,lilypond)
1410 ("portmidi" ,portmidi)
1411 ("python-pyqt-4" ,python-pyqt-4)
1412 ("python-ly" ,python-ly)
1413 ("python-pyportmidi" ,python-pyportmidi)
1414 ("poppler" ,poppler)
1415 ("python-poppler-qt4" ,python-poppler-qt4)
1416 ("python-sip" ,python-sip)))
1417 (home-page "http://www.frescobaldi.org/")
1418 (synopsis "LilyPond sheet music text editor")
1420 "Frescobaldi is a LilyPond sheet music text editor with syntax
1421 highlighting and automatic completion. Among other things, it can render
1422 scores next to the source, can capture input from MIDI or read MusicXML and
1423 ABC files, has a MIDI player for proof-listening, and includes a documentation
1425 (license license:gpl2+)))
1427 (define-public drumstick
1433 (uri (string-append "mirror://sourceforge/drumstick/"
1434 version "/drumstick-" version ".tar.bz2"))
1437 "13pkfqrav30bbcddgf1imd7jk6lpqbxkz1qv31718pdl446jq7df"))))
1438 (build-system cmake-build-system)
1440 `(#:tests? #f ; no test target
1441 #:configure-flags '("-DLIB_SUFFIX=")
1443 (modify-phases %standard-phases
1444 (add-before 'configure 'fix-docbook
1445 (lambda* (#:key inputs #:allow-other-keys)
1446 (substitute* "cmake_admin/CreateManpages.cmake"
1447 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
1448 (string-append (assoc-ref inputs "docbook-xsl")
1449 "/xml/xsl/docbook-xsl-"
1450 ,(package-version docbook-xsl)
1451 "/manpages/docbook.xsl")))
1454 `(("qtbase" ,qtbase)
1456 ("alsa-lib" ,alsa-lib)
1457 ("fluidsynth" ,fluidsynth)))
1459 `(("pkg-config" ,pkg-config)
1460 ("libxslt" ,libxslt) ;for xsltproc
1461 ("docbook-xsl" ,docbook-xsl)
1462 ("doxygen" ,doxygen)))
1463 (home-page "http://drumstick.sourceforge.net/")
1464 (synopsis "C++ MIDI library")
1466 "Drumstick is a set of MIDI libraries using C++/Qt5 idioms and style. It
1467 includes a C++ wrapper around the ALSA library sequencer interface. A
1468 complementary library provides classes for processing SMF (Standard MIDI
1469 files: .MID/.KAR), Cakewalk (.WRK), and Overture (.OVE) file formats. A
1470 multiplatform realtime MIDI I/O library is also provided with various output
1471 backends, including ALSA, OSS, Network and FluidSynth.")
1472 (license license:gpl2+)))
1474 (define-public zynaddsubfx
1476 (name "zynaddsubfx")
1481 "mirror://sourceforge/zynaddsubfx/zynaddsubfx/"
1482 version "/zynaddsubfx-" version ".tar.bz2"))
1485 "0p640hlw28264nzrnd2lm4bi5snas4fvh80p8lpxvph2hjw3sncl"))))
1486 (build-system cmake-build-system)
1489 (modify-phases %standard-phases
1490 ;; Move SSE compiler optimization flags from generic target to
1491 ;; athlon64 and core2 targets, because otherwise the build would fail
1492 ;; on non-Intel machines.
1493 (add-after 'unpack 'remove-sse-flags-from-generic-target
1495 (substitute* "src/CMakeLists.txt"
1496 (("-msse -msse2 -mfpmath=sse") "")
1497 (("-march=(athlon64|core2)" flag)
1498 (string-append flag " -msse -msse2 -mfpmath=sse")))
1504 ("alsa-lib" ,alsa-lib)
1507 ("minixml" ,minixml)
1511 `(("pkg-config" ,pkg-config)))
1512 (home-page "http://zynaddsubfx.sf.net/")
1513 (synopsis "Software synthesizer")
1515 "ZynAddSubFX is a feature heavy realtime software synthesizer. It offers
1516 three synthesizer engines, multitimbral and polyphonic synths, microtonal
1517 capabilities, custom envelopes, effects, etc.")
1518 (license license:gpl2)))
1520 (define-public yoshimi
1526 (uri (string-append "mirror://sourceforge/yoshimi/"
1527 (version-major+minor version)
1528 "/yoshimi-" version ".tar.bz2"))
1531 "133sx42wb66g803pcrgdwph40wh94knvab3yfqkgm0001jv4v14y"))))
1532 (build-system cmake-build-system)
1534 `(#:tests? #f ; there are no tests
1536 (list (string-append "-DCMAKE_INSTALL_DATAROOTDIR="
1537 (assoc-ref %outputs "out") "/share"))
1539 (modify-phases %standard-phases
1540 (add-before 'configure 'enter-dir
1541 (lambda _ (chdir "src") #t))
1542 ;; Move SSE compiler optimization flags from generic target to
1543 ;; athlon64 and core2 targets, because otherwise the build would fail
1544 ;; on non-Intel machines.
1545 (add-after 'unpack 'remove-sse-flags-from-generic-target
1547 (substitute* "src/CMakeLists.txt"
1548 (("-msse -msse2 -mfpmath=sse") "")
1549 (("-march=(athlon64|core2)" flag)
1550 (string-append flag " -msse -msse2 -mfpmath=sse")))
1552 ;; Yoshimi tries to find ncurses with pkg-config, but our ncurses
1553 ;; package does not install .pc files.
1554 (add-after 'unpack 'find-ncurses
1556 (substitute* "src/CMakeLists.txt"
1557 (("LIBNCURSES REQUIRED") "LIBNCURSES")
1558 (("NCURSES REQUIRED") "NCURSES")
1559 (("FATAL_ERROR \"libncurses") "STATUS \"libncurses")
1560 (("\\$\\{NCURSES_LIBRARIES\\}") "ncurses"))
1565 ("alsa-lib" ,alsa-lib)
1567 ("fontconfig" ,fontconfig)
1568 ("minixml" ,minixml)
1572 ("readline" ,readline)
1573 ("ncurses" ,ncurses)
1577 `(("pkg-config" ,pkg-config)))
1578 (home-page "http://yoshimi.sourceforge.net/")
1579 (synopsis "Multi-paradigm software synthesizer")
1581 "Yoshimi is a fork of ZynAddSubFX, a feature heavy realtime software
1582 synthesizer. It offers three synthesizer engines, multitimbral and polyphonic
1583 synths, microtonal capabilities, custom envelopes, effects, etc. Yoshimi
1584 improves on support for JACK features, such as JACK MIDI.")
1585 (license license:gpl2)))
1587 (define-public jack-keyboard
1589 (name "jack-keyboard")
1594 (uri (string-append "mirror://sourceforge/jack-keyboard/jack-keyboard/"
1595 version "/jack-keyboard-" version ".tar.gz"))
1598 "0mzmg8aavybcfdlq2yd9d0vscqd6is5p6jzrgfpfm5j3xdcvh2s3"))))
1599 (build-system gnu-build-system)
1605 `(("pkg-config" ,pkg-config)))
1606 (home-page "http://jack-keyboard.sourceforge.net/")
1607 (synopsis "Virtual MIDI keyboard")
1608 (description "Jack-keyboard is a virtual MIDI keyboard, a program that
1609 allows you to send JACK MIDI events (i.e. play) using your PC keyboard.")
1610 (license license:bsd-2)))
1612 (define-public cursynth
1619 (uri (string-append "mirror://gnu/cursynth/cursynth-"
1622 (base32 "1dhphsya41rv8z6yqcv9l6fwbslsds4zh1y56zizi39nd996d40v"))
1623 (patches (search-patches "cursynth-wave-rand.patch"))))
1624 (build-system gnu-build-system)
1625 (native-inputs `(("pkg-config" ,pkg-config)))
1626 ;; TODO: See https://github.com/iyoko/cursynth/issues/4 which currently
1627 ;; prevents us from using pulseaudio
1628 (inputs `(("ncurses" ,ncurses)
1629 ("alsa" ,alsa-lib)))
1630 (home-page "http://www.gnu.org/software/cursynth")
1631 (synopsis "Polyphonic and MIDI subtractive music synthesizer using curses")
1632 (description "GNU cursynth is a polyphonic synthesizer that runs
1633 graphically in the terminal. It is built on a full-featured subtractive
1634 synthesis engine. Notes and parameter changes may be entered via MIDI or the
1635 computer's keyboard.")
1636 (license license:gpl3+)))
1638 (define-public qtractor
1644 (uri (string-append "http://downloads.sourceforge.net/qtractor/"
1645 "qtractor-" version ".tar.gz"))
1648 "17v563liyqcvil204ry1qfp09d91944nqz2ig33f5c3pyg4z2427"))))
1649 (build-system gnu-build-system)
1650 (arguments `(#:tests? #f)) ; no "check" target
1653 ("alsa-lib" ,alsa-lib)
1655 ("libsndfile" ,libsndfile)
1660 ("libsamplerate" ,libsamplerate)
1661 ("libvorbis" ,libvorbis)
1663 ("rubberband" ,rubberband)
1667 `(("pkg-config" ,pkg-config)))
1668 (home-page "http://qtractor.sourceforge.net/")
1669 (synopsis "Audio/MIDI multi-track sequencer")
1671 "Qtractor is an Audio/MIDI multi-track sequencer application. It uses
1672 JACK for audio and ALSA sequencer for MIDI as multimedia infrastructures and
1673 follows a traditional multi-track tape recorder control paradigm.")
1674 (license license:gpl2+)))
1676 (define-public gxtuner
1682 (uri (string-append "https://github.com/brummer10/gxtuner/"
1683 "archive/v" version ".tar.gz"))
1684 (file-name (string-append name "-" version ".tar.gz"))
1687 "1abpxiydn4c9wssz6895hnad9ipkcy3rkgzbnanvwb46nm44x6if"))))
1688 (build-system gnu-build-system)
1691 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1692 (string-append "INCLUDE_L_DIR="
1693 (assoc-ref %build-inputs "zita-resampler")
1696 (modify-phases %standard-phases
1697 (delete 'configure))))
1703 ("zita-resampler" ,zita-resampler)))
1705 `(("pkg-config" ,pkg-config)))
1706 (home-page "https://github.com/brummer10/gxtuner")
1707 (synopsis "Guitar tuner")
1708 (description "GXtuner is a simple guitar tuner for JACK with an
1709 analogue-like user interface.")
1710 (license license:gpl2+)))
1712 (define-public mod-host
1713 ;; The last release was in 2014 but since then more than 140 commits have
1715 (let ((commit "72aca771e3a4e3889641b9bab84985586c9bb926")
1719 (version (string-append "0.10.6-" revision "." (string-take commit 9)))
1723 (url "https://github.com/moddevices/mod-host")
1727 "19szi8cy65jlchbrmbjbma03g6gxj9zyyp4dgw1k06r0cxbx82gq"))
1728 (file-name (string-append name "-" version "-checkout"))))
1729 (build-system gnu-build-system)
1731 `(#:tests? #f ; no tests included
1733 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1736 (modify-phases %standard-phases
1738 (add-after 'unpack 'fix-jack-installation-directory
1740 ;; Do not attempt to install files to output of "jack" package.
1741 (substitute* "Makefile"
1742 (("\\$\\(shell pkg-config --variable=libdir jack\\)")
1747 ("fftw" ,fftw-with-threads)
1748 ("fftwf" ,fftwf-with-threads)
1751 ("readline" ,readline)))
1753 `(("pkg-config" ,pkg-config)
1754 ("python" ,python-2)))
1755 (home-page "https://github.com/moddevices/mod-host")
1756 (synopsis "LV2 host for Jack controllable via socket or command line")
1757 (description "mod-host is an LV2 plugin host for JACK, controllable via
1758 socket or command line.")
1759 (license license:gpl3+))))
1761 (define-public pianobar
1764 (version "2015.11.22")
1767 (uri (string-append "https://github.com/PromyLOPh/"
1768 name "/archive/" version ".tar.gz"))
1769 (file-name (string-append name "-" version ".tar.gz"))
1772 "022df19bhxqvkhy0qy21xahba5s1fm17b13y0p9p9dnf2yl44wfv"))))
1773 (build-system gnu-build-system)
1775 `(#:tests? #f ; no tests
1776 #:make-flags (list "CC=gcc" "CFLAGS=-std=c99"
1777 (string-append "PREFIX=" %output))
1778 #:phases (modify-phases %standard-phases
1779 (delete 'configure))))
1783 ("libgcrypt" ,libgcrypt)
1785 ("ffmpeg" ,ffmpeg)))
1787 `(("pkg-config" ,pkg-config)))
1788 (home-page "http://6xq.net/projects/pianobar/")
1789 (synopsis "Console-based pandora.com player")
1790 (description "pianobar is a console-based music player for the
1791 personalized online radio pandora.com. It has configurable keys for playing
1792 and managing stations, can be controlled remotely via fifo, and can run
1793 event-based scripts for scrobbling, notifications, etc.")
1794 (license license:expat)))
1796 (define-public python-mutagen
1798 (name "python-mutagen")
1802 (uri (pypi-uri "mutagen" version))
1805 "16fnnhspniac2i7qswxafawsh2x2a803hmc6bn9k1zl5fxq1380a"))))
1806 (build-system python-build-system)
1807 (home-page "https://bitbucket.org/lazka/mutagen")
1808 (synopsis "Read and write audio tags")
1809 (description "Mutagen is a Python module to handle audio metadata. It
1810 supports ASF, FLAC, M4A, Monkey’s Audio, MP3, Musepack, Ogg FLAC, Ogg Speex, Ogg
1811 Theora, Ogg Vorbis, True Audio, WavPack and OptimFROG audio files. All versions
1812 of ID3v2 are supported, and all standard ID3v2.4 frames are parsed. It can read
1813 Xing headers to accurately calculate the bitrate and length of MP3s. ID3 and
1814 APEv2 tags can be edited regardless of audio format. It can also manipulate Ogg
1815 streams on an individual packet/page level.")
1816 (license license:gpl2))) ; "later version" never mentioned
1818 (define-public python2-mutagen
1819 (package-with-python2 python-mutagen))
1821 (define-public python-musicbrainzngs
1823 (name "python-musicbrainzngs")
1827 (uri (pypi-uri "musicbrainzngs" version))
1830 "12f48llmdf5rkiqxcb70k2k1dmhm8byq0ifazvlrca8dfnmqh4r8"))))
1831 (build-system python-build-system)
1832 (home-page "https://python-musicbrainzngs.readthedocs.org/")
1833 (synopsis "Python bindings for MusicBrainz NGS webservice")
1834 (description "Musicbrainzngs implements Python bindings of the MusicBrainz
1835 web service. This library can be used to retrieve music metadata from the
1836 MusicBrainz database.")
1837 ;; 'musicbrainzngs/compat.py' is ISC licensed.
1838 (license (list license:bsd-2 license:isc))))
1840 (define-public python2-musicbrainzngs
1841 (package-with-python2 python-musicbrainzngs))
1843 (define-public python2-pyechonest
1845 (name "python2-pyechonest")
1849 (uri (pypi-uri "pyechonest" version))
1852 "1584nira3rkiman9dm81kdshihmkj21s8navndz2l8spnjwb790x"))))
1853 (build-system python-build-system)
1855 `(;; Python 3 is not supported:
1856 ;; https://github.com/echonest/pyechonest/issues/42
1857 #:python ,python-2))
1858 (native-inputs `(("python2-setuptools" ,python2-setuptools)))
1859 (home-page "https://github.com/echonest/pyechonest")
1860 (synopsis "Python interface to The Echo Nest APIs")
1861 (description "Pyechonest is a Python library for the Echo Nest API. With
1862 Pyechonest you have Python access to the entire set of API methods including:
1865 @item artist - search for artists by name, description, or attribute, and get
1866 back detailed information about any artist including audio, similar artists,
1867 blogs, familiarity, hotttnesss, news, reviews, urls and video.
1868 @item song - search songs by artist, title, description, or attribute (tempo,
1869 duration, etc) and get detailed information back about each song, such as
1870 hotttnesss, audio_summary, or tracks.
1871 @item track - upload a track to the Echo Nest and receive summary information
1872 about the track including key, duration, mode, tempo, time signature along with
1873 detailed track info including timbre, pitch, rhythm and loudness information.
1875 (license license:bsd-3)))
1877 (define-public python-pylast
1879 (name "python-pylast")
1883 (uri (pypi-uri "pylast" version))
1886 "10znd9xr1vs2ix519jkz3ccm90zciaddcdr2w2wrrh2jyy3bc59a"))))
1887 (build-system python-build-system)
1889 `(("python-coverage" ,python-coverage)
1890 ("python-mock" ,python-mock)
1891 ("python-pep8" ,python-pep8)
1892 ("python-pytest" ,python-pytest)
1893 ("python-pyflakes" ,python-pyflakes)
1894 ("python-pyyaml" ,python-pyyaml)))
1896 `(("python-six" ,python-six)))
1897 (home-page "https://github.com/pylast/pylast")
1898 (synopsis "Python interface to Last.fm and Libre.fm")
1899 (description "A Python interface to Last.fm and other API-compatible
1900 websites such as Libre.fm.")
1901 (license license:asl2.0)
1902 (properties `((python2-variant . ,(delay python2-pylast))))))
1904 (define-public python2-pylast
1905 (let ((pylast (package-with-python2
1906 (strip-python2-variant python-pylast))))
1907 (package (inherit pylast)
1909 `(("python2-setuptools" ,python2-setuptools)
1910 ,@(package-native-inputs pylast))))))
1912 (define-public beets
1918 (uri (pypi-uri "beets" version))
1921 "1vi1dh3fr554bnm8y9pjy09hblw18v6cl2jppzwlp72afri1w93b"))))
1922 (build-system python-build-system)
1924 `(#:python ,python-2 ; only Python 2 is supported
1926 (modify-phases %standard-phases
1927 (add-after 'unpack 'set-HOME
1928 (lambda _ (setenv "HOME" (string-append (getcwd) "/tmp"))))
1930 (lambda _ (zero? (system* "nosetests" "-v")))))))
1932 `(("python2-beautifulsoup4" ,python2-beautifulsoup4)
1933 ("python2-flask" ,python2-flask)
1934 ("python2-setuptools" ,python2-setuptools)
1935 ("python2-mock" ,python2-mock)
1936 ("python2-mpd2" ,python2-mpd2)
1937 ("python2-nose" ,python2-nose)
1938 ("python2-pathlib" ,python2-pathlib)
1939 ("python2-pyxdg" ,python2-pyxdg)
1940 ("python2-pyechonest" ,python2-pyechonest)
1941 ("python2-pylast" ,python2-pylast)
1942 ("python2-rarfile" ,python2-rarfile)
1943 ("python2-responses" ,python2-responses)))
1944 ;; TODO: Install optional plugins and dependencies.
1946 `(("python2-enum34" ,python2-enum34)
1947 ("python2-jellyfish" ,python2-jellyfish)
1948 ("python2-munkres" ,python2-munkres)
1949 ("python2-musicbrainzngs" ,python2-musicbrainzngs)
1950 ("python2-mutagen" ,python2-mutagen)
1951 ("python2-pyyaml" ,python2-pyyaml)
1952 ("python2-unidecode" ,python2-unidecode)))
1953 (home-page "http://beets.io")
1954 (synopsis "Music organizer")
1955 (description "The purpose of beets is to get your music collection right
1956 once and for all. It catalogs your collection, automatically improving its
1957 metadata as it goes using the MusicBrainz database. Then it provides a variety
1958 of tools for manipulating and accessing your music.")
1959 (license license:expat)))
1961 (define-public milkytracker
1963 (name "milkytracker")
1967 (uri (string-append "http://milkytracker.titandemo.org/files/"
1968 name "-" version ".tar.bz2"))
1971 "1v9vp8vi24lkagfpr92c128whvakwgrm9pq2zf6ijpl5sh7014zb"))))
1972 (build-system gnu-build-system)
1974 `(#:make-flags '("CXXFLAGS=-lasound")))
1976 `(("alsa-lib" ,alsa-lib)
1981 `(("pkg-config" ,pkg-config)))
1982 (synopsis "Music tracker for working with .MOD/.XM module files")
1983 (description "MilkyTracker is a music application for creating .MOD and .XM
1984 module files. It attempts to recreate the module replay and user experience of
1985 the popular DOS program Fasttracker II, with special playback modes available
1986 for improved Amiga ProTracker 2/3 compatibility.")
1987 (home-page "http://milkytracker.titandemo.org/")
1988 ;; 'src/milkyplay' is under Modified BSD, the rest is under GPL3 or later.
1989 (license (list license:bsd-3 license:gpl3+))))
1991 (define-public schismtracker
1993 (name "schismtracker")
1994 (version "20160521")
1998 "https://github.com/" name "/" name "/archive/"
2000 (file-name (string-append name "-" version ".tar.gz"))
2003 "0c6r24wm3rldm4j8cskl9xnixj3rwi3lnrhckw5gv43wpy6h4jcz"))
2004 (modules '((guix build utils)))
2006 ;; Remove use of __DATE__ and __TIME__ for reproducibility.
2007 `(substitute* "schism/version.c"
2008 (("Schism Tracker build %s %s.*$")
2009 (string-append "Schism Tracker version " ,version "\");"))))))
2010 (build-system gnu-build-system)
2013 (modify-phases %standard-phases
2014 (add-after 'unpack 'autoconf
2015 (lambda _ (zero? (system* "autoreconf" "-vfi"))))
2016 (add-before 'configure 'link-libm
2017 (lambda _ (setenv "LIBS" "-lm") #t)))))
2019 `(("autoconf" ,autoconf)
2020 ("automake" ,automake)
2021 ("python" ,python)))
2023 `(("alsa-lib" ,alsa-lib) ; for asound dependency
2025 ("libxext" ,libxext)
2027 (home-page "http://schismtracker.org")
2028 (synopsis "Oldschool sample-based music composition tool")
2030 "Schism Tracker is a reimplementation of Impulse Tracker, a program used to
2031 create high quality music without the requirements of specialized, expensive
2032 equipment, and with a unique \"finger feel\" that is difficult to replicate in
2033 part. The player is based on a highly modified version of the ModPlug engine,
2034 with a number of bugfixes and changes to improve IT playback.")
2035 (license license:gpl2+)))
2043 (uri (string-append "http://ftp.daper.net/pub/soft/"
2045 name "-" version ".tar.bz2"))
2048 "1wn4za08z64bhsgfhr9c0crfyvy8c3b6a337wx7gz19am5srqh8v"))))
2049 (build-system gnu-build-system)
2051 `(("alsa-lib" ,alsa-lib)
2057 ("libid3tag" ,libid3tag)
2058 ("libltdl" ,libltdl)
2059 ("libmodplug" ,libmodplug)
2060 ("libmpcdec" ,libmpcdec)
2062 ("ncurses" ,ncurses)
2063 ("openssl" ,openssl)
2064 ("sasl" ,cyrus-sasl)
2067 ("wavpack" ,wavpack)
2070 `(("pkg-config" ,pkg-config)))
2071 (synopsis "Console audio player designed to be powerful and easy to use")
2073 "Music on Console is a console audio player that supports many file
2074 formats, including most audio formats recognized by FFMpeg.")
2075 (home-page "http://moc.daper.net")
2076 (license license:gpl2+)))
2078 (define-public midicsv
2084 (uri (string-append "http://www.fourmilab.ch/webtools/midicsv/"
2085 name "-" version ".tar.gz"))
2088 "1vvhk2nf9ilfw0wchmxy8l13hbw9cnpz079nsx5srsy4nnd78nkw"))))
2089 (build-system gnu-build-system)
2091 `(#:phases (modify-phases %standard-phases (delete 'configure))
2092 #:make-flags (list "CC=gcc" (string-append "INSTALL_DEST=" %output))))
2093 (synopsis "Convert MIDI files to and from CSV")
2095 "Midicsv reads a standard MIDI file and decodes it into a comma-separated
2096 value file (CSV), which preserves all the information in the MIDI file. The
2097 ASCII CSV file may be loaded into a spreadsheet or database application, or
2098 processed by a program to transform the MIDI data (for example, to key
2099 transpose a composition or extract a track from a multi-track sequence). A
2100 CSV file in the format created by midicsv may be converted back into a
2101 standard MIDI file with the csvmidi program.")
2102 (home-page "http://www.fourmilab.ch/webtools/midicsv/")
2103 (license license:public-domain)))
2105 (define-public gx-guvnor-lv2
2106 (let ((commit "9f528a7623a201383e119bb6a2df32b18396a9d5")
2109 (name "gx-guvnor-lv2")
2110 (version (string-append "0-" revision "." (string-take commit 9)))
2114 (url "https://github.com/brummer10/GxGuvnor.lv2")
2118 "10zx84p2vd7i1yqc5ma9p17927265j4g0zfwv9rxladw0nm8y45k"))
2119 (file-name (string-append name "-" version "-checkout"))))
2120 (build-system gnu-build-system)
2122 `(;; The check target is used only to output a warning.
2125 (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
2127 (modify-phases %standard-phases
2130 (substitute* "Makefile"
2131 (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n")
2132 ;; Avoid rebuilding everything
2133 (("install : all") "install:"))
2137 (home-page "https://github.com/brummer10/GxGuvnor.lv2")
2138 (synopsis "Overdrive/distortion pedal simulation")
2139 (description "This package provides the LV2 plugin \"GxGuvnor\", a
2140 simulation of an overdrive or distortion pedal for guitars.")
2141 ;; The LICENSE file says GPLv3 but the license headers in the files say
2143 (license license:gpl2+))))
2145 (define-public gx-vbass-preamp-lv2
2146 (let ((commit "0e599abab10c7669dd444e5d06f671c2fc1b9c6c")
2148 (package (inherit gx-guvnor-lv2)
2149 (name "gx-vbass-preamp-lv2")
2150 (version (string-append "0-" revision "." (string-take commit 9)))
2154 (url "https://github.com/brummer10/GxVBassPreAmp.lv2")
2158 "1dzksdfrva666gpi62fd2ni9rhf18sl917f1894qr0b17pbdh9k1"))
2159 (file-name (string-append name "-" version "-checkout"))))
2160 (home-page "https://github.com/brummer10/GxVBassPreAmp.lv2")
2161 (synopsis "Simulation of the Vox Venue Bass 100 Pre Amp Section")
2162 (description "This package provides the LV2 plugin \"GxVBassPreAmp\", a
2163 pre-amplifier simulation modelled after the 1984 Vox Venue Bass 100 Pre Amp
2166 (define-public gx-overdriver-lv2
2167 (let ((commit "ed71801987449414bf3adaa0dbfac68e8775f1ce")
2169 (package (inherit gx-guvnor-lv2)
2170 (name "gx-overdriver-lv2")
2171 (version (string-append "0-" revision "." (string-take commit 9)))
2175 (url "https://github.com/brummer10/GxOverDriver.lv2")
2179 "13j614jh525fbkby79nnzwj0z1ac0c9wclyn5pfqvkmx6a7j24r8"))
2180 (file-name (string-append name "-" version "-checkout"))))
2181 (home-page "https://github.com/brummer10/GxOverDriver.lv2")
2182 (synopsis "Overdrive effect with level and tone control")
2183 (description "This package provides the LV2 plugin \"GxOverDriver\", an
2184 overdrive effect."))))
2186 (define-public gx-tone-mender-lv2
2187 (let ((commit "b6780b4a3e4782b3ed0e5882d6788f178aed138f")
2189 (package (inherit gx-guvnor-lv2)
2190 (name "gx-tone-mender-lv2")
2191 (version (string-append "0-" revision "." (string-take commit 9)))
2195 (url "https://github.com/brummer10/GxToneMender.lv2")
2199 "07qdcfsvv2vdnfnjh91pfgvjdcs5y91nvwfm8c0z8fp6b4bk7a9q"))
2200 (file-name (string-append name "-" version "-checkout"))))
2201 (home-page "https://github.com/brummer10/GxToneMender.lv2")
2202 (synopsis "Clean boost with a 3-knob tonestack")
2203 (description "This package provides the LV2 plugin \"GxToneMender\", a
2204 clean boost effect with a 3-knob tonestack."))))
2206 (define-public gx-push-pull-lv2
2207 (let ((commit "7f76ae2068498643ac8671ee0930b13ee3fd8eb5")
2209 (package (inherit gx-guvnor-lv2)
2210 (name "gx-push-pull-lv2")
2211 (version (string-append "0-" revision "." (string-take commit 9)))
2215 (url "https://github.com/brummer10/GxPushPull.lv2")
2219 "12f5hwck2irph0gjbj8xy8jqcqdwb8l1hlwf29k0clz52h1jhb5q"))
2220 (file-name (string-append name "-" version "-checkout"))))
2221 (home-page "https://github.com/brummer10/GxPushPull.lv2")
2222 (synopsis "Octave up push pull transistor fuzz simulation")
2223 (description "This package provides the LV2 plugin \"GxPushPull\", a
2224 simulation of a push pull transistor fuzz effect with added high octave."))))
2226 (define-public gx-suppa-tone-bender-lv2
2227 (let ((commit "4e6dc713ec24e7fcf5ea23b7e685af627c01b9c9")
2229 (package (inherit gx-guvnor-lv2)
2230 (name "gx-suppa-tone-bender-lv2")
2231 (version (string-append "0-" revision "." (string-take commit 9)))
2235 (url "https://github.com/brummer10/GxSuppaToneBender.lv2")
2239 "1i22xr252nkbazkwidll2zb3i96610gx65qn5djdkijlz7j77138"))
2240 (file-name (string-append name "-" version "-checkout"))))
2241 (home-page "https://github.com/brummer10/GxSuppaToneBender.lv2")
2242 (synopsis "Simulation of the Vox Suppa Tone Bender pedal")
2243 (description "This package provides the LV2 plugin
2244 \"GxSuppaToneBender\", a simulation modelled after the Vox Suppa Tone Bender
2247 (define-public gx-saturator-lv2
2248 (let ((commit "0b581ac85c515325b9f16e51937cae6e1bf81a0a")
2250 (package (inherit gx-guvnor-lv2)
2251 (name "gx-saturator-lv2")
2252 (version (string-append "0-" revision "." (string-take commit 9)))
2256 (url "https://github.com/brummer10/GxSaturator.lv2")
2260 "1cl785pzq8zk55m1rnhfd6qsabci6kpf4pf002gwr91vagyq246z"))
2261 (file-name (string-append name "-" version "-checkout"))))
2262 (home-page "https://github.com/brummer10/GxSaturator.lv2")
2263 (synopsis "Saturation effect")
2264 (description "This package provides the LV2 plugin \"GxSaturator\", a
2265 saturation effect."))))
2267 (define-public gx-hyperion-lv2
2268 (let ((commit "6a096a664e553e551e179e85cf390bd1683410fb")
2270 (package (inherit gx-guvnor-lv2)
2271 (name "gx-hyperion-lv2")
2272 (version (string-append "0-" revision "." (string-take commit 9)))
2276 (url "https://github.com/brummer10/GxHyperion.lv2")
2280 "1ksv3wmylhwbf6kjl2lnhr14h9rfl291cfm21471gnb1r68yqfxh"))
2281 (file-name (string-append name "-" version "-checkout"))))
2282 (home-page "https://github.com/brummer10/GxHyperion.lv2")
2283 (synopsis "Simulation of the Hyperion Fuzz pedal")
2284 (description "This package provides the LV2 plugin \"GxHyperion\", a
2285 simulation of the Hyperion Fuzz pedal."))))
2287 (define-public gx-voodoo-fuzz-lv2
2288 (let ((commit "aec7889b489385e8add06126e7a36ae2e26254b1")
2290 (package (inherit gx-guvnor-lv2)
2291 (name "gx-voodoo-fuzz-lv2")
2292 (version (string-append "0-" revision "." (string-take commit 9)))
2296 (url "https://github.com/brummer10/GxVoodoFuzz.lv2")
2300 "0mc41ldlv89069iaysnfiqxy5h5sr8mdi5cxm3ij5q5v4jv3viwx"))
2301 (file-name (string-append name "-" version "-checkout"))))
2302 (home-page "https://github.com/brummer10/GxVoodoFuzz.lv2")
2303 (synopsis "Fuzz effect modelled after the Voodoo Lab SuperFuzz")
2304 (description "This package provides the LV2 plugin \"GxVoodooFuzz\", a
2305 simulation modelled after the Voodoo Lab SuperFuzz pedal. It's basically a
2306 Bosstone circuit, followed by the tone control of the FoxToneMachine in
2307 parallel with a DarkBooster, followed by a volume control."))))
2309 (define-public gx-super-fuzz-lv2
2310 (let ((commit "f40389575812c909007d140d327ce579930b71f7")
2312 (package (inherit gx-guvnor-lv2)
2313 (name "gx-super-fuzz-lv2")
2314 (version (string-append "0-" revision "." (string-take commit 9)))
2318 (url "https://github.com/brummer10/GxSuperFuzz.lv2")
2322 "174bibj8qzm8zr6f5h8bcj94iry17zravk8flpdy84n6yg7cixji"))
2323 (file-name (string-append name "-" version "-checkout"))))
2324 (home-page "https://github.com/brummer10/GxSuperFuzz.lv2")
2325 (synopsis "Fuzz effect modelled after the UniVox SuperFuzz")
2326 (description "This package provides the LV2 plugin \"GxVoodooFuzz\", an
2327 analog simulation of the UniVox SuperFuzz pedal. In this simulation the trim
2328 pot, which is usualy in the housing, is exposed as a control parameter. It
2329 adjusts the amount of harmonics."))))
2331 (define-public gx-vintage-fuzz-master-lv2
2332 (let ((commit "0fec0bc1e8a8ba909a68e916e036138a3425d7db")
2334 (package (inherit gx-guvnor-lv2)
2335 (name "gx-vintage-fuzz-master-lv2")
2336 (version (string-append "0-" revision "." (string-take commit 9)))
2340 (url "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
2344 "06szi6d2iwkygbw5azhwzhcl2as4lmk2gs9hanngsf46a1zbdcp7"))
2345 (file-name (string-append name "-" version "-checkout"))))
2346 (home-page "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
2347 (synopsis "Fuzz effect simulation of the vintage Fuzz Master")
2348 (description "This package provides the LV2 plugin
2349 \"GxVintageFuzzMaster\", a simulation of the vintage Fuzz Master pedal."))))
2351 (define-public gx-slow-gear-lv2
2352 (let ((commit "cb852e0426f4e6fe077e7f1ede73a4da335cfc5e")
2354 (package (inherit gx-guvnor-lv2)
2355 (name "gx-slow-gear-lv2")
2356 (version (string-append "0-" revision "." (string-take commit 9)))
2360 (url "https://github.com/brummer10/GxSlowGear.lv2")
2364 "0dp7afi1r3kzciiyn1hrkz6arsq47ys9sx5g4b7xa9k1dv92ishp"))
2365 (file-name (string-append name "-" version "-checkout"))))
2366 (home-page "https://github.com/brummer10/GxSlowGear.lv2")
2367 (synopsis "Slow gear audio effect")
2368 (description "This package provides the LV2 plugin \"GxSlowGear\", a
2369 slow gear audio effect to produce volume swells."))))
2371 (define-public gx-switchless-wah-lv2
2372 (let ((commit "7b08691203314612999f0ce2328cdc1161cd6665")
2374 (package (inherit gx-guvnor-lv2)
2375 (name "gx-switchless-wah-lv2")
2376 (version (string-append "0-" revision "." (string-take commit 9)))
2380 (url "https://github.com/brummer10/GxSwitchlessWah.lv2")
2384 "04jqfpncmrrqn34p21w4v9m2x5a5wsqwbm4f3byxvq4vcibwxzk2"))
2385 (file-name (string-append name "-" version "-checkout"))))
2386 (home-page "https://github.com/brummer10/GxSwitchlessWah.lv2")
2387 (synopsis "Wah emulation with switchless activation")
2388 (description "This package provides the LV2 plugin \"GxSwitchlessWah\",
2389 a simulation of an analog Wah pedal with switchless activation."))))
2391 (define-public mod-utilities
2392 (let ((commit "7cdeeac26ae682730740105ece121d4dddb8ba3f")
2395 (name "mod-utilities")
2396 (version (string-append "0-" revision "." (string-take commit 9)))
2400 (url "https://github.com/moddevices/mod-utilities.git")
2404 "1ilnkbrmwrszxvc21qlb86h29yz7cnc6rcp0jmna1y693ny2qhf4"))
2405 (file-name (string-append name "-" version "-checkout"))))
2406 (build-system gnu-build-system)
2408 `(#:tests? #f ; there are no tests
2410 (list (string-append "INSTALL_PATH="
2411 (assoc-ref %outputs "out")
2414 (modify-phases %standard-phases
2415 (delete 'configure))))
2418 (home-page "https://github.com/moddevices/mod-utilities")
2419 (synopsis "LV2 utility plugins")
2420 (description "This package provides LV2 audio utility plugins, such as
2421 filters, crossovers, simple gain plugins without zipper noise, switch box
2422 plugins, a switch trigger, a toggle switch, and a peakmeter.")
2423 (license license:gpl2+))))