1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
3 ;;; Copyright © 2015, 2016, 2017, 2018 Ricardo Wurmus <rekado@elephly.net>
4 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
5 ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
6 ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
7 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
8 ;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net>
9 ;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net>
10 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
11 ;;; Copyright © 2017 Nils Gillmann <ng0@n0.is>
12 ;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org>
13 ;;; Copyright © 2017, 2018 Nicolas Goaziou <mail@nicolasgoaziou.fr>
14 ;;; Copyright © 2017, 2018 Pierre Langlois <pierre.langlois@gmx.com>
15 ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
16 ;;; Copyright © 2017, 2018 Tobias Geerinckx-Rice <me@tobias.gr>
17 ;;; Copyright © 2018 nee <nee.git@hidamari.blue>
18 ;;; Copyright © 2018 Stefan Reichör <stefan@xsteve.at>
20 ;;; This file is part of GNU Guix.
22 ;;; GNU Guix is free software; you can redistribute it and/or modify it
23 ;;; under the terms of the GNU General Public License as published by
24 ;;; the Free Software Foundation; either version 3 of the License, or (at
25 ;;; your option) any later version.
27 ;;; GNU Guix is distributed in the hope that it will be useful, but
28 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
29 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
30 ;;; GNU General Public License for more details.
32 ;;; You should have received a copy of the GNU General Public License
33 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
35 (define-module (gnu packages music)
36 #:use-module (guix utils)
37 #:use-module (guix packages)
38 #:use-module (guix download)
39 #:use-module (guix git-download)
40 #:use-module ((guix licenses) #:prefix license:)
41 #:use-module (guix build-system gnu)
42 #:use-module (guix build-system ant)
43 #:use-module (guix build-system cmake)
44 #:use-module (guix build-system python)
45 #:use-module (guix build-system scons)
46 #:use-module (guix build-system glib-or-gtk)
47 #:use-module (guix build-system waf)
48 #:use-module (gnu packages)
49 #:use-module (gnu packages algebra)
50 #:use-module (gnu packages apr)
51 #:use-module (gnu packages audio)
52 #:use-module (gnu packages autotools)
53 #:use-module (gnu packages backup)
54 #:use-module (gnu packages base) ;libbdf
55 #:use-module (gnu packages bash)
56 #:use-module (gnu packages bison)
57 #:use-module (gnu packages boost)
58 #:use-module (gnu packages cdrom)
59 #:use-module (gnu packages code)
60 #:use-module (gnu packages check)
61 #:use-module (gnu packages cmake)
62 #:use-module (gnu packages compression)
63 #:use-module (gnu packages crypto)
64 #:use-module (gnu packages curl)
65 #:use-module (gnu packages cyrus-sasl)
66 #:use-module (gnu packages databases)
67 #:use-module (gnu packages datastructures)
68 #:use-module (gnu packages docbook)
69 #:use-module (gnu packages documentation)
70 #:use-module (gnu packages emacs)
71 #:use-module (gnu packages file)
72 #:use-module (gnu packages flex)
73 #:use-module (gnu packages fltk)
74 #:use-module (gnu packages fonts)
75 #:use-module (gnu packages fontutils)
76 #:use-module (gnu packages freedesktop)
77 #:use-module (gnu packages gcc)
78 #:use-module (gnu packages gnupg)
79 #:use-module (gnu packages gettext)
80 #:use-module (gnu packages ghostscript)
81 #:use-module (gnu packages gl)
82 #:use-module (gnu packages glib)
83 #:use-module (gnu packages gnome)
84 #:use-module (gnu packages graphics)
85 #:use-module (gnu packages gstreamer)
86 #:use-module (gnu packages gtk)
87 #:use-module (gnu packages guile)
88 #:use-module (gnu packages image)
89 #:use-module (gnu packages imagemagick)
90 #:use-module (gnu packages java)
91 #:use-module (gnu packages libffi)
92 #:use-module (gnu packages libusb)
93 #:use-module (gnu packages linux) ; for alsa-utils
94 #:use-module (gnu packages lirc)
95 #:use-module (gnu packages llvm)
96 #:use-module (gnu packages man)
97 #:use-module (gnu packages mp3)
98 #:use-module (gnu packages mpd)
99 #:use-module (gnu packages ncurses)
100 #:use-module (gnu packages netpbm)
101 #:use-module (gnu packages pcre)
102 #:use-module (gnu packages pdf)
103 #:use-module (gnu packages perl)
104 #:use-module (gnu packages pkg-config)
105 #:use-module (gnu packages protobuf)
106 #:use-module (gnu packages pulseaudio) ;libsndfile
107 #:use-module (gnu packages python)
108 #:use-module (gnu packages python-web)
109 #:use-module (gnu packages qt)
110 #:use-module (gnu packages rdf)
111 #:use-module (gnu packages readline)
112 #:use-module (gnu packages rsync)
113 #:use-module (gnu packages sdl)
114 #:use-module (gnu packages tcl)
115 #:use-module (gnu packages texinfo)
116 #:use-module (gnu packages tex)
117 #:use-module (gnu packages tls)
118 #:use-module (gnu packages version-control)
119 #:use-module (gnu packages video)
120 #:use-module (gnu packages web)
121 #:use-module (gnu packages wxwidgets)
122 #:use-module (gnu packages xml)
123 #:use-module (gnu packages xorg)
124 #:use-module (gnu packages xiph)
125 #:use-module ((srfi srfi-1) #:select (last)))
127 (define-public aria-maestosa
129 (name "aria-maestosa")
133 (uri (string-append "mirror://sourceforge/ariamaestosa/ariamaestosa/"
134 version "/AriaSrc-" version ".tar.bz2"))
137 "1cs3z6frx2ch7rm5ammx9p0rxcjrbj1vq14hvcbimpaw39rdsn3d"))))
138 (build-system scons-build-system)
140 `(#:tests? #f ;no tests
142 (list (string-append "prefix=" (assoc-ref %outputs "out")))
143 #:scons ,scons-python2
145 (modify-phases %standard-phases
147 (add-after 'unpack 'scons-propagate-environment
149 ;; By design, SCons does not, by default, propagate
150 ;; environment variables to subprocesses. See:
151 ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
152 ;; Here, we modify the SConstruct file to arrange for
153 ;; environment variables to be propagated.
154 (substitute* "SConstruct"
155 (("env = Environment\\(\\)")
156 "env = Environment(ENV=os.environ)")
157 ;; Scons errors out when copying subdirectories from Resources,
158 ;; so we move them instead.
160 ;; We move the "score" and "Documentation" directories at once,
161 ;; so we have to ignore files contained therein.
162 (("if \".svn\" in file" line)
164 " or \"score/\" in file"
165 " or \"Documentation/\" in file")))
167 (add-after 'install 'fix-directory-permissions
168 (lambda* (#:key outputs #:allow-other-keys)
169 (let ((out (assoc-ref outputs "out")))
170 (chmod (string-append out "/share/Aria/Documentation") #o555)
171 (chmod (string-append out "/share/Aria/score") #o555)
174 `(("wxwidgets" ,wxwidgets)
176 ("alsa-lib" ,alsa-lib)))
178 `(("pkg-config" ,pkg-config)))
179 (home-page "http://ariamaestosa.sourceforge.net/")
180 (synopsis "MIDI sequencer and editor")
182 "Aria Maestosa is a MIDI sequencer and editor. It lets you compose, edit
183 and play MIDI files with a few clicks in a user-friendly interface offering
184 score, keyboard, guitar, drum and controller views.")
185 (license license:gpl3+)))
187 ;; We don't use the latest release because it depends on Qt4. Instead we
188 ;; download the sources from the tip of the "qt5" branch.
189 (define-public clementine
190 (let ((commit "0a59257dc334b8df60a4d7d90b04f1766747efcf")
194 (version (string-append "1.3.1-" revision "." (string-take commit 7)))
198 (url "https://github.com/clementine-player/Clementine.git")
200 (file-name (string-append name "-" version "-checkout"))
203 "0cdcj7di7j9jgzc1ihjna1a5df64f9hnmx7b9kh8rlg76hc0l0hi"))
204 (modules '((guix build utils)))
209 (delete-file-recursively
210 (string-append "3rdparty/" dir)))
212 ;; TODO: The following dependencies are still bundled:
213 ;; - "qxt": Appears to be unmaintained upstream.
215 ;; - "qtsingleapplication"
217 ;; - "qtiocompressor"
218 ;; - "gmock": The tests crash when using our googletest
219 ;; package instead of the bundled gmock.
227 "sha2" ;; Replaced by openssl.
231 (patches (search-patches "clementine-use-openssl.patch"
232 "clementine-remove-crypto++-dependency.patch"))))
233 (build-system cmake-build-system)
235 '(#:test-target "clementine_test"
237 (list ;; Requires unpackaged "projectm"
238 "-DENABLE_VISUALISATIONS=OFF"
239 ;; Otherwise it may try to download a non-free library at run-time.
240 ;; TODO In an origin snippet, remove the code that performs the
242 "-DHAVE_SPOTIFY_DOWNLOADER=FALSE"
243 "-DUSE_SYSTEM_SHA2=TRUE")
245 (modify-phases %standard-phases
246 (add-after 'install 'wrap-program
247 (lambda* (#:key inputs outputs #:allow-other-keys)
248 (let ((out (assoc-ref outputs "out"))
249 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
250 (wrap-program (string-append out "/bin/clementine")
251 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
254 `(("gettext" ,gettext-minimal)
255 ("pkg-config" ,pkg-config)
256 ("qtlinguist" ,qttools)))
259 ("chromaprint" ,chromaprint)
263 ("gstreamer" ,gstreamer)
264 ("gst-plugins-base" ,gst-plugins-base)
266 ("libmygpo-qt" ,libmygpo-qt)
267 ("libechonest" ,libechonest)
268 ;; TODO: Package libgpod.
272 ("protobuf" ,protobuf)
273 ("pulseaudio" ,pulseaudio)
275 ("qtx11extras" ,qtx11extras)
276 ("qtwebkit" ,qtwebkit)
277 ("sqlite" ,sqlite-with-fts3)
278 ("sparsehash" ,sparsehash)
280 (home-page "http://clementine-player.org")
281 (synopsis "Music player and library organizer")
282 (description "Clementine is a multiplatform music player. It is inspired
283 by Amarok 1.4, focusing on a fast and easy-to-use interface for searching and
284 playing your music.")
286 ;; clementine and qtiocompressor are under GPLv3.
288 ;; gmock is under BSD-3.
290 ;; qxt is under CPL1.0.
292 ;; qsqlite and qtsingleapplication are under LGPL2.1+.
294 ;; qocoa is under MIT and CC by-sa for the icons.
295 license:cc-by-sa3.0)))))
304 "https://github.com/" name "/" name "/archive/v"
306 (file-name (string-append name "-" version ".tar.gz"))
309 "0raixgjavkm7hxppzsc5zqbfbh2bhjcmbiplhnsxsmyj8flafyc1"))))
310 (build-system gnu-build-system)
312 `(#:tests? #f ; cmus does not include tests
314 (modify-phases %standard-phases
317 (lambda* (#:key outputs #:allow-other-keys)
318 (let ((out (assoc-ref outputs "out")))
320 ;; It's an idiosyncratic configure script that doesn't
321 ;; understand --prefix=..; it wants prefix=.. instead.
323 (system* "./configure"
324 (string-append "prefix=" out)))))))))
325 ;; TODO: cmus optionally supports the following formats, which haven't yet
326 ;; been added to Guix:
330 ;; - DISCID_LIBS, apparently different from cd-discid which is included in
331 ;; Guix. See <http://sourceforge.net/projects/discid/>
333 `(("pkg-config" ,pkg-config)))
335 `(("alsa-lib" ,alsa-lib)
341 ("libcdio-paranoia" ,libcdio-paranoia)
344 ("libmodplug" ,libmodplug)
345 ("libmpcdec" ,libmpcdec)
346 ("libsamplerate" ,libsamplerate)
347 ("libvorbis" ,libvorbis)
349 ("opusfile" ,opusfile)
350 ("pulseaudio" ,pulseaudio)
351 ("wavpack" ,wavpack)))
352 (home-page "https://cmus.github.io/")
353 (synopsis "Small console music player")
354 (description "Cmus is a small and fast console music player. It supports
355 many input formats and provides a customisable Vi-style user interface.")
356 (license license:gpl2+)))
358 (define-public denemo
364 (uri (string-append "mirror://gnu/denemo/denemo-"
368 "0hggf8c4xcrjcxd5m00r788r7jg7g8ff54w2idfaqpj5j2ix3299"))))
369 (build-system gnu-build-system)
372 (modify-phases %standard-phases
374 ;; Denemo's documentation says to use this command to run its
377 (zero? (system* "make" "-C" "tests" "check"))))
378 (add-before 'build 'set-lilypond
379 ;; This phase sets the default path for lilypond to its current
380 ;; location in the store.
381 (lambda* (#:key inputs #:allow-other-keys)
382 (let* ((lilypond (string-append (assoc-ref inputs "lilypond")
384 (substitute* "src/core/prefops.c"
385 (("g_string_new \\(\"lilypond\"\\);")
386 (string-append "g_string_new (\""
390 (add-after 'install 'correct-filename
391 ;; "graft-derivation/shallow" from the (guix grafts) module runs in
392 ;; the C locale, expecting file names to be ASCII encoded. This
393 ;; phase renames a filename with a Unicode character in it to meet
394 ;; the aforementioned condition.
395 (lambda* (#:key outputs #:allow-other-keys)
396 (let* ((out (assoc-ref outputs "out")))
397 (chdir (string-append
399 "/share/denemo/templates/instruments/woodwind"))
400 (rename-file "Clarinet in B♭.denemo"
401 "Clarinet in Bb.denemo"))
404 `(("glib:bin" ,glib "bin") ; for gtester
405 ("pkg-config" ,pkg-config)))
407 `(("alsa-lib" ,alsa-lib)
411 ("fluidsynth" ,fluidsynth)
415 ("gtksourceview" ,gtksourceview)
417 ("intltool" ,intltool)
419 ("libsndfile" ,libsndfile)
422 ("lilypond" ,lilypond)
423 ("portaudio" ,portaudio)
424 ("portmidi" ,portmidi)
425 ("rubberband" ,rubberband)))
426 (synopsis "Graphical music notation, front-end to GNU Lilypond")
428 "GNU Denemo is a music notation editor that provides a convenient
429 interface to the powerful music engraving program Lilypond. Music can be
430 typed in using the computer keyboard, played in using a MIDI keyboard, or
431 even input via a microphone connected to the sound card. The final product
432 is publication-quality music notation that is continuously generated in the
433 background while you work.")
434 (home-page "http://www.denemo.org")
435 (license license:gpl3+)))
437 (define-public hydrogen
440 (version "1.0.0-beta1")
444 (url "https://github.com/hydrogen-music/hydrogen.git")
446 (file-name (string-append name "-" version "-checkout"))
449 "0nv83l70j5bjz2wd6n3a8cq3bmgrvdvg6g2hjhc1g5h6xnbqsh9x"))))
450 (build-system cmake-build-system)
452 `(#:test-target "tests"
454 (modify-phases %standard-phases
455 (add-after 'unpack 'fix-data-directory
456 (lambda* (#:key outputs #:allow-other-keys)
457 (substitute* "CMakeLists.txt"
458 (("/usr/share/pixmaps")
459 (string-append (assoc-ref outputs "out")
463 `(("cppunit" ,cppunit)
464 ("pkg-config" ,pkg-config)))
466 `(("alsa-lib" ,alsa-lib)
468 ;; ("ladspa" ,ladspa) ; cannot find during configure
470 ("libarchive" ,libarchive)
471 ("libsndfile" ,libsndfile)
475 ("qtxmlpatterns" ,qtxmlpatterns)
477 (home-page "http://www.hydrogen-music.org")
478 (synopsis "Drum machine")
480 "Hydrogen is an advanced drum machine for GNU/Linux. Its main goal is to
481 enable professional yet simple and intuitive pattern-based drum programming.")
482 (license license:gpl2+)))
484 (define-public easytag
490 (uri (string-append "mirror://gnome/sources/easytag/2.4/easytag-"
494 "1mbxnqrw1fwcgraa1bgik25vdzvf97vma5pzknbwbqq5ly9fwlgw"))))
495 (build-system glib-or-gtk-build-system)
497 `(("desktop-file-utils" ,desktop-file-utils)
499 ("intltool" ,intltool)
501 ("pkg-config" ,pkg-config)
502 ("xmllint" ,libxml2)))
507 ("libid3tag" ,libid3tag)
508 ("libvorbis" ,libvorbis)
509 ("opusfile" ,opusfile)
516 (modify-phases %standard-phases
517 (add-before 'configure 'configure-libid3tag
518 (lambda* (#:key inputs #:allow-other-keys)
519 ;; libid3tag does not provide a .pc file and EasyTAG's configure
520 ;; script healivy relies on pkg-config. Providing a temporary
521 ;; local .pc file is easier than patching the configure script.
522 (let* ((libid3tag (assoc-ref inputs "libid3tag")))
523 (mkdir-p "pkgconfig")
525 "pkgconfig/id3tag.pc"
529 libdir=${prefix}/lib~@
530 includedir=${prefix}/include~@
531 Libs: -L${libdir} -lid3tag -lz~@
532 Cflags: -I${includedir}~%"
534 (setenv "PKG_CONFIG_PATH"
535 (string-append (getenv "PKG_CONFIG_PATH")
536 ":" (getcwd) "/pkgconfig")))))
537 (add-after 'unpack 'patch-makefile
539 (substitute* "Makefile.in"
540 ;; The Makefile generates a test-desktop-file-validate.sh
541 ;; script with /bin/sh hard-coded.
542 (("/bin/sh") (which "sh"))
543 ;; Don't create 'icon-theme.cache'.
544 (("gtk-update-icon-cache") "true")))))))
545 (home-page "https://wiki.gnome.org/Apps/EasyTAG")
546 (synopsis "Simple application for viewing and editing tags in audio files")
548 "EasyTAG is an application for viewing and editing tags in audio files.
549 It supports MP3, MP2, MP4/AAC, FLAC, Ogg Opus, Ogg Speex, Ogg Vorbis,
550 MusePack, Monkey's Audio, and WavPack files.")
551 (license license:gpl2+)))
553 (define-public extempore
560 "https://github.com/digego/extempore/archive/"
564 "1wap1mvsicrhlazikf7l8zxg37fir8bmnh9rin28m1rix730vcch"))
565 (file-name (string-append name "-" version ".tar.gz"))))
566 (build-system cmake-build-system)
568 `(;; The default target also includes ahead-of-time compilation of the
569 ;; standard libraries. However, during the "install" phase this would
570 ;; happen *again* for unknown reasons. Hence we only build the
571 ;; extempore executable during the build phase.
572 #:make-flags '("extempore")
573 #:configure-flags '("-DJACK=ON"
574 ;; We want to distribute.
576 ;; Don't download any dependencies.
578 #:modules ((ice-9 match)
579 (guix build cmake-build-system)
582 (modify-phases %standard-phases
583 (add-after 'unpack 'patch-directories
584 (lambda* (#:key outputs #:allow-other-keys)
585 ;; Rewrite default path to runtime directory
586 (substitute* "src/Extempore.cpp"
587 (("runtimedir \\+= \"runtime\"")
588 (string-append "runtimedir = \""
589 (assoc-ref outputs "out")
590 "/lib/extempore/runtime\"")))
591 (substitute* "extras/extempore.el"
592 (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
593 (string-append "(runtime-directory \""
594 (assoc-ref outputs "out")
595 "/lib/extempore/runtime"
598 (add-after 'unpack 'link-with-additional-libs
600 ;; The executable must be linked with libffi and zlib.
601 (substitute* "CMakeLists.txt"
602 (("add_dependencies\\(aot_extended extended_deps\\)") "")
603 (("target_link_libraries\\(extempore PRIVATE dl" line)
604 (string-append line " ffi z")))
606 ;; FIXME: AOT compilation of the nanovg bindings fail with the error:
607 ;; "Compiler Error could not bind _nvgLinearGradient"
608 (add-after 'unpack 'disable-nanovg
610 (substitute* "CMakeLists.txt"
611 (("aotcompile_lib\\(libs/external/nanovg.xtm.*") ""))
613 ;; FIXME: All examples that are used as tests segfault for some
615 (add-after 'unpack 'disable-broken-tests
617 (substitute* "CMakeLists.txt"
618 (("extempore_add_example_as_test\\(.*") ""))
620 (add-after 'unpack 'hardcode-external-lib-paths
621 (lambda* (#:key inputs #:allow-other-keys)
622 (use-modules (ice-9 match))
625 ((file-name lib pkg-name)
626 (substitute* (string-append "libs/external/" file-name ".xtm")
627 ((lib) (string-append (assoc-ref inputs pkg-name)
629 '(("assimp" "libassimp.so" "assimp")
630 ("portmidi" "libportmidi.so" "portmidi")
631 ("sndfile" "libsndfile.so" "libsndfile")
632 ("fft" "libkiss_fft.so" "kiss-fft")
633 ("stb_image" "libstb_image.so" "stb-image")
634 ("nanovg" "libnanovg.so" "nanovg")
635 ("glext" "libGL.so" "mesa")
636 ("glfw3" "libglfw.so" "glfw")
637 ("gl/glcore-directbind" "libGL.so" "mesa")
638 ("gl/glcompat-directbind" "libGL.so" "mesa")))
640 (add-after 'unpack 'use-own-llvm
641 (lambda* (#:key inputs #:allow-other-keys)
642 (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
643 ;; Our LLVM builds shared libraries, so Extempore should use
645 (substitute* "CMakeLists.txt"
646 (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
648 (add-after 'unpack 'fix-aot-compilation
649 (lambda* (#:key outputs #:allow-other-keys)
650 (substitute* "CMakeLists.txt"
651 ;; EXT_SHARE_DIR does not exist before installation, so the
652 ;; working directory should be the source directory instead.
653 (("WORKING_DIRECTORY \\$\\{EXT_SHARE_DIR\\}")
654 "WORKING_DIRECTORY ${CMAKE_SOURCE_DIR}")
655 ;; Extempore needs to be told where the runtime is to be found.
656 ;; While we're at it we disable automatic tuning for a specific
657 ;; CPU to make binary substitution possible.
658 (("COMMAND extempore" prefix)
659 (string-append prefix " --sharedir " (getcwd)
660 " --mcpu=generic --attr=none")))
663 `(("llvm" ,llvm-for-extempore)
666 ("libsndfile" ,libsndfile)
669 ("stb-image" ,stb-image-for-extempore)
670 ("kiss-fft" ,kiss-fft-for-extempore)
671 ("nanovg" ,nanovg-for-extempore)
672 ("portmidi" ,portmidi-for-extempore)
674 ("alsa-lib" ,alsa-lib)
675 ("portaudio" ,portaudio)
681 ("emacs" ,emacs-no-x)))
682 ;; Extempore refuses to build on architectures other than x86_64
683 (supported-systems '("x86_64-linux"))
684 (home-page "http://digego.github.io/extempore/")
685 (synopsis "Programming environment for live coding of multimedia")
687 "Extempore is a programming language and runtime environment designed
688 with live programming in mind. It supports interactive programming in a REPL
689 style, compiling and binding code just-in-time. Although Extempore has its
690 roots in 'live coding' of audiovisual media art, it is suitable for any task
691 domain where dynamic run-time modifiability and good numerical performance are
692 required. Extempore also has strong timing and concurrency semantics, which
693 are helpful when working in problem spaces where timing is important (such as
695 (license license:bsd-2)))
703 (uri (string-append "http://das.nasophon.de/download/klick-"
707 "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
708 (build-system scons-build-system)
710 `(#:scons-flags (list (string-append "PREFIX=" %output))
711 #:tests? #f)) ;no "check" target
715 ("libsndfile" ,libsndfile)
716 ("libsamplerate" ,libsamplerate)
718 ("rubberband" ,rubberband)))
720 `(("pkg-config" ,pkg-config)))
721 (home-page "http://das.nasophon.de/klick/")
722 (synopsis "Metronome for JACK")
724 "klick is an advanced command-line based metronome for JACK. It allows
725 you to define complex tempo maps for entire songs or performances.")
726 (license license:gpl2+)))
728 (define-public gtklick
734 (uri (string-append "http://das.nasophon.de/download/gtklick-"
738 "0dq1km6njnzsqdqyf6wzir9g733z0mc9vmxfg2383k3c2a2di6bp"))))
739 (build-system python-build-system)
741 `(#:tests? #f ; no tests
744 (modify-phases %standard-phases
745 (add-before 'build 'add-sitedirs
746 ;; .pth files are not automatically interpreted unless the
747 ;; directories containing them are added as "sites". The directories
748 ;; are then added to those in the PYTHONPATH. This is required for
749 ;; the operation of pygtk.
751 (substitute* "gtklick/gtklick.py"
753 "import pygtk, site, sys
754 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))))
755 (add-after 'unpack 'inject-store-path-to-klick
756 (lambda* (#:key inputs #:allow-other-keys)
757 (substitute* "gtklick/klick_backend.py"
758 (("KLICK_PATH = 'klick'")
759 (string-append "KLICK_PATH = '"
760 (assoc-ref inputs "klick")
765 ("python2-pyliblo" ,python2-pyliblo)
766 ("python2-pygtk" ,python2-pygtk)))
768 `(("gettext" ,gettext-minimal)))
769 (home-page "http://das.nasophon.de/gtklick/")
770 (synopsis "Simple metronome with an easy-to-use graphical interface")
772 "Gtklick is a simple metronome with an easy-to-use graphical user
773 interface. It is implemented as a frontend to @code{klick}.")
774 (license license:gpl2+)))
776 (define-public libgme
782 (uri (string-append "https://bitbucket.org/mpyne/game-music-emu/"
783 "downloads/game-music-emu-" version
787 "08fk7zddpn7v93d0fa7fcypx7hvgwx9b5psj9l6m8b87k2hbw4fw"))))
788 (build-system cmake-build-system)
790 '(#:tests? #f)) ; no check target
791 (home-page "https://bitbucket.org/mpyne/game-music-emu")
792 (synopsis "Video game music file playback library")
794 "Game-music-emu is a collection of video game music file emulators that
795 support the following formats and systems:
798 ZX Spectrum/Asmtrad CPC
802 Sega Genesis/Mega Drive
804 NEC TurboGrafx-16/PC Engine
806 MSX Home Computer/other Z80 systems (doesn't support FM sound)
808 Nintendo NES/Famicom (with VRC 6, Namco 106, and FME-7 sound)
810 Atari systems using POKEY sound chip
812 Super Nintendo/Super Famicom
814 Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC Micro
816 (license (list license:lgpl2.1+
817 ;; demo and player directories are under the Expat license
820 (define-public lilypond
827 "http://download.linuxaudio.org/lilypond/sources/v"
828 (version-major+minor version) "/"
829 name "-" version ".tar.gz"))
832 "0lql4q946gna2pl1g409mmmsvn2qvnq2z5cihrkfhk7plcqdny9n"))))
833 (build-system gnu-build-system)
835 `(#:tests? #f ; out-test/collated-files.html fails
837 #:make-flags '("conf=www") ;to generate images for info manuals
839 (list "CONFIGURATION=www"
840 (string-append "--with-texgyre-dir="
841 (assoc-ref %build-inputs "font-tex-gyre")
842 "/share/fonts/opentype/"))
844 (modify-phases %standard-phases
845 (add-after 'unpack 'use-texlive-union
847 ;; FIXME: fonts are not found and have to be generated in HOME.
848 (setenv "HOME" "/tmp")
849 ;; The test for the "lh" package fails, even though it is among
851 (substitute* "configure"
852 (("TEX_FIKPARM=.*") "TEX_FIKPARM=found\n"))
854 (add-after 'unpack 'fix-path-references
856 (substitute* "scm/backend-library.scm"
857 (("\\(search-executable '\\(\"gs\"\\)\\)")
858 (string-append "\"" (which "gs") "\""))
860 (string-append "\"" (which "sh") "\"")))
862 (add-before 'configure 'prepare-configuration
864 (substitute* "configure"
865 (("SHELL=/bin/sh") "SHELL=sh")
866 ;; When checking the fontforge version do not consider the
867 ;; version string that's part of the directory.
868 (("head -n") "tail -n")
869 ;; Also allow for SOURCE_DATE_EPOCH = 0 in fontforge.
870 (("20110222") "19700101"))
872 (setenv "conf" "www")
874 (add-after 'install 'install-info
876 (zero? (system* "make"
877 "-j" (number->string (parallel-job-count))
878 "conf=www" "install-info")))))))
880 `(("guile" ,guile-1.8)
881 ("font-dejavu" ,font-dejavu)
882 ("font-tex-gyre" ,font-tex-gyre)
883 ("fontconfig" ,fontconfig)
884 ("freetype" ,freetype)
885 ("ghostscript" ,ghostscript)
887 ("python" ,python-2)))
892 ("fontforge" ,fontforge)
894 ("gettext" ,gettext-minimal)
895 ("imagemagick" ,imagemagick)
896 ("netpbm" ,netpbm) ;for pngtopnm
897 ("texlive" ,(texlive-union (list texlive-metapost
900 texlive-latex-cyrillic)))
902 ("texi2html" ,texi2html)
904 ("pkg-config" ,pkg-config)
906 (home-page "http://www.lilypond.org/")
907 (synopsis "Music typesetting")
909 "GNU LilyPond is a music typesetter, which produces high-quality sheet
910 music. Music is input in a text file containing control sequences which are
911 interpreted by LilyPond to produce the final document. It is extendable with
913 (license license:gpl3+)
915 ;; On armhf and mips64el, building the documentation sometimes leads to
916 ;; more than an hour of silence, so double the max silent time.
917 (properties `((max-silent-time . 7200)))))
919 (define-public non-sequencer
920 ;; The latest tagged release is three years old and uses a custom build
921 ;; system, so we take the last commit.
922 (let ((commit "10c31e57291b6e42be53371567a722b62b32d220")
925 (name "non-sequencer")
926 (version (string-append "1.9.5-" revision "." (string-take commit 7)))
930 (url "git://git.tuxfamily.org/gitroot/non/non.git")
934 "080rha4ffp7qycyg1mqcf4vj0s7z8qfvz6bxm0w29xgg2kkmb3fx"))
935 (file-name (string-append name "-" version "-checkout"))))
936 (build-system waf-build-system)
938 `(#:tests? #f ;no "check" target
940 (list "--project=sequencer"
941 ;; Disable the use of SSE unless on x86_64.
942 ,@(if (not (string-prefix? "x86_64" (or (%current-target-system)
947 (modify-phases %standard-phases
949 'configure 'set-flags
951 ;; Compile with C++11, required by libsigc++.
952 (setenv "CXXFLAGS" "-std=c++11")
957 ("libsigc++" ,libsigc++)
961 `(("pkg-config" ,pkg-config)))
962 (home-page "http://non.tuxfamily.org/wiki/Non%20Sequencer")
963 (synopsis "Pattern-based MIDI sequencer")
965 "The Non Sequencer is a powerful, lightweight, real-time,
966 pattern-based MIDI sequencer. It utilizes the JACK Audio Connection Kit for
967 MIDI I/O and the NTK GUI toolkit for its user interface. Everything in Non
968 Sequencer happens on-line, in real-time. Music can be composed live, while the
969 transport is rolling.")
970 (license license:gpl2+))))
972 (define-public non-session-manager
973 (package (inherit non-sequencer)
974 (name "non-session-manager")
976 (substitute-keyword-arguments (package-arguments non-sequencer)
977 ((#:configure-flags flags)
978 `(cons "--project=session-manager"
979 (delete "--project=sequencer" ,flags)))))
985 `(("pkg-config" ,pkg-config)))
986 (home-page "http://non.tuxfamily.org/nsm/")
987 (synopsis "Audio session management")
989 "The Non Session Manager is an API and an implementation for audio
990 session management. NSM clients use a well-specified OSC protocol to
991 communicate with the session management daemon.")
992 (license license:gpl2+)))
994 (define-public non-mixer
995 (package (inherit non-sequencer)
998 (substitute-keyword-arguments (package-arguments non-sequencer)
999 ((#:configure-flags flags)
1000 `(cons "--project=mixer"
1001 (delete "--project=sequencer" ,flags)))))
1009 `(("pkg-config" ,pkg-config)))
1010 (home-page "http://non.tuxfamily.org/wiki/Non%20Mixer")
1011 (synopsis "Modular digital audio mixer")
1013 "The Non Mixer is a powerful, reliable and fast modular digital audio
1014 mixer. It utilizes JACK for inter-application audio I/O and the NTK GUI
1015 toolkit for a fast and lightweight user interface. Non Mixer can be used
1016 alone or in concert with Non Timeline and Non Sequencer to form a complete
1018 (license license:gpl2+)))
1020 (define-public non-timeline
1021 (package (inherit non-sequencer)
1022 (name "non-timeline")
1024 (substitute-keyword-arguments (package-arguments non-sequencer)
1025 ((#:configure-flags flags)
1026 `(cons "--project=timeline"
1027 (delete "--project=sequencer" ,flags)))))
1031 ("libsndfile" ,libsndfile)
1034 `(("pkg-config" ,pkg-config)))
1035 (home-page "http://non.tuxfamily.org/wiki/Non%20Timeline")
1036 (synopsis "Modular digital audio timeline arranger")
1038 "The Non Timeline is a powerful, reliable and fast modular digital audio
1039 timeline arranger. It utilizes JACK for inter-application audio I/O and the
1040 NTK GUI toolkit for a fast and lightweight user interface. Non Timeline can
1041 be used alone or in concert with Non Mixer and Non Sequencer to form a
1043 (license license:gpl2+)))
1045 (define-public solfege
1052 "mirror://gnu/solfege/solfege-"
1056 "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
1057 (build-system gnu-build-system)
1059 `(#:tests? #f ; xmllint attempts to download DTD
1060 #:test-target "test"
1062 (modify-phases %standard-phases
1063 (add-after 'unpack 'fix-configuration
1064 (lambda* (#:key inputs #:allow-other-keys)
1065 (substitute* "default.config"
1066 (("/usr/bin/aplay") "aplay")
1067 (("/usr/bin/timidity") "timidity")
1068 (("/usr/bin/mpg123") "mpg123")
1069 (("/usr/bin/ogg123") "ogg123"))
1071 (add-before 'build 'patch-python-shebangs
1073 ;; Two python scripts begin with a Unicode BOM, so patch-shebang
1075 (substitute* '("solfege/parsetree.py"
1076 "solfege/presetup.py")
1077 (("#!/usr/bin/python") (string-append "#!" (which "python"))))
1079 (add-before 'build 'add-sitedirs
1080 ;; .pth files are not automatically interpreted unless the
1081 ;; directories containing them are added as "sites". The directories
1082 ;; are then added to those in the PYTHONPATH. This is required for
1083 ;; the operation of pygtk and pygobject.
1085 (substitute* "run-solfege.py"
1088 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))
1090 (add-before 'build 'adjust-config-file-prefix
1091 (lambda* (#:key outputs #:allow-other-keys)
1092 (substitute* "run-solfege.py"
1093 (("prefix = os.path.*$")
1094 (string-append "prefix = " (assoc-ref outputs "out"))))
1096 (add-after 'install 'wrap-program
1097 (lambda* (#:key inputs outputs #:allow-other-keys)
1098 ;; Make sure 'solfege' runs with the correct PYTHONPATH.
1099 (let* ((out (assoc-ref outputs "out"))
1100 (path (getenv "PYTHONPATH")))
1101 (wrap-program (string-append out "/bin/solfege")
1102 `("PYTHONPATH" ":" prefix (,path))))
1105 `(("python" ,python-2)
1106 ("pygtk" ,python2-pygtk)
1107 ("gettext" ,gettext-minimal)
1109 ("lilypond" ,lilypond)))
1111 `(("pkg-config" ,pkg-config)
1112 ("txt2man" ,txt2man)
1113 ("libxml2" ,libxml2) ; for tests
1114 ("ghostscript" ,ghostscript)
1115 ("texinfo" ,texinfo)))
1116 (home-page "https://www.gnu.org/software/solfege/")
1117 (synopsis "Ear training")
1119 "GNU Solfege is a program for practicing musical ear-training. With it,
1120 you can practice your recognition of various musical intervals and chords. It
1121 features a statistics overview so you can monitor your progress across several
1122 sessions. Solfege is also designed to be extensible so you can easily write
1124 (license license:gpl3+)))
1126 (define-public powertabeditor
1128 (name "powertabeditor")
1129 (version "2.0.0-alpha10")
1133 "https://github.com/powertab/powertabeditor/archive/"
1135 (file-name (string-append name "-" version ".tar.gz"))
1138 "1fr14ql0yhlqvh6y08yaanszm2nvca5i50rqym396kfvga3ky18x"))
1139 (modules '((guix build utils)))
1142 ;; Remove bundled sources for external libraries
1143 (delete-file-recursively "external")
1144 ;; Use only system libraries
1145 (substitute* "CMakeLists.txt"
1146 (("include\\( PTE_ThirdParty \\)")
1148 include(third_party/Qt)
1149 include(third_party/boost)
1150 add_library( Catch INTERFACE IMPORTED )
1151 add_library( rapidjson INTERFACE IMPORTED )"))
1153 (build-system cmake-build-system)
1155 `(#:modules ((guix build cmake-build-system)
1159 ;; CMake appears to lose the RUNPATH for some reason, so it has to be
1160 ;; explicitly set with CMAKE_INSTALL_RPATH.
1161 (list "-DCMAKE_BUILD_WITH_INSTALL_RPATH=TRUE"
1162 (string-append "-DCMAKE_INSTALL_RPATH="
1163 (string-join (map (match-lambda
1165 (string-append directory "/lib")))
1166 %build-inputs) ";"))
1167 "-DPTE_DATA_DIR=share/powertabeditor")
1169 (modify-phases %standard-phases
1172 (zero? (system* "bin/pte_tests"
1173 ;; FIXME: these tests fail
1174 "exclude:Actions/EditStaff"
1175 "exclude:Formats/PowerTabOldImport/MergeMultiBarRests"
1176 "exclude:Score/ViewFilter/FilterRule"
1177 "exclude:Score/ViewFilter/ViewFilter"
1178 "exclude:Formats/PowerTabOldImport/Directions"
1180 ;; FIXME: This bug has been fixed upstream, but no release has been
1181 ;; made yet. See https://github.com/powertab/powertabeditor/issues/257
1182 (add-after 'unpack 'fix-boost-bug
1184 (substitute* "source/score/voiceutils.cpp"
1185 (("boost::rational<int> duration\\(4, pos.getDurationType\\(\\)\\);")
1186 "boost::rational<int> duration(4, static_cast<int>(pos.getDurationType()));"))
1188 (add-before 'configure 'remove-third-party-libs
1189 (lambda* (#:key inputs #:allow-other-keys)
1190 ;; Link with required static libraries, because we're not
1191 ;; using the bundled version of withershins.
1192 ;; Also add pthread for fixing a linker error.
1193 (substitute* "source/build/CMakeLists.txt"
1194 (("withershins" line)
1195 (string-append line "\n"
1196 (assoc-ref inputs "binutils")
1198 (assoc-ref inputs "libiberty")
1199 "/lib/libiberty.a\n"
1206 ("alsa-lib" ,alsa-lib)
1208 ("withershins" ,withershins)
1209 ("libiberty" ,libiberty) ;for withershins
1210 ("binutils" ,binutils) ;for -lbfd and -liberty (for withershins)
1211 ("timidity" ,timidity++)
1212 ("pugixml" ,pugixml)
1214 ("rapidjson" ,rapidjson)
1217 `(("catch" ,catch-framework)
1218 ("pkg-config" ,pkg-config)))
1219 (home-page "http://powertabs.net")
1220 (synopsis "Guitar tablature editor")
1222 "Power Tab Editor 2.0 is the successor to the famous original Power Tab
1223 Editor. It is compatible with Power Tab Editor 1.7 and Guitar Pro.")
1224 (license license:gpl3+)))
1226 (define-public jalv-select
1228 (name "jalv-select")
1232 (uri (string-append "https://github.com/brummer10/jalv_select/"
1233 "archive/V" version ".tar.gz"))
1236 "0zraagwr681b5s3qifxf399c7q93jz23c8sr42gmff9zqnvxc75q"))))
1237 (build-system gnu-build-system)
1240 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1242 (modify-phases %standard-phases
1244 (add-after 'unpack 'ignore-PATH
1245 (lambda* (#:key inputs #:allow-other-keys)
1246 (substitute* "jalv.select.cpp"
1247 (("echo \\$PATH.*tr ':'.*xargs ls")
1248 (string-append "ls -1 " (assoc-ref inputs "jalv") "/bin")))
1249 (substitute* "jalv.select.h"
1250 (("gtkmm.h") "gtkmm-2.4/gtkmm.h"))
1256 ("gtkmm" ,gtkmm-2)))
1258 `(("pkg-config" ,pkg-config)))
1259 (home-page "https://github.com/brummer10/jalv_select")
1260 (synopsis "GUI to select LV2 plugins and run them with jalv")
1262 "The jalv.select package provides a graphical user interface allowing
1263 users to select LV2 plugins and run them with jalv.")
1264 (license license:public-domain)))
1266 (define-public synthv1
1273 (string-append "mirror://sourceforge/synthv1/synthv1/" version
1274 "/synthv1-" version ".tar.gz"))
1277 "1skynjg6ip0qfbqqkybfjh6xcwxagq89ghl08f7sp7j0sz5qdcwp"))))
1278 (build-system gnu-build-system)
1280 `(#:tests? #f ; There are no tests.
1282 '("CXXFLAGS=-std=gnu++11")))
1286 ("alsa-lib" ,alsa-lib)
1287 ("non-session-manager" ,non-session-manager)
1290 ("qttools" ,qttools)))
1292 `(("pkg-config" ,pkg-config)))
1293 (home-page "http://synthv1.sourceforge.net")
1294 (synopsis "Polyphonic subtractive synthesizer")
1296 "Synthv1 is an old-school subtractive polyphonic synthesizer with four
1297 oscillators and stereo effects.")
1298 (license license:gpl2+)))
1300 (define-public drumkv1
1307 (string-append "mirror://sourceforge/drumkv1/drumkv1/" version
1308 "/drumkv1-" version ".tar.gz"))
1311 "1vm8lrk3lykdic6fyfpl12jx1xg6rcaid242s8sij30p1ix4zdab"))))
1312 (build-system gnu-build-system)
1314 `(#:tests? #f ; There are no tests.
1316 '("CXXFLAGS=-std=gnu++11")))
1320 ("libsndfile" ,libsndfile)
1321 ("alsa-lib" ,alsa-lib)
1322 ("non-session-manager" ,non-session-manager)
1324 ("qtbase" ,qtbase)))
1326 `(("pkg-config" ,pkg-config)
1327 ("qttools" ,qttools)))
1328 (home-page "http://drumkv1.sourceforge.net")
1329 (synopsis "Drum-kit sampler synthesizer with stereo effects")
1331 "Drumkv1 is an old-school drum-kit sampler synthesizer with stereo
1333 (license license:gpl2+)))
1335 (define-public samplv1
1342 (string-append "mirror://sourceforge/samplv1/samplv1/" version
1343 "/samplv1-" version ".tar.gz"))
1346 "0g67vm9ilmq5nlvk0f3abia9pbinr4ck5v4mll6igni1rxz2n7wk"))))
1347 (build-system gnu-build-system)
1349 `(#:tests? #f ; There are no tests.
1351 '("CXXFLAGS=-std=gnu++11")))
1355 ("libsndfile" ,libsndfile)
1356 ("alsa-lib" ,alsa-lib)
1357 ("non-session-manager" ,non-session-manager)
1359 ("qtbase" ,qtbase)))
1361 `(("pkg-config" ,pkg-config)
1362 ("qttools" ,qttools)))
1363 (home-page "http://samplv1.sourceforge.net")
1364 (synopsis "Polyphonic sampler synthesizer with stereo effects")
1366 "Samplv1 is an old-school polyphonic sampler synthesizer with stereo
1368 (license license:gpl2+)))
1370 (define-public padthv1
1377 (string-append "mirror://sourceforge/padthv1/padthv1/" version
1378 "/padthv1-" version ".tar.gz"))
1381 "0c519qk2g0dk8gqf9ywqfp7dnr4b25lsnxxbf2l1spnnvf8nysvh"))))
1382 (build-system gnu-build-system)
1384 `(#:tests? #f ; There are no tests.
1386 '("CXXFLAGS=-std=gnu++11")))
1390 ("alsa-lib" ,alsa-lib)
1391 ("non-session-manager" ,non-session-manager)
1394 ("qtbase" ,qtbase)))
1396 `(("pkg-config" ,pkg-config)
1397 ("qttools" ,qttools)))
1398 (home-page "http://padthv1.sourceforge.net")
1399 (synopsis "Polyphonic additive synthesizer")
1401 "Padthv1 is an old-school polyphonic additive synthesizer with stereo
1402 effects. Padthv1 is based on the PADsynth algorithm by Paul Nasca, as a
1403 special variant of additive synthesis.")
1404 (license license:gpl2+)))
1406 (define-public amsynth
1413 (uri (string-append "https://github.com/amsynth/amsynth/releases/"
1414 "download/release-" version
1415 "/amsynth-" version ".tar.bz2"))
1418 "1882pfcmf3rqg3vd4qflzkppcv158d748i603spqjbxqi8z7x7w0"))))
1419 (build-system gnu-build-system)
1422 (modify-phases %standard-phases
1423 (add-before 'configure 'set-flags
1425 ;; Compile with C++11, required by gtkmm.
1426 (setenv "CXXFLAGS" "-std=c++11")
1429 `(("alsa-lib" ,alsa-lib)
1433 ("libsndfile" ,libsndfile)
1435 ("gtkmm" ,gtkmm-2)))
1437 `(("pkg-config" ,pkg-config)
1438 ("intltool" ,intltool)))
1439 (home-page "http://amsynth.github.io")
1440 (synopsis "Analog modeling synthesizer")
1442 "amsynth is an easy-to-use software synthesizer with a classic
1443 subtractive synthesizer topology. Its features include: dual
1444 oscillators (sine, saw, square, noise) with hard sync; 12 and 24 dB/oct
1445 resonant filters (low-pass, high-pass, band-pass, notch); mono, poly, legato
1446 keyboard modes; dual ADSR envelope generators for filter and amplitude; LFO
1447 which can modulate the oscillators, filter, and amplitude; distortion and
1449 (license license:gpl2+)))
1451 (define-public setbfree
1458 (string-append "https://github.com/pantherb/setBfree/archive/v"
1460 (file-name (string-append name "-" version ".tar.gz"))
1463 "0qfccny0hh9lq54272mzmxvfz2jmzcgigjkjwn6v9h6n00gi5bw4"))))
1464 (build-system gnu-build-system)
1466 `(#:tests? #f ; no "check" target
1468 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1469 (string-append "FONTFILE="
1470 (assoc-ref %build-inputs "font-bitstream-vera")
1471 "/share/fonts/truetype/VeraBd.ttf")
1472 ;; Disable unsupported optimization flags on non-x86
1473 ,@(let ((system (or (%current-target-system)
1474 (%current-system))))
1475 (if (or (string-prefix? "x86_64" system)
1476 (string-prefix? "i686" system))
1478 '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
1480 (modify-phases %standard-phases
1481 (add-before 'build 'set-CC-variable
1482 (lambda _ (setenv "CC" "gcc") #t))
1483 (delete 'configure))))
1487 ("zita-convolver" ,zita-convolver)
1490 ("font-bitstream-vera" ,font-bitstream-vera)))
1492 `(("help2man" ,help2man)
1493 ("pkg-config" ,pkg-config)))
1494 (home-page "http://setbfree.org")
1495 (synopsis "Tonewheel organ")
1497 "setBfree is a MIDI-controlled, software synthesizer designed to imitate
1498 the sound and properties of the electromechanical organs and sound
1499 modification devices that brought world-wide fame to the names and products of
1500 Laurens Hammond and Don Leslie.")
1501 (license license:gpl2+)))
1503 (define-public beast
1509 (uri (string-append "https://testbit.eu/pub/dists/beast/beast-"
1513 "1jzzmfwssklzw8fvvil04n8csc0zm99fnd9p2xa7c0xchg37lvhn"))))
1514 (build-system gnu-build-system)
1516 '(#:parallel-build? #f)) ; Race conditions cause build failures
1518 `(("rapicorn" ,rapicorn)
1519 ("guile" ,guile-1.8)
1520 ("python" ,python-2)
1521 ("libgnomecanvas" ,libgnomecanvas)
1525 ("alsa-lib" ,alsa-lib)
1526 ("libvorbis" ,libvorbis)
1527 ("gettext" ,gettext-minimal)))
1529 `(("pkg-config" ,pkg-config)
1530 ("glib:bin" ,glib "bin")
1531 ("cython" ,python2-cython)
1533 ("perl-xml-parser" ,perl-xml-parser)))
1534 (home-page "https://testbit.eu/wiki/Beast_Home")
1535 (synopsis "Music composition and modular synthesis environment")
1537 "Beast is a music composition and modular synthesis application. It
1538 supports a wide range of standards in the field, such as MIDI, various audio
1539 file formats and LADSPA modules. It allows for multitrack editing, real-time
1540 synthesis, 32bit audio rendering, precise timing down to sample granularity,
1541 on-demand and partial loading of wave files, on the fly decoding, stereo
1542 mixing, FFT scopes, MIDI automation and full scriptability in Scheme.")
1543 (license license:gpl3+)))
1545 (define-public bristol
1551 (uri (string-append "mirror://sourceforge/bristol/bristol/"
1552 (version-major+minor version)
1553 "/bristol-" version ".tar.gz"))
1556 "1fi2m4gmvxdi260821y09lxsimq82yv4k5bbgk3kyc3x1nyhn7vx"))))
1557 (build-system gnu-build-system)
1560 (modify-phases %standard-phases
1561 (add-after 'unpack 'remove-sse-flags
1562 (lambda* (#:key system #:allow-other-keys)
1563 (when (not (or (string-prefix? "x86_64" system)
1564 (string-prefix? "i686" system)))
1565 (substitute* "bristol/Makefile.in"
1566 (("-msse -mfpmath=sse") "")))
1568 ;; alsa-lib 1.1.x no longer provides iatomic.h. That's okay because
1569 ;; bristol actually doesn't use it.
1570 (add-after 'unpack 'do-not-use-alsa-iatomic
1572 (substitute* "libbristolaudio/audioEngineJack.c"
1573 (("#include <alsa/iatomic.h>") ""))
1575 ;; We know that Bristol has been linked with JACK and we don't have
1576 ;; ldd, so we can just skip this check.
1577 (add-after 'unpack 'do-not-grep-for-jack
1579 (substitute* "bin/startBristol.in"
1580 (("ldd `which bristol` | grep jack") "echo guix"))
1583 `(("alsa-lib" ,alsa-lib)
1586 ("libx11" ,libx11)))
1588 `(("pkg-config" ,pkg-config)))
1589 (home-page "http://bristol.sourceforge.net/")
1590 (synopsis "Synthesizer emulator")
1592 "Bristol is an emulation package for a number of different 'classic'
1593 synthesizers including additive and subtractive and a few organs. The
1594 application consists of the engine, which is called bristol, and its own GUI
1595 library called brighton that represents all the emulations. There are
1596 currently more than twenty different emulations; each does sound different
1597 although the author maintains that the quality and accuracy of each emulation
1599 (license license:gpl3+)))
1601 (define-public tuxguitar
1608 "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
1609 version "/tuxguitar-" version "-src.tar.gz"))
1612 "1yd5wv17sh6i8pkndxayfd6r2k1ccgnc4w3nda3lpniv8cpjzz3k"))
1613 (modules '((guix build utils)))
1616 ;; Delete pre-built classes
1617 (delete-file-recursively "TuxGuitar-android-gdrive/bin")
1618 (delete-file-recursively "TuxGuitar-android-gdrive-gdaa/bin")
1620 (build-system ant-build-system)
1622 `(#:build-target "build"
1624 #:tests? #f ; no tests
1626 (modify-phases %standard-phases
1627 (add-after 'unpack 'enter-dir
1628 (lambda _ (chdir "TuxGuitar-lib") #t))
1629 (add-after 'build 'build-libraries
1630 (lambda* (#:key inputs outputs #:allow-other-keys)
1631 (let* ((initial-classpath (getenv "CLASSPATH"))
1632 (build-dir (lambda (dir)
1635 (string-join (cons initial-classpath
1636 (find-files (getcwd) "\\.jar$"))
1639 (if (file-exists? "build.xml")
1640 ((assoc-ref %standard-phases 'build)
1641 #:build-target "build")
1643 ;; Generate default build.xml
1644 ((@@ (guix build ant-build-system) default-build.xml)
1645 (string-append (string-downcase dir) ".jar")
1646 (string-append (assoc-ref outputs "out")
1648 ((assoc-ref %standard-phases 'build)))))))
1649 (map build-dir '("TuxGuitar-editor-utils"
1650 "TuxGuitar-ui-toolkit"
1651 "TuxGuitar-ui-toolkit-swt"
1652 "TuxGuitar-awt-graphics")))))
1653 (add-after 'build-libraries 'build-application
1655 (chdir "../TuxGuitar")
1656 ((assoc-ref %standard-phases 'build)
1657 #:build-target "build")))
1659 (lambda* (#:key inputs outputs #:allow-other-keys)
1660 (let* ((out (assoc-ref outputs "out"))
1661 (bin (string-append out "/bin"))
1662 (share (string-append out "/share"))
1663 (lib (string-append share "/java"))
1664 (swt (assoc-ref inputs "java-swt")))
1667 (for-each (lambda (file)
1668 (install-file file lib))
1669 (find-files ".." "\\.jar$"))
1671 ;; install all resources
1672 (copy-recursively "share" share)
1675 (call-with-output-file (string-append bin "/tuxguitar")
1677 (let ((classpath (string-join (append (find-files lib "\\.jar$")
1678 (find-files swt "\\.jar$"))
1682 (string-append "#!/bin/sh\n"
1685 " -Dtuxguitar.home.path=" out
1686 " -Dtuxguitar.share.path=" out "/share"
1687 " -Dswt.library.path=" swt "/lib"
1688 " org.herac.tuxguitar.app.TGMainSingleton"
1689 " \"$1\" \"$2\"")))))
1690 (chmod (string-append bin "/tuxguitar") #o555)
1693 `(("java-swt" ,java-swt)))
1694 (home-page "http://tuxguitar.com.ar/")
1695 (synopsis "Multitrack tablature editor and player")
1697 "TuxGuitar is a guitar tablature editor with player support through midi.
1698 It can display scores and multitrack tabs. TuxGuitar provides various
1699 additional features, including autoscrolling while playing, note duration
1700 management, bend/slide/vibrato/hammer-on/pull-off effects, support for
1701 tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
1703 (license license:lgpl2.1+)))
1712 (string-append "http://msp.ucsd.edu/Software/pd-"
1713 version ".src.tar.gz"))
1716 "0k5s949kqd7yw97h3m8z81bjz32bis9m4ih8df1z0ymipnafca67"))))
1717 (build-system gnu-build-system)
1719 `(#:tests? #f ; no "check" target
1721 (modify-phases %standard-phases
1722 (add-before 'configure 'fix-wish-path
1724 (substitute* "src/s_inter.c"
1725 ((" wish ") (string-append " " (which "wish8.6") " ")))
1726 (substitute* "tcl/pd-gui.tcl"
1727 (("exec wish ") (string-append "exec " (which "wish8.6") " ")))
1729 (add-after 'unpack 'autoconf
1730 (lambda _ (zero? (system* "bash" "./autogen.sh")))))))
1732 `(("autoconf" ,autoconf)
1733 ("automake" ,automake)
1734 ("libtool" ,libtool)
1735 ("gettext" ,gettext-minimal)
1736 ("pkg-config" ,pkg-config)))
1739 ("alsa-lib" ,alsa-lib)
1741 (home-page "http://puredata.info")
1742 (synopsis "Visual programming language for artistic performances")
1744 "Pure Data (aka Pd) is a visual programming language. Pd enables
1745 musicians, visual artists, performers, researchers, and developers to create
1746 software graphically, without writing lines of code. Pd is used to process
1747 and generate sound, video, 2D/3D graphics, and interface sensors, input
1748 devices, and MIDI. Pd can easily work over local and remote networks to
1749 integrate wearable technology, motor systems, lighting rigs, and other
1750 equipment. Pd is suitable for learning basic multimedia processing and visual
1751 programming methods as well as for realizing complex systems for large-scale
1753 (license license:bsd-3)))
1755 (define-public portmidi
1761 (uri (string-append "mirror://sourceforge/portmedia/portmidi/"
1762 version "/portmidi-src-" version ".zip"))
1765 "03rfsk7z6rdahq2ihy5k13qjzgx757f75yqka88v3gc0pn9ais88"))
1766 (patches (list (search-patch "portmidi-modular-build.patch")))))
1767 (build-system cmake-build-system)
1769 `(#:tests? #f ; tests cannot be linked
1770 #:build-type "Release" ; needed to have PMALSA set
1772 (list "-DPORTMIDI_ENABLE_JAVA=Off"
1773 "-DPORTMIDI_ENABLE_TEST=Off") ; tests fail linking
1775 (modify-phases %standard-phases
1776 ;; Some packages, e.g., MuseScore, expect "libporttime.so" instead of
1777 ;; "libportmidi.so". Distributions get away with it by creating an
1778 ;; appropriate symlink.
1779 (add-after 'install 'add-porttime
1780 (lambda* (#:key outputs #:allow-other-keys)
1781 (let* ((out (assoc-ref outputs "out"))
1782 (lib (string-append out "/lib")))
1783 (with-directory-excursion lib
1784 (symlink "libportmidi.so" "libporttime.so")))
1787 `(("alsa-lib" ,alsa-lib)))
1789 `(("unzip" ,unzip)))
1790 (home-page "http://portmedia.sourceforge.net/portmidi/")
1791 (synopsis "Library for MIDI I/O")
1793 "PortMidi is a library supporting real-time input and output of MIDI data
1794 using a system-independent interface.")
1795 (license license:expat)))
1797 (define-public portmidi-for-extempore
1798 (package (inherit portmidi)
1799 (name "portmidi-for-extempore")
1803 (uri (string-append "https://github.com/extemporelang/portmidi/"
1804 "archive/" version ".tar.gz"))
1805 (file-name (string-append name "-" version ".tar.gz"))
1808 "0gjikwciyr8kk4y3qiv1pcq58xpgw38ql1m2gs6g0qc1s8sx4235"))))
1809 (build-system cmake-build-system)
1810 (arguments `(#:tests? #f)) ; no tests
1812 ;; Extempore refuses to build on architectures other than x86_64
1813 (supported-systems '("x86_64-linux"))
1814 (home-page "https://github.com/extemporelang/portmidi/")))
1816 (define-public python-pyportmidi
1818 (name "python-pyportmidi")
1819 (version (package-version portmidi))
1820 (source (package-source portmidi))
1821 (build-system python-build-system)
1823 `(#:tests? #f ; no tests included
1825 (modify-phases %standard-phases
1826 (add-after 'unpack 'enter-dir
1827 (lambda _ (chdir "pm_python") #t))
1828 (add-after 'enter-dir 'fix-setup.py
1830 (substitute* "setup.py"
1831 ;; Use Python 3 syntax
1832 (("print (\".*\")" _ text)
1833 (string-append "print(" text ")\n"))
1834 ;; TODO.txt and CHANGES.txt don't exist
1835 (("CHANGES =.*") "CHANGES = \"\"\n")
1836 (("TODO =.*") "TODO = \"\"\n"))
1839 `(("portmidi" ,portmidi)
1840 ("alsa-lib" ,alsa-lib)))
1842 `(("python-cython" ,python-cython)
1844 (home-page "http://portmedia.sourceforge.net/portmidi/")
1845 (synopsis "Python bindings to PortMidi")
1847 "This package provides Python bindings to the PortMidi library.")
1848 (license license:expat)))
1850 (define-public frescobaldi
1852 (name "frescobaldi")
1857 "https://github.com/wbsoft/frescobaldi/releases/download/v"
1858 version "/frescobaldi-" version ".tar.gz"))
1861 "15cqhbjbjikr7ljgiq56bz2gxrr38j8p0f78p2vhyzydaviy9a2z"))))
1862 (build-system python-build-system)
1863 (arguments `(#:tests? #f)) ; no tests included
1865 `(("lilypond" ,lilypond)
1866 ("portmidi" ,portmidi)
1867 ("python-pyqt" ,python-pyqt)
1868 ("python-ly" ,python-ly)
1869 ("python-pyportmidi" ,python-pyportmidi)
1870 ("poppler" ,poppler)
1871 ("python-poppler-qt5" ,python-poppler-qt5)
1872 ("python-sip" ,python-sip)))
1873 (home-page "http://www.frescobaldi.org/")
1874 (synopsis "LilyPond sheet music text editor")
1876 "Frescobaldi is a LilyPond sheet music text editor with syntax
1877 highlighting and automatic completion. Among other things, it can render
1878 scores next to the source, can capture input from MIDI or read MusicXML and
1879 ABC files, has a MIDI player for proof-listening, and includes a documentation
1881 (license license:gpl2+)))
1883 (define-public drumstick
1889 (uri (string-append "mirror://sourceforge/drumstick/"
1890 version "/drumstick-" version ".tar.bz2"))
1893 "0avwxr6n9ra7narxc5lmkhdqi8ix10gmif8rpd06wp4g9iv46xrn"))))
1894 (build-system cmake-build-system)
1896 `(#:tests? #f ; no test target
1897 #:configure-flags '("-DLIB_SUFFIX=")
1899 (modify-phases %standard-phases
1900 (add-before 'configure 'fix-docbook
1901 (lambda* (#:key inputs #:allow-other-keys)
1902 (substitute* "cmake_admin/CreateManpages.cmake"
1903 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
1904 (string-append (assoc-ref inputs "docbook-xsl")
1905 "/xml/xsl/docbook-xsl-"
1906 ,(package-version docbook-xsl)
1907 "/manpages/docbook.xsl")))
1910 `(("qtbase" ,qtbase)
1912 ("alsa-lib" ,alsa-lib)))
1914 `(("pkg-config" ,pkg-config)
1915 ("libxslt" ,libxslt) ; for xsltproc
1916 ("docbook-xsl" ,docbook-xsl)
1917 ("doxygen" ,doxygen)))
1918 (home-page "http://drumstick.sourceforge.net/")
1919 (synopsis "C++ MIDI library")
1921 "Drumstick is a set of MIDI libraries using C++/Qt5 idioms and style. It
1922 includes a C++ wrapper around the ALSA library sequencer interface. A
1923 complementary library provides classes for processing SMF (Standard MIDI
1924 files: .MID/.KAR), Cakewalk (.WRK), and Overture (.OVE) file formats. A
1925 multiplatform realtime MIDI I/O library is also provided with various output
1926 backends, including ALSA, OSS, Network and FluidSynth.")
1927 (license license:gpl2+)))
1929 (define-public zynaddsubfx
1931 (name "zynaddsubfx")
1936 "mirror://sourceforge/zynaddsubfx/zynaddsubfx/"
1937 version "/zynaddsubfx-" version ".tar.bz2"))
1940 "1hfpiqdm337gl4ynkmmp2qss2m5z8mzqzjrbiyg6w1v4js7l9phi"))))
1941 (build-system cmake-build-system)
1944 (modify-phases %standard-phases
1945 ;; Move SSE compiler optimization flags from generic target to
1946 ;; athlon64 and core2 targets, because otherwise the build would fail
1947 ;; on non-Intel machines.
1948 (add-after 'unpack 'remove-sse-flags-from-generic-target
1950 (substitute* "src/CMakeLists.txt"
1951 (("-msse -msse2 -mfpmath=sse") "")
1952 (("-march=(athlon64|core2)" flag)
1953 (string-append flag " -msse -msse2 -mfpmath=sse")))
1959 ("alsa-lib" ,alsa-lib)
1962 ("minixml" ,minixml)
1966 `(("pkg-config" ,pkg-config)))
1967 (home-page "http://zynaddsubfx.sf.net/")
1968 (synopsis "Software synthesizer")
1970 "ZynAddSubFX is a feature heavy realtime software synthesizer. It offers
1971 three synthesizer engines, multitimbral and polyphonic synths, microtonal
1972 capabilities, custom envelopes, effects, etc.")
1973 (license license:gpl2)))
1975 (define-public yoshimi
1981 (uri (string-append "mirror://sourceforge/yoshimi/"
1982 (version-major+minor version)
1983 "/yoshimi-" version ".tar.bz2"))
1986 "1w916mmi6hh547a7icrgx6qr2kwxlxwlm6ampql427rshcz9r61k"))))
1987 (build-system cmake-build-system)
1989 `(#:tests? #f ; there are no tests
1991 (list (string-append "-DCMAKE_INSTALL_DATAROOTDIR="
1992 (assoc-ref %outputs "out") "/share"))
1994 (modify-phases %standard-phases
1995 (add-before 'configure 'enter-dir
1996 (lambda _ (chdir "src") #t))
1997 ;; Move SSE compiler optimization flags from generic target to
1998 ;; athlon64 and core2 targets, because otherwise the build would fail
1999 ;; on non-Intel machines.
2000 (add-after 'unpack 'remove-sse-flags-from-generic-target
2002 (substitute* "src/CMakeLists.txt"
2003 (("-msse -msse2 -mfpmath=sse") "")
2004 (("-march=(athlon64|core2)" flag)
2005 (string-append flag " -msse -msse2 -mfpmath=sse")))
2010 ("alsa-lib" ,alsa-lib)
2012 ("fontconfig" ,fontconfig)
2013 ("minixml" ,minixml)
2017 ("readline" ,readline)
2018 ("ncurses" ,ncurses)
2022 `(("pkg-config" ,pkg-config)))
2023 (home-page "http://yoshimi.sourceforge.net/")
2024 (synopsis "Multi-paradigm software synthesizer")
2026 "Yoshimi is a fork of ZynAddSubFX, a feature-heavy real-time software
2027 synthesizer. It offers three synthesizer engines, multitimbral and polyphonic
2028 synths, microtonal capabilities, custom envelopes, effects, etc. Yoshimi
2029 improves on support for JACK features, such as JACK MIDI.")
2030 (license license:gpl2)))
2032 (define-public libgig
2038 (uri (string-append "http://download.linuxsampler.org/packages/"
2039 "libgig-" version ".tar.bz2"))
2042 "1wr8mwjmqpnyz6bx9757lspiii1zzn8zfbqsvn2ipzpgqkxv6kaz"))))
2043 (build-system gnu-build-system)
2045 `(("libuuid" ,util-linux)
2046 ("libsndfile" ,libsndfile)))
2048 `(("pkg-config" ,pkg-config)))
2049 (home-page "http://linuxsampler.org/libgig/")
2050 (synopsis "C++ library for working with Gigasampler (.gig) files")
2052 "Libgig is a C++ library for loading, modifying existing and creating new
2053 Gigasampler (.gig) files and DLS (Downloadable Sounds) Level 1/2 files, KORG
2054 sample based instruments (.KSF and .KMP files), SoundFont v2 (.sf2) files and
2055 AKAI sampler data. The package includes a couple of command line tools based
2057 ;; The library and tools are released under the GPL, except the AKAI
2058 ;; classes which are released under the LGPL.
2059 (license (list license:gpl2+ license:lgpl2.1+))))
2061 (define-public jack-keyboard
2063 (name "jack-keyboard")
2068 (uri (string-append "mirror://sourceforge/jack-keyboard/jack-keyboard/"
2069 version "/jack-keyboard-" version ".tar.gz"))
2072 "0mzmg8aavybcfdlq2yd9d0vscqd6is5p6jzrgfpfm5j3xdcvh2s3"))))
2073 (build-system gnu-build-system)
2079 `(("pkg-config" ,pkg-config)))
2080 (home-page "http://jack-keyboard.sourceforge.net/")
2081 (synopsis "Virtual MIDI keyboard")
2082 (description "Jack-keyboard is a virtual MIDI keyboard, a program that
2083 allows you to send JACK MIDI events (i.e. play) using your PC keyboard.")
2084 (license license:bsd-2)))
2086 (define-public jack-capture
2088 (name "jack-capture")
2093 (url "https://github.com/kmatheussen/jack_capture.git")
2095 (file-name (string-append name "-" version "-checkout"))
2098 "0jcqky96q8xgya6wqv1p8pj9fkf2wh7ynl67ah7x5bn3basgfclf"))))
2099 (build-system gnu-build-system)
2102 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2103 #:tests? #f ; there are none
2105 (modify-phases %standard-phases
2106 (delete 'configure))))
2108 `(("pkg-config" ,pkg-config)
2116 ("libsndfile" ,libsndfile)))
2117 (home-page "https://github.com/kmatheussen/jack_capture")
2118 (synopsis "Program for recording sound files with JACK")
2119 (description "This is a program for recording sound files with JACK. It
2120 can connect to any JACK port and record the output into a stereo WAV file.")
2121 (license license:gpl2+)))
2123 (define-public cursynth
2130 (uri (string-append "mirror://gnu/cursynth/cursynth-"
2133 (base32 "1dhphsya41rv8z6yqcv9l6fwbslsds4zh1y56zizi39nd996d40v"))
2134 (patches (search-patches "cursynth-wave-rand.patch"))))
2135 (build-system gnu-build-system)
2136 (native-inputs `(("pkg-config" ,pkg-config)))
2137 ;; TODO: See https://github.com/iyoko/cursynth/issues/4 which currently
2138 ;; prevents us from using pulseaudio
2139 (inputs `(("ncurses" ,ncurses)
2140 ("alsa" ,alsa-lib)))
2141 (home-page "https://www.gnu.org/software/cursynth/")
2142 (synopsis "Polyphonic and MIDI subtractive music synthesizer using curses")
2143 (description "GNU cursynth is a polyphonic synthesizer that runs
2144 graphically in the terminal. It is built on a full-featured subtractive
2145 synthesis engine. Notes and parameter changes may be entered via MIDI or the
2146 computer's keyboard.")
2147 (license license:gpl3+)))
2149 (define-public aj-snapshot
2151 (name "aj-snapshot")
2155 (uri (string-append "mirror://sourceforge/aj-snapshot/"
2156 "aj-snapshot-" version ".tar.bz2"))
2159 "0wilky1g2mb88v2z0520s7sw1dsn10iwanc8id5p6z1xsnhg7b6p"))))
2160 (build-system gnu-build-system)
2162 `(("minixml" ,minixml)
2164 ("alsa-lib" ,alsa-lib)))
2166 `(("pkg-config" ,pkg-config)))
2167 (home-page "http://aj-snapshot.sourceforge.net/")
2168 (synopsis "Snapshot connections between ALSA and JACK clients")
2169 (description "Aj-snapshot is a small program that can be used to make
2170 snapshots of the connections made between JACK and/or ALSA clients. Because
2171 JACK can provide both audio and MIDI support to programs, aj-snapshot can
2172 store both types of connections for JACK. ALSA, on the other hand, only
2173 provides routing facilities for MIDI clients. Aj-snapshot is meant to be used
2174 from the command line.")
2175 (license license:gpl3+)))
2177 (define-public qtractor
2183 (uri (string-append "http://downloads.sourceforge.net/qtractor/"
2184 "qtractor-" version ".tar.gz"))
2187 "03892177k3jn2bsi366dhq28rcdsc1p9v5qqc0k6hg3cnrkh23na"))))
2188 (build-system gnu-build-system)
2189 (arguments `(#:tests? #f)) ; no "check" target
2192 ("qtx11extras" ,qtx11extras)
2193 ("alsa-lib" ,alsa-lib)
2195 ("libsndfile" ,libsndfile)
2200 ("libsamplerate" ,libsamplerate)
2201 ("libvorbis" ,libvorbis)
2203 ("rubberband" ,rubberband)
2207 `(("pkg-config" ,pkg-config)
2208 ("qttools" ,qttools)))
2209 (home-page "http://qtractor.org/")
2210 (synopsis "Audio/MIDI multi-track sequencer")
2212 "Qtractor is an Audio/MIDI multi-track sequencer application. It uses
2213 JACK for audio and ALSA sequencer for MIDI as multimedia infrastructures and
2214 follows a traditional multi-track tape recorder control paradigm.")
2215 (license license:gpl2+)))
2217 (define-public ams-lv2
2224 (uri (string-append "https://github.com/blablack/ams-lv2/"
2225 "archive/" version ".tar.gz"))
2226 (file-name (string-append name "-" version ".tar.gz"))
2229 "1xacxyzqcj83g9c1gwfn36gg1c6yi15v7km4vidfidrjzb4x27fq"))))
2230 (build-system waf-build-system)
2233 (modify-phases %standard-phases
2234 (add-after 'unpack 'remove-sse-flags
2235 (lambda* (#:key system #:allow-other-keys)
2236 (when (not (or (string-prefix? "x86_64" system)
2237 (string-prefix? "i686" system)))
2238 (substitute* "wscript"
2239 (("'-msse', '-mfpmath=sse', ") ""))
2241 #:tests? #f)) ; no tests
2250 `(("pkg-config" ,pkg-config)))
2251 (home-page "https://objectivewave.wordpress.com/ams-lv2/")
2252 (synopsis "Port of Alsa Modular Synth internal modules into LV2")
2253 (description "This set of LV2 plugins is a port of the internal modules
2254 found in Alsa Modular Synth. These plugins are used to create modular
2255 synthesizers and contain: VCO, VCF, VCA, LFO, slew limiter, envelopes, sample
2257 (license license:gpl2)))
2259 (define-public gxtuner
2265 (uri (string-append "https://github.com/brummer10/gxtuner/"
2266 "archive/v" version ".tar.gz"))
2267 (file-name (string-append name "-" version ".tar.gz"))
2270 "1hn5qjac7qd00v0sp7ijhhc3sb26ks9bni06nngivva21h61xrjr"))))
2271 (build-system gnu-build-system)
2274 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2275 (string-append "INCLUDE_L_DIR="
2276 (assoc-ref %build-inputs "zita-resampler")
2279 (modify-phases %standard-phases
2280 (delete 'configure))))
2286 ("zita-resampler" ,zita-resampler)))
2288 `(("pkg-config" ,pkg-config)))
2289 (home-page "https://github.com/brummer10/gxtuner")
2290 (synopsis "Guitar tuner")
2291 (description "GXtuner is a simple guitar tuner for JACK with an
2292 analogue-like user interface.")
2293 (license license:gpl2+)))
2295 (define-public mod-host
2296 ;; The last release was in 2014 but since then hundreds of commits have
2298 (let ((commit "1726ad06b11323da7e1aaed690ff8aef91f702b5")
2302 (version (string-append "0.10.6-" revision "." (string-take commit 9)))
2306 (url "https://github.com/moddevices/mod-host")
2310 "1nrd37c35w6z6ldczgrwmmd9hx1n3zyvcjcgb3mi4cygqdanvspv"))
2311 (file-name (string-append name "-" version "-checkout"))))
2312 (build-system gnu-build-system)
2314 `(#:tests? #f ; no tests included
2316 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2319 (modify-phases %standard-phases
2321 (add-after 'unpack 'fix-jack-installation-directory
2323 ;; Do not attempt to install files to output of "jack" package.
2324 (substitute* "Makefile"
2325 (("\\$\\(shell pkg-config --variable=libdir jack\\)")
2334 ("readline" ,readline)))
2336 `(("pkg-config" ,pkg-config)
2337 ("python" ,python-2)))
2338 (home-page "https://github.com/moddevices/mod-host")
2339 (synopsis "LV2 host for Jack controllable via socket or command line")
2340 (description "mod-host is an LV2 plugin host for JACK, controllable via
2341 socket or command line.")
2342 (license license:gpl3+))))
2344 (define-public curseradio
2345 (let ((commit "1bd4bd0faeec675e0647bac9a100b526cba19f8d")
2349 (version (git-version "0" revision commit))
2353 (url "https://github.com/chronitis/curseradio.git")
2355 (file-name (git-file-name name version))
2358 "11bf0jnj8h2fxhpdp498189r4s6b47vy4wripv0z4nx7lxajl88i"))))
2359 (build-system python-build-system)
2361 `(("python-lxml" ,python-lxml)
2362 ("python-requests" ,python-requests)
2363 ("python-pyxdg" ,python-pyxdg)
2365 (home-page "https://github.com/chronitis/curseradio")
2366 (synopsis "Command-line Internet radio player")
2367 (description "Curseradio is a Curses-based radio player that uses a
2368 tune-in sender list from @url{http://opml.radiotime.com}.")
2369 (license license:expat))))
2371 (define-public pianobar
2374 (version "2016.06.02")
2377 (uri (string-append "https://github.com/PromyLOPh/"
2378 name "/archive/" version ".tar.gz"))
2379 (file-name (string-append name "-" version ".tar.gz"))
2382 "1hi5rr6jcr0kwf4xfz007ndwkjkp287lhwlsgfz6iryqa5n6jzcp"))))
2383 (build-system gnu-build-system)
2385 `(#:tests? #f ; no tests
2386 #:make-flags (list "CC=gcc" "CFLAGS=-std=c99"
2387 (string-append "PREFIX=" %output))
2388 #:phases (modify-phases %standard-phases
2389 (delete 'configure))))
2393 ("libgcrypt" ,libgcrypt)
2395 ("ffmpeg" ,ffmpeg-3.4)))
2397 `(("pkg-config" ,pkg-config)))
2398 (home-page "http://6xq.net/projects/pianobar/")
2399 (synopsis "Console-based pandora.com player")
2400 (description "pianobar is a console-based music player for the
2401 personalized online radio pandora.com. It has configurable keys for playing
2402 and managing stations, can be controlled remotely via fifo, and can run
2403 event-based scripts for scrobbling, notifications, etc.")
2404 (license license:expat)))
2406 (define-public python-mutagen
2408 (name "python-mutagen")
2412 (uri (pypi-uri "mutagen" version))
2415 "0rl7sxn1rcjl48fwga3dqf9f6pzspsny4ngxyf6pp337mrq0z693"))))
2416 (build-system python-build-system)
2418 `(("python-pytest" ,python-pytest)))
2419 (home-page "https://bitbucket.org/lazka/mutagen")
2420 (synopsis "Read and write audio tags")
2421 (description "Mutagen is a Python module to handle audio metadata. It
2422 supports ASF, FLAC, M4A, Monkey’s Audio, MP3, Musepack, Ogg FLAC, Ogg Speex, Ogg
2423 Theora, Ogg Vorbis, True Audio, WavPack and OptimFROG audio files. All versions
2424 of ID3v2 are supported, and all standard ID3v2.4 frames are parsed. It can read
2425 Xing headers to accurately calculate the bitrate and length of MP3s. ID3 and
2426 APEv2 tags can be edited regardless of audio format. It can also manipulate Ogg
2427 streams on an individual packet/page level.")
2428 (license license:gpl2))) ; "later version" never mentioned
2430 (define-public python2-mutagen
2431 (package-with-python2 python-mutagen))
2433 (define-public python-musicbrainzngs
2435 (name "python-musicbrainzngs")
2439 (uri (pypi-uri "musicbrainzngs" version))
2442 "1dddarpjawryll2wss65xq3v9q8ln8dan7984l5dxzqx88d2dvr8"))))
2443 (build-system python-build-system)
2445 '(;; The tests fail suffer from race conditions:
2446 ;; https://github.com/alastair/python-musicbrainzngs/issues/211
2448 (home-page "https://python-musicbrainzngs.readthedocs.org/")
2449 (synopsis "Python bindings for MusicBrainz NGS webservice")
2450 (description "Musicbrainzngs implements Python bindings of the MusicBrainz
2451 web service. This library can be used to retrieve music metadata from the
2452 MusicBrainz database.")
2453 ;; 'musicbrainzngs/compat.py' is ISC licensed.
2454 (license (list license:bsd-2 license:isc))))
2456 (define-public python2-musicbrainzngs
2457 (package-with-python2 python-musicbrainzngs))
2459 (define-public python2-pyechonest
2461 (name "python2-pyechonest")
2465 (uri (pypi-uri "pyechonest" version))
2468 "1584nira3rkiman9dm81kdshihmkj21s8navndz2l8spnjwb790x"))))
2469 (build-system python-build-system)
2471 `(;; Python 3 is not supported:
2472 ;; https://github.com/echonest/pyechonest/issues/42
2473 #:python ,python-2))
2474 (home-page "https://github.com/echonest/pyechonest")
2475 (synopsis "Python interface to The Echo Nest APIs")
2476 (description "Pyechonest is a Python library for the Echo Nest API. With
2477 Pyechonest you have Python access to the entire set of API methods including:
2480 @item artist - search for artists by name, description, or attribute, and get
2481 back detailed information about any artist including audio, similar artists,
2482 blogs, familiarity, hotttnesss, news, reviews, urls and video.
2483 @item song - search songs by artist, title, description, or attribute (tempo,
2484 duration, etc) and get detailed information back about each song, such as
2485 hotttnesss, audio_summary, or tracks.
2486 @item track - upload a track to the Echo Nest and receive summary information
2487 about the track including key, duration, mode, tempo, time signature along with
2488 detailed track info including timbre, pitch, rhythm and loudness information.
2490 (license license:bsd-3)))
2492 (define-public python-pylast
2494 (name "python-pylast")
2498 (uri (pypi-uri "pylast" version))
2501 "0r9h7g8i8l2mgqjwkda3v6prfbkb2im5kap1az9ppmhjm9i4jkcf"))))
2502 (build-system python-build-system)
2503 ;; Tests require network access. See
2504 ;; https://github.com/pylast/pylast/issues/105
2505 (arguments '(#:tests? #f))
2507 `(("python-coverage" ,python-coverage)
2508 ("python-pycodestyle" ,python-pycodestyle)
2509 ("python-mock" ,python-mock)
2510 ("python-pep8" ,python-pep8)
2511 ("python-pytest" ,python-pytest)
2512 ("python-flaky" ,python-flaky)
2513 ("python-pyflakes" ,python-pyflakes)
2514 ("python-pyyaml" ,python-pyyaml)))
2516 `(("python-six" ,python-six)))
2517 (home-page "https://github.com/pylast/pylast")
2518 (synopsis "Python interface to Last.fm and Libre.fm")
2519 (description "A Python interface to Last.fm and other API-compatible
2520 websites such as Libre.fm.")
2521 (license license:asl2.0)))
2523 (define-public python2-pylast
2524 (package-with-python2 python-pylast))
2526 (define-public instantmusic
2527 (let ((commit "300891d09c703525215fa5a116b9294af1c923c8")
2530 (name "instantmusic")
2531 (version (git-version "1.0" revision commit))
2535 (url "https://github.com/yask123/Instant-Music-Downloader.git")
2537 (file-name (git-file-name name version))
2540 "0j7qivaa04bpdz3anmgci5833dgiyfqqwq9fdrpl9m68b34gl773"))))
2541 (build-system python-build-system)
2543 `(("python-requests" ,python-requests)
2545 ("python-beautifulsoup4" ,python-beautifulsoup4)
2546 ("youtube-dl" ,youtube-dl)))
2548 '(#:modules ((guix build python-build-system)
2551 #:phases (modify-phases %standard-phases
2552 (add-before 'build 'change-directory
2554 (chdir "instantmusic-0.1") #t))
2555 (add-before 'check 'fix-file-permissions
2557 ;; Fix some read-only files that would cause a build failure
2558 (for-each (cut chmod <> #o644)
2559 (find-files "instantmusic.egg-info"
2560 "PKG-INFO|.*\\.txt"))
2562 (home-page "http://iyask.me/Instant-Music-Downloader/")
2563 (synopsis "Command-line program to download a song from YouTube")
2564 (description "InstantMusic downloads a song from YouTube in MP3 format.
2565 Songs can be searched by artist, name or even by a part of the song text.")
2566 (license license:expat))))
2568 (define-public beets
2574 (uri (pypi-uri "beets" version))
2577 "0l2vfrknwcsm6bn83m7476qrz45qwgxcb5k0h7kn96kr70irn1v2"))))
2578 (build-system python-build-system)
2581 (modify-phases %standard-phases
2582 (add-after 'unpack 'set-HOME
2583 (lambda _ (setenv "HOME" (string-append (getcwd) "/tmp"))))
2585 (lambda _ (zero? (system* "nosetests" "-v")))))))
2587 `(("python-beautifulsoup4" ,python-beautifulsoup4)
2588 ("python-flask" ,python-flask)
2589 ("python-mock" ,python-mock)
2590 ("python-mpd2" ,python-mpd2)
2591 ("python-nose" ,python-nose)
2592 ("python-pathlib" ,python-pathlib)
2593 ("python-pyxdg" ,python-pyxdg)
2594 ("python-pylast" ,python-pylast)
2595 ("python-rarfile" ,python-rarfile)
2596 ("python-responses" ,python-responses)))
2597 ;; TODO: Install optional plugins and dependencies.
2599 `(("python-discogs-client" ,python-discogs-client)
2600 ("python-jellyfish" ,python-jellyfish)
2601 ("python-munkres" ,python-munkres)
2602 ("python-musicbrainzngs" ,python-musicbrainzngs)
2603 ("python-mutagen" ,python-mutagen)
2604 ("python-pyyaml" ,python-pyyaml)
2605 ("python-unidecode" ,python-unidecode)))
2606 (home-page "http://beets.io")
2607 (synopsis "Music organizer")
2608 (description "The purpose of beets is to get your music collection right
2609 once and for all. It catalogs your collection, automatically improving its
2610 metadata as it goes using the MusicBrainz database. Then it provides a variety
2611 of tools for manipulating and accessing your music.")
2612 (license license:expat)))
2614 (define-public milkytracker
2616 (name "milkytracker")
2620 (uri (string-append "https://github.com/milkytracker/"
2621 "MilkyTracker/archive/v"
2623 (file-name (string-append name "-" version ".tar.gz"))
2626 "1dvnddsnn9c83lz4dlm0cfjpc0m524amfkbalxbswdy0qc8cj1wv"))
2627 (modules '((guix build utils)))
2628 ;; Remove non-FSDG compliant sample songs.
2631 (delete-file-recursively "resources/music")
2632 (substitute* "CMakeLists.txt"
2633 (("add_subdirectory\\(resources/music\\)") ""))
2635 (build-system cmake-build-system)
2637 '(#:tests? #f ; no check target
2638 ;; This flag ensures that MilkyTracker links with the JACK library.
2639 #:configure-flags '("-DCMAKE_CXX_FLAGS=-ljack")))
2641 `(("alsa-lib" ,alsa-lib)
2646 `(("pkg-config" ,pkg-config)))
2647 (synopsis "Music tracker for working with .MOD/.XM module files")
2648 (description "MilkyTracker is a music application for creating .MOD and .XM
2649 module files. It attempts to recreate the module replay and user experience of
2650 the popular DOS program Fasttracker II, with special playback modes available
2651 for improved Amiga ProTracker 2/3 compatibility.")
2652 (home-page "http://milkytracker.titandemo.org/")
2653 ;; 'src/milkyplay' is under Modified BSD, the rest is under GPL3 or later.
2654 (license (list license:bsd-3 license:gpl3+))))
2656 (define-public schismtracker
2658 (name "schismtracker")
2659 (version "20170910")
2663 "https://github.com/" name "/" name "/archive/"
2665 (file-name (string-append name "-" version ".tar.gz"))
2668 "01gfcjngbpv87y9w5jln8k313hycpkb1d617hdy2cdw2hxqzlclz"))
2669 (modules '((guix build utils)))
2671 ;; Remove use of __DATE__ and __TIME__ for reproducibility.
2673 (substitute* "schism/version.c"
2674 (("Schism Tracker built %s %s.*$")
2675 (string-append "Schism Tracker version " ,version "\");")))
2677 (build-system gnu-build-system)
2680 (modify-phases %standard-phases
2681 (add-after 'unpack 'autoconf
2682 (lambda _ (zero? (system* "autoreconf" "-vfi"))))
2683 (add-before 'configure 'link-libm
2684 (lambda _ (setenv "LIBS" "-lm") #t)))))
2686 `(("autoconf" ,autoconf)
2687 ("automake" ,automake)
2688 ("python" ,python)))
2690 `(("alsa-lib" ,alsa-lib) ; for asound dependency
2692 ("libxext" ,libxext)
2694 (home-page "http://schismtracker.org")
2695 (synopsis "Oldschool sample-based music composition tool")
2697 "Schism Tracker is a reimplementation of Impulse Tracker, a program used to
2698 create high quality music without the requirements of specialized, expensive
2699 equipment, and with a unique \"finger feel\" that is difficult to replicate in
2700 part. The player is based on a highly modified version of the ModPlug engine,
2701 with a number of bugfixes and changes to improve IT playback.")
2702 (license license:gpl2+)))
2704 (define-public sooperlooper
2706 (name "sooperlooper")
2710 (uri (string-append "http://essej.net/sooperlooper/sooperlooper-"
2714 "0n2gdxw1fx8nxxnpzf4sj0kp6k6zi1yq59cbz6qqzcnsnpnvszbs"))
2715 (patches (search-patches "sooperlooper-build-with-wx-30.patch"))))
2716 (build-system gnu-build-system)
2718 `(#:make-flags (list "CXXFLAGS=-std=gnu++11")
2720 (modify-phases %standard-phases
2721 (add-after 'unpack 'add-sigc++-includes
2722 (lambda* (#:key inputs #:allow-other-keys)
2723 (let ((sig (assoc-ref inputs "libsigc++"))
2724 (xml (assoc-ref inputs "libxml2"))
2727 (string-append sig "/include/sigc++-2.0:"
2728 sig "/lib/sigc++-2.0/include:"
2729 xml "/include/libxml2/:"
2731 cwd "/libs/midi++")))
2732 (substitute* '("src/control_osc.hpp"
2733 "src/gui/app_frame.hpp"
2734 "src/gui/config_panel.hpp"
2735 "src/gui/keys_panel.hpp"
2736 "src/gui/latency_panel.hpp"
2737 "src/gui/main_panel.hpp"
2738 "src/gui/midi_bind_panel.hpp"
2739 "src/gui/prefs_dialog.hpp")
2740 (("sigc\\+\\+/object.h")
2742 (substitute* '("src/engine.cpp"
2743 "src/gui/latency_panel.cpp"
2744 "src/gui/looper_panel.cpp"
2745 "src/gui/main_panel.cpp")
2746 (("(\\(| )bind " _ pre)
2747 (string-append pre "sigc::bind ")))
2749 (add-after 'unpack 'fix-xpm-warnings
2751 (substitute* (find-files "." "\\.xpm$")
2752 (("static char") "static const char"))
2756 ("alsa-lib" ,alsa-lib)
2757 ("wxwidgets" ,wxwidgets-gtk2)
2758 ("libsndfile" ,libsndfile)
2759 ("libsamplerate" ,libsamplerate)
2761 ("rubberband" ,rubberband)
2762 ("libxml2" ,libxml2)
2763 ("libsigc++" ,libsigc++)
2764 ("ncurses" ,ncurses)))
2766 `(("pkg-config" ,pkg-config)))
2767 (home-page "http://essej.net/sooperlooper/")
2768 (synopsis "Live looping sampler")
2770 "SooperLooper is a live looping sampler capable of immediate loop
2771 recording, overdubbing, multiplying, reversing and more. It allows for
2772 multiple simultaneous multi-channel loops limited only by your computer's
2774 (license license:gpl2+)))
2782 (uri (string-append "http://ftp.daper.net/pub/soft/"
2784 name "-" version ".tar.bz2"))
2787 "026v977kwb0wbmlmf6mnik328plxg8wykfx9ryvqhirac0aq39pk"))))
2788 (build-system gnu-build-system)
2790 `(("alsa-lib" ,alsa-lib)
2793 ("ffmpeg" ,ffmpeg-3.4)
2796 ("libid3tag" ,libid3tag)
2797 ("libltdl" ,libltdl)
2798 ("libmodplug" ,libmodplug)
2799 ("libmpcdec" ,libmpcdec)
2802 ("libvorbis" ,libvorbis)
2803 ("ncurses" ,ncurses)
2804 ("openssl" ,openssl)
2805 ("sasl" ,cyrus-sasl)
2808 ("wavpack" ,wavpack)
2811 `(("pkg-config" ,pkg-config)))
2812 (synopsis "Console audio player designed to be powerful and easy to use")
2814 "Music on Console is a console audio player that supports many file
2815 formats, including most audio formats recognized by FFMpeg.")
2816 (home-page "http://moc.daper.net")
2817 (license license:gpl2+)))
2819 (define-public midicsv
2825 (uri (string-append "http://www.fourmilab.ch/webtools/midicsv/"
2826 name "-" version ".tar.gz"))
2829 "1vvhk2nf9ilfw0wchmxy8l13hbw9cnpz079nsx5srsy4nnd78nkw"))))
2830 (build-system gnu-build-system)
2832 `(#:phases (modify-phases %standard-phases (delete 'configure))
2833 #:make-flags (list "CC=gcc" (string-append "INSTALL_DEST=" %output))))
2834 (synopsis "Convert MIDI files to and from CSV")
2836 "Midicsv reads a standard MIDI file and decodes it into a comma-separated
2837 value file (CSV), which preserves all the information in the MIDI file. The
2838 ASCII CSV file may be loaded into a spreadsheet or database application, or
2839 processed by a program to transform the MIDI data (for example, to key
2840 transpose a composition or extract a track from a multi-track sequence). A
2841 CSV file in the format created by midicsv may be converted back into a
2842 standard MIDI file with the csvmidi program.")
2843 (home-page "http://www.fourmilab.ch/webtools/midicsv/")
2844 (license license:public-domain)))
2846 (define-public gx-guvnor-lv2
2848 (name "gx-guvnor-lv2")
2853 (url "https://github.com/brummer10/GxGuvnor.lv2.git")
2854 (commit (string-append "v" version))))
2855 (file-name (string-append name "-" version "-checkout"))
2858 "1wa5070j40p7f0b3kr259pzm99xb6cf2badr2capayjvgayd6gnm"))))
2859 (build-system gnu-build-system)
2861 `(;; The check target is used only to output a warning.
2864 (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
2866 (modify-phases %standard-phases
2869 (substitute* "Makefile"
2870 (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n")
2871 (("install : all") "install :"))
2875 (home-page "https://github.com/brummer10/GxGuvnor.lv2")
2876 (synopsis "Overdrive/distortion pedal simulation")
2877 (description "This package provides the LV2 plugin \"GxGuvnor\", a
2878 simulation of an overdrive or distortion pedal for guitars.")
2879 ;; The LICENSE file says GPLv3 but the license headers in the files say
2880 ;; GPLv2 or later. The whole project is released under GPLv3 or later
2881 ;; according to https://github.com/brummer10/GxGuvnor.lv2/issues/1
2882 (license license:gpl3+)))
2884 (define-public gx-vbass-preamp-lv2
2885 (let ((commit "eb999b0ca0ef4da40a59e458a9ab6e7042b96c99")
2887 (package (inherit gx-guvnor-lv2)
2888 (name "gx-vbass-preamp-lv2")
2889 (version (string-append "0-" revision "." (string-take commit 9)))
2893 (url "https://github.com/brummer10/GxVBassPreAmp.lv2")
2897 "0firap073ldw4nrykkd7jvyyj0jbl1nslxyzjj4kswazp99x7d9h"))
2898 (file-name (string-append name "-" version "-checkout"))))
2903 `(("pkg-config" ,pkg-config)))
2904 (home-page "https://github.com/brummer10/GxVBassPreAmp.lv2")
2905 (synopsis "Simulation of the Vox Venue Bass 100 Pre Amp Section")
2906 (description "This package provides the LV2 plugin \"GxVBassPreAmp\", a
2907 pre-amplifier simulation modelled after the 1984 Vox Venue Bass 100 Pre Amp
2910 (define-public gx-overdriver-lv2
2911 (let ((commit "ed71801987449414bf3adaa0dbfac68e8775f1ce")
2913 (package (inherit gx-guvnor-lv2)
2914 (name "gx-overdriver-lv2")
2915 (version (string-append "0-" revision "." (string-take commit 9)))
2919 (url "https://github.com/brummer10/GxOverDriver.lv2")
2923 "13j614jh525fbkby79nnzwj0z1ac0c9wclyn5pfqvkmx6a7j24r8"))
2924 (file-name (string-append name "-" version "-checkout"))))
2925 (home-page "https://github.com/brummer10/GxOverDriver.lv2")
2926 (synopsis "Overdrive effect with level and tone control")
2927 (description "This package provides the LV2 plugin \"GxOverDriver\", an
2928 overdrive effect."))))
2930 (define-public gx-tone-mender-lv2
2931 (let ((commit "b6780b4a3e4782b3ed0e5882d6788f178aed138f")
2933 (package (inherit gx-guvnor-lv2)
2934 (name "gx-tone-mender-lv2")
2935 (version (string-append "0-" revision "." (string-take commit 9)))
2939 (url "https://github.com/brummer10/GxToneMender.lv2")
2943 "07qdcfsvv2vdnfnjh91pfgvjdcs5y91nvwfm8c0z8fp6b4bk7a9q"))
2944 (file-name (string-append name "-" version "-checkout"))))
2945 (home-page "https://github.com/brummer10/GxToneMender.lv2")
2946 (synopsis "Clean boost with a 3-knob tonestack")
2947 (description "This package provides the LV2 plugin \"GxToneMender\", a
2948 clean boost effect with a 3-knob tonestack."))))
2950 (define-public gx-push-pull-lv2
2951 (let ((commit "7f76ae2068498643ac8671ee0930b13ee3fd8eb5")
2953 (package (inherit gx-guvnor-lv2)
2954 (name "gx-push-pull-lv2")
2955 (version (string-append "0-" revision "." (string-take commit 9)))
2959 (url "https://github.com/brummer10/GxPushPull.lv2")
2963 "12f5hwck2irph0gjbj8xy8jqcqdwb8l1hlwf29k0clz52h1jhb5q"))
2964 (file-name (string-append name "-" version "-checkout"))))
2965 (home-page "https://github.com/brummer10/GxPushPull.lv2")
2966 (synopsis "Octave up push pull transistor fuzz simulation")
2967 (description "This package provides the LV2 plugin \"GxPushPull\", a
2968 simulation of a push pull transistor fuzz effect with added high octave."))))
2970 (define-public gx-suppa-tone-bender-lv2
2971 (package (inherit gx-guvnor-lv2)
2972 (name "gx-suppa-tone-bender-lv2")
2977 (url "https://github.com/brummer10/GxSuppaToneBender.lv2.git")
2978 (commit (string-append "v" version))))
2979 (file-name (string-append name "-" version "-checkout"))
2982 "01x6bjmllkmvxfzc5xwdix7w021j26js71awv728cxsmkxgqw0zy"))))
2983 (home-page "https://github.com/brummer10/GxSuppaToneBender.lv2")
2984 (synopsis "Simulation of the Vox Suppa Tone Bender pedal")
2985 (description "This package provides the LV2 plugin
2986 \"GxSuppaToneBender\", a simulation modelled after the Vox Suppa Tone Bender
2989 (define-public gx-saturator-lv2
2990 (let ((commit "605330f432c94b6eb3f8203cbe472befae959532")
2992 (package (inherit gx-vbass-preamp-lv2)
2993 (name "gx-saturator-lv2")
2994 (version (string-append "0-" revision "." (string-take commit 9)))
2998 (url "https://github.com/brummer10/GxSaturator.lv2")
3002 "1w4nvh0rmxrv3s3hmh4fs74f3hc0jn31v00j769j7v68mqr7kawy"))
3003 (file-name (string-append name "-" version "-checkout"))))
3004 (home-page "https://github.com/brummer10/GxSaturator.lv2")
3005 (synopsis "Saturation effect")
3006 (description "This package provides the LV2 plugin \"GxSaturator\", a
3007 saturation effect."))))
3009 (define-public gx-hyperion-lv2
3010 (package (inherit gx-guvnor-lv2)
3011 (name "gx-hyperion-lv2")
3016 (url "https://github.com/brummer10/GxHyperion.lv2.git")
3017 (commit (string-append "v" version))))
3018 (file-name (string-append name "-" version "-checkout"))
3021 "1vx79s6s9if117y2g0ppdja2sv2wcny6xcfl3j1z4cipahnildxf"))))
3022 (home-page "https://github.com/brummer10/GxHyperion.lv2")
3023 (synopsis "Simulation of the Hyperion Fuzz pedal")
3024 (description "This package provides the LV2 plugin \"GxHyperion\", a
3025 simulation of the Hyperion Fuzz pedal.")))
3027 (define-public gx-voodoo-fuzz-lv2
3028 (package (inherit gx-guvnor-lv2)
3029 (name "gx-voodoo-fuzz-lv2")
3034 (url "https://github.com/brummer10/GxVoodoFuzz.lv2.git")
3035 (commit (string-append "v" version))))
3036 (file-name (string-append name "-" version "-checkout"))
3039 "1v0scphivri1fk4hl20j13f92i48mnx1zsil4hgnadsmm4nsfw43"))))
3040 (home-page "https://github.com/brummer10/GxVoodoFuzz.lv2")
3041 (synopsis "Fuzz effect modelled after the Voodoo Lab SuperFuzz")
3042 (description "This package provides the LV2 plugin \"GxVoodooFuzz\", a
3043 simulation modelled after the Voodoo Lab SuperFuzz pedal. It's basically a
3044 Bosstone circuit, followed by the tone control of the FoxToneMachine in
3045 parallel with a DarkBooster, followed by a volume control.")))
3047 (define-public gx-super-fuzz-lv2
3048 (package (inherit gx-guvnor-lv2)
3049 (name "gx-super-fuzz-lv2")
3054 (url "https://github.com/brummer10/GxSuperFuzz.lv2.git")
3055 (commit (string-append "v" version))))
3056 (file-name (string-append name "-" version "-checkout"))
3059 "1jlljd9hlgfflbiizq47lv1xbbgjyx3v835mf24zmh1q5zsw4np4"))))
3060 (home-page "https://github.com/brummer10/GxSuperFuzz.lv2")
3061 (synopsis "Fuzz effect modelled after the UniVox SuperFuzz")
3062 (description "This package provides the LV2 plugin \"GxSuperFuzz\", an
3063 analog simulation of the UniVox SuperFuzz pedal. In this simulation the trim
3064 pot, which is usually in the housing, is exposed as a control parameter. It
3065 adjusts the amount of harmonics.")))
3067 (define-public gx-vintage-fuzz-master-lv2
3068 (package (inherit gx-guvnor-lv2)
3069 (name "gx-vintage-fuzz-master-lv2")
3074 (url "https://github.com/brummer10/GxVintageFuzzMaster.lv2.git")
3075 (commit (string-append "v" version))))
3076 (file-name (string-append name "-" version "-checkout"))
3079 "02jb211z8rw2qr5r1z5mdxlqgiw6cbc319xpqplvn6k21c59mskv"))))
3080 (home-page "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
3081 (synopsis "Fuzz effect simulation of the vintage Fuzz Master")
3082 (description "This package provides the LV2 plugin
3083 \"GxVintageFuzzMaster\", a simulation of the vintage Fuzz Master pedal.")))
3085 (define-public gx-slow-gear-lv2
3086 (let ((commit "5d37e775b0feef1d82feee94e2a7a2d7e57efe2d")
3088 (package (inherit gx-vbass-preamp-lv2)
3089 (name "gx-slow-gear-lv2")
3090 (version (string-append "0-" revision "." (string-take commit 9)))
3094 (url "https://github.com/brummer10/GxSlowGear.lv2")
3098 "141mz69zkhk3lm54bb6wgpnghb92zm1ig7fv07240cmhydqji1q1"))
3099 (file-name (string-append name "-" version "-checkout"))))
3100 (home-page "https://github.com/brummer10/GxSlowGear.lv2")
3101 (synopsis "Slow gear audio effect")
3102 (description "This package provides the LV2 plugin \"GxSlowGear\", a
3103 slow gear audio effect to produce volume swells."))))
3105 (define-public gx-switchless-wah-lv2
3106 (let ((commit "7b08691203314612999f0ce2328cdc1161cd6665")
3108 (package (inherit gx-guvnor-lv2)
3109 (name "gx-switchless-wah-lv2")
3110 (version (string-append "0-" revision "." (string-take commit 9)))
3114 (url "https://github.com/brummer10/GxSwitchlessWah.lv2")
3118 "04jqfpncmrrqn34p21w4v9m2x5a5wsqwbm4f3byxvq4vcibwxzk2"))
3119 (file-name (string-append name "-" version "-checkout"))))
3120 (home-page "https://github.com/brummer10/GxSwitchlessWah.lv2")
3121 (synopsis "Wah emulation with switchless activation")
3122 (description "This package provides the LV2 plugin \"GxSwitchlessWah\",
3123 a simulation of an analog Wah pedal with switchless activation."))))
3125 (define-public mod-utilities
3126 (let ((commit "80ea3ea9f52fab7f191671f4810bf90fc955a046")
3129 (name "mod-utilities")
3130 (version (string-append "0-" revision "." (string-take commit 9)))
3134 (url "https://github.com/moddevices/mod-utilities.git")
3136 (file-name (string-append name "-" version "-checkout"))
3139 "1v55zmzmlg0ka7341x5lsvb44amy17vk27s669ps1basd1bk5s5v"))))
3140 (build-system gnu-build-system)
3142 `(#:tests? #f ; there are no tests
3144 (list (string-append "INSTALL_PATH="
3145 (assoc-ref %outputs "out")
3147 (string-append "PREFIX=" (assoc-ref %outputs "out"))
3150 (modify-phases %standard-phases
3151 (delete 'configure))))
3154 (home-page "https://github.com/moddevices/mod-utilities")
3155 (synopsis "LV2 utility plugins")
3156 (description "This package provides LV2 audio utility plugins, such as
3157 filters, crossovers, simple gain plugins without zipper noise, switch box
3158 plugins, a switch trigger, a toggle switch, and a peakmeter.")
3159 (license license:gpl2+))))
3161 (define-public ingen
3162 (let ((commit "cc4a4db33f4d126a07a4a498e053c5fb9a883be3")
3166 (version (string-append "0.0.0-" revision "."
3167 (string-take commit 9)))
3172 (url "http://git.drobilla.net/ingen.git")
3174 (file-name (string-append name "-" version "-checkout"))
3177 "1wg47vjw9djn99gbnsl2bcwj4xhdid61m4wrbn2nlp797flj91ic"))))
3178 (build-system waf-build-system)
3180 `(#:tests? #f ; no "check" target
3181 #:configure-flags (list "--no-webkit")
3183 (modify-phases %standard-phases
3184 (add-after 'unpack 'patch-wscript
3185 (lambda* (#:key outputs #:allow-other-keys)
3186 (let ((out (assoc-ref outputs "out")))
3187 (substitute* "wscript"
3188 ;; FIXME: Our version of lv2specgen.py does not behave as
3189 ;; expected. Maybe this requires a development version of
3191 (("lv2specgen.py") "touch ingen.lv2/ingen.html; echo")
3192 ;; Add libraries to RUNPATH.
3193 (("^(.+)target.*= 'src/ingen/ingen'," line prefix)
3194 (string-append prefix
3195 "linkflags=[\"-Wl,-rpath="
3196 out "/lib" "\"]," line)))
3197 (substitute* '("src/wscript"
3198 "src/server/wscript")
3199 ;; Add libraries to RUNPATH.
3200 (("bld.env.PTHREAD_LINKFLAGS" line)
3202 " + [\"-Wl,-rpath=" out "/lib" "\"]")))
3203 (substitute* "src/client/wscript"
3204 ;; Add libraries to RUNPATH.
3205 (("^(.+)target.*= 'ingen_client'," line prefix)
3206 (string-append prefix
3207 "linkflags=[\"-Wl,-rpath="
3208 out "/lib" "\"]," line)))
3209 (substitute* "src/gui/wscript"
3210 ;; Add libraries to RUNPATH.
3211 (("^(.+)target.* = 'ingen_gui.*" line prefix)
3212 (string-append prefix
3213 "linkflags=[\"-Wl,-rpath="
3214 out "/lib" "\"]," line))))
3218 ("python-rdflib" ,python-rdflib)
3223 ("raul" ,raul-devel)
3224 ("ganv" ,ganv-devel)
3229 ("gtkmm" ,gtkmm-2)))
3231 `(("pkg-config" ,pkg-config)
3232 ("python-pygments" ,python-pygments)))
3233 (home-page "http://drobilla.net/software/ingen")
3234 (synopsis "Modular audio processing system")
3235 (description "Ingen is a modular audio processing system for JACK and
3236 LV2 based systems. Ingen is built around LV2 technology and a strict
3237 separation of engine from user interface. The engine is controlled
3238 exclusively through a protocol, and can execute as a headless process, with an
3239 in-process GUI, or as an LV2 plugin. The GUI can run as a program which
3240 communicates over a Unix or TCP/IP socket, or as an embeddable LV2 GUI which
3241 communicates via LV2 ports. Any saved Ingen graph can be loaded as an LV2
3242 plugin on any system where Ingen is installed. This allows users to visually
3243 develop custom plugins for use in other applications without programming.")
3244 (license license:agpl3+))))
3246 (define-public qmidiarp
3252 (uri (string-append "mirror://sourceforge/qmidiarp/qmidiarp/"
3253 version "/qmidiarp-" version ".tar.bz2"))
3256 "043yh1p0rrbj1v840y27529m9260g55gvh1km8az4jxy7mns58r2"))))
3257 (build-system gnu-build-system)
3260 (list "--enable-qt5"
3261 "CXXFLAGS=-std=gnu++11")))
3263 `(("qtbase" ,qtbase)
3264 ("alsa-lib" ,alsa-lib)
3269 `(("pkg-config" ,pkg-config)
3270 ("qttools" ,qttools)))
3271 (home-page "http://qmidiarp.sourceforge.net/")
3272 (synopsis "MIDI arpeggiator")
3273 (description "QMidiArp is an advanced MIDI arpeggiator, programmable step
3274 sequencer and LFO. It can hold any number of arpeggiator, sequencer, or LFO
3275 modules running in parallel.")
3276 (license license:gpl2+)))
3278 (define-public qmidiroute
3284 (uri (string-append "mirror://sourceforge/alsamodular/QMidiRoute/"
3285 version "/qmidiroute-" version ".tar.bz2"))
3288 "19v1ppbglgl3z9v7xdqc0k33w71cqq8a7d6ihvfs7iz77dygrih9"))))
3289 (build-system gnu-build-system)
3292 (list "--enable-qt5"
3293 "CXXFLAGS=-std=gnu++11")))
3295 `(("qtbase" ,qtbase)
3296 ("alsa-lib" ,alsa-lib)))
3298 `(("pkg-config" ,pkg-config)
3299 ("qttools" ,qttools)))
3300 (home-page "http://alsamodular.sourceforge.net/")
3301 (synopsis "MIDI event router and filter")
3302 (description "QMidiRoute is a MIDI event router and filter. MIDI note,
3303 control change, program change and pitch bend events are logged, and can be
3304 filtered, redirected and transformed into other events according to MIDI maps
3305 defined as tabs in the main control surface.")
3306 (license license:gpl2+)))
3308 (define-public seq24
3314 (uri (string-append "https://launchpad.net/seq24/trunk/"
3315 version "/+download/seq24-"
3316 version ".tar.bz2"))
3319 "12dphdhnvfk1k0vmagi1v2lhyxjyj1j3cz6ksjw0ydcvid1x8ap2"))
3320 (patches (search-patches "seq24-rename-mutex.patch"))))
3321 (build-system gnu-build-system)
3324 (list "CXXFLAGS=-std=gnu++11")))
3326 `(("gtkmm" ,gtkmm-2)
3327 ("alsa-lib" ,alsa-lib)
3331 `(("pkg-config" ,pkg-config)))
3332 (home-page "https://edge.launchpad.net/seq24/")
3333 (synopsis "Real-time MIDI sequencer")
3334 (description "Seq24 is a real-time MIDI sequencer. It was created to
3335 provide a very simple interface for editing and playing MIDI loops.")
3336 (license license:gpl2+)))
3338 (define-public python-discogs-client
3340 (name "python-discogs-client")
3344 (uri (pypi-uri "discogs-client" version))
3347 "053ld2psh0yj3z0kg6z5bn4y3cr562m727494n0ayhgzbkjbacly"))))
3348 (build-system python-build-system)
3350 `(("python-oauthlib" ,python-oauthlib)
3351 ("python-requests" ,python-requests)))
3353 `(("python-six" ,python-six)))
3354 (home-page "https://github.com/discogs/discogs_client")
3355 (synopsis "Official Python client for the Discogs API")
3356 (description "This is the official Discogs API client for Python. It enables
3357 you to query the Discogs database for information on artists, releases, labels,
3358 users, Marketplace listings, and more. It also supports OAuth 1.0a
3359 authorization, which allows you to change user data such as profile information,
3360 collections and wantlists, inventory, and orders.")
3361 (license license:bsd-2)))
3363 (define-public python2-discogs-client
3364 (package-with-python2 python-discogs-client))
3366 (define-public libsmf
3373 ;; SF download page says development moved, but the link it points to
3374 ;; is gone (https://github.com/nilsgey/libsmf). Someone else adopted
3375 ;; it but made no release so far (https://github.com/stump/libsmf).
3376 (uri (string-append "mirror://sourceforge/libsmf/libsmf/"
3377 version "/libsmf-" version ".tar.gz"))
3380 "16c0n40h0r56gzbh5ypxa4dwp296dan3jminml2qkb4lvqarym6k"))))
3381 (build-system gnu-build-system)
3383 "static")) ; 88KiB of .a files
3386 (modify-phases %standard-phases
3387 (add-after 'install 'move-static-libraries
3388 (lambda* (#:key outputs #:allow-other-keys)
3389 ;; Move static libraries to the "static" output.
3390 (let* ((out (assoc-ref outputs "out"))
3391 (lib (string-append out "/lib"))
3392 (static (assoc-ref outputs "static"))
3393 (slib (string-append static "/lib")))
3395 (for-each (lambda (file)
3396 (install-file file slib)
3398 (find-files lib "\\.a$"))
3401 `(("readline" ,readline)
3404 `(("doxygen" ,doxygen)
3405 ("pkg-config" ,pkg-config)))
3406 (home-page "http://libsmf.sourceforge.net/")
3407 (synopsis "Standard MIDI File format library")
3409 "LibSMF is a C library for handling SMF (\"*.mid\") files. It transparently handles
3410 conversions between time and pulses, tempo map handling and more. The only dependencies
3411 are a C compiler and glib. Full API documentation and examples are included.")
3412 (license license:bsd-2)))
3421 (uri (string-append "https://github.com/LMMS/lmms/archive/v"
3423 (file-name (string-append name "-" version ".tar.gz"))
3426 "1g76z7ha3hd53vbqaq9n1qg6s3lw8zzaw51iny6y2bz0j1xqwcsr"))))
3427 (build-system cmake-build-system)
3429 `(#:tests? #f ; no tests
3431 (modify-phases %standard-phases
3432 (add-before 'configure 'set-ldflags
3433 (lambda* (#:key outputs #:allow-other-keys)
3437 (assoc-ref outputs "out") "/lib/lmms"
3439 (assoc-ref outputs "out") "/lib/lmms/ladspa"
3442 (add-before 'configure 'remove-Werror
3444 (substitute* "CMakeLists.txt"
3445 (("SET\\(WERROR_FLAGS \"\\$\\{WERROR_FLAGS\\} -Werror")
3446 "SET(WERROR_FLAGS \"${WERROR_FLAGS}"))
3448 (add-before 'reset-gzip-timestamps 'make-manpages-writable
3449 (lambda* (#:key outputs #:allow-other-keys)
3451 (make-file-writable file))
3452 (find-files (string-append (assoc-ref outputs "out")
3457 `(("pkg-config" ,pkg-config)))
3463 ("libsamplerate" ,libsamplerate)
3464 ("fluidsynth" ,fluidsynth)
3465 ("libvorbis" ,libvorbis)
3466 ("alsa-lib" ,alsa-lib)
3467 ("portaudio" ,portaudio)
3469 ("libsndfile1" ,libsndfile)
3471 ("freetype2" ,freetype)
3473 (home-page "https://lmms.io/")
3474 (synopsis "Music composition tool")
3475 (description "LMMS is a digital audio workstation. It includes tools for sequencing
3476 melodies and beats and for mixing and arranging songs. LMMS includes instruments based on
3477 audio samples and various soft sythesizers. It can receive input from a MIDI keyboard.")
3478 (license license:gpl2+)))
3480 (define-public musescore
3487 "https://github.com/musescore/MuseScore/archive/"
3488 "v" version ".tar.gz"))
3489 (file-name (string-append name "-" version ".tar.gz"))
3492 "1ml99ayzpdyd18cypcp0lbsbasfg3abw57i5fl7ph5739vikj6i6"))
3493 (modules '((guix build utils)))
3495 ;; Un-bundle OpenSSL and remove unused libraries.
3497 (substitute* "thirdparty/kQOAuth/CMakeLists.txt"
3498 (("-I \\$\\{PROJECT_SOURCE_DIR\\}/thirdparty/openssl/include ")
3500 (substitute* "thirdparty/kQOAuth/kqoauthutils.cpp"
3501 (("#include <openssl/.*") ""))
3502 (for-each delete-file-recursively
3503 '("thirdparty/freetype"
3504 "thirdparty/openssl"
3505 "thirdparty/portmidi"))
3507 (build-system gnu-build-system)
3510 `(,(string-append "PREFIX=" (assoc-ref %outputs "out"))
3511 "USE_SYSTEM_FREETYPE=ON"
3512 "DOWNLOAD_SOUNDFONT=OFF")
3513 ;; There are tests, but no simple target to run. The command
3514 ;; used to run them is:
3516 ;; make debug && sudo make installdebug && cd \
3517 ;; build.debug/mtest && make && ctest
3519 ;; Basically, it requires to start a whole new build process.
3520 ;; So we simply skip them.
3523 (modify-phases %standard-phases
3524 (delete 'configure))))
3526 `(("alsa-lib" ,alsa-lib)
3527 ("freetype" ,freetype)
3528 ("gtk+-bin" ,gtk+ "bin") ;for gtk-update-icon-cache
3532 ("libsndfile" ,libsndfile)
3533 ("libvorbis" ,libvorbis)
3534 ("portaudio" ,portaudio)
3535 ("portmidi" ,portmidi)
3536 ("pulseaudio" ,pulseaudio)
3538 ("qtdeclarative" ,qtdeclarative)
3539 ("qtscript" ,qtscript)
3541 ("qtwebkit" ,qtwebkit)
3542 ("qtxmlpatterns" ,qtxmlpatterns)))
3545 ("pkg-config" ,pkg-config)
3546 ("qttools" ,qttools)))
3547 (synopsis "Music composition and notation software")
3548 (description "MuseScore is a music score typesetter. Its main purpose is
3549 the creation of high-quality engraved musical scores in a WYSIWYG environment.
3551 It supports unlimited staves, linked parts and part extraction, tablature,
3552 MIDI input, percussion notation, cross-staff beaming, automatic transposition,
3553 lyrics (multiple verses), fretboard diagrams, and in general everything
3554 commonly used in sheet music. Style options and style sheets to change the
3555 appearance and layout are provided.
3557 MuseScore can also play back scores through the built-in sequencer and SoundFont
3559 (home-page "https://musescore.org")
3560 (license license:gpl2)))
3562 (define-public muse-sequencer
3564 (name "muse-sequencer")
3569 (url "https://github.com/muse-sequencer/muse.git")
3570 (commit (string-append "muse_"
3571 (string-map (lambda (c)
3573 #\_ c)) version)))))
3574 (file-name (string-append name "-" version "-checkout"))
3577 "1nninz8qyqlxxjdnrm79y3gr3056pga9l2fsqh674jd3cjvafya3"))))
3578 (build-system cmake-build-system)
3580 `(#:tests? #f ; there is no test target
3582 (list "-DENABLE_LV2_SUPPLIED=OFF"
3583 "-DENABLE_RTAUDIO=OFF" ; FIXME: not packaged
3584 "-DENABLE_INSTPATCH=OFF" ; FIXME: not packaged
3585 "-DENABLE_VST_NATIVE=OFF")
3587 (modify-phases %standard-phases
3588 (add-after 'unpack 'chdir
3589 (lambda _ (chdir "muse3"))))))
3591 `(("alsa-lib" ,alsa-lib)
3600 ("libsndfile" ,libsndfile)
3601 ("libsamplerate" ,libsamplerate)
3602 ("fluidsynth" ,fluidsynth)
3607 `(("pkg-config" ,pkg-config)
3608 ("qttools" ,qttools)))
3609 (home-page "http://muse-sequencer.org")
3610 (synopsis "MIDI/Audio sequencer")
3611 (description "MusE is a MIDI/Audio sequencer with recording and editing
3612 capabilities. Its audio sequencer supports the LADSPA, DSSI, and LV2 audio
3613 plugin formats; the MIDI sequencer provides a piano roll, a drum editor, a
3614 list view, and a score editor. MusE aims to be a complete multitrack virtual
3616 (license license:gpl2+)))
3625 "mirror://sourceforge/dssi/dssi/" version
3626 "/dssi-" version ".tar.gz"))
3629 "0kl1hzhb7cykzkrqcqgq1dk4xcgrcxv0jja251aq4z4l783jpj7j"))))
3630 (build-system gnu-build-system)
3632 `(("alsa-lib" ,alsa-lib)
3635 ("libsamplerate" ,libsamplerate)
3636 ("libsndfile" ,libsndfile)
3639 `(("pkg-config" ,pkg-config)))
3640 (synopsis "Audio plugin API for soft synths and effects")
3641 (description "DSSI is a plugin API for software instruments with user
3642 interfaces, permitting them to be hosted in-process by audio applications.
3643 It is intended to be simple, GUI-toolkit-agnostic, and slightly biased
3644 towards familiarity with MIDI. The DSSI distribution package contains
3645 a JACK/ALSA-sequencer reference host and some plugins as well as the
3646 specification and header.")
3647 (home-page "http://dssi.sourceforge.net/")
3648 ;; The DSSI interface is LGPL2.1+, some tests and examples are GPL2+.
3649 ;; The vast majority of examples are in the public domain.
3650 (license (list license:lgpl2.1+ license:gpl2+))))
3652 (define-public rosegarden
3659 "mirror://sourceforge/rosegarden/rosegarden/"
3660 version "/rosegarden-" version ".tar.bz2"))
3663 "1khfcj22asdhjh0jvhkqsz200wgmigkhsrcz09ffia5hqm0n32lq"))))
3664 (build-system cmake-build-system)
3666 `(#:configure-flags '("-DUSE_QT5=1") ; "-DCMAKE_BUILD_TYPE=Release"
3668 (modify-phases %standard-phases
3669 (add-after 'unpack 'patch-tests
3671 (substitute* "CMakeLists.txt"
3672 (("BUILD_TESTING OFF") "BUILD_TESTING ON")
3674 ((" -fvisibility=hidden") ""))
3676 (add-after 'unpack 'fix-references
3677 (lambda* (#:key inputs #:allow-other-keys)
3678 (substitute* "src/gui/general/ProjectPackager.cpp"
3680 (string-append "\"" (assoc-ref inputs "flac") "/bin/flac"))
3682 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wavpack"))
3684 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wvunpack"))
3686 (string-append "\"" (assoc-ref inputs "bash") "/bin/bash"))
3688 (string-append "\"" (assoc-ref inputs "tar") "/bin/tar")))
3689 (substitute* "src/gui/general/LilyPondProcessor.cpp"
3690 (("\"convert-ly\\>")
3691 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/convert-ly"))
3693 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/lilypond")))
3695 (add-after 'unpack 'make-reproducible
3697 ;; Prevent Last-Modified from being written.
3698 ;; The "*.qm" files that are used in locale.qrc would have a new
3699 ;; mtime otherwise that is written into qrc_locale.cpp in the
3700 ;; end - except when we disable it.
3701 (substitute* "src/CMakeLists.txt"
3702 (("COMMAND [$][{]QT_RCC_EXECUTABLE[}]")
3703 "COMMAND ${QT_RCC_EXECUTABLE} --format-version 1")
3705 ;(("qt5_add_resources[(]rg_SOURCES ../data/data.qrc[)]")
3706 ; "qt5_add_resources(rg_SOURCES ../data/data.qrc OPTIONS --format-version 1)")
3708 ;; Make hashtable traversal order predicable.
3709 (setenv "QT_RCC_TEST" "1") ; important
3711 (add-before 'check 'prepare-check
3713 (setenv "QT_QPA_PLATFORM" "offscreen")
3714 ;; Tests create files in $HOME/.local/share/rosegarden .
3715 (mkdir-p "/tmp/foo")
3716 (setenv "HOME" "/tmp/foo")
3719 `(("alsa-lib" ,alsa-lib)
3727 ("libsamplerate" ,libsamplerate)
3728 ("lilypond" ,lilypond)
3733 ("wavpack" ,wavpack)
3736 `(("pkg-config" ,pkg-config)
3737 ("qtlinguist" ,qttools)))
3738 (synopsis "Music composition and editing environment based around a MIDI
3740 (description "Rosegarden is a music composition and editing environment
3741 based around a MIDI sequencer that features a rich understanding of music
3742 notation and includes basic support for digital audio.")
3743 (home-page "http://www.rosegardenmusic.com/")
3744 (license license:gpl2)))
3746 (define-public patchmatrix
3748 (name "patchmatrix")
3753 (url "https://github.com/OpenMusicKontrollers/patchmatrix.git")
3755 (file-name (string-append "patchmatrix-" version "-checkout"))
3758 "19ivp7h5vq6r1qhmycjxzvrgg7fc4a3v5vb3n4c7afs4z3pj53zi"))))
3759 (build-system cmake-build-system)
3760 (arguments '(#:tests? #f)) ; no test target
3766 `(("pkg-config" ,pkg-config)))
3767 (home-page "https://github.com/OpenMusicKontrollers/patchmatrix")
3768 (synopsis "Simple JACK patch bay")
3769 (description "PatchMatrix is a patch bay for the JACK audio connection
3770 kit. It provides a patch bay in flow matrix style for audio, MIDI, CV, and
3772 (license license:artistic2.0)))
3774 (define-public sorcer
3780 (uri (string-append "https://github.com/openAVproductions/"
3781 "openAV-Sorcer/archive/release-"
3783 (file-name (string-append name "-" version ".tar.gz"))
3786 "07iyqj28wm0xc4arrq893bm12xjpz65db7ynrlmf6w8krg8wjmd0"))))
3787 (build-system cmake-build-system)
3789 `(#:tests? #f ; no tests included
3791 (modify-phases %standard-phases
3792 (add-after 'unpack 'remove-architecture-specific-flags
3794 (substitute* "CMakeLists.txt"
3795 (("-msse2 -mfpmath=sse") ""))
3797 (add-after 'unpack 'build-faust-sources
3798 (lambda* (#:key inputs #:allow-other-keys)
3799 (with-directory-excursion "faust"
3800 (delete-file "main.cpp")
3801 (zero? (system* "faust" "-i"
3803 "-o" "main.cpp" "main.dsp"))))))))
3810 ("pkg-config" ,pkg-config)))
3811 (home-page "http://openavproductions.com/sorcer/")
3812 (synopsis "Wavetable LV2 plugin synth")
3813 (description "Sorcer is a wavetable LV2 plugin synthesizer, targeted at
3814 the electronic or dubstep genre.")
3815 (license license:gpl3+)))
3817 (define-public libechonest
3819 (name "libechonest")
3824 (url "git://anongit.kde.org/libechonest.git")
3826 (file-name (string-append name "-" version "-checkout"))
3829 "0xbavf9f355dl1d3qv59x4ryypqrdanh9xdvw2d0q66l008crdkq"))))
3830 (build-system cmake-build-system)
3832 '(#:tests? #f ; Tests require Internet access
3833 #:configure-flags '("-DBUILD_WITH_QT4=OFF")))
3835 `(("qtbase" ,qtbase)
3837 (home-page "https://projects.kde.org/projects/playground/libs/libechonest")
3838 (synopsis "C++/Qt classes to interface with The Echo Nest API")
3839 (description "@code{libechonest} is a collection of C++/Qt classes
3840 designed to make a developer's life easy when trying to use the APIs provided
3842 (license license:gpl2+)))
3844 (define-public libmygpo-qt
3846 (name "libmygpo-qt")
3850 (uri (string-append "http://stefan.derkits.at/files/"
3851 "libmygpo-qt/libmygpo-qt." version ".tar.gz"))
3854 "1kg18qrq2rsswgzhl65r3mlyx7kpqg4wwnbp4yiv6svvmadmlxl2"))))
3855 (build-system cmake-build-system)
3857 `(("pkg-config" ,pkg-config)))
3860 (home-page "http://wiki.gpodder.org/wiki/Libmygpo-qt")
3861 (synopsis "Qt/C++ library wrapping the gpodder web service")
3862 (description "@code{libmygpo-qt} is a Qt/C++ library wrapping the
3863 @url{https://gpodder.net} APIs. It allows applications to discover, manage
3864 and track podcasts.")
3865 (license license:lgpl2.1+)))
3867 (define-public sonivox-eas
3869 (name "sonivox-eas")
3874 (url "https://github.com/pedrolcl/Linux-SonivoxEas.git")
3875 (commit (string-append "v" version))))
3876 (file-name (string-append name "-" version "-checkout"))
3879 "0l9gs00p5g4k4qy6i7nv1mfi2n2wnsycwjrgrh9hxzam4irf2mw2"))))
3880 (build-system cmake-build-system)
3881 (arguments '(#:tests? #f)) ; there are no tests
3883 `(("alsa-lib" ,alsa-lib)
3884 ("drumstick" ,drumstick)
3885 ("pulseaudio" ,pulseaudio)
3886 ("qtbase" ,qtbase)))
3888 `(("pkg-config" ,pkg-config)))
3889 (home-page "https://github.com/pedrolcl/Linux-SonivoxEas")
3890 (synopsis "MIDI synthesizer library")
3891 (description "This project is a real time General MIDI synthesizer based
3892 on the Sonivox EAS Synthesizer by Google. It does not need external
3893 soundfonts, using embedded samples instead.")
3894 ;; Sonivox is released under the ASL2.0; the rest of the code is under
3896 (license (list license:gpl2+ license:asl2.0))))
3898 (define-public whysynth
3901 (version "20170701")
3904 (uri (string-append "http://smbolton.com/whysynth/whysynth-"
3905 version ".tar.bz2"))
3908 "02qbn0hbvn1iym4zxv35b201blg31yjpgh71h8db0j5zls2xc0m6"))))
3909 (build-system gnu-build-system)
3916 ("alsa-lib" ,alsa-lib)))
3918 `(("pkg-config" ,pkg-config)))
3919 (home-page "http://smbolton.com/whysynth.html")
3920 (synopsis "DSSI software synthesizer")
3921 (description "WhySynth is a versatile softsynth which operates as a plugin
3922 for the DSSI Soft Synth Interface. A brief list of features:
3925 @item 4 oscillators, 2 filters, 3 LFOs, and 5 envelope generators per voice.
3926 @item 11 oscillator modes: minBLEP, wavecycle, chorused wavecycle,
3927 asynchronous granular, three FM modes, waveshaper, noise, PADsynth, and phase
3929 @item 10 filter modes.
3930 @item flexible modulation and mixdown options, plus effects.
3933 (license license:gpl2+)))
3935 (define-public libdiscid
3943 "http://ftp.musicbrainz.org/pub/musicbrainz/libdiscid/libdiscid-"
3947 "1f9irlj3dpb5gyfdnb1m4skbjvx4d4hwiz2152f83m0d9jn47r7r"))))
3948 (arguments `(#:test-target "check"))
3949 (build-system cmake-build-system)
3950 (home-page "https://musicbrainz.org/doc/libdiscid")
3951 (synopsis "Disc id reader library")
3952 (description "libdiscid is a C library for creating MusicBrainz and freedb
3953 disc IDs from audio CDs. It reads a CD's table of contents (TOC) and generates
3954 an identifier which can be used to lookup the CD at MusicBrainz. Additionally,
3955 it provides a submission URL for adding the disc ID to the database and gathers
3956 ISRCs and the MCN (=UPC/EAN) from disc.")
3957 (license license:lgpl2.1+)))
3959 (define-public libmusicbrainz
3961 (name "libmusicbrainz")
3967 "https://github.com/metabrainz/libmusicbrainz/releases/download/release-"
3968 version "/libmusicbrainz-" version ".tar.gz"))
3971 "0ikb9igyyk28jm34raxfzkw2qyn4nzzwsymdyprp7cmvi6g2ajb7"))))
3972 (build-system cmake-build-system)
3973 (arguments `(#:phases
3974 (modify-phases %standard-phases
3978 ;; requires network connections
3979 ;; (zero? (system* "tests/mbtest"))
3980 (zero? (system* "tests/ctest"))))))))
3981 (inputs `(("neon" ,neon)
3982 ("libxml2" ,libxml2)))
3983 (native-inputs `(("pkg-config" ,pkg-config)))
3984 (home-page "https://musicbrainz.org/doc/libmusicbrainz")
3985 (synopsis "MusicBrainz client library")
3986 (description "The MusicBrainz Client Library (libmusicbrainz), also known as
3987 mb_client, is a development library geared towards developers who wish to add
3988 MusicBrainz lookup capabilities to their applications.")
3989 (license license:lgpl2.1+)))