1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2014, 2019 Eric Bavier <bavier@member.fsf.org>
3 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 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, 2019 Efraim Flashner <efraim@flashner.co.il>
7 ;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
8 ;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
9 ;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net>
10 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
11 ;;; Copyright © 2017 ng0 <ng0@n0.is>
12 ;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org>
13 ;;; Copyright © 2017, 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
14 ;;; Copyright © 2017, 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
15 ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
16 ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
17 ;;; Copyright © 2018 nee <nee.git@hidamari.blue>
18 ;;; Copyright © 2018 Stefan Reichör <stefan@xsteve.at>
19 ;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
20 ;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org>
21 ;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
22 ;;; Copyright © 2019 Gabriel Hondet <gabrielhondet@gmail.com>
23 ;;; Copyright © 2019 Timotej Lazar <timotej.lazar@araneo.si>
24 ;;; Copyright © 2019 Jakob L. Kreuze <zerodaysfordays@sdf.org>
25 ;;; Copyright © 2019 raingloom <raingloom@protonmail.com>
26 ;;; Copyright © 2019 David Wilson <david@daviwil.com>
27 ;;; Copyright © 2019, 2020 Alexandros Theodotou <alex@zrythm.org>
28 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
29 ;;; Copyright © 2020 Lars-Dominik Braun <lars@6xq.net>
30 ;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
32 ;;; This file is part of GNU Guix.
34 ;;; GNU Guix is free software; you can redistribute it and/or modify it
35 ;;; under the terms of the GNU General Public License as published by
36 ;;; the Free Software Foundation; either version 3 of the License, or (at
37 ;;; your option) any later version.
39 ;;; GNU Guix is distributed in the hope that it will be useful, but
40 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
41 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
42 ;;; GNU General Public License for more details.
44 ;;; You should have received a copy of the GNU General Public License
45 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
47 (define-module (gnu packages music)
48 #:use-module (guix utils)
49 #:use-module (guix packages)
50 #:use-module (guix download)
51 #:use-module (guix git-download)
52 #:use-module ((guix licenses) #:prefix license:)
53 #:use-module (guix build-system gnu)
54 #:use-module (guix build-system ant)
55 #:use-module (guix build-system cmake)
56 #:use-module (guix build-system meson)
57 #:use-module (guix build-system perl)
58 #:use-module (guix build-system python)
59 #:use-module (guix build-system scons)
60 #:use-module (guix build-system glib-or-gtk)
61 #:use-module (guix build-system waf)
62 #:use-module (guix build-system trivial)
63 #:use-module (guix build-system go)
64 #:use-module (gnu packages)
65 #:use-module (gnu packages admin)
66 #:use-module (gnu packages algebra)
67 #:use-module (gnu packages apr)
68 #:use-module (gnu packages audio)
69 #:use-module (gnu packages autotools)
70 #:use-module (gnu packages backup)
71 #:use-module (gnu packages base) ;libbdf
72 #:use-module (gnu packages bash)
73 #:use-module (gnu packages bison)
74 #:use-module (gnu packages boost)
75 #:use-module (gnu packages cdrom)
76 #:use-module (gnu packages code)
77 #:use-module (gnu packages check)
78 #:use-module (gnu packages cmake)
79 #:use-module (gnu packages compression)
80 #:use-module (gnu packages crypto)
81 #:use-module (gnu packages curl)
82 #:use-module (gnu packages cyrus-sasl)
83 #:use-module (gnu packages datastructures)
84 #:use-module (gnu packages docbook)
85 #:use-module (gnu packages documentation)
86 #:use-module (gnu packages emacs)
87 #:use-module (gnu packages file)
88 #:use-module (gnu packages flex)
89 #:use-module (gnu packages fltk)
90 #:use-module (gnu packages fonts)
91 #:use-module (gnu packages fontutils)
92 #:use-module (gnu packages freedesktop)
93 #:use-module (gnu packages game-development)
94 #:use-module (gnu packages gcc)
95 #:use-module (gnu packages gnupg)
96 #:use-module (gnu packages gettext)
97 #:use-module (gnu packages ghostscript)
98 #:use-module (gnu packages gl)
99 #:use-module (gnu packages glib)
100 #:use-module (gnu packages gnome)
101 #:use-module (gnu packages gpodder)
102 #:use-module (gnu packages graphics)
103 #:use-module (gnu packages graphviz)
104 #:use-module (gnu packages gstreamer)
105 #:use-module (gnu packages gtk)
106 #:use-module (gnu packages guile)
107 #:use-module (gnu packages haskell)
108 #:use-module (gnu packages image)
109 #:use-module (gnu packages imagemagick)
110 #:use-module (gnu packages java)
111 #:use-module (gnu packages libffi)
112 #:use-module (gnu packages libusb)
113 #:use-module (gnu packages linux) ; for alsa-utils
114 #:use-module (gnu packages lirc)
115 #:use-module (gnu packages llvm)
116 #:use-module (gnu packages man)
117 #:use-module (gnu packages mp3)
118 #:use-module (gnu packages mpd)
119 #:use-module (gnu packages ncurses)
120 #:use-module (gnu packages netpbm)
121 #:use-module (gnu packages pcre)
122 #:use-module (gnu packages pdf)
123 #:use-module (gnu packages perl)
124 #:use-module (gnu packages perl-web)
125 #:use-module (gnu packages pkg-config)
126 #:use-module (gnu packages protobuf)
127 #:use-module (gnu packages pulseaudio) ;libsndfile
128 #:use-module (gnu packages python)
129 #:use-module (gnu packages python-web)
130 #:use-module (gnu packages python-xyz)
131 #:use-module (gnu packages qt)
132 #:use-module (gnu packages rdf)
133 #:use-module (gnu packages readline)
134 #:use-module (gnu packages rsync)
135 #:use-module (gnu packages sdl)
136 #:use-module (gnu packages sqlite)
137 #:use-module (gnu packages tcl)
138 #:use-module (gnu packages texinfo)
139 #:use-module (gnu packages tex)
140 #:use-module (gnu packages time)
141 #:use-module (gnu packages tls)
142 #:use-module (gnu packages version-control)
143 #:use-module (gnu packages video)
144 #:use-module (gnu packages web)
145 #:use-module (gnu packages wxwidgets)
146 #:use-module (gnu packages xml)
147 #:use-module (gnu packages xorg)
148 #:use-module (gnu packages xiph)
149 #:use-module (gnu packages golang)
150 #:use-module (gnu packages lua)
151 #:use-module ((srfi srfi-1) #:select (last)))
153 (define-public aria-maestosa
155 (name "aria-maestosa")
159 (uri (string-append "mirror://sourceforge/ariamaestosa/ariamaestosa/"
160 version "/AriaSrc-" version ".tar.bz2"))
163 "1cs3z6frx2ch7rm5ammx9p0rxcjrbj1vq14hvcbimpaw39rdsn3d"))))
164 (build-system scons-build-system)
166 `(#:tests? #f ;no tests
168 (list (string-append "prefix=" (assoc-ref %outputs "out")))
169 #:scons ,scons-python2
171 (modify-phases %standard-phases
173 (add-after 'unpack 'scons-propagate-environment
175 ;; By design, SCons does not, by default, propagate
176 ;; environment variables to subprocesses. See:
177 ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
178 ;; Here, we modify the SConstruct file to arrange for
179 ;; environment variables to be propagated.
180 (substitute* "SConstruct"
181 (("env = Environment\\(\\)")
182 "env = Environment(ENV=os.environ)")
183 ;; Scons errors out when copying subdirectories from Resources,
184 ;; so we move them instead.
186 ;; We move the "score" and "Documentation" directories at once,
187 ;; so we have to ignore files contained therein.
188 (("if \".svn\" in file" line)
190 " or \"score/\" in file"
191 " or \"Documentation/\" in file")))
193 (add-after 'install 'fix-directory-permissions
194 (lambda* (#:key outputs #:allow-other-keys)
195 (let ((out (assoc-ref outputs "out")))
196 (chmod (string-append out "/share/Aria/Documentation") #o555)
197 (chmod (string-append out "/share/Aria/score") #o555)
200 `(("wxwidgets" ,wxwidgets)
202 ("alsa-lib" ,alsa-lib)))
204 `(("pkg-config" ,pkg-config)))
205 (home-page "http://ariamaestosa.sourceforge.net/")
206 (synopsis "MIDI sequencer and editor")
208 "Aria Maestosa is a MIDI sequencer and editor. It lets you compose, edit
209 and play MIDI files with a few clicks in a user-friendly interface offering
210 score, keyboard, guitar, drum and controller views.")
211 (license license:gpl3+)))
213 ;; We don't use the latest release because it depends on Qt4. Instead we
214 ;; download the sources from the tip of the "qt5" branch.
215 (define-public clementine
216 (let ((commit "4619a4c1ab3b17b13d4b2327ad477912917eaf36")
220 (version (git-version "1.3.1" revision commit))
224 (url "https://github.com/clementine-player/Clementine.git")
226 (file-name (git-file-name name version))
229 "1hximk3q0p8nw8is5w7215xgkb7k4flnfyr0pdz9svfwvcm05w1i"))
230 (modules '((guix build utils)))
235 (delete-file-recursively
236 (string-append "3rdparty/" dir)))
238 ;; TODO: The following dependencies are still bundled:
239 ;; - "qxt": Appears to be unmaintained upstream.
241 ;; - "qtsingleapplication"
243 ;; - "qtiocompressor"
244 ;; - "gmock": The tests crash when using our googletest
245 ;; package instead of the bundled gmock.
253 "sha2" ;; Replaced by openssl.
257 (patches (search-patches "clementine-use-openssl.patch"
258 "clementine-remove-crypto++-dependency.patch"
259 "clementine-fix-sqlite.patch"))))
260 (build-system cmake-build-system)
262 '(#:test-target "clementine_test"
264 (list ;; Requires unpackaged "projectm"
265 "-DENABLE_VISUALISATIONS=OFF"
266 ;; Otherwise it may try to download a non-free library at run-time.
267 ;; TODO In an origin snippet, remove the code that performs the
269 "-DHAVE_SPOTIFY_DOWNLOADER=FALSE"
270 "-DUSE_SYSTEM_SHA2=TRUE")
272 (modify-phases %standard-phases
273 (add-after 'install 'wrap-program
274 (lambda* (#:key inputs outputs #:allow-other-keys)
275 (let ((out (assoc-ref outputs "out"))
276 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
277 (wrap-program (string-append out "/bin/clementine")
278 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
281 `(("gettext" ,gettext-minimal)
282 ("pkg-config" ,pkg-config)
283 ("qtlinguist" ,qttools)))
286 ("chromaprint" ,chromaprint)
290 ("gstreamer" ,gstreamer)
291 ("gst-plugins-base" ,gst-plugins-base)
292 ("gst-plugins-good" ,gst-plugins-good)
293 ("gst-libav" ,gst-libav)
295 ("libmygpo-qt" ,libmygpo-qt)
296 ;; TODO: Package libgpod.
300 ("protobuf" ,protobuf)
301 ("pulseaudio" ,pulseaudio)
303 ("qtx11extras" ,qtx11extras)
305 ("sparsehash" ,sparsehash)
307 (home-page "https://clementine-player.org")
308 (synopsis "Music player and library organizer")
309 (description "Clementine is a multiplatform music player. It is inspired
310 by Amarok 1.4, focusing on a fast and easy-to-use interface for searching and
311 playing your music.")
313 ;; clementine and qtiocompressor are under GPLv3.
315 ;; gmock is under BSD-3.
317 ;; qxt is under CPL1.0.
319 ;; qsqlite and qtsingleapplication are under LGPL2.1+.
321 ;; qocoa is under MIT and CC by-sa for the icons.
322 license:cc-by-sa3.0)))))
331 (url "https://github.com/cmus/cmus.git")
332 (commit (string-append "v" version))))
333 (file-name (git-file-name name version))
336 "1ydnvq13ay8b8mfmmgwi5qsgyf220yi1d01acbnxqn775dghmwar"))))
337 (build-system gnu-build-system)
339 `(#:tests? #f ; cmus does not include tests
341 (modify-phases %standard-phases
343 (lambda* (#:key outputs #:allow-other-keys)
344 (let ((out (assoc-ref outputs "out")))
345 ;; It's an idiosyncratic configure script that doesn't
346 ;; understand --prefix=..; it wants prefix=.. instead.
347 (invoke "./configure"
348 (string-append "prefix=" out))
350 ;; TODO: cmus optionally supports the following formats, which haven't yet
351 ;; been added to Guix:
355 ;; - DISCID_LIBS, apparently different from cd-discid which is included in
356 ;; Guix. See <http://sourceforge.net/projects/discid/>
358 `(("pkg-config" ,pkg-config)))
360 `(("alsa-lib" ,alsa-lib)
367 ("libcdio-paranoia" ,libcdio-paranoia)
370 ("libmodplug" ,libmodplug)
371 ("libmpcdec" ,libmpcdec)
372 ("libsamplerate" ,libsamplerate)
373 ("libvorbis" ,libvorbis)
375 ("opusfile" ,opusfile)
376 ("pulseaudio" ,pulseaudio)
377 ("wavpack" ,wavpack)))
378 (home-page "https://cmus.github.io/")
379 (synopsis "Small console music player")
380 (description "Cmus is a small and fast console music player. It supports
381 many input formats and provides a customisable Vi-style user interface.")
382 (license license:gpl2+)))
384 (define-public denemo
391 (uri (string-append "mirror://gnu/denemo/"
392 "denemo-" version ".tar.gz"))
394 (base32 "1blkcl3slbsq9jlhwcf2m9v9g38a0sjfhh9advgi2qr1gxri08by"))))
395 (build-system gnu-build-system)
398 (modify-phases %standard-phases
400 (lambda* (#:key inputs #:allow-other-keys)
401 ;; Tests require to write $HOME.
402 (setenv "HOME" (getcwd))
403 ;; Replace hard-coded diff file name.
404 (substitute* "tests/integration.c"
406 (string-append (assoc-ref inputs "diffutils") "/bin/diff")))
407 ;; Denemo's documentation says to use this command to run its
409 (invoke "make" "-C" "tests" "check")))
410 (add-before 'build 'set-lilypond
411 ;; This phase sets the default path for lilypond to its current
412 ;; location in the store.
413 (lambda* (#:key inputs #:allow-other-keys)
414 (let* ((lilypond (string-append (assoc-ref inputs "lilypond")
416 (substitute* "src/core/prefops.c"
417 (("g_string_new \\(\"lilypond\"\\);")
418 (string-append "g_string_new (\""
423 `(("diffutils" ,diffutils)
424 ("glib:bin" ,glib "bin") ; for gtester
426 ("intltool" ,intltool)
428 ("pkg-config" ,pkg-config)))
430 `(("alsa-lib" ,alsa-lib)
434 ("fluidsynth" ,fluidsynth)
437 ("gtksourceview" ,gtksourceview-3)
440 ("libsndfile" ,libsndfile)
442 ("lilypond" ,lilypond)
443 ("portaudio" ,portaudio)
444 ("portmidi" ,portmidi)
445 ("rubberband" ,rubberband)))
446 (synopsis "Graphical music notation, front-end to GNU Lilypond")
448 "GNU Denemo is a music notation editor that provides a convenient
449 interface to the powerful music engraving program Lilypond. Music can be
450 typed in using the computer keyboard, played in using a MIDI keyboard, or
451 even input via a microphone connected to the sound card. The final product
452 is publication-quality music notation that is continuously generated in the
453 background while you work.")
454 (home-page "http://www.denemo.org")
455 (license license:gpl3+)))
465 (url "https://github.com/kode54/dumb.git")
468 (base32 "1cnq6rb14d4yllr0yi32p9jmcig8avs3f43bvdjrx4r1mpawspi6"))
469 (file-name (git-file-name name version))))
470 (build-system cmake-build-system)
472 '(#:tests? #f ; no check target
474 (list "-DBUILD_SHARED_LIBS=ON"
475 "-DBUILD_EXAMPLES=OFF")))
476 (home-page "https://github.com/kode54/dumb")
477 (synopsis "Module audio renderer library")
479 "DUMB is a tracker library with support for IT, XM, S3M and MOD files. It
480 targets maximum accuracy to the original formats, with low-pass resonant filters
481 for the IT files, accurate timing and pitching, and three resampling quality
482 settings (aliasing, linear interpolation and cubic interpolation).")
483 ;; The DUMB license is a bit peculiar.
484 ;; Clause 8 states that clauses 4, 5 and 6 are null and void, leaving only
485 ;; the first three clauses for genuine consideration.
486 ;; Clauses 1, 2 and 3 are analogous to clauses 1, 2 and 3 of the zlib
487 ;; license, a known free software license.
488 ;; Therefore, the DUMB license may be considered a free software license.
489 (license (license:fsf-free "file://LICENSE"))))
491 (define-public dumb-allegro4
494 (name "dumb-allegro4")
496 (substitute-keyword-arguments (package-arguments dumb)
497 ((#:configure-flags flags)
498 `(cons "-DBUILD_ALLEGRO4=ON" ,flags))))
500 `(("allegro" ,allegro-4)))))
502 (define-public hydrogen
505 (version "1.0.0-beta2")
510 (url "https://github.com/hydrogen-music/hydrogen.git")
512 (file-name (git-file-name name version))
514 (base32 "1s3jrdyjpm92flw9mkkxchnj0wz8nn1y1kifii8ws252iiqjya4a"))))
515 (build-system cmake-build-system)
517 `(#:test-target "tests"
519 (modify-phases %standard-phases
520 (add-after 'unpack 'fix-data-directory
521 (lambda* (#:key outputs #:allow-other-keys)
522 (substitute* "CMakeLists.txt"
523 (("/usr/share/pixmaps")
524 (string-append (assoc-ref outputs "out")
528 `(("cppunit" ,cppunit)
529 ("pkg-config" ,pkg-config)
530 ("qtlinguist" ,qttools)))
532 `(("alsa-lib" ,alsa-lib)
534 ;; ("ladspa" ,ladspa) ; require LADSPA_PATH to be set
536 ("libarchive" ,libarchive)
538 ("libsndfile" ,libsndfile)
540 ("pulseaudio" ,pulseaudio)
542 ("qtxmlpatterns" ,qtxmlpatterns)
544 (home-page "http://www.hydrogen-music.org")
545 (synopsis "Drum machine")
547 "Hydrogen is an advanced drum machine for GNU/Linux. Its main goal is to
548 enable professional yet simple and intuitive pattern-based drum programming.")
549 (license license:gpl2+)))
551 (define-public easytag
557 (uri (string-append "mirror://gnome/sources/easytag/2.4/easytag-"
561 "1mbxnqrw1fwcgraa1bgik25vdzvf97vma5pzknbwbqq5ly9fwlgw"))))
562 (build-system glib-or-gtk-build-system)
564 `(("desktop-file-utils" ,desktop-file-utils)
566 ("intltool" ,intltool)
568 ("pkg-config" ,pkg-config)
569 ("xmllint" ,libxml2)))
574 ("libid3tag" ,libid3tag)
575 ("libvorbis" ,libvorbis)
576 ("opusfile" ,opusfile)
583 (modify-phases %standard-phases
584 (add-before 'configure 'configure-libid3tag
585 (lambda* (#:key inputs #:allow-other-keys)
586 ;; libid3tag does not provide a .pc file and EasyTAG's configure
587 ;; script healivy relies on pkg-config. Providing a temporary
588 ;; local .pc file is easier than patching the configure script.
589 (let* ((libid3tag (assoc-ref inputs "libid3tag")))
590 (mkdir-p "pkgconfig")
592 "pkgconfig/id3tag.pc"
596 libdir=${prefix}/lib~@
597 includedir=${prefix}/include~@
602 Libs: -L${libdir} -lid3tag -lz~@
603 Cflags: -I${includedir}~%"
605 (setenv "PKG_CONFIG_PATH"
606 (string-append (getenv "PKG_CONFIG_PATH")
607 ":" (getcwd) "/pkgconfig"))
609 (add-after 'unpack 'patch-makefile
611 (substitute* "Makefile.in"
612 ;; The Makefile generates a test-desktop-file-validate.sh
613 ;; script with /bin/sh hard-coded.
614 (("/bin/sh") (which "sh"))
615 ;; Don't create 'icon-theme.cache'.
616 (("gtk-update-icon-cache") "true"))
618 (home-page "https://wiki.gnome.org/Apps/EasyTAG")
619 (synopsis "Simple application for viewing and editing tags in audio files")
621 "EasyTAG is an application for viewing and editing tags in audio files.
622 It supports MP3, MP2, MP4/AAC, FLAC, Ogg Opus, Ogg Speex, Ogg Vorbis,
623 MusePack, Monkey's Audio, and WavPack files.")
624 (license license:gpl2+)))
626 (define-public extempore
633 (url "https://github.com/digego/extempore.git")
634 (commit (string-append "v" version))))
637 "182jy23qv115dipny7kglwbn21z55dp253w1ykm0kh8n6vkgs7gp"))
638 (file-name (git-file-name name version))
639 (patches (search-patches
640 "extempore-unbundle-external-dependencies.patch"))
641 (modules '((guix build utils)))
644 ;; Remove bundled sources.
645 (map delete-file-recursively
649 (build-system cmake-build-system)
651 `(#:configure-flags (list "-DJACK=ON"
653 "-DEXTERNAL_SHLIBS_AUDIO=OFF"
654 "-DEXTERNAL_SHLIBS_GRAPHICS=OFF"
655 "-DCMAKE_BUILD_TYPE=Release"
656 (string-append "-DEXT_SHARE_DIR="
657 (assoc-ref %outputs "out")
659 #:modules ((ice-9 match)
660 (guix build cmake-build-system)
663 (modify-phases %standard-phases
664 (add-after 'build 'build-aot-libs
666 (for-each (lambda (target)
667 (invoke "make" target))
672 (add-after 'unpack 'patch-install-locations
673 (lambda* (#:key outputs #:allow-other-keys)
674 (substitute* "CMakeLists.txt"
675 (("EXT_SHARE_DIR=\"\\.\"\\)")
676 "EXT_SHARE_DIR=\"${EXT_SHARE_DIR}/extempore\")")
677 (("DESTINATION \"\\.\"\\)") "DESTINATION bin)")
678 (("DESTINATION \"\\.\"\n") "DESTINATION share/extempore\n"))
680 (add-after 'unpack 'patch-directories
681 (lambda* (#:key outputs #:allow-other-keys)
682 (substitute* "extras/extempore.el"
683 (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
684 (string-append "(runtime-directory \""
685 (assoc-ref outputs "out")
686 "/share/extempore/runtime"
689 (add-after 'unpack 'link-with-additional-libs
691 ;; The executable must be linked with libffi and zlib.
692 (substitute* "CMakeLists.txt"
693 (("target_link_libraries\\(extempore PRIVATE dl" line)
694 (string-append line " ffi z")))
696 ;; FIXME: All examples that are used as tests segfault for some
698 (add-after 'unpack 'disable-broken-tests
700 (substitute* "CMakeLists.txt"
701 (("extempore_add_example_as_test\\(.*") ""))
703 (add-after 'unpack 'hardcode-external-lib-paths
704 (lambda* (#:key inputs #:allow-other-keys)
705 (use-modules (ice-9 match))
708 ((file-name lib pkg-name)
709 (substitute* (string-append "libs/external/" file-name ".xtm")
710 ((lib) (string-append (assoc-ref inputs pkg-name)
712 '(("assimp" "libassimp.so" "assimp")
713 ("portmidi" "libportmidi.so" "portmidi")
714 ("sndfile" "libsndfile.so" "libsndfile")
715 ("fft" "libkiss_fft.so" "kiss-fft")
716 ("stb_image" "libstb_image.so" "stb-image")
717 ("nanovg" "libnanovg.so" "nanovg")
718 ("glext" "libGL.so" "mesa")
719 ("glfw3" "libglfw.so" "glfw")
720 ("gl/glcore-directbind" "libGL.so" "mesa")
721 ("gl/glcompat-directbind" "libGL.so" "mesa")))
723 (add-after 'unpack 'use-own-llvm
724 (lambda* (#:key inputs #:allow-other-keys)
725 (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
726 ;; Our LLVM builds shared libraries, so Extempore should use
728 (substitute* "CMakeLists.txt"
729 (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
731 (add-after 'unpack 'fix-aot-compilation
732 (lambda* (#:key outputs #:allow-other-keys)
733 (substitute* "CMakeLists.txt"
734 ;; Extempore needs to be told where the runtime is to be found.
735 ;; While we're at it we disable automatic tuning for a specific
736 ;; CPU to make binary substitution possible.
737 (("COMMAND extempore" prefix)
738 (string-append prefix " --sharedir " (getcwd)
739 " --mcpu=generic --attr=none")))
742 `(("llvm" ,llvm-for-extempore)
745 ("libsndfile" ,libsndfile)
748 ("stb-image" ,stb-image-for-extempore)
749 ("kiss-fft" ,kiss-fft-for-extempore)
750 ("nanovg" ,nanovg-for-extempore)
751 ("portmidi" ,portmidi-for-extempore)
753 ("alsa-lib" ,alsa-lib)
754 ("portaudio" ,portaudio)
760 ("emacs" ,emacs-no-x)))
761 ;; Extempore refuses to build on architectures other than x86_64
762 (supported-systems '("x86_64-linux"))
763 (home-page "https://digego.github.io/extempore/")
764 (synopsis "Programming environment for live coding of multimedia")
766 "Extempore is a programming language and runtime environment designed
767 with live programming in mind. It supports interactive programming in a REPL
768 style, compiling and binding code just-in-time. Although Extempore has its
769 roots in 'live coding' of audiovisual media art, it is suitable for any task
770 domain where dynamic run-time modifiability and good numerical performance are
771 required. Extempore also has strong timing and concurrency semantics, which
772 are helpful when working in problem spaces where timing is important (such as
774 (license license:bsd-2)))
782 (uri (string-append "http://das.nasophon.de/download/klick-"
786 "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
787 (build-system scons-build-system)
789 `(#:scons-flags (list (string-append "PREFIX=" %output))
790 #:scons ,scons-python2
791 #:tests? #f ; no "check" target
793 (modify-phases %standard-phases
794 (add-after 'unpack 'be-permissive
796 (substitute* "SConstruct"
797 (("'-Wall'") "'-Wall', '-fpermissive'"))
799 (add-after 'unpack 'replace-removed-scons-syntax
801 (substitute* "SConstruct"
802 (("BoolOption") "BoolVariable")
803 (("PathOption") "PathVariable")
804 (("Options") "Variables"))
809 ("libsndfile" ,libsndfile)
810 ("libsamplerate" ,libsamplerate)
812 ("rubberband" ,rubberband)))
814 `(("pkg-config" ,pkg-config)))
815 (home-page "http://das.nasophon.de/klick/")
816 (synopsis "Metronome for JACK")
818 "klick is an advanced command-line based metronome for JACK. It allows
819 you to define complex tempo maps for entire songs or performances.")
820 (license license:gpl2+)))
822 (define-public gtklick
828 (uri (string-append "http://das.nasophon.de/download/gtklick-"
832 "0dq1km6njnzsqdqyf6wzir9g733z0mc9vmxfg2383k3c2a2di6bp"))))
833 (build-system python-build-system)
835 `(#:tests? #f ; no tests
838 (modify-phases %standard-phases
839 (add-before 'build 'add-sitedirs
840 ;; .pth files are not automatically interpreted unless the
841 ;; directories containing them are added as "sites". The directories
842 ;; are then added to those in the PYTHONPATH. This is required for
843 ;; the operation of pygtk.
845 (substitute* "gtklick/gtklick.py"
847 "import pygtk, site, sys
848 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))))
849 (add-after 'unpack 'inject-store-path-to-klick
850 (lambda* (#:key inputs #:allow-other-keys)
851 (substitute* "gtklick/klick_backend.py"
852 (("KLICK_PATH = 'klick'")
853 (string-append "KLICK_PATH = '"
854 (assoc-ref inputs "klick")
859 ("python2-pyliblo" ,python2-pyliblo)
860 ("python2-pygtk" ,python2-pygtk)))
862 `(("gettext" ,gettext-minimal)))
863 (home-page "http://das.nasophon.de/gtklick/")
864 (synopsis "Simple metronome with an easy-to-use graphical interface")
866 "Gtklick is a simple metronome with an easy-to-use graphical user
867 interface. It is implemented as a frontend to @code{klick}.")
868 (license license:gpl2+)))
870 (define-public libgme
876 (uri (string-append "https://bitbucket.org/mpyne/game-music-emu/"
877 "downloads/game-music-emu-" version
881 "07857vdkak306d9s5g6fhmjyxk7vijzjhkmqb15s7ihfxx9lx8xb"))))
882 (build-system cmake-build-system)
884 '(#:tests? #f)) ; no check target
885 (home-page "https://bitbucket.org/mpyne/game-music-emu")
886 (synopsis "Video game music file playback library")
888 "Game-music-emu is a collection of video game music file emulators that
889 support the following formats and systems:
892 ZX Spectrum/Asmtrad CPC
896 Sega Genesis/Mega Drive
898 NEC TurboGrafx-16/PC Engine
900 MSX Home Computer/other Z80 systems (doesn't support FM sound)
902 Nintendo NES/Famicom (with VRC 6, Namco 106, and FME-7 sound)
904 Atari systems using POKEY sound chip
906 Super Nintendo/Super Famicom
908 Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC Micro
910 (license (list license:lgpl2.1+
911 ;; demo and player directories are under the Expat license
914 (define-public lilypond
921 (uri (string-append "http://lilypond.org/download/sources/"
922 "v" (version-major+minor version) "/"
923 "lilypond-" version ".tar.gz"))
925 (base32 "0qd6pd4siss016ffmcyw5qc6pr2wihnvrgd4kh1x725w7wr02nar"))))
926 (build-system gnu-build-system)
928 `(#:tests? #f ;out-test/collated-files.html fails
930 #:make-flags '("conf=www") ;to generate images for info manuals
932 (list "CONFIGURATION=www"
933 (string-append "--with-texgyre-dir="
934 (assoc-ref %build-inputs "font-tex-gyre")
935 "/share/fonts/opentype/"))
937 (modify-phases %standard-phases
938 (add-after 'unpack 'use-texlive-union
940 ;; FIXME: fonts are not found and have to be generated in HOME.
941 (setenv "HOME" "/tmp")
942 ;; The test for the "lh" package fails, even though it is among
944 (substitute* "configure"
945 (("TEX_FIKPARM=.*") "TEX_FIKPARM=found\n"))
947 (add-after 'unpack 'fix-path-references
949 (substitute* "scm/backend-library.scm"
950 (("\\(search-executable '\\(\"gs\"\\)\\)")
951 (string-append "\"" (which "gs") "\""))
953 (string-append "\"" (which "sh") "\"")))
955 (add-before 'configure 'prepare-configuration
957 (substitute* "configure"
958 (("SHELL=/bin/sh") "SHELL=sh")
959 ;; When checking the fontforge version do not consider the
960 ;; version string that's part of the directory.
961 (("head -n") "tail -n")
962 ;; Also allow for SOURCE_DATE_EPOCH = 0 in fontforge.
963 (("20110222") "19700101"))
965 (setenv "conf" "www")
967 (add-after 'install 'install-info
970 "-j" (number->string (parallel-job-count))
971 "conf=www" "install-info")
974 `(("guile" ,guile-1.8)
975 ("font-dejavu" ,font-dejavu)
976 ("font-tex-gyre" ,font-tex-gyre)
977 ("fontconfig" ,fontconfig)
978 ("freetype" ,freetype)
979 ("ghostscript" ,ghostscript)
981 ("python" ,python-2)))
986 ("fontforge" ,fontforge)
988 ("gettext" ,gettext-minimal)
989 ("imagemagick" ,imagemagick)
990 ("netpbm" ,netpbm) ;for pngtopnm
991 ("texlive" ,(texlive-union (list texlive-metapost
994 texlive-latex-cyrillic)))
996 ("texi2html" ,texi2html-1.82)
998 ("pkg-config" ,pkg-config)
1000 (home-page "http://www.lilypond.org/")
1001 (synopsis "Music typesetting")
1003 "GNU LilyPond is a music typesetter, which produces high-quality sheet
1004 music. Music is input in a text file containing control sequences which are
1005 interpreted by LilyPond to produce the final document. It is extendable with
1007 (license license:gpl3+)
1009 ;; On armhf and mips64el, building the documentation sometimes leads to
1010 ;; more than an hour of silence, so double the max silent time.
1011 (properties `((max-silent-time . 7200)))))
1013 (define-public non-sequencer
1014 ;; The latest tagged release is three years old and uses a custom build
1015 ;; system, so we take the last commit.
1016 (let ((commit "5ae43bb27c42387052a73e5ffc5d33efb9d946a9")
1019 (name "non-sequencer")
1020 (version (string-append "1.9.5-" revision "." (string-take commit 7)))
1024 (url "git://git.tuxfamily.org/gitroot/non/non.git")
1028 "1cljkkyi9dxqpqhx8y6l2ja4zjmlya26m26kqxml8gx08vyvddhx"))
1029 (file-name (string-append name "-" version "-checkout"))))
1030 (build-system waf-build-system)
1032 `(#:tests? #f ;no "check" target
1034 (list "--project=sequencer"
1035 ;; Disable the use of SSE unless on x86_64.
1036 ,@(if (not (string-prefix? "x86_64" (or (%current-target-system)
1037 (%current-system))))
1040 #:python ,python-2))
1043 ("libsigc++" ,libsigc++)
1047 `(("pkg-config" ,pkg-config)))
1048 (home-page "https://non.tuxfamily.org/wiki/Non%20Sequencer")
1049 (synopsis "Pattern-based MIDI sequencer")
1051 "The Non Sequencer is a powerful, lightweight, real-time,
1052 pattern-based MIDI sequencer. It utilizes the JACK Audio Connection Kit for
1053 MIDI I/O and the NTK GUI toolkit for its user interface. Everything in Non
1054 Sequencer happens on-line, in real-time. Music can be composed live, while the
1055 transport is rolling.")
1056 (license license:gpl2+))))
1058 (define-public non-session-manager
1059 (package (inherit non-sequencer)
1060 (name "non-session-manager")
1062 (substitute-keyword-arguments (package-arguments non-sequencer)
1063 ((#:configure-flags flags)
1064 `(cons "--project=session-manager"
1065 (delete "--project=sequencer" ,flags)))))
1071 `(("pkg-config" ,pkg-config)))
1072 (home-page "https://non.tuxfamily.org/nsm/")
1073 (synopsis "Audio session management")
1075 "The Non Session Manager is an API and an implementation for audio
1076 session management. NSM clients use a well-specified OSC protocol to
1077 communicate with the session management daemon.")
1078 (license license:gpl2+)))
1080 (define-public non-mixer
1081 (package (inherit non-sequencer)
1084 (substitute-keyword-arguments (package-arguments non-sequencer)
1085 ((#:configure-flags flags)
1086 `(cons "--project=mixer"
1087 (delete "--project=sequencer" ,flags)))))
1095 `(("pkg-config" ,pkg-config)))
1096 (home-page "https://non.tuxfamily.org/wiki/Non%20Mixer")
1097 (synopsis "Modular digital audio mixer")
1099 "The Non Mixer is a powerful, reliable and fast modular digital audio
1100 mixer. It utilizes JACK for inter-application audio I/O and the NTK GUI
1101 toolkit for a fast and lightweight user interface. Non Mixer can be used
1102 alone or in concert with Non Timeline and Non Sequencer to form a complete
1104 (license license:gpl2+)))
1106 (define-public non-timeline
1107 (package (inherit non-sequencer)
1108 (name "non-timeline")
1110 (substitute-keyword-arguments (package-arguments non-sequencer)
1111 ((#:configure-flags flags)
1112 `(cons "--project=timeline"
1113 (delete "--project=sequencer" ,flags)))))
1117 ("libsndfile" ,libsndfile)
1120 `(("pkg-config" ,pkg-config)))
1121 (home-page "https://non.tuxfamily.org/wiki/Non%20Timeline")
1122 (synopsis "Modular digital audio timeline arranger")
1124 "The Non Timeline is a powerful, reliable and fast modular digital audio
1125 timeline arranger. It utilizes JACK for inter-application audio I/O and the
1126 NTK GUI toolkit for a fast and lightweight user interface. Non Timeline can
1127 be used alone or in concert with Non Mixer and Non Sequencer to form a
1129 (license license:gpl2+)))
1131 (define-public bsequencer
1138 (url "https://github.com/sjaehn/BSEQuencer.git")
1140 (file-name (git-file-name name version))
1143 "08xwz5v8wrar0rx7qdr9pkpjz2k9sw6bn5glhpn6sp6453fabf8q"))))
1144 (build-system gnu-build-system)
1147 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1148 #:tests? #f ; there are none
1150 (modify-phases %standard-phases
1151 (delete 'configure))))
1155 ("libx11" ,libx11)))
1157 `(("pkg-config" ,pkg-config)))
1158 (home-page "https://github.com/sjaehn/BSEQuencer")
1159 (synopsis "Multi-channel MIDI step sequencer LV2 plugin")
1161 "This package provides a multi-channel MIDI step sequencer LV2 plugin
1162 with a selectable pattern matrix size.")
1163 (license license:gpl3+)))
1165 (define-public bchoppr
1167 (inherit bsequencer)
1174 (url "https://github.com/sjaehn/BChoppr.git")
1176 (file-name (git-file-name name version))
1179 "1ympx0kyn3mkb23xgd44rlrf4qnngnlkmikz9syhayklgax7ijgm"))))
1180 (synopsis "Audio stream-chopping LV2 plugin")
1181 (description "B.Choppr cuts the audio input stream into a repeated
1182 sequence of up to 16 chops. Each chop can be leveled up or down (gating).
1183 B.Choppr is the successor of B.Slizr.")
1184 (home-page "https://github.com/sjaehn/BChoppr")
1185 (license license:gpl3+)))
1187 (define-public solfege
1194 "mirror://gnu/solfege/solfege-"
1198 "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
1199 (build-system gnu-build-system)
1201 `(#:tests? #f ; xmllint attempts to download DTD
1202 #:test-target "test"
1204 (modify-phases %standard-phases
1205 (add-after 'unpack 'fix-configuration
1206 (lambda* (#:key inputs #:allow-other-keys)
1207 (substitute* "default.config"
1208 (("/usr/bin/aplay") "aplay")
1209 (("/usr/bin/timidity") "timidity")
1210 (("/usr/bin/mpg123") "mpg123")
1211 (("/usr/bin/ogg123") "ogg123"))
1213 (add-before 'build 'patch-python-shebangs
1215 ;; Two python scripts begin with a Unicode BOM, so patch-shebang
1217 (substitute* '("solfege/parsetree.py"
1218 "solfege/presetup.py")
1219 (("#!/usr/bin/python") (string-append "#!" (which "python"))))
1221 (add-before 'build 'add-sitedirs
1222 ;; .pth files are not automatically interpreted unless the
1223 ;; directories containing them are added as "sites". The directories
1224 ;; are then added to those in the PYTHONPATH. This is required for
1225 ;; the operation of pygtk and pygobject.
1227 (substitute* "run-solfege.py"
1230 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))
1232 (add-before 'build 'adjust-config-file-prefix
1233 (lambda* (#:key outputs #:allow-other-keys)
1234 (substitute* "run-solfege.py"
1235 (("prefix = os.path.*$")
1236 (string-append "prefix = " (assoc-ref outputs "out"))))
1238 (add-after 'install 'wrap-program
1239 (lambda* (#:key inputs outputs #:allow-other-keys)
1240 ;; Make sure 'solfege' runs with the correct PYTHONPATH.
1241 (let* ((out (assoc-ref outputs "out"))
1242 (path (getenv "PYTHONPATH")))
1243 (wrap-program (string-append out "/bin/solfege")
1244 `("PYTHONPATH" ":" prefix (,path))))
1247 `(("python" ,python-2)
1248 ("pygtk" ,python2-pygtk)
1249 ("gettext" ,gettext-minimal)
1251 ("lilypond" ,lilypond)))
1253 `(("pkg-config" ,pkg-config)
1254 ("txt2man" ,txt2man)
1255 ("libxml2" ,libxml2) ; for tests
1256 ("ghostscript" ,ghostscript)
1257 ("texinfo" ,texinfo)))
1258 (home-page "https://www.gnu.org/software/solfege/")
1259 (synopsis "Ear training")
1261 "GNU Solfege is a program for practicing musical ear-training. With it,
1262 you can practice your recognition of various musical intervals and chords. It
1263 features a statistics overview so you can monitor your progress across several
1264 sessions. Solfege is also designed to be extensible so you can easily write
1266 (license license:gpl3+)))
1268 (define-public powertabeditor
1270 (name "powertabeditor")
1271 (version "2.0.0-alpha10")
1275 (url "https://github.com/powertab/powertabeditor.git")
1277 (file-name (git-file-name name version))
1280 "1z4fhdp71ck9synr12rg1p6365xnypd8ih40c5icj4si36khvksk"))
1281 (modules '((guix build utils)))
1284 ;; Remove bundled sources for external libraries
1285 (delete-file-recursively "external")
1286 ;; Use only system libraries
1287 (substitute* "CMakeLists.txt"
1288 (("include\\( PTE_ThirdParty \\)")
1290 include(third_party/Qt)
1291 include(third_party/boost)
1292 add_library( Catch INTERFACE IMPORTED )
1293 add_library( rapidjson INTERFACE IMPORTED )"))
1295 (build-system cmake-build-system)
1297 `(#:modules ((guix build cmake-build-system)
1301 ;; CMake appears to lose the RUNPATH for some reason, so it has to be
1302 ;; explicitly set with CMAKE_INSTALL_RPATH.
1303 (list "-DCMAKE_BUILD_WITH_INSTALL_RPATH=TRUE"
1304 (string-append "-DCMAKE_INSTALL_RPATH="
1305 (string-join (map (match-lambda
1307 (string-append directory "/lib")))
1308 %build-inputs) ";"))
1309 "-DPTE_DATA_DIR=share/powertabeditor")
1311 (modify-phases %standard-phases
1314 (invoke "bin/pte_tests"
1315 ;; FIXME: these tests fail
1316 "exclude:Actions/EditStaff"
1317 "exclude:Formats/PowerTabOldImport/MergeMultiBarRests"
1318 "exclude:Score/ViewFilter/FilterRule"
1319 "exclude:Score/ViewFilter/ViewFilter"
1320 "exclude:Formats/PowerTabOldImport/Directions")
1322 ;; FIXME: This bug has been fixed upstream, but no release has been
1323 ;; made yet. See https://github.com/powertab/powertabeditor/issues/257
1324 (add-after 'unpack 'fix-boost-bug
1326 (substitute* "source/score/voiceutils.cpp"
1327 (("boost::rational<int> duration\\(4, pos.getDurationType\\(\\)\\);")
1328 "boost::rational<int> duration(4, static_cast<int>(pos.getDurationType()));"))
1330 ;; Fix build with Qt 5.11.
1331 (add-after 'unpack 'add-missing-headers
1333 (substitute* (find-files "source/dialogs/" "\\.h$")
1334 (("#include <QDialog>" m)
1335 (string-append m "\n#include <QButtonGroup>")))
1336 (substitute* "source/widgets/mixer/mixeritem.h"
1337 (("#include <QWidget>" m)
1338 (string-append m "\n#include <QStyle>")))
1339 (substitute* "source/widgets/playback/playbackwidget.h"
1340 (("#include <QWidget>" m)
1341 (string-append m "\n#include <QButtonGroup>\n#include <QAction>")))
1343 ;; FIXME: Finding RtMidi was fixed upstream so we should be able to
1344 ;; remove this hack when a release is made.
1345 ;; See https://github.com/powertab/powertabeditor/issues/255
1346 (add-after 'unpack 'fix-rtmidi-header
1348 (substitute* "source/audio/midioutputdevice.cpp"
1349 (("#include <RtMidi.h>") "#include <rtmidi/RtMidi.h>"))
1351 (add-before 'configure 'remove-third-party-libs
1352 (lambda* (#:key inputs #:allow-other-keys)
1353 ;; Link with required static libraries, because we're not
1354 ;; using the bundled version of withershins.
1355 ;; Also add pthread for fixing a linker error.
1356 (substitute* "source/build/CMakeLists.txt"
1357 (("withershins" line)
1358 (string-append line "\n"
1359 (assoc-ref inputs "binutils")
1361 (assoc-ref inputs "libiberty")
1362 "/lib/libiberty.a\n"
1369 ("alsa-lib" ,alsa-lib)
1371 ("withershins" ,withershins)
1372 ("libiberty" ,libiberty) ;for withershins
1373 ("binutils" ,binutils) ;for -lbfd and -liberty (for withershins)
1374 ("timidity" ,timidity++)
1375 ("pugixml" ,pugixml)
1377 ("rapidjson" ,rapidjson)
1380 `(("catch" ,catch-framework)
1381 ("pkg-config" ,pkg-config)))
1382 (home-page "http://powertabs.net")
1383 (synopsis "Guitar tablature editor")
1385 "Power Tab Editor 2.0 is the successor to the famous original Power Tab
1386 Editor. It is compatible with Power Tab Editor 1.7 and Guitar Pro.")
1387 (license license:gpl3+)))
1389 (define-public jalv-select
1391 (name "jalv-select")
1396 (url "https://github.com/brummer10/jalv_select.git")
1397 (commit (string-append "v" version))))
1398 (file-name (git-file-name name version))
1401 "15yanq1wra0hyh6x72ji7pk562iddg476g3vksj495x91zhnl6vm"))))
1402 (build-system gnu-build-system)
1405 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1407 (modify-phases %standard-phases
1409 (add-after 'unpack 'ignore-PATH
1410 (lambda* (#:key inputs #:allow-other-keys)
1411 (substitute* "jalv.select.cpp"
1412 (("echo \\$PATH.*tr ':'.*xargs ls")
1413 (string-append "ls -1 " (assoc-ref inputs "jalv") "/bin")))
1415 (add-before 'reset-gzip-timestamps 'make-manpages-writable
1416 (lambda* (#:key outputs #:allow-other-keys)
1417 (for-each make-file-writable
1418 (find-files (string-append (assoc-ref outputs "out")
1426 ("gtkmm" ,gtkmm-2)))
1428 `(("pkg-config" ,pkg-config)))
1429 (home-page "https://github.com/brummer10/jalv_select")
1430 (synopsis "GUI to select LV2 plugins and run them with jalv")
1432 "The jalv.select package provides a graphical user interface allowing
1433 users to select LV2 plugins and run them with jalv.")
1434 (license license:public-domain)))
1436 (define-public synthv1
1443 (string-append "mirror://sourceforge/synthv1/synthv1/" version
1444 "/synthv1-" version ".tar.gz"))
1447 "0bb48myvgvqcibwm68qhd4852pjr2g19rasf059a799d1hzgfq3l"))))
1448 (build-system gnu-build-system)
1450 `(#:tests? #f)) ; there are no tests
1454 ("alsa-lib" ,alsa-lib)
1455 ("non-session-manager" ,non-session-manager)
1457 ("qtbase" ,qtbase)))
1459 `(("pkg-config" ,pkg-config)
1460 ("qttools" ,qttools)))
1461 (home-page "https://synthv1.sourceforge.io")
1462 (synopsis "Polyphonic subtractive synthesizer")
1464 "Synthv1 is an old-school subtractive polyphonic synthesizer with four
1465 oscillators and stereo effects.")
1466 (license license:gpl2+)))
1468 (define-public drumkv1
1475 (string-append "mirror://sourceforge/drumkv1/drumkv1/" version
1476 "/drumkv1-" version ".tar.gz"))
1479 "1h88sakxs0b20k8v2sh14y05fin1zqmhnid6h9mk9c37ixxg58ia"))))
1480 (build-system gnu-build-system)
1482 `(#:tests? #f)) ; there are no tests
1486 ("libsndfile" ,libsndfile)
1487 ("alsa-lib" ,alsa-lib)
1488 ("non-session-manager" ,non-session-manager)
1490 ("qtbase" ,qtbase)))
1492 `(("pkg-config" ,pkg-config)
1493 ("qttools" ,qttools)))
1494 (home-page "https://drumkv1.sourceforge.io")
1495 (synopsis "Drum-kit sampler synthesizer with stereo effects")
1497 "Drumkv1 is an old-school drum-kit sampler synthesizer with stereo
1499 (license license:gpl2+)))
1501 (define-public samplv1
1508 (string-append "mirror://sourceforge/samplv1/samplv1/" version
1509 "/samplv1-" version ".tar.gz"))
1512 "0clsp6s5qfnh0xaxbd35vq2ppi72q9dfayrzlgl73800a8p7gh9m"))))
1513 (build-system gnu-build-system)
1515 `(#:tests? #f)) ; there are no tests
1519 ("libsndfile" ,libsndfile)
1520 ("alsa-lib" ,alsa-lib)
1521 ("non-session-manager" ,non-session-manager)
1523 ("qtbase" ,qtbase)))
1525 `(("pkg-config" ,pkg-config)
1526 ("qttools" ,qttools)))
1527 (home-page "https://samplv1.sourceforge.io")
1528 (synopsis "Polyphonic sampler synthesizer with stereo effects")
1530 "Samplv1 is an old-school polyphonic sampler synthesizer with stereo
1532 (license license:gpl2+)))
1534 (define-public padthv1
1541 (string-append "mirror://sourceforge/padthv1/padthv1/" version
1542 "/padthv1-" version ".tar.gz"))
1545 "1c1zllph86qswcxddz4vpsj6r9w21hbv4gkba0pyd3q7pbfqr7nz"))))
1546 (build-system gnu-build-system)
1548 `(#:tests? #f)) ; there are no tests
1552 ("alsa-lib" ,alsa-lib)
1553 ("non-session-manager" ,non-session-manager)
1556 ("qtbase" ,qtbase)))
1558 `(("pkg-config" ,pkg-config)
1559 ("qttools" ,qttools)))
1560 (home-page "https://padthv1.sourceforge.io")
1561 (synopsis "Polyphonic additive synthesizer")
1563 "Padthv1 is an old-school polyphonic additive synthesizer with stereo
1564 effects. Padthv1 is based on the PADsynth algorithm by Paul Nasca, as a
1565 special variant of additive synthesis.")
1566 (license license:gpl2+)))
1568 (define-public amsynth
1575 (uri (string-append "https://github.com/amsynth/amsynth/releases/"
1576 "download/release-" version
1577 "/amsynth-" version ".tar.bz2"))
1580 "1882pfcmf3rqg3vd4qflzkppcv158d748i603spqjbxqi8z7x7w0"))))
1581 (build-system gnu-build-system)
1583 `(("alsa-lib" ,alsa-lib)
1587 ("libsndfile" ,libsndfile)
1589 ("gtkmm" ,gtkmm-2)))
1591 `(("pkg-config" ,pkg-config)
1592 ("intltool" ,intltool)))
1593 (home-page "https://amsynth.github.io")
1594 (synopsis "Analog modeling synthesizer")
1596 "amsynth is an easy-to-use software synthesizer with a classic
1597 subtractive synthesizer topology. Its features include: dual
1598 oscillators (sine, saw, square, noise) with hard sync; 12 and 24 dB/oct
1599 resonant filters (low-pass, high-pass, band-pass, notch); mono, poly, legato
1600 keyboard modes; dual ADSR envelope generators for filter and amplitude; LFO
1601 which can modulate the oscillators, filter, and amplitude; distortion and
1603 (license license:gpl2+)))
1605 (define-public setbfree
1612 (url "https://github.com/pantherb/setBfree")
1613 (commit (string-append "v" version))))
1614 (file-name (git-file-name name version))
1617 "1s3ps3cjwlm63ml4izb7mizy8ci5pl9a19lvz62xf0br089h3afc"))))
1618 (build-system gnu-build-system)
1620 `(#:tests? #f ; no "check" target
1622 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1623 (string-append "FONTFILE="
1624 (assoc-ref %build-inputs "font-bitstream-vera")
1625 "/share/fonts/truetype/VeraBd.ttf")
1626 ;; Disable unsupported optimization flags on non-x86
1627 ,@(let ((system (or (%current-target-system)
1628 (%current-system))))
1629 (if (or (string-prefix? "x86_64" system)
1630 (string-prefix? "i686" system))
1632 '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
1634 (modify-phases %standard-phases
1635 (add-before 'build 'set-CC-variable
1636 (lambda _ (setenv "CC" "gcc") #t))
1637 (delete 'configure))))
1641 ("zita-convolver" ,zita-convolver)
1644 ("font-bitstream-vera" ,font-bitstream-vera)))
1646 `(("help2man" ,help2man)
1647 ("pkg-config" ,pkg-config)))
1648 (home-page "http://setbfree.org")
1649 (synopsis "Tonewheel organ")
1651 "setBfree is a MIDI-controlled, software synthesizer designed to imitate
1652 the sound and properties of the electromechanical organs and sound
1653 modification devices that brought world-wide fame to the names and products of
1654 Laurens Hammond and Don Leslie.")
1655 (license license:gpl2+)))
1657 (define-public beast
1663 (uri (string-append "https://testbit.eu/pub/dists/beast/beast-"
1667 "1jzzmfwssklzw8fvvil04n8csc0zm99fnd9p2xa7c0xchg37lvhn"))))
1668 (build-system gnu-build-system)
1670 '(#:parallel-build? #f)) ; Race conditions cause build failures
1672 `(("rapicorn" ,rapicorn)
1673 ("guile" ,guile-1.8)
1674 ("python" ,python-2)
1675 ("libgnomecanvas" ,libgnomecanvas)
1679 ("alsa-lib" ,alsa-lib)
1680 ("libvorbis" ,libvorbis)
1681 ("gettext" ,gettext-minimal)))
1683 `(("pkg-config" ,pkg-config)
1684 ("glib:bin" ,glib "bin")
1685 ("cython" ,python2-cython)
1687 ("perl-xml-parser" ,perl-xml-parser)))
1688 (home-page "https://testbit.eu/wiki/Beast_Home")
1689 (synopsis "Music composition and modular synthesis environment")
1691 "Beast is a music composition and modular synthesis application. It
1692 supports a wide range of standards in the field, such as MIDI, various audio
1693 file formats and LADSPA modules. It allows for multitrack editing, real-time
1694 synthesis, 32bit audio rendering, precise timing down to sample granularity,
1695 on-demand and partial loading of wave files, on the fly decoding, stereo
1696 mixing, FFT scopes, MIDI automation and full scriptability in Scheme.")
1697 (license license:gpl3+)))
1699 (define-public bristol
1705 (uri (string-append "mirror://sourceforge/bristol/bristol/"
1706 (version-major+minor version)
1707 "/bristol-" version ".tar.gz"))
1710 "1fi2m4gmvxdi260821y09lxsimq82yv4k5bbgk3kyc3x1nyhn7vx"))))
1711 (build-system gnu-build-system)
1714 (modify-phases %standard-phases
1715 (add-after 'unpack 'remove-sse-flags
1716 (lambda* (#:key system #:allow-other-keys)
1717 (when (not (or (string-prefix? "x86_64" system)
1718 (string-prefix? "i686" system)))
1719 (substitute* "bristol/Makefile.in"
1720 (("-msse -mfpmath=sse") "")))
1722 ;; alsa-lib 1.1.x no longer provides iatomic.h. That's okay because
1723 ;; bristol actually doesn't use it.
1724 (add-after 'unpack 'do-not-use-alsa-iatomic
1726 (substitute* "libbristolaudio/audioEngineJack.c"
1727 (("#include <alsa/iatomic.h>") ""))
1729 ;; We know that Bristol has been linked with JACK and we don't have
1730 ;; ldd, so we can just skip this check.
1731 (add-after 'unpack 'do-not-grep-for-jack
1733 (substitute* "bin/startBristol.in"
1734 (("ldd `which bristol` | grep jack") "echo guix"))
1737 `(("alsa-lib" ,alsa-lib)
1740 ("libx11" ,libx11)))
1742 `(("pkg-config" ,pkg-config)))
1743 (home-page "http://bristol.sourceforge.net/")
1744 (synopsis "Synthesizer emulator")
1746 "Bristol is an emulation package for a number of different @code{classic}
1747 synthesizers including additive and subtractive and a few organs. The
1748 application consists of the engine, which is called bristol, and its own GUI
1749 library called brighton that represents all the emulations. There are
1750 currently more than twenty different emulations; each does sound different
1751 although the author maintains that the quality and accuracy of each emulation
1753 (license license:gpl3+)))
1755 (define-public tuxguitar
1762 "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
1763 version "/tuxguitar-" version "-src.tar.gz"))
1766 "1qy5kjcsl3c86kdlyvsf6dsfmfl1mv8zg0ln6g3qg3i8f35vlpp6"))))
1767 (build-system ant-build-system)
1769 `(#:build-target "build"
1771 #:tests? #f ; no tests
1773 (modify-phases %standard-phases
1775 (lambda* (#:key inputs outputs #:allow-other-keys)
1776 (let* ((initial-classpath (getenv "CLASSPATH"))
1777 (build-dir (lambda (dir)
1780 (string-join (cons initial-classpath
1781 (find-files (getcwd) "\\.jar$"))
1783 (with-directory-excursion dir
1784 (if (file-exists? "build.xml")
1785 ((assoc-ref %standard-phases 'build)
1786 #:build-target "build")
1788 ;; Generate default build.xml.
1789 ((@@ (guix build ant-build-system)
1791 (string-append (string-downcase dir) ".jar")
1792 (string-append (assoc-ref outputs "out")
1794 ((assoc-ref %standard-phases 'build))))))))
1795 (map build-dir '("TuxGuitar-lib"
1796 "TuxGuitar-editor-utils"
1797 "TuxGuitar-ui-toolkit"
1798 "TuxGuitar-ui-toolkit-swt"
1801 "TuxGuitar-gm-utils"
1804 "TuxGuitar-midi-ui"))
1806 (add-after 'build 'build-jni
1809 (setenv "CFLAGS" (string-append
1812 "/build-scripts/native-modules/common-include"))
1813 (invoke "make" "-C" "./TuxGuitar-alsa/jni" "-f" "GNUmakefile")))
1815 (lambda* (#:key inputs outputs #:allow-other-keys)
1816 (let* ((out (assoc-ref outputs "out"))
1817 (bin (string-append out "/bin"))
1818 (share (string-append out "/share"))
1819 (jni-lib (string-append out "/lib"))
1820 (lib (string-append share "/java"))
1821 (swt (assoc-ref inputs "java-swt"))
1822 (mime (string-append share "/mime/packages"))
1823 (app (string-append share "/applications"))
1824 (man (string-append share "/man/man1")))
1827 ;; Install all jars.
1828 (for-each (lambda (file)
1829 (install-file file lib))
1830 (find-files "." "\\.jar$"))
1832 ;; Install jni libraries
1833 (for-each (lambda (file)
1834 (install-file file jni-lib))
1835 (find-files "." "\\-jni.so$"))
1837 ;; Install all resources.
1838 (copy-recursively "./TuxGuitar/share" share)
1840 ;; Install desktop and mime files
1841 (install-file "./misc/tuxguitar.xml" mime)
1842 (install-file "./misc/tuxguitar.desktop" app)
1845 (install-file "./misc/tuxguitar.1" man)
1848 (call-with-output-file (string-append bin "/tuxguitar")
1850 (let ((classpath (string-join (append (find-files lib "\\.jar$")
1851 (find-files swt "\\.jar$"))
1855 (string-append "#!/bin/sh\n"
1858 " -Dtuxguitar.home.path=" out
1859 " -Dtuxguitar.share.path=" out "/share"
1860 " -Dswt.library.path=" swt "/lib"
1861 " -Djava.library.path=" out "/lib"
1862 " org.herac.tuxguitar.app.TGMainSingleton"
1863 " \"$1\" \"$2\"")))))
1864 (chmod (string-append bin "/tuxguitar") #o555)
1867 `(("alsa-lib" ,alsa-lib)
1868 ("java-swt" ,java-swt)))
1869 (home-page "http://tuxguitar.com.ar/")
1870 (synopsis "Multitrack tablature editor and player")
1872 "TuxGuitar is a guitar tablature editor with player support through midi.
1873 It can display scores and multitrack tabs. TuxGuitar provides various
1874 additional features, including autoscrolling while playing, note duration
1875 management, bend/slide/vibrato/hammer-on/pull-off effects, support for
1876 tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
1878 (license license:lgpl2.1+)))
1887 (string-append "http://msp.ucsd.edu/Software/pd-"
1888 version ".src.tar.gz"))
1891 "0dz6r6jy0zfs1xy1xspnrxxks8kddi9c7pxz4vpg2ygwv83ghpg5"))))
1892 (build-system gnu-build-system)
1894 `(#:tests? #f ; no "check" target
1898 (string-append "--with-wish=" (string-append
1899 (assoc-ref %build-inputs "tk")
1902 (modify-phases %standard-phases
1903 (add-before 'configure 'fix-with-path
1905 (substitute* "tcl/pd-gui.tcl"
1906 (("exec wish ") (string-append "exec " (which "wish8.6") " ")))
1909 `(("autoconf" ,autoconf)
1910 ("automake" ,automake)
1911 ("libtool" ,libtool)
1912 ("gettext" ,gettext-minimal)
1913 ("pkg-config" ,pkg-config)))
1916 ("alsa-lib" ,alsa-lib)
1918 (home-page "http://puredata.info")
1919 (synopsis "Visual programming language for artistic performances")
1921 "Pure Data (aka Pd) is a visual programming language. Pd enables
1922 musicians, visual artists, performers, researchers, and developers to create
1923 software graphically, without writing lines of code. Pd is used to process
1924 and generate sound, video, 2D/3D graphics, and interface sensors, input
1925 devices, and MIDI. Pd can easily work over local and remote networks to
1926 integrate wearable technology, motor systems, lighting rigs, and other
1927 equipment. Pd is suitable for learning basic multimedia processing and visual
1928 programming methods as well as for realizing complex systems for large-scale
1930 (license license:bsd-3)))
1932 (define-public libpd
1939 (url "https://github.com/libpd/libpd.git")
1941 (recursive? #t))) ; for the 'pure-data' submodule
1942 (file-name (string-append name "-" version "-checkout"))
1945 "1bcg1d9iyf9n37hwwphmih0c8rd1xcqykil5z1cax6xfs76552nk"))))
1946 (build-system gnu-build-system)
1948 '(#:tests? #f ; no tests
1949 #:make-flags '("CC=gcc")
1951 (modify-phases %standard-phases
1952 (delete 'configure) ; no configure script
1954 (lambda* (#:key outputs #:allow-other-keys)
1955 (let ((out (assoc-ref outputs "out")))
1956 (invoke "make" "install"
1957 (string-append "prefix=" out)
1958 ;; XXX: Fix the last 2 lines of 'install' target.
1960 "LIBPD_DEF=NO")))))))
1961 (home-page "http://libpd.cc/")
1962 (synopsis "Pure Data as an embeddable audio synthesis library")
1964 "Libpd provides Pure Data as an embeddable audio synthesis library. Its
1965 main purpose is to liberate raw audio rendering from audio and MIDI drivers.")
1966 (license license:bsd-3)))
1968 (define-public portmidi
1974 (uri (string-append "mirror://sourceforge/portmedia/portmidi/"
1975 version "/portmidi-src-" version ".zip"))
1978 "03rfsk7z6rdahq2ihy5k13qjzgx757f75yqka88v3gc0pn9ais88"))
1979 (patches (list (search-patch "portmidi-modular-build.patch")))))
1980 (build-system cmake-build-system)
1982 `(#:tests? #f ; tests cannot be linked
1983 #:build-type "Release" ; needed to have PMALSA set
1985 (list "-DPORTMIDI_ENABLE_JAVA=Off"
1986 "-DPORTMIDI_ENABLE_TEST=Off") ; tests fail linking
1988 (modify-phases %standard-phases
1989 ;; Some packages, e.g., MuseScore, expect "libporttime.so" instead of
1990 ;; "libportmidi.so". Distributions get away with it by creating an
1991 ;; appropriate symlink.
1992 (add-after 'install 'add-porttime
1993 (lambda* (#:key outputs #:allow-other-keys)
1994 (let* ((out (assoc-ref outputs "out"))
1995 (lib (string-append out "/lib")))
1996 (with-directory-excursion lib
1997 (symlink "libportmidi.so" "libporttime.so")))
2000 `(("alsa-lib" ,alsa-lib)))
2002 `(("unzip" ,unzip)))
2003 (home-page "http://portmedia.sourceforge.net/portmidi/")
2004 (synopsis "Library for MIDI I/O")
2006 "PortMidi is a library supporting real-time input and output of MIDI data
2007 using a system-independent interface.")
2008 (license license:expat)))
2010 (define-public portmidi-for-extempore
2011 (let ((version "217")
2013 (commit "8602f548f71daf5ef638b2f7d224753400cb2158"))
2014 (package (inherit portmidi)
2015 (name "portmidi-for-extempore")
2016 (version (git-version version revision commit))
2020 (url "https://github.com/extemporelang/portmidi.git")
2022 (file-name (git-file-name name version))
2025 "1qidzl1s3kzhczzm96rcd2ppn27a97k2axgfh1zhvyf0s52d7m4w"))))
2026 (build-system cmake-build-system)
2027 (arguments `(#:tests? #f)) ; no tests
2029 ;; Extempore refuses to build on architectures other than x86_64
2030 (supported-systems '("x86_64-linux"))
2031 (home-page "https://github.com/extemporelang/portmidi/"))))
2033 (define-public python-pyportmidi
2035 (name "python-pyportmidi")
2036 (version (package-version portmidi))
2037 (source (package-source portmidi))
2038 (build-system python-build-system)
2040 `(#:tests? #f ; no tests included
2042 (modify-phases %standard-phases
2043 (add-after 'unpack 'enter-dir
2044 (lambda _ (chdir "pm_python") #t))
2045 (add-after 'enter-dir 'fix-setup.py
2047 (substitute* "setup.py"
2048 ;; Use Python 3 syntax
2049 (("print (\".*\")" _ text)
2050 (string-append "print(" text ")\n"))
2051 ;; TODO.txt and CHANGES.txt don't exist
2052 (("CHANGES =.*") "CHANGES = \"\"\n")
2053 (("TODO =.*") "TODO = \"\"\n"))
2056 `(("portmidi" ,portmidi)
2057 ("alsa-lib" ,alsa-lib)))
2059 `(("python-cython" ,python-cython)
2061 (home-page "http://portmedia.sourceforge.net/portmidi/")
2062 (synopsis "Python bindings to PortMidi")
2064 "This package provides Python bindings to the PortMidi library.")
2065 (license license:expat)))
2067 (define-public frescobaldi
2069 (name "frescobaldi")
2075 "https://github.com/wbsoft/frescobaldi/releases/download/v"
2076 version "/frescobaldi-" version ".tar.gz"))
2078 (base32 "084vxzvxnxl5rrhllincnh6krsyi03c8p0452ppzmn9c52wgyb2w"))))
2079 (build-system python-build-system)
2081 `(#:tests? #f)) ;no tests included
2083 `(("lilypond" ,lilypond)
2084 ("poppler" ,poppler)
2085 ("portmidi" ,portmidi)
2086 ("python-ly" ,python-ly)
2087 ("python-poppler-qt5" ,python-poppler-qt5)
2088 ("python-pyportmidi" ,python-pyportmidi)
2089 ("python-pyqt" ,python-pyqt)
2090 ("python-sip" ,python-sip)))
2091 (home-page "https://www.frescobaldi.org/")
2092 (synopsis "LilyPond sheet music text editor")
2094 "Frescobaldi is a LilyPond sheet music text editor with syntax
2095 highlighting and automatic completion. Among other things, it can render
2096 scores next to the source, can capture input from MIDI or read MusicXML and
2097 ABC files, has a MIDI player for proof-listening, and includes a documentation
2099 (license license:gpl2+)))
2101 (define-public drumstick
2107 (uri (string-append "mirror://sourceforge/drumstick/"
2108 version "/drumstick-" version ".tar.bz2"))
2111 "1n9wvg79yvkygrkc8xd8pgrd3d7hqmr7gh24dccf0px23lla9b3m"))))
2112 (build-system cmake-build-system)
2114 `(#:tests? #f ; no test target
2115 #:configure-flags '("-DLIB_SUFFIX=")
2117 (modify-phases %standard-phases
2118 (add-before 'configure 'fix-docbook
2119 (lambda* (#:key inputs #:allow-other-keys)
2120 (substitute* "cmake_admin/CreateManpages.cmake"
2121 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2122 (string-append (assoc-ref inputs "docbook-xsl")
2123 "/xml/xsl/docbook-xsl-"
2124 ,(package-version docbook-xsl)
2125 "/manpages/docbook.xsl")))
2128 `(("qtbase" ,qtbase)
2130 ("alsa-lib" ,alsa-lib)))
2132 `(("pkg-config" ,pkg-config)
2133 ("libxslt" ,libxslt) ; for xsltproc
2134 ("docbook-xsl" ,docbook-xsl)
2135 ("doxygen" ,doxygen)))
2136 (home-page "http://drumstick.sourceforge.net/")
2137 (synopsis "C++ MIDI library")
2139 "Drumstick is a set of MIDI libraries using C++/Qt5 idioms and style. It
2140 includes a C++ wrapper around the ALSA library sequencer interface. A
2141 complementary library provides classes for processing SMF (Standard MIDI
2142 files: .MID/.KAR), Cakewalk (.WRK), and Overture (.OVE) file formats. A
2143 multiplatform realtime MIDI I/O library is also provided with various output
2144 backends, including ALSA, OSS, Network and FluidSynth.")
2145 (license license:gpl2+)))
2153 (uri (string-append "mirror://sourceforge/vmpk/vmpk/"
2154 version "/vmpk-" version ".tar.bz2"))
2157 "1i3hnvdgz46n4k5v0q4jhgh7nkh0s390ix4nqr69z0q3026yp0p6"))))
2158 (build-system cmake-build-system)
2160 `(#:tests? #f ; no test target
2162 (modify-phases %standard-phases
2163 (add-before 'configure 'fix-docbook
2164 (lambda* (#:key inputs #:allow-other-keys)
2165 (substitute* "cmake_admin/CreateManpages.cmake"
2166 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2167 (string-append (assoc-ref inputs "docbook-xsl")
2168 "/xml/xsl/docbook-xsl-"
2169 ,(package-version docbook-xsl)
2170 "/manpages/docbook.xsl")))
2173 `(("drumstick" ,drumstick)
2176 ("qtx11extras" ,qtx11extras)))
2178 `(("libxslt" ,libxslt) ;for xsltproc
2179 ("docbook-xsl" ,docbook-xsl)
2180 ("qttools" ,qttools)
2181 ("pkg-config" ,pkg-config)))
2182 (home-page "http://vmpk.sourceforge.net")
2183 (synopsis "Virtual MIDI piano keyboard")
2185 "Virtual MIDI Piano Keyboard is a MIDI events generator and receiver. It
2186 doesn't produce any sound by itself, but can be used to drive a MIDI
2187 synthesizer (either hardware or software, internal or external). You can use
2188 the computer's keyboard to play MIDI notes, and also the mouse. You can use
2189 the Virtual MIDI Piano Keyboard to display the played MIDI notes from another
2190 instrument or MIDI file player.")
2191 (license license:gpl3+)))
2193 (define-public zynaddsubfx
2195 (name "zynaddsubfx")
2200 "mirror://sourceforge/zynaddsubfx/zynaddsubfx/"
2201 version "/zynaddsubfx-" version ".tar.bz2"))
2204 "0qwzg14h043rmyf9jqdylxhyfy4sl0vsr0gjql51wjhid0i34ivl"))))
2205 (build-system cmake-build-system)
2208 (modify-phases %standard-phases
2209 ;; Move SSE compiler optimization flags from generic target to
2210 ;; athlon64 and core2 targets, because otherwise the build would fail
2211 ;; on non-Intel machines.
2212 (add-after 'unpack 'remove-sse-flags-from-generic-target
2214 (substitute* "src/CMakeLists.txt"
2215 (("-msse -msse2 -mfpmath=sse") "")
2216 (("-march=(athlon64|core2)" flag)
2217 (string-append flag " -msse -msse2 -mfpmath=sse")))
2223 ("alsa-lib" ,alsa-lib)
2226 ("minixml" ,minixml)
2230 `(("pkg-config" ,pkg-config)))
2231 (home-page "http://zynaddsubfx.sf.net/")
2232 (synopsis "Software synthesizer")
2234 "ZynAddSubFX is a feature heavy realtime software synthesizer. It offers
2235 three synthesizer engines, multitimbral and polyphonic synths, microtonal
2236 capabilities, custom envelopes, effects, etc.")
2237 (license license:gpl2)))
2239 (define-public yoshimi
2245 (uri (string-append "mirror://sourceforge/yoshimi/"
2246 (version-major+minor version)
2247 "/yoshimi-" version ".tar.bz2"))
2250 "1pkqrrr51vlxh96vy0c0rf5ijjvymys4brsw9rv1bdp1bb8izw6c"))))
2251 (build-system cmake-build-system)
2253 `(#:tests? #f ; there are no tests
2255 (list (string-append "-DCMAKE_INSTALL_DATAROOTDIR="
2256 (assoc-ref %outputs "out") "/share"))
2258 (modify-phases %standard-phases
2259 (add-before 'configure 'enter-dir
2260 (lambda _ (chdir "src") #t))
2261 ;; Move SSE compiler optimization flags from generic target to
2262 ;; athlon64 and core2 targets, because otherwise the build would fail
2263 ;; on non-Intel machines.
2264 (add-after 'unpack 'remove-sse-flags-from-generic-target
2266 (substitute* "src/CMakeLists.txt"
2267 (("-msse -msse2 -mfpmath=sse") "")
2268 (("-march=(athlon64|core2)" flag)
2269 (string-append flag " -msse -msse2 -mfpmath=sse")))
2274 ("alsa-lib" ,alsa-lib)
2276 ("fontconfig" ,fontconfig)
2277 ("minixml" ,minixml)
2281 ("readline" ,readline)
2282 ("ncurses" ,ncurses)
2286 `(("pkg-config" ,pkg-config)))
2287 (home-page "http://yoshimi.sourceforge.net/")
2288 (synopsis "Multi-paradigm software synthesizer")
2290 "Yoshimi is a fork of ZynAddSubFX, a feature-heavy real-time software
2291 synthesizer. It offers three synthesizer engines, multitimbral and polyphonic
2292 synths, microtonal capabilities, custom envelopes, effects, etc. Yoshimi
2293 improves on support for JACK features, such as JACK MIDI.")
2294 (license license:gpl2)))
2296 (define-public libgig
2302 (uri (string-append "http://download.linuxsampler.org/packages/"
2303 "libgig-" version ".tar.bz2"))
2306 "1zs5yy124bymfyapsnljr6rv2lnn5inwchm0xnwiw44b2d39l8hn"))))
2307 (build-system gnu-build-system)
2309 `(("libuuid" ,util-linux "lib")
2310 ("libsndfile" ,libsndfile)))
2312 `(("pkg-config" ,pkg-config)))
2313 (home-page "https://linuxsampler.org/libgig/")
2314 (synopsis "C++ library for working with Gigasampler (.gig) files")
2316 "Libgig is a C++ library for loading, modifying existing and creating new
2317 Gigasampler (.gig) files and DLS (Downloadable Sounds) Level 1/2 files, KORG
2318 sample based instruments (.KSF and .KMP files), SoundFont v2 (.sf2) files and
2319 AKAI sampler data. The package includes a couple of command line tools based
2321 ;; The library and tools are released under the GPL, except the AKAI
2322 ;; classes which are released under the LGPL.
2323 (license (list license:gpl2+ license:lgpl2.1+))))
2325 (define-public jack-keyboard
2327 (name "jack-keyboard")
2332 (uri (string-append "mirror://sourceforge/jack-keyboard/jack-keyboard/"
2333 version "/jack-keyboard-" version ".tar.gz"))
2336 "0mzmg8aavybcfdlq2yd9d0vscqd6is5p6jzrgfpfm5j3xdcvh2s3"))))
2337 (build-system gnu-build-system)
2343 `(("pkg-config" ,pkg-config)))
2344 (home-page "http://jack-keyboard.sourceforge.net/")
2345 (synopsis "Virtual MIDI keyboard")
2346 (description "Jack-keyboard is a virtual MIDI keyboard, a program that
2347 allows you to send JACK MIDI events (i.e. play) using your PC keyboard.")
2348 (license license:bsd-2)))
2350 (define-public jack-capture
2352 (name "jack-capture")
2357 (url "https://github.com/kmatheussen/jack_capture.git")
2359 (file-name (string-append name "-" version "-checkout"))
2362 "0jcqky96q8xgya6wqv1p8pj9fkf2wh7ynl67ah7x5bn3basgfclf"))))
2363 (build-system gnu-build-system)
2366 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2367 #:tests? #f ; there are none
2369 (modify-phases %standard-phases
2370 (delete 'configure))))
2372 `(("pkg-config" ,pkg-config)
2380 ("libsndfile" ,libsndfile)))
2381 (home-page "https://github.com/kmatheussen/jack_capture")
2382 (synopsis "Program for recording sound files with JACK")
2383 (description "This is a program for recording sound files with JACK. It
2384 can connect to any JACK port and record the output into a stereo WAV file.")
2385 (license license:gpl2+)))
2387 (define-public jack-select
2389 (name "jack-select")
2393 (uri (pypi-uri "jack-select" version))
2396 "1zijk9ly2fczxsnnrqr8s0ajmlyx1j1vd8gk0rm5dj5zyhhmia7f"))))
2397 (build-system gnu-build-system)
2399 `(#:modules ((guix build gnu-build-system)
2400 ((guix build python-build-system) #:prefix python:)
2402 #:imported-modules (,@%gnu-build-system-modules
2403 (guix build python-build-system))
2405 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2406 #:tests? #f ; there are none
2408 (modify-phases %standard-phases
2410 (lambda* (#:key inputs #:allow-other-keys)
2411 ;; python-dbus cannot be found but it's really there. See
2412 ;; https://github.com/SpotlightKid/jack-select/issues/2
2413 (substitute* "setup.py"
2414 (("'dbus-python',") ""))
2415 ;; Fix reference to dlopened libraries.
2416 (substitute* "jackselect/alsainfo.py"
2418 (string-append (assoc-ref inputs "alsa-lib")
2419 "/lib/libasound.so.2")))
2422 (assoc-ref python:%standard-phases 'build))
2423 (add-after 'install 'wrap
2424 (assoc-ref python:%standard-phases 'wrap)))))
2426 `(("pkg-config" ,pkg-config)))
2428 `(("alsa-lib" ,alsa-lib)
2429 ("python" ,python-wrapper)
2430 ("python-pyudev" ,python-pyudev)
2431 ("python-pyxdg" ,python-pyxdg)
2432 ("python-dbus" ,python-dbus)
2433 ("python-pygobject" ,python-pygobject)))
2434 (home-page "https://github.com/SpotlightKid/jack-select")
2435 (synopsis "Systray application to quickly change the JACK-DBus configuration")
2436 (description "This application displays an icon in the system tray (also
2437 known as notification area) of your desktop, which shows the status of the
2438 JACK audio server and when you click on it, a menu pops up, which lets you
2439 quickly select from the JACK configuration presets you created with QjackCtl.
2440 When you select a preset, its JACK engine and driver configuration settings
2441 are loaded via DBus into JACK and then the server is restarted. This allows
2442 you to switch between different audio setups with just two mouse clicks.")
2443 (license license:expat)))
2445 (define-public cursynth
2452 (uri (string-append "mirror://gnu/cursynth/cursynth-"
2455 (base32 "1dhphsya41rv8z6yqcv9l6fwbslsds4zh1y56zizi39nd996d40v"))
2456 (patches (search-patches "cursynth-wave-rand.patch"))))
2457 (build-system gnu-build-system)
2458 (native-inputs `(("pkg-config" ,pkg-config)))
2459 ;; TODO: See https://github.com/iyoko/cursynth/issues/4 which currently
2460 ;; prevents us from using pulseaudio
2461 (inputs `(("ncurses" ,ncurses)
2462 ("alsa" ,alsa-lib)))
2463 (home-page "https://www.gnu.org/software/cursynth/")
2464 (synopsis "Polyphonic and MIDI subtractive music synthesizer using curses")
2465 (description "GNU cursynth is a polyphonic synthesizer that runs
2466 graphically in the terminal. It is built on a full-featured subtractive
2467 synthesis engine. Notes and parameter changes may be entered via MIDI or the
2468 computer's keyboard.")
2469 (license license:gpl3+)))
2471 (define-public aj-snapshot
2473 (name "aj-snapshot")
2477 (uri (string-append "mirror://sourceforge/aj-snapshot/"
2478 "aj-snapshot-" version ".tar.bz2"))
2481 "0z8wd5yvxdmw1h1rj6km9h01xd4xmp4d86gczlix7hsc7zrf0wil"))))
2482 (build-system gnu-build-system)
2484 `(("minixml" ,minixml)
2486 ("alsa-lib" ,alsa-lib)))
2488 `(("pkg-config" ,pkg-config)))
2489 (home-page "http://aj-snapshot.sourceforge.net/")
2490 (synopsis "Snapshot connections between ALSA and JACK clients")
2491 (description "Aj-snapshot is a small program that can be used to make
2492 snapshots of the connections made between JACK and/or ALSA clients. Because
2493 JACK can provide both audio and MIDI support to programs, aj-snapshot can
2494 store both types of connections for JACK. ALSA, on the other hand, only
2495 provides routing facilities for MIDI clients. Aj-snapshot is meant to be used
2496 from the command line.")
2497 (license license:gpl3+)))
2499 (define-public qtractor
2505 (uri (string-append "http://downloads.sourceforge.net/qtractor/"
2506 "qtractor-" version ".tar.gz"))
2509 "06493sf4hr178jkvric3rmc2phh1ph2jlyh8kl9z248amq3zfnhy"))))
2510 (build-system gnu-build-system)
2512 `(#:tests? #f)) ; no "check" target
2515 ("qtx11extras" ,qtx11extras)
2516 ("alsa-lib" ,alsa-lib)
2518 ("libsndfile" ,libsndfile)
2523 ("libsamplerate" ,libsamplerate)
2524 ("libvorbis" ,libvorbis)
2526 ("rubberband" ,rubberband)
2530 `(("pkg-config" ,pkg-config)
2531 ("qttools" ,qttools)))
2532 (home-page "http://qtractor.org/")
2533 (synopsis "Audio/MIDI multi-track sequencer")
2535 "Qtractor is an Audio/MIDI multi-track sequencer application. It uses
2536 JACK for audio and ALSA sequencer for MIDI as multimedia infrastructures and
2537 follows a traditional multi-track tape recorder control paradigm.")
2538 (license license:gpl2+)))
2540 (define-public ams-lv2
2548 (url "https://github.com/blablack/ams-lv2.git")
2549 (commit (string-append "v" version))))
2550 (file-name (git-file-name name version))
2552 (base32 "1lz2mvk4gqsyf92yxd3aaldx0d0qi28h4rnnvsaz4ls0ccqm80nk"))))
2553 (build-system waf-build-system)
2556 (modify-phases %standard-phases
2557 (add-after 'unpack 'remove-sse-flags
2558 (lambda* (#:key system #:allow-other-keys)
2559 (unless (or (string-prefix? "x86_64" system)
2560 (string-prefix? "i686" system))
2561 (substitute* "wscript"
2562 (("'-msse', '-mfpmath=sse', ") "")))
2564 #:tests? #f)) ; no tests
2573 `(("pkg-config" ,pkg-config)))
2574 (home-page "https://github.com/blablack/ams-lv2")
2575 (synopsis "Port of Alsa Modular Synth internal modules into LV2")
2576 (description "This set of LV2 plugins is a port of the internal modules
2577 found in Alsa Modular Synth. These plugins are used to create modular
2578 synthesizers and contain: VCO, VCF, VCA, LFO, slew limiter, envelopes, sample
2580 (license license:gpl2)))
2582 (define-public gxtuner
2589 (url "https://github.com/brummer10/gxtuner.git")
2590 (commit (string-append "v" version))))
2591 (file-name (git-file-name name version))
2594 "1fxd2akan2njlr7fpkh84830783qhh1gg7yakswqk5dd466dcn96"))))
2595 (build-system gnu-build-system)
2598 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2599 (string-append "INCLUDE_L_DIR="
2600 (assoc-ref %build-inputs "zita-resampler")
2603 (modify-phases %standard-phases
2604 (delete 'configure))))
2610 ("zita-resampler" ,zita-resampler)))
2612 `(("pkg-config" ,pkg-config)))
2613 (home-page "https://github.com/brummer10/gxtuner")
2614 (synopsis "Guitar tuner")
2615 (description "GXtuner is a simple guitar tuner for JACK with an
2616 analogue-like user interface.")
2617 (license license:gpl2+)))
2619 (define-public mod-host
2620 ;; The last release was in 2014 but since then hundreds of commits have
2622 (let ((commit "1726ad06b11323da7e1aaed690ff8aef91f702b5")
2626 (version (string-append "0.10.6-" revision "." (string-take commit 9)))
2630 (url "https://github.com/moddevices/mod-host")
2634 "1nrd37c35w6z6ldczgrwmmd9hx1n3zyvcjcgb3mi4cygqdanvspv"))
2635 (file-name (string-append name "-" version "-checkout"))))
2636 (build-system gnu-build-system)
2638 `(#:tests? #f ; no tests included
2640 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2643 (modify-phases %standard-phases
2645 (add-after 'unpack 'fix-jack-installation-directory
2647 ;; Do not attempt to install files to output of "jack" package.
2648 (substitute* "Makefile"
2649 (("\\$\\(shell pkg-config --variable=libdir jack\\)")
2658 ("readline" ,readline)))
2660 `(("pkg-config" ,pkg-config)
2661 ("python" ,python-2)))
2662 (home-page "https://github.com/moddevices/mod-host")
2663 (synopsis "LV2 host for Jack controllable via socket or command line")
2664 (description "mod-host is an LV2 plugin host for JACK, controllable via
2665 socket or command line.")
2666 (license license:gpl3+))))
2668 (define-public curseradio
2669 (let ((commit "1bd4bd0faeec675e0647bac9a100b526cba19f8d")
2673 (version (git-version "0" revision commit))
2677 (url "https://github.com/chronitis/curseradio.git")
2679 (file-name (git-file-name name version))
2682 "11bf0jnj8h2fxhpdp498189r4s6b47vy4wripv0z4nx7lxajl88i"))))
2683 (build-system python-build-system)
2686 (modify-phases %standard-phases
2687 (add-after 'unpack 'link-to-mpv
2688 (lambda* (#:key inputs #:allow-other-keys)
2689 (substitute* "curseradio/curseradio.py"
2691 (string-append (assoc-ref inputs "mpv") "/bin/mpv")))
2694 `(("python-lxml" ,python-lxml)
2695 ("python-requests" ,python-requests)
2696 ("python-pyxdg" ,python-pyxdg)))
2699 (home-page "https://github.com/chronitis/curseradio")
2700 (synopsis "Command-line Internet radio player")
2701 (description "Curseradio is a Curses-based radio player that uses a
2702 tune-in sender list from @url{http://opml.radiotime.com}.")
2703 (license license:expat))))
2705 (define-public pianobar
2708 (version "2020.04.05")
2712 (url "https://github.com/PromyLOPh/pianobar.git")
2714 (file-name (git-file-name name version))
2717 "1gq8kpks6nychqz4gf0rpy7mrhz5vjw48a60x56j6y9flmazmypw"))))
2718 (build-system gnu-build-system)
2720 `(#:tests? #f ; no tests
2721 #:make-flags (list "CC=gcc" "CFLAGS=-std=c99"
2722 (string-append "PREFIX=" %output))
2723 #:phases (modify-phases %standard-phases
2724 (delete 'configure))))
2728 ("libgcrypt" ,libgcrypt)
2730 ("ffmpeg" ,ffmpeg)))
2732 `(("pkg-config" ,pkg-config)))
2733 (home-page "https://6xq.net/pianobar/")
2734 (synopsis "Console-based pandora.com player")
2735 (description "pianobar is a console-based music player for the
2736 personalized online radio pandora.com. It has configurable keys for playing
2737 and managing stations, can be controlled remotely via fifo, and can run
2738 event-based scripts for scrobbling, notifications, etc.")
2739 (license license:expat)))
2741 (define-public picard
2748 "https://musicbrainz.osuosl.org/pub/musicbrainz/"
2749 "picard/picard-" version ".tar.gz"))
2752 "19w5k3bf4886gdycxjds9nkjvir0gwy2r5cqkz0lbls4ikk4y14f"))))
2753 (build-system python-build-system)
2755 '(#:use-setuptools? #f
2758 ;; Don't phone home or show ‘Check for Update…’ in the Help menu.
2759 "--disable-autoupdate")
2761 (modify-phases %standard-phases
2762 (add-after 'unpack 'patch-source
2763 (lambda* (#:key inputs #:allow-other-keys)
2764 (substitute* "picard/const/__init__.py"
2768 (assoc-ref inputs "chromaprint") "/bin/fpcalc")))
2771 `(("gettext" ,gettext-minimal)))
2773 `(("chromaprint" ,chromaprint)
2774 ("python-discid" ,python-discid)
2775 ("python-pyqt" ,python-pyqt)
2776 ("python-mutagen" ,python-mutagen)))
2777 (home-page "https://picard.musicbrainz.org/")
2778 (synopsis "Graphical music tagging application")
2780 "MusicBrainz Picard is a music tagging application, supporting multiple
2781 formats, looking up tracks through metadata and audio fingerprints.")
2782 (license license:gpl2+)))
2784 (define-public python-mutagen
2786 (name "python-mutagen")
2790 (uri (pypi-uri "mutagen" version))
2793 "0rl7sxn1rcjl48fwga3dqf9f6pzspsny4ngxyf6pp337mrq0z693"))))
2794 (build-system python-build-system)
2796 `(("python-pytest" ,python-pytest)))
2797 (home-page "https://bitbucket.org/lazka/mutagen")
2798 (synopsis "Read and write audio tags")
2799 (description "Mutagen is a Python module to handle audio metadata. It
2800 supports ASF, FLAC, M4A, Monkey’s Audio, MP3, Musepack, Ogg FLAC, Ogg Speex, Ogg
2801 Theora, Ogg Vorbis, True Audio, WavPack and OptimFROG audio files. All versions
2802 of ID3v2 are supported, and all standard ID3v2.4 frames are parsed. It can read
2803 Xing headers to accurately calculate the bitrate and length of MP3s. ID3 and
2804 APEv2 tags can be edited regardless of audio format. It can also manipulate Ogg
2805 streams on an individual packet/page level.")
2806 (license license:gpl2))) ; "later version" never mentioned
2808 (define-public python2-mutagen
2809 (package-with-python2 python-mutagen))
2811 (define-public python-musicbrainzngs
2813 (name "python-musicbrainzngs")
2817 (uri (pypi-uri "musicbrainzngs" version))
2820 "1dddarpjawryll2wss65xq3v9q8ln8dan7984l5dxzqx88d2dvr8"))))
2821 (build-system python-build-system)
2823 '(;; The tests fail suffer from race conditions:
2824 ;; https://github.com/alastair/python-musicbrainzngs/issues/211
2826 (home-page "https://python-musicbrainzngs.readthedocs.org/")
2827 (synopsis "Python bindings for MusicBrainz NGS webservice")
2828 (description "Musicbrainzngs implements Python bindings of the MusicBrainz
2829 web service. This library can be used to retrieve music metadata from the
2830 MusicBrainz database.")
2831 ;; 'musicbrainzngs/compat.py' is ISC licensed.
2832 (license (list license:bsd-2 license:isc))))
2834 (define-public python2-musicbrainzngs
2835 (package-with-python2 python-musicbrainzngs))
2837 (define-public python-isrcsubmit
2839 (name "python-isrcsubmit")
2844 (uri (pypi-uri "isrcsubmit" version))
2847 "0jh4cni8qhri6dh83cmp0i0m0384vv0vznlygv49wj9xzh1d99qv"))))
2848 (build-system python-build-system)
2850 `(("python-discid" ,python-discid)
2851 ("python-musicbrainzngs" ,python-musicbrainzngs)))
2852 (home-page "https://github.com/JonnyJD/musicbrainz-isrcsubmit")
2853 (synopsis "Submit ISRCs from CDs to MusicBrainz")
2854 (description "@code{isrcsubmit} is a tool to extract @dfn{International
2855 Standard Recording Code} (ISRCs) from audio CDs and submit them to
2856 @url{https://musicbrainz.org/, MusicBrainz}.")
2857 (license license:gpl3+)))
2859 (define-public python2-pyechonest
2861 (name "python2-pyechonest")
2865 (uri (pypi-uri "pyechonest" version))
2868 "1584nira3rkiman9dm81kdshihmkj21s8navndz2l8spnjwb790x"))))
2869 (build-system python-build-system)
2871 `(;; Python 3 is not supported:
2872 ;; https://github.com/echonest/pyechonest/issues/42
2873 #:python ,python-2))
2874 (home-page "https://github.com/echonest/pyechonest")
2875 (synopsis "Python interface to The Echo Nest APIs")
2876 (description "Pyechonest is a Python library for the Echo Nest API. With
2877 Pyechonest you have Python access to the entire set of API methods including:
2880 @item artist - search for artists by name, description, or attribute, and get
2881 back detailed information about any artist including audio, similar artists,
2882 blogs, familiarity, hotttnesss, news, reviews, urls and video.
2883 @item song - search songs by artist, title, description, or attribute (tempo,
2884 duration, etc) and get detailed information back about each song, such as
2885 hotttnesss, audio_summary, or tracks.
2886 @item track - upload a track to the Echo Nest and receive summary information
2887 about the track including key, duration, mode, tempo, time signature along with
2888 detailed track info including timbre, pitch, rhythm and loudness information.
2890 (license license:bsd-3)))
2892 (define-public python-pylast
2894 (name "python-pylast")
2898 (uri (pypi-uri "pylast" version))
2901 "0r9h7g8i8l2mgqjwkda3v6prfbkb2im5kap1az9ppmhjm9i4jkcf"))))
2902 (build-system python-build-system)
2903 ;; Tests require network access. See
2904 ;; https://github.com/pylast/pylast/issues/105
2905 (arguments '(#:tests? #f))
2907 `(("python-coverage" ,python-coverage)
2908 ("python-pycodestyle" ,python-pycodestyle)
2909 ("python-mock" ,python-mock)
2910 ("python-pep8" ,python-pep8)
2911 ("python-pytest" ,python-pytest)
2912 ("python-flaky" ,python-flaky)
2913 ("python-pyflakes" ,python-pyflakes)
2914 ("python-pyyaml" ,python-pyyaml)))
2916 `(("python-six" ,python-six)))
2917 (home-page "https://github.com/pylast/pylast")
2918 (synopsis "Python interface to Last.fm and Libre.fm")
2919 (description "A Python interface to Last.fm and other API-compatible
2920 websites such as Libre.fm.")
2921 (license license:asl2.0)))
2923 (define-public python2-pylast
2924 (package-with-python2 python-pylast))
2926 (define-public instantmusic
2927 (let ((commit "300891d09c703525215fa5a116b9294af1c923c8")
2930 (name "instantmusic")
2931 (version (git-version "1.0" revision commit))
2935 (url "https://github.com/yask123/Instant-Music-Downloader.git")
2937 (file-name (git-file-name name version))
2940 "0j7qivaa04bpdz3anmgci5833dgiyfqqwq9fdrpl9m68b34gl773"))))
2941 (build-system python-build-system)
2943 `(("python-requests" ,python-requests)
2945 ("python-beautifulsoup4" ,python-beautifulsoup4)
2946 ("youtube-dl" ,youtube-dl)))
2948 '(#:modules ((guix build python-build-system)
2951 #:phases (modify-phases %standard-phases
2952 (add-before 'build 'change-directory
2954 (chdir "instantmusic-0.1") #t))
2955 (add-before 'install 'fix-file-permissions
2957 ;; Fix some read-only files that would cause a build failure
2958 (for-each (cut chmod <> #o644)
2959 (find-files "instantmusic.egg-info"
2960 "PKG-INFO|.*\\.txt"))
2962 (home-page "https://github.com/yask123/Instant-Music-Downloader")
2963 (synopsis "Command-line program to download a song from YouTube")
2964 (description "InstantMusic downloads a song from YouTube in MP3 format.
2965 Songs can be searched by artist, name or even by a part of the song text.")
2966 (license license:expat))))
2968 (define-public beets
2974 (uri (pypi-uri "beets" version))
2975 (patches (search-patches "beets-werkzeug-compat.patch"))
2978 "0m40rjimvfgy1dv04p8f8d5dvi2855v4ix99a9xr900cmcn476yj"))))
2979 (build-system python-build-system)
2982 (modify-phases %standard-phases
2983 (add-after 'unpack 'set-HOME
2985 (setenv "HOME" (string-append (getcwd) "/tmp"))
2989 (invoke "nosetests" "-v"))))))
2991 `(("python-beautifulsoup4" ,python-beautifulsoup4)
2992 ("python-flask" ,python-flask)
2993 ("python-mock" ,python-mock)
2994 ("python-mpd2" ,python-mpd2)
2995 ("python-nose" ,python-nose)
2996 ("python-pathlib" ,python-pathlib)
2997 ("python-pyxdg" ,python-pyxdg)
2998 ("python-pylast" ,python-pylast)
2999 ("python-rarfile" ,python-rarfile)
3000 ("python-responses" ,python-responses)))
3001 ;; TODO: Install optional plugins and dependencies.
3003 `(("python-discogs-client" ,python-discogs-client)
3004 ("python-jellyfish" ,python-jellyfish)
3005 ("python-munkres" ,python-munkres)
3006 ("python-musicbrainzngs" ,python-musicbrainzngs)
3007 ("python-mutagen" ,python-mutagen)
3008 ("python-pyacoustid" ,python-pyacoustid)
3009 ("python-pyyaml" ,python-pyyaml)
3010 ("python-unidecode" ,python-unidecode)))
3011 (home-page "https://beets.io")
3012 (synopsis "Music organizer")
3013 (description "The purpose of beets is to get your music collection right
3014 once and for all. It catalogs your collection, automatically improving its
3015 metadata as it goes using the MusicBrainz database. Then it provides a variety
3016 of tools for manipulating and accessing your music.")
3017 (license license:expat)))
3019 (define-public beets-bandcamp
3021 (name "beets-bandcamp")
3025 (uri (pypi-uri "beets-bandcamp" version))
3028 "04awg0zdhhg5h510fc1p3qkvr2l1qm6nf85hlr9z8im8a7xlka0i"))))
3029 (build-system python-build-system)
3030 (arguments '(#:tests? #f)) ; there are no tests
3033 ("python-isodate" ,python-isodate)))
3035 `(("python-beautifulsoup4" ,python-beautifulsoup4)
3036 ("python-requests" ,python-requests)
3037 ("python-six" ,python-six)))
3038 (home-page "https://github.com/unrblt/beets-bandcamp")
3039 (synopsis "Bandcamp plugin for beets")
3041 "This plugin for beets automatically obtains tag data from @uref{Bandcamp,
3042 https://bandcamp.com/}. It's also capable of getting song lyrics and album art
3043 using the beets FetchArt plugin.")
3044 (license license:gpl2)))
3046 (define-public milkytracker
3048 (name "milkytracker")
3053 (url "https://github.com/milkytracker/MilkyTracker.git")
3054 (commit (string-append "v" version))))
3055 (file-name (git-file-name name version))
3058 "05a6d7l98k9i82dwrgi855dnccm3f2lkb144gi244vhk1156n0ca"))
3059 (modules '((guix build utils)))
3060 ;; Remove non-FSDG compliant sample songs.
3063 (delete-file-recursively "resources/music")
3064 (substitute* "CMakeLists.txt"
3065 (("add_subdirectory\\(resources/music\\)") ""))
3067 (build-system cmake-build-system)
3069 '(#:tests? #f ; no check target
3070 ;; This flag ensures that MilkyTracker links with the JACK library.
3071 #:configure-flags '("-DCMAKE_CXX_FLAGS=-ljack")))
3073 `(("alsa-lib" ,alsa-lib)
3079 ("zziplib" ,zziplib)))
3081 `(("pkg-config" ,pkg-config)))
3082 (synopsis "Music tracker for working with .MOD/.XM module files")
3083 (description "MilkyTracker is a music application for creating .MOD and .XM
3084 module files. It attempts to recreate the module replay and user experience of
3085 the popular DOS program Fasttracker II, with special playback modes available
3086 for improved Amiga ProTracker 2/3 compatibility.")
3087 (home-page "https://milkytracker.titandemo.org/")
3088 ;; 'src/milkyplay' is under Modified BSD, the rest is under GPL3 or later.
3089 (license (list license:bsd-3 license:gpl3+))))
3091 (define-public schismtracker
3093 (name "schismtracker")
3094 (version "20190805")
3098 (url "https://github.com/schismtracker/schismtracker.git")
3100 (file-name (git-file-name name version))
3103 "0qqps20vvn3rgpg8174bjrrm38gqcci2z5z4c1r1vhbccclahgsd"))
3104 (modules '((guix build utils)))
3106 ;; Remove use of __DATE__ and __TIME__ for reproducibility.
3108 (substitute* "schism/version.c"
3109 (("Schism Tracker built %s %s.*$")
3110 (string-append "Schism Tracker version " ,version "\");")))
3112 (build-system gnu-build-system)
3115 (modify-phases %standard-phases
3116 (add-before 'configure 'link-libm
3117 (lambda _ (setenv "LIBS" "-lm") #t)))))
3119 `(("autoconf" ,autoconf)
3120 ("automake" ,automake)
3121 ("python" ,python)))
3123 `(("alsa-lib" ,alsa-lib) ; for asound dependency
3125 ("libxext" ,libxext)
3127 (home-page "http://schismtracker.org")
3128 (synopsis "Oldschool sample-based music composition tool")
3130 "Schism Tracker is a reimplementation of Impulse Tracker, a program used to
3131 create high quality music without the requirements of specialized, expensive
3132 equipment, and with a unique \"finger feel\" that is difficult to replicate in
3133 part. The player is based on a highly modified version of the ModPlug engine,
3134 with a number of bugfixes and changes to improve IT playback.")
3135 (license license:gpl2+)))
3137 (define-public sooperlooper
3139 (name "sooperlooper")
3143 (uri (string-append "http://essej.net/sooperlooper/sooperlooper-"
3147 "0n2gdxw1fx8nxxnpzf4sj0kp6k6zi1yq59cbz6qqzcnsnpnvszbs"))
3148 (patches (search-patches "sooperlooper-build-with-wx-30.patch"))))
3149 (build-system gnu-build-system)
3152 (modify-phases %standard-phases
3153 (add-after 'unpack 'add-sigc++-includes
3154 (lambda* (#:key inputs #:allow-other-keys)
3155 (let ((sig (assoc-ref inputs "libsigc++"))
3156 (xml (assoc-ref inputs "libxml2"))
3159 (string-append sig "/include/sigc++-2.0:"
3160 sig "/lib/sigc++-2.0/include:"
3161 xml "/include/libxml2/:"
3164 (or (getenv "CPATH") ""))))
3165 (substitute* '("src/control_osc.hpp"
3166 "src/gui/app_frame.hpp"
3167 "src/gui/config_panel.hpp"
3168 "src/gui/keys_panel.hpp"
3169 "src/gui/latency_panel.hpp"
3170 "src/gui/main_panel.hpp"
3171 "src/gui/midi_bind_panel.hpp"
3172 "src/gui/prefs_dialog.hpp")
3173 (("sigc\\+\\+/object.h")
3175 (substitute* '("src/engine.cpp"
3176 "src/gui/latency_panel.cpp"
3177 "src/gui/looper_panel.cpp"
3178 "src/gui/main_panel.cpp")
3179 (("(\\(| )bind " _ pre)
3180 (string-append pre "sigc::bind ")))
3182 (add-after 'unpack 'fix-xpm-warnings
3184 (substitute* (find-files "." "\\.xpm$")
3185 (("static char") "static const char"))
3189 ("alsa-lib" ,alsa-lib)
3190 ("wxwidgets" ,wxwidgets-gtk2)
3191 ("libsndfile" ,libsndfile)
3192 ("libsamplerate" ,libsamplerate)
3194 ("rubberband" ,rubberband)
3195 ("libxml2" ,libxml2)
3196 ("libsigc++" ,libsigc++)
3197 ("ncurses" ,ncurses)))
3199 `(("pkg-config" ,pkg-config)))
3200 (home-page "http://essej.net/sooperlooper/")
3201 (synopsis "Live looping sampler")
3203 "SooperLooper is a live looping sampler capable of immediate loop
3204 recording, overdubbing, multiplying, reversing and more. It allows for
3205 multiple simultaneous multi-channel loops limited only by your computer's
3207 (license license:gpl2+)))
3215 (uri (string-append "http://ftp.daper.net/pub/soft/"
3217 name "-" version ".tar.bz2"))
3220 "026v977kwb0wbmlmf6mnik328plxg8wykfx9ryvqhirac0aq39pk"))))
3221 (build-system gnu-build-system)
3223 `(("alsa-lib" ,alsa-lib)
3226 ("ffmpeg" ,ffmpeg-3.4)
3229 ("libid3tag" ,libid3tag)
3230 ("libltdl" ,libltdl)
3231 ("libmodplug" ,libmodplug)
3232 ("libmpcdec" ,libmpcdec)
3235 ("libvorbis" ,libvorbis)
3236 ("ncurses" ,ncurses)
3237 ("openssl" ,openssl)
3238 ("sasl" ,cyrus-sasl)
3241 ("wavpack" ,wavpack)
3244 `(("pkg-config" ,pkg-config)))
3245 (synopsis "Console audio player designed to be powerful and easy to use")
3247 "Music on Console is a console audio player that supports many file
3248 formats, including most audio formats recognized by FFMpeg.")
3249 (home-page "http://moc.daper.net")
3250 (license license:gpl2+)))
3252 (define-public midicsv
3258 (uri (string-append "http://www.fourmilab.ch/webtools/midicsv/"
3259 name "-" version ".tar.gz"))
3262 "1vvhk2nf9ilfw0wchmxy8l13hbw9cnpz079nsx5srsy4nnd78nkw"))))
3263 (build-system gnu-build-system)
3265 `(#:phases (modify-phases %standard-phases (delete 'configure))
3266 #:make-flags (list "CC=gcc" (string-append "INSTALL_DEST=" %output))))
3267 (synopsis "Convert MIDI files to and from CSV")
3269 "Midicsv reads a standard MIDI file and decodes it into a comma-separated
3270 value file (CSV), which preserves all the information in the MIDI file. The
3271 ASCII CSV file may be loaded into a spreadsheet or database application, or
3272 processed by a program to transform the MIDI data (for example, to key
3273 transpose a composition or extract a track from a multi-track sequence). A
3274 CSV file in the format created by midicsv may be converted back into a
3275 standard MIDI file with the csvmidi program.")
3276 (home-page "http://www.fourmilab.ch/webtools/midicsv/")
3277 (license license:public-domain)))
3279 (define-public gx-guvnor-lv2
3281 (name "gx-guvnor-lv2")
3286 (url "https://github.com/brummer10/GxGuvnor.lv2.git")
3287 (commit (string-append "v" version))))
3288 (file-name (string-append name "-" version "-checkout"))
3291 "1wa5070j40p7f0b3kr259pzm99xb6cf2badr2capayjvgayd6gnm"))))
3292 (build-system gnu-build-system)
3294 `(;; The check target is used only to output a warning.
3297 (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
3299 (modify-phases %standard-phases
3302 (substitute* "Makefile"
3303 (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n")
3304 (("install : all") "install :"))
3308 (home-page "https://github.com/brummer10/GxGuvnor.lv2")
3309 (synopsis "Overdrive/distortion pedal simulation")
3310 (description "This package provides the LV2 plugin \"GxGuvnor\", a
3311 simulation of an overdrive or distortion pedal for guitars.")
3312 ;; The LICENSE file says GPLv3 but the license headers in the files say
3313 ;; GPLv2 or later. The whole project is released under GPLv3 or later
3314 ;; according to https://github.com/brummer10/GxGuvnor.lv2/issues/1
3315 (license license:gpl3+)))
3317 (define-public gx-vbass-preamp-lv2
3318 (let ((commit "eb999b0ca0ef4da40a59e458a9ab6e7042b96c99")
3320 (package (inherit gx-guvnor-lv2)
3321 (name "gx-vbass-preamp-lv2")
3322 (version (string-append "0-" revision "." (string-take commit 9)))
3326 (url "https://github.com/brummer10/GxVBassPreAmp.lv2")
3330 "0firap073ldw4nrykkd7jvyyj0jbl1nslxyzjj4kswazp99x7d9h"))
3331 (file-name (string-append name "-" version "-checkout"))))
3336 `(("pkg-config" ,pkg-config)))
3337 (home-page "https://github.com/brummer10/GxVBassPreAmp.lv2")
3338 (synopsis "Simulation of the Vox Venue Bass 100 Pre Amp Section")
3339 (description "This package provides the LV2 plugin \"GxVBassPreAmp\", a
3340 pre-amplifier simulation modelled after the 1984 Vox Venue Bass 100 Pre Amp
3343 (define-public gx-overdriver-lv2
3344 (let ((commit "ed71801987449414bf3adaa0dbfac68e8775f1ce")
3346 (package (inherit gx-guvnor-lv2)
3347 (name "gx-overdriver-lv2")
3348 (version (string-append "0-" revision "." (string-take commit 9)))
3352 (url "https://github.com/brummer10/GxOverDriver.lv2")
3356 "13j614jh525fbkby79nnzwj0z1ac0c9wclyn5pfqvkmx6a7j24r8"))
3357 (file-name (string-append name "-" version "-checkout"))))
3358 (home-page "https://github.com/brummer10/GxOverDriver.lv2")
3359 (synopsis "Overdrive effect with level and tone control")
3360 (description "This package provides the LV2 plugin \"GxOverDriver\", an
3361 overdrive effect."))))
3363 (define-public gx-tone-mender-lv2
3364 (let ((commit "b6780b4a3e4782b3ed0e5882d6788f178aed138f")
3366 (package (inherit gx-guvnor-lv2)
3367 (name "gx-tone-mender-lv2")
3368 (version (string-append "0-" revision "." (string-take commit 9)))
3372 (url "https://github.com/brummer10/GxToneMender.lv2")
3376 "07qdcfsvv2vdnfnjh91pfgvjdcs5y91nvwfm8c0z8fp6b4bk7a9q"))
3377 (file-name (string-append name "-" version "-checkout"))))
3378 (home-page "https://github.com/brummer10/GxToneMender.lv2")
3379 (synopsis "Clean boost with a 3-knob tonestack")
3380 (description "This package provides the LV2 plugin \"GxToneMender\", a
3381 clean boost effect with a 3-knob tonestack."))))
3383 (define-public gx-push-pull-lv2
3384 (let ((commit "7f76ae2068498643ac8671ee0930b13ee3fd8eb5")
3386 (package (inherit gx-guvnor-lv2)
3387 (name "gx-push-pull-lv2")
3388 (version (string-append "0-" revision "." (string-take commit 9)))
3392 (url "https://github.com/brummer10/GxPushPull.lv2")
3396 "12f5hwck2irph0gjbj8xy8jqcqdwb8l1hlwf29k0clz52h1jhb5q"))
3397 (file-name (string-append name "-" version "-checkout"))))
3398 (home-page "https://github.com/brummer10/GxPushPull.lv2")
3399 (synopsis "Octave up push pull transistor fuzz simulation")
3400 (description "This package provides the LV2 plugin \"GxPushPull\", a
3401 simulation of a push pull transistor fuzz effect with added high octave."))))
3403 (define-public gx-suppa-tone-bender-lv2
3404 (package (inherit gx-guvnor-lv2)
3405 (name "gx-suppa-tone-bender-lv2")
3410 (url "https://github.com/brummer10/GxSuppaToneBender.lv2.git")
3411 (commit (string-append "v" version))))
3412 (file-name (string-append name "-" version "-checkout"))
3415 "01x6bjmllkmvxfzc5xwdix7w021j26js71awv728cxsmkxgqw0zy"))))
3416 (home-page "https://github.com/brummer10/GxSuppaToneBender.lv2")
3417 (synopsis "Simulation of the Vox Suppa Tone Bender pedal")
3418 (description "This package provides the LV2 plugin
3419 \"GxSuppaToneBender\", a simulation modelled after the Vox Suppa Tone Bender
3422 (define-public gx-saturator-lv2
3423 (let ((commit "605330f432c94b6eb3f8203cbe472befae959532")
3425 (package (inherit gx-vbass-preamp-lv2)
3426 (name "gx-saturator-lv2")
3427 (version (string-append "0-" revision "." (string-take commit 9)))
3431 (url "https://github.com/brummer10/GxSaturator.lv2")
3435 "1w4nvh0rmxrv3s3hmh4fs74f3hc0jn31v00j769j7v68mqr7kawy"))
3436 (file-name (string-append name "-" version "-checkout"))))
3437 (home-page "https://github.com/brummer10/GxSaturator.lv2")
3438 (synopsis "Saturation effect")
3439 (description "This package provides the LV2 plugin \"GxSaturator\", a
3440 saturation effect."))))
3442 (define-public gx-hyperion-lv2
3443 (package (inherit gx-guvnor-lv2)
3444 (name "gx-hyperion-lv2")
3449 (url "https://github.com/brummer10/GxHyperion.lv2.git")
3450 (commit (string-append "v" version))))
3451 (file-name (string-append name "-" version "-checkout"))
3454 "1vx79s6s9if117y2g0ppdja2sv2wcny6xcfl3j1z4cipahnildxf"))))
3455 (home-page "https://github.com/brummer10/GxHyperion.lv2")
3456 (synopsis "Simulation of the Hyperion Fuzz pedal")
3457 (description "This package provides the LV2 plugin \"GxHyperion\", a
3458 simulation of the Hyperion Fuzz pedal.")))
3460 (define-public gx-voodoo-fuzz-lv2
3461 (package (inherit gx-guvnor-lv2)
3462 (name "gx-voodoo-fuzz-lv2")
3467 (url "https://github.com/brummer10/GxVoodoFuzz.lv2.git")
3468 (commit (string-append "v" version))))
3469 (file-name (string-append name "-" version "-checkout"))
3472 "1v0scphivri1fk4hl20j13f92i48mnx1zsil4hgnadsmm4nsfw43"))))
3473 (home-page "https://github.com/brummer10/GxVoodoFuzz.lv2")
3474 (synopsis "Fuzz effect modelled after the Voodoo Lab SuperFuzz")
3475 (description "This package provides the LV2 plugin \"GxVoodooFuzz\", a
3476 simulation modelled after the Voodoo Lab SuperFuzz pedal. It's basically a
3477 Bosstone circuit, followed by the tone control of the FoxToneMachine in
3478 parallel with a DarkBooster, followed by a volume control.")))
3480 (define-public gx-super-fuzz-lv2
3481 (package (inherit gx-guvnor-lv2)
3482 (name "gx-super-fuzz-lv2")
3487 (url "https://github.com/brummer10/GxSuperFuzz.lv2.git")
3488 (commit (string-append "v" version))))
3489 (file-name (string-append name "-" version "-checkout"))
3492 "1jlljd9hlgfflbiizq47lv1xbbgjyx3v835mf24zmh1q5zsw4np4"))))
3493 (home-page "https://github.com/brummer10/GxSuperFuzz.lv2")
3494 (synopsis "Fuzz effect modelled after the UniVox SuperFuzz")
3495 (description "This package provides the LV2 plugin \"GxSuperFuzz\", an
3496 analog simulation of the UniVox SuperFuzz pedal. In this simulation the trim
3497 pot, which is usually in the housing, is exposed as a control parameter. It
3498 adjusts the amount of harmonics.")))
3500 (define-public gx-vintage-fuzz-master-lv2
3501 (package (inherit gx-guvnor-lv2)
3502 (name "gx-vintage-fuzz-master-lv2")
3507 (url "https://github.com/brummer10/GxVintageFuzzMaster.lv2.git")
3508 (commit (string-append "v" version))))
3509 (file-name (string-append name "-" version "-checkout"))
3512 "02jb211z8rw2qr5r1z5mdxlqgiw6cbc319xpqplvn6k21c59mskv"))))
3513 (home-page "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
3514 (synopsis "Fuzz effect simulation of the vintage Fuzz Master")
3515 (description "This package provides the LV2 plugin
3516 \"GxVintageFuzzMaster\", a simulation of the vintage Fuzz Master pedal.")))
3518 (define-public gx-slow-gear-lv2
3519 (let ((commit "5d37e775b0feef1d82feee94e2a7a2d7e57efe2d")
3521 (package (inherit gx-vbass-preamp-lv2)
3522 (name "gx-slow-gear-lv2")
3523 (version (string-append "0-" revision "." (string-take commit 9)))
3527 (url "https://github.com/brummer10/GxSlowGear.lv2")
3531 "141mz69zkhk3lm54bb6wgpnghb92zm1ig7fv07240cmhydqji1q1"))
3532 (file-name (string-append name "-" version "-checkout"))))
3533 (home-page "https://github.com/brummer10/GxSlowGear.lv2")
3534 (synopsis "Slow gear audio effect")
3535 (description "This package provides the LV2 plugin \"GxSlowGear\", a
3536 slow gear audio effect to produce volume swells."))))
3538 (define-public gx-switchless-wah-lv2
3539 (let ((commit "7b08691203314612999f0ce2328cdc1161cd6665")
3541 (package (inherit gx-guvnor-lv2)
3542 (name "gx-switchless-wah-lv2")
3543 (version (string-append "0-" revision "." (string-take commit 9)))
3547 (url "https://github.com/brummer10/GxSwitchlessWah.lv2")
3551 "04jqfpncmrrqn34p21w4v9m2x5a5wsqwbm4f3byxvq4vcibwxzk2"))
3552 (file-name (string-append name "-" version "-checkout"))))
3553 (home-page "https://github.com/brummer10/GxSwitchlessWah.lv2")
3554 (synopsis "Wah emulation with switchless activation")
3555 (description "This package provides the LV2 plugin \"GxSwitchlessWah\",
3556 a simulation of an analog Wah pedal with switchless activation."))))
3558 (define-public rkrlv2
3559 ;; This commit corresponds to the beta_3 tag
3560 (let ((commit "7edcb4e29a358623bfd57fa2c27e5da60adfcec3")
3564 (version (git-version "0" revision commit))
3568 (url "https://github.com/ssj71/rkrlv2.git")
3572 "16i4ajrib7kb0abdcn4901g8a4lkwkp2fyqyms38dhqq84slyfjs"))
3573 (file-name (git-file-name name version))))
3574 (build-system cmake-build-system)
3575 (arguments '(#:tests? #f)) ; there are no tests
3578 ("libsamplerate" ,libsamplerate)
3581 `(("pkg-config" ,pkg-config)))
3582 (home-page "https://github.com/ssj71/rkrlv2")
3583 (synopsis "Rakarrack effects ported to LV2 plugins")
3584 (description "This package provides the Rakarrack effects as LV2
3585 plugins. The ports are done such that hopefully when Rakarrack gets an active
3586 maintainer these will get merged into the original project.")
3587 (license license:gpl2))))
3589 (define-public mod-utilities
3590 (let ((commit "80ea3ea9f52fab7f191671f4810bf90fc955a046")
3593 (name "mod-utilities")
3594 (version (string-append "0-" revision "." (string-take commit 9)))
3598 (url "https://github.com/moddevices/mod-utilities.git")
3600 (file-name (string-append name "-" version "-checkout"))
3603 "1v55zmzmlg0ka7341x5lsvb44amy17vk27s669ps1basd1bk5s5v"))))
3604 (build-system gnu-build-system)
3606 `(#:tests? #f ; there are no tests
3608 (list (string-append "INSTALL_PATH="
3609 (assoc-ref %outputs "out")
3611 (string-append "PREFIX=" (assoc-ref %outputs "out"))
3614 (modify-phases %standard-phases
3615 (delete 'configure))))
3618 (home-page "https://github.com/moddevices/mod-utilities")
3619 (synopsis "LV2 utility plugins")
3620 (description "This package provides LV2 audio utility plugins, such as
3621 filters, crossovers, simple gain plugins without zipper noise, switch box
3622 plugins, a switch trigger, a toggle switch, and a peakmeter.")
3623 (license license:gpl2+))))
3625 (define-public ingen
3626 (let ((commit "cc4a4db33f4d126a07a4a498e053c5fb9a883be3")
3630 (version (string-append "0.0.0-" revision "."
3631 (string-take commit 9)))
3636 (url "https://git.drobilla.net/ingen.git")
3638 (file-name (string-append name "-" version "-checkout"))
3641 "1wg47vjw9djn99gbnsl2bcwj4xhdid61m4wrbn2nlp797flj91ic"))))
3642 (build-system waf-build-system)
3644 `(#:python ,python-2
3645 #:tests? #f ; no "check" target
3646 #:configure-flags (list "--no-webkit")
3648 (modify-phases %standard-phases
3649 (add-after 'unpack 'patch-wscript
3650 (lambda* (#:key outputs #:allow-other-keys)
3651 (let ((out (assoc-ref outputs "out")))
3652 (substitute* "wscript"
3653 ;; FIXME: Our version of lv2specgen.py does not behave as
3654 ;; expected. Maybe this requires a development version of
3656 (("lv2specgen.py") "touch ingen.lv2/ingen.html; echo")
3657 ;; Add libraries to RUNPATH.
3658 (("^(.+)target.*= 'src/ingen/ingen'," line prefix)
3659 (string-append prefix
3660 "linkflags=[\"-Wl,-rpath="
3661 out "/lib" "\"]," line)))
3662 (substitute* '("src/wscript"
3663 "src/server/wscript")
3664 ;; Add libraries to RUNPATH.
3665 (("bld.env.PTHREAD_LINKFLAGS" line)
3667 " + [\"-Wl,-rpath=" out "/lib" "\"]")))
3668 (substitute* "src/client/wscript"
3669 ;; Add libraries to RUNPATH.
3670 (("^(.+)target.*= 'ingen_client'," line prefix)
3671 (string-append prefix
3672 "linkflags=[\"-Wl,-rpath="
3673 out "/lib" "\"]," line)))
3674 (substitute* "src/gui/wscript"
3675 ;; Add libraries to RUNPATH.
3676 (("^(.+)target.* = 'ingen_gui.*" line prefix)
3677 (string-append prefix
3678 "linkflags=[\"-Wl,-rpath="
3679 out "/lib" "\"]," line))))
3683 ("python-rdflib" ,python-rdflib)
3688 ("raul" ,raul-devel)
3689 ("ganv" ,ganv-devel)
3694 ("gtkmm" ,gtkmm-2)))
3696 `(("pkg-config" ,pkg-config)
3697 ("python-pygments" ,python-pygments)))
3698 (home-page "https://drobilla.net/software/ingen")
3699 (synopsis "Modular audio processing system")
3700 (description "Ingen is a modular audio processing system for JACK and
3701 LV2 based systems. Ingen is built around LV2 technology and a strict
3702 separation of engine from user interface. The engine is controlled
3703 exclusively through a protocol, and can execute as a headless process, with an
3704 in-process GUI, or as an LV2 plugin. The GUI can run as a program which
3705 communicates over a Unix or TCP/IP socket, or as an embeddable LV2 GUI which
3706 communicates via LV2 ports. Any saved Ingen graph can be loaded as an LV2
3707 plugin on any system where Ingen is installed. This allows users to visually
3708 develop custom plugins for use in other applications without programming.")
3709 (license license:agpl3+))))
3711 (define-public qmidiarp
3717 (uri (string-append "mirror://sourceforge/qmidiarp/qmidiarp/"
3718 version "/qmidiarp-" version ".tar.bz2"))
3721 "043yh1p0rrbj1v840y27529m9260g55gvh1km8az4jxy7mns58r2"))))
3722 (build-system gnu-build-system)
3725 (list "--enable-qt5")))
3727 `(("qtbase" ,qtbase)
3728 ("alsa-lib" ,alsa-lib)
3733 `(("pkg-config" ,pkg-config)
3734 ("qttools" ,qttools)))
3735 (home-page "http://qmidiarp.sourceforge.net/")
3736 (synopsis "MIDI arpeggiator")
3737 (description "QMidiArp is an advanced MIDI arpeggiator, programmable step
3738 sequencer and LFO. It can hold any number of arpeggiator, sequencer, or LFO
3739 modules running in parallel.")
3740 (license license:gpl2+)))
3742 (define-public qmidiroute
3748 (uri (string-append "mirror://sourceforge/alsamodular/QMidiRoute/"
3749 version "/qmidiroute-" version ".tar.bz2"))
3752 "19v1ppbglgl3z9v7xdqc0k33w71cqq8a7d6ihvfs7iz77dygrih9"))))
3753 (build-system gnu-build-system)
3756 (list "--enable-qt5")))
3758 `(("qtbase" ,qtbase)
3759 ("alsa-lib" ,alsa-lib)))
3761 `(("pkg-config" ,pkg-config)
3762 ("qttools" ,qttools)))
3763 (home-page "http://alsamodular.sourceforge.net/")
3764 (synopsis "MIDI event router and filter")
3765 (description "QMidiRoute is a MIDI event router and filter. MIDI note,
3766 control change, program change and pitch bend events are logged, and can be
3767 filtered, redirected and transformed into other events according to MIDI maps
3768 defined as tabs in the main control surface.")
3769 (license license:gpl2+)))
3771 (define-public seq24
3777 (uri (string-append "https://launchpad.net/seq24/trunk/"
3778 version "/+download/seq24-"
3779 version ".tar.bz2"))
3782 "12dphdhnvfk1k0vmagi1v2lhyxjyj1j3cz6ksjw0ydcvid1x8ap2"))
3783 (patches (search-patches "seq24-rename-mutex.patch"))))
3784 (build-system gnu-build-system)
3786 `(("gtkmm" ,gtkmm-2)
3787 ("alsa-lib" ,alsa-lib)
3791 `(("pkg-config" ,pkg-config)))
3792 (home-page "https://edge.launchpad.net/seq24/")
3793 (synopsis "Real-time MIDI sequencer")
3794 (description "Seq24 is a real-time MIDI sequencer. It was created to
3795 provide a very simple interface for editing and playing MIDI loops.")
3796 (license license:gpl2+)))
3798 (define-public python-discogs-client
3800 (name "python-discogs-client")
3804 (uri (pypi-uri "discogs-client" version))
3807 "053ld2psh0yj3z0kg6z5bn4y3cr562m727494n0ayhgzbkjbacly"))))
3808 (build-system python-build-system)
3810 `(("python-oauthlib" ,python-oauthlib)
3811 ("python-requests" ,python-requests)))
3813 `(("python-six" ,python-six)))
3814 (home-page "https://github.com/discogs/discogs_client")
3815 (synopsis "Official Python client for the Discogs API")
3816 (description "This is the official Discogs API client for Python. It enables
3817 you to query the Discogs database for information on artists, releases, labels,
3818 users, Marketplace listings, and more. It also supports OAuth 1.0a
3819 authorization, which allows you to change user data such as profile information,
3820 collections and wantlists, inventory, and orders.")
3821 (license license:bsd-2)))
3823 (define-public python2-discogs-client
3824 (package-with-python2 python-discogs-client))
3826 (define-public libsmf
3833 ;; SF download page says development moved, but the link it points to
3834 ;; is gone (https://github.com/nilsgey/libsmf). Someone else adopted
3835 ;; it but made no release so far (https://github.com/stump/libsmf).
3836 (uri (string-append "mirror://sourceforge/libsmf/libsmf/"
3837 version "/libsmf-" version ".tar.gz"))
3840 "16c0n40h0r56gzbh5ypxa4dwp296dan3jminml2qkb4lvqarym6k"))))
3841 (build-system gnu-build-system)
3843 "static")) ; 88KiB of .a files
3846 (modify-phases %standard-phases
3847 (add-after 'install 'move-static-libraries
3848 (lambda* (#:key outputs #:allow-other-keys)
3849 ;; Move static libraries to the "static" output.
3850 (let* ((out (assoc-ref outputs "out"))
3851 (lib (string-append out "/lib"))
3852 (static (assoc-ref outputs "static"))
3853 (slib (string-append static "/lib")))
3855 (for-each (lambda (file)
3856 (install-file file slib)
3858 (find-files lib "\\.a$"))
3861 `(("readline" ,readline)
3864 `(("doxygen" ,doxygen)
3865 ("pkg-config" ,pkg-config)))
3866 (home-page "http://libsmf.sourceforge.net/")
3867 (synopsis "Standard MIDI File format library")
3869 "LibSMF is a C library for handling SMF (\"*.mid\") files. It transparently handles
3870 conversions between time and pulses, tempo map handling and more. The only dependencies
3871 are a C compiler and glib. Full API documentation and examples are included.")
3872 (license license:bsd-2)))
3882 (url "https://github.com/LMMS/lmms.git")
3883 (commit (string-append "v" version))))
3884 (file-name (git-file-name name version))
3887 "1gx730z361xx30iqbsm99aam1k2c8yf561gcay6sryyjksb4w1wy"))))
3888 (build-system cmake-build-system)
3890 `(#:tests? #f ; no tests
3891 ;; Qt 5 support must be explicitly enabled in the 1.2 stable versions of
3892 ;; LMMS, so try removing "-DWANT_QT5=ON" in later versions.
3893 ;; Also, explicitly disabling VST support gets rid of the in-tree
3894 ;; dependency on qt5-x11embed.
3895 #:configure-flags '("-DWANT_QT5=ON"
3898 (modify-phases %standard-phases
3899 (add-after 'unpack 'unpack-rpmalloc
3900 (lambda* (#:key inputs #:allow-other-keys)
3901 (copy-recursively (assoc-ref inputs "rpmalloc")
3902 "src/3rdparty/rpmalloc/rpmalloc")
3904 (add-before 'configure 'set-ldflags
3905 (lambda* (#:key outputs #:allow-other-keys)
3909 (assoc-ref outputs "out") "/lib/lmms"
3911 (assoc-ref outputs "out") "/lib/lmms/ladspa"
3914 (add-before 'reset-gzip-timestamps 'make-manpages-writable
3915 (lambda* (#:key outputs #:allow-other-keys)
3917 (make-file-writable file))
3918 (find-files (string-append (assoc-ref outputs "out")
3923 `(("pkg-config" ,pkg-config)
3924 ("qttools" ,qttools)
3925 ;; rpmalloc is a public domain memory allocator. This version specified
3926 ;; below is the version required by LMMS.
3927 ;; To get the new commit of rpmalloc to use here, run
3928 ;; `git submodule--helper list | grep rpmalloc | cut -f2 -d' '`
3929 ;; in the cloned LMMS repository.
3934 (url "https://github.com/mjansson/rpmalloc.git")
3935 (commit "b5bdc18051bb74a22f0bde4bcc90b01cf590b496")))
3938 "0g9pls46iggg7rdm65vzfj8nyr3v2n5xkp54c4qbh9hhalpsw4ay"))))))
3942 ("qtx11extras" ,qtx11extras)
3945 ("libsamplerate" ,libsamplerate)
3946 ("fluidsynth" ,fluidsynth)
3947 ("libvorbis" ,libvorbis)
3948 ("alsa-lib" ,alsa-lib)
3949 ("portaudio" ,portaudio)
3951 ("libsndfile1" ,libsndfile)
3953 ("freetype2" ,freetype)
3956 (home-page "https://lmms.io/")
3957 (synopsis "Music composition tool")
3958 (description "LMMS is a digital audio workstation. It includes tools for sequencing
3959 melodies and beats and for mixing and arranging songs. LMMS includes instruments based on
3960 audio samples and various soft sythesizers. It can receive input from a MIDI keyboard.")
3961 (license license:gpl2+)))
3963 (define-public musescore
3971 (url "https://github.com/musescore/MuseScore.git")
3972 (commit (string-append "v" version))))
3973 (file-name (git-file-name name version))
3975 (base32 "14a9sg87nx7xca1qfbkplnpbx9pyg9k9vy87dq0g401ag6g6bi66"))
3976 (modules '((guix build utils)))
3978 ;; Un-bundle OpenSSL and remove unused libraries.
3980 (for-each delete-file-recursively
3981 '("thirdparty/freetype"
3982 "thirdparty/openssl"
3983 "thirdparty/portmidi"))
3985 (build-system cmake-build-system)
3988 `("-DBUILD_TELEMETRY_MODULE=OFF" ;don't phone home
3989 "-DBUILD_WEBENGINE=OFF"
3990 "-DDOWNLOAD_SOUNDFONT=OFF"
3991 "-DUSE_SYSTEM_FREETYPE=ON")
3992 ;; There are tests, but no simple target to run. The command used to
3995 ;; make debug && sudo make installdebug && cd \
3996 ;; build.debug/mtest && make && ctest
3998 ;; Basically, it requires to start a whole new build process.
3999 ;; So we simply skip them.
4002 `(("alsa-lib" ,alsa-lib)
4003 ("freetype" ,freetype)
4004 ("gtk+-bin" ,gtk+ "bin") ;for gtk-update-icon-cache
4008 ("libsndfile" ,libsndfile)
4009 ("libvorbis" ,libvorbis)
4010 ("portaudio" ,portaudio)
4011 ("portmidi" ,portmidi)
4012 ("pulseaudio" ,pulseaudio)
4014 ("qtdeclarative" ,qtdeclarative)
4015 ("qtquickcontrols2" ,qtquickcontrols2)
4016 ("qtscript" ,qtscript)
4018 ("qtxmlpatterns" ,qtxmlpatterns)))
4020 `(("pkg-config" ,pkg-config)
4021 ("qttools" ,qttools)))
4022 (synopsis "Music composition and notation software")
4023 (description "MuseScore is a music score typesetter. Its main purpose is
4024 the creation of high-quality engraved musical scores in a WYSIWYG environment.
4026 It supports unlimited staves, linked parts and part extraction, tablature,
4027 MIDI input, percussion notation, cross-staff beaming, automatic transposition,
4028 lyrics (multiple verses), fretboard diagrams, and in general everything
4029 commonly used in sheet music. Style options and style sheets to change the
4030 appearance and layout are provided.
4032 MuseScore can also play back scores through the built-in sequencer and SoundFont
4034 (home-page "https://musescore.org")
4035 (license license:gpl2)))
4037 (define-public muse-sequencer
4039 (name "muse-sequencer")
4044 (url "https://github.com/muse-sequencer/muse.git")
4045 (commit (string-append "muse_"
4046 (string-map (lambda (c)
4048 #\_ c)) version)))))
4049 (file-name (git-file-name name version))
4052 "1nninz8qyqlxxjdnrm79y3gr3056pga9l2fsqh674jd3cjvafya3"))))
4053 (build-system cmake-build-system)
4055 `(#:tests? #f ; there is no test target
4057 (list "-DENABLE_LV2_SUPPLIED=OFF"
4058 "-DENABLE_RTAUDIO=OFF" ; FIXME: not packaged
4059 "-DENABLE_INSTPATCH=OFF" ; FIXME: not packaged
4060 "-DENABLE_VST_NATIVE=OFF")
4062 (modify-phases %standard-phases
4063 (add-after 'unpack 'chdir
4064 (lambda _ (chdir "muse3"))))))
4066 `(("alsa-lib" ,alsa-lib)
4075 ("libsndfile" ,libsndfile)
4076 ("libsamplerate" ,libsamplerate)
4077 ("fluidsynth" ,fluidsynth)
4082 `(("pkg-config" ,pkg-config)
4083 ("qttools" ,qttools)))
4084 (home-page "https://muse-sequencer.github.io/")
4085 (synopsis "MIDI/Audio sequencer")
4086 (description "MusE is a MIDI/Audio sequencer with recording and editing
4087 capabilities. Its audio sequencer supports the LADSPA, DSSI, and LV2 audio
4088 plugin formats; the MIDI sequencer provides a piano roll, a drum editor, a
4089 list view, and a score editor. MusE aims to be a complete multitrack virtual
4091 (license license:gpl2+)))
4100 "mirror://sourceforge/dssi/dssi/" version
4101 "/dssi-" version ".tar.gz"))
4104 "0kl1hzhb7cykzkrqcqgq1dk4xcgrcxv0jja251aq4z4l783jpj7j"))))
4105 (build-system gnu-build-system)
4107 `(("alsa-lib" ,alsa-lib)
4110 ("libsamplerate" ,libsamplerate)
4111 ("libsndfile" ,libsndfile)
4114 `(("pkg-config" ,pkg-config)))
4115 (synopsis "Audio plugin API for soft synths and effects")
4116 (description "DSSI is a plugin API for software instruments with user
4117 interfaces, permitting them to be hosted in-process by audio applications.
4118 It is intended to be simple, GUI-toolkit-agnostic, and slightly biased
4119 towards familiarity with MIDI. The DSSI distribution package contains
4120 a JACK/ALSA-sequencer reference host and some plugins as well as the
4121 specification and header.")
4122 (home-page "http://dssi.sourceforge.net/")
4123 ;; The DSSI interface is LGPL2.1+, some tests and examples are GPL2+.
4124 ;; The vast majority of examples are in the public domain.
4125 (license (list license:lgpl2.1+ license:gpl2+))))
4127 (define-public rosegarden
4134 (uri (string-append "mirror://sourceforge/rosegarden/rosegarden/"
4135 version "/rosegarden-" version ".tar.bz2"))
4137 (base32 "1qcaxc6hdzva7kwxxhgl95437fagjbxzv4mihsgpr7y9qk08ppw1"))))
4138 (build-system cmake-build-system)
4140 `(#:configure-flags '("-DCMAKE_BUILD_TYPE=Release")
4142 (modify-phases %standard-phases
4143 (add-after 'unpack 'patch-tests
4145 (substitute* "CMakeLists.txt"
4146 (("BUILD_TESTING OFF") "BUILD_TESTING ON")
4148 ((" -fvisibility=hidden") ""))
4150 (add-after 'unpack 'fix-references
4151 (lambda* (#:key inputs #:allow-other-keys)
4152 (substitute* "src/gui/general/ProjectPackager.cpp"
4154 (string-append "\"" (assoc-ref inputs "flac") "/bin/flac"))
4156 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wavpack"))
4158 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wvunpack"))
4160 (string-append "\"" (assoc-ref inputs "bash") "/bin/bash"))
4162 (string-append "\"" (assoc-ref inputs "tar") "/bin/tar")))
4163 (substitute* "src/gui/general/LilyPondProcessor.cpp"
4164 (("\"convert-ly\\>")
4165 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/convert-ly"))
4167 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/lilypond")))
4169 (add-after 'unpack 'make-reproducible
4171 ;; Prevent Last-Modified from being written.
4172 ;; The "*.qm" files that are used in locale.qrc would have a new
4173 ;; mtime otherwise that is written into qrc_locale.cpp in the
4174 ;; end - except when we disable it.
4175 (substitute* "src/CMakeLists.txt"
4176 (("COMMAND [$][{]QT_RCC_EXECUTABLE[}]")
4177 "COMMAND ${QT_RCC_EXECUTABLE} --format-version 1")
4179 ;;(("qt5_add_resources[(]rg_SOURCES ../data/data.qrc[)]")
4180 ;; "qt5_add_resources(rg_SOURCES ../data/data.qrc OPTIONS --format-version 1)")
4182 ;; Make hashtable traversal order predicable.
4183 (setenv "QT_RCC_TEST" "1") ; important
4185 (add-before 'check 'prepare-check
4187 (setenv "QT_QPA_PLATFORM" "offscreen")
4188 ;; Tests create files in $HOME/.local/share/rosegarden .
4189 (mkdir-p "/tmp/foo")
4190 (setenv "HOME" "/tmp/foo")
4191 (setenv "XDG_RUNTIME_DIR" "/tmp/foo")
4194 `(("alsa-lib" ,alsa-lib)
4202 ("libsamplerate" ,libsamplerate)
4203 ("lilypond" ,lilypond)
4208 ("wavpack" ,wavpack)
4211 `(("pkg-config" ,pkg-config)
4212 ("qtlinguist" ,qttools)))
4213 (synopsis "Music composition and editing environment based around a MIDI
4215 (description "Rosegarden is a music composition and editing environment
4216 based around a MIDI sequencer that features a rich understanding of music
4217 notation and includes basic support for digital audio.")
4218 (home-page "https://www.rosegardenmusic.com/")
4219 (license license:gpl2)))
4221 (define-public patchmatrix
4223 (name "patchmatrix")
4228 (url "https://github.com/OpenMusicKontrollers/patchmatrix.git")
4230 (file-name (git-file-name "patchmatrix" version))
4233 "020vp7zzxxzzjfic57vkpg68dm8hi98ilr1bj88xjsv6i47xmjbn"))))
4234 (build-system meson-build-system)
4235 (arguments '(#:tests? #f)) ; no test target
4241 `(("pkg-config" ,pkg-config)))
4242 (home-page "https://github.com/OpenMusicKontrollers/patchmatrix")
4243 (synopsis "Simple JACK patch bay")
4244 (description "PatchMatrix is a patch bay for the JACK audio connection
4245 kit. It provides a patch bay in flow matrix style for audio, MIDI, CV, and
4247 (license license:artistic2.0)))
4249 (define-public sorcer
4255 (uri (string-append "https://github.com/openAVproductions/"
4256 "openAV-Sorcer/archive/release-"
4258 (file-name (string-append name "-" version ".tar.gz"))
4261 "07iyqj28wm0xc4arrq893bm12xjpz65db7ynrlmf6w8krg8wjmd0"))))
4262 (build-system cmake-build-system)
4264 `(#:tests? #f ; no tests included
4266 (modify-phases %standard-phases
4267 (add-after 'unpack 'remove-architecture-specific-flags
4269 (substitute* "CMakeLists.txt"
4270 (("-msse2 -mfpmath=sse") ""))
4272 (add-after 'unpack 'build-faust-sources
4273 (lambda* (#:key inputs #:allow-other-keys)
4274 (with-directory-excursion "faust"
4275 (delete-file "main.cpp")
4276 (invoke "faust" "-i"
4278 "-o" "main.cpp" "main.dsp")))))))
4285 ("pkg-config" ,pkg-config)))
4286 (home-page "http://openavproductions.com/sorcer/")
4287 (synopsis "Wavetable LV2 plugin synth")
4288 (description "Sorcer is a wavetable LV2 plugin synthesizer, targeted at
4289 the electronic or dubstep genre.")
4290 (license license:gpl3+)))
4292 (define-public sonivox-eas
4294 (name "sonivox-eas")
4299 (url "https://github.com/pedrolcl/Linux-SonivoxEas.git")
4300 (commit (string-append "v" version))))
4301 (file-name (string-append name "-" version "-checkout"))
4304 "0l9gs00p5g4k4qy6i7nv1mfi2n2wnsycwjrgrh9hxzam4irf2mw2"))))
4305 (build-system cmake-build-system)
4306 (arguments '(#:tests? #f)) ; there are no tests
4308 `(("alsa-lib" ,alsa-lib)
4309 ("drumstick" ,drumstick)
4310 ("pulseaudio" ,pulseaudio)
4311 ("qtbase" ,qtbase)))
4313 `(("pkg-config" ,pkg-config)))
4314 (home-page "https://github.com/pedrolcl/Linux-SonivoxEas")
4315 (synopsis "MIDI synthesizer library")
4316 (description "This project is a real time General MIDI synthesizer based
4317 on the Sonivox EAS Synthesizer by Google. It does not need external
4318 soundfonts, using embedded samples instead.")
4319 ;; Sonivox is released under the ASL2.0; the rest of the code is under
4321 (license (list license:gpl2+ license:asl2.0))))
4323 (define-public whysynth
4326 (version "20170701")
4329 (uri (string-append "http://smbolton.com/whysynth/whysynth-"
4330 version ".tar.bz2"))
4333 "02qbn0hbvn1iym4zxv35b201blg31yjpgh71h8db0j5zls2xc0m6"))))
4334 (build-system gnu-build-system)
4341 ("alsa-lib" ,alsa-lib)))
4343 `(("pkg-config" ,pkg-config)))
4344 (home-page "http://smbolton.com/whysynth.html")
4345 (synopsis "DSSI software synthesizer")
4346 (description "WhySynth is a versatile softsynth which operates as a plugin
4347 for the DSSI Soft Synth Interface. A brief list of features:
4350 @item 4 oscillators, 2 filters, 3 LFOs, and 5 envelope generators per voice.
4351 @item 11 oscillator modes: minBLEP, wavecycle, chorused wavecycle,
4352 asynchronous granular, three FM modes, waveshaper, noise, PADsynth, and phase
4354 @item 10 filter modes.
4355 @item flexible modulation and mixdown options, plus effects.
4358 (license license:gpl2+)))
4360 (define-public libdiscid
4368 "http://ftp.musicbrainz.org/pub/musicbrainz/libdiscid/libdiscid-"
4372 "1f9irlj3dpb5gyfdnb1m4skbjvx4d4hwiz2152f83m0d9jn47r7r"))))
4373 (arguments `(#:test-target "check"))
4374 (build-system cmake-build-system)
4375 (home-page "https://musicbrainz.org/doc/libdiscid")
4376 (synopsis "Disc id reader library")
4377 (description "libdiscid is a C library for creating MusicBrainz and freedb
4378 disc IDs from audio CDs. It reads a CD's table of contents (TOC) and generates
4379 an identifier which can be used to lookup the CD at MusicBrainz. Additionally,
4380 it provides a submission URL for adding the disc ID to the database and gathers
4381 ISRCs and the MCN (=UPC/EAN) from disc.")
4382 (license license:lgpl2.1+)))
4384 (define-public python-discid
4386 (name "python-discid")
4391 (uri (pypi-uri "discid" version))
4394 "1fgp67nhqlbvhhwrcxq5avil7alpzw4s4579hlyvxzbphdnbz8vq"))))
4395 (build-system python-build-system)
4397 `(("libdiscid" ,libdiscid)))
4400 (modify-phases %standard-phases
4401 (add-before 'build 'set-libdiscid
4402 ;; Set path of libdiscid
4403 (lambda* (#:key inputs #:allow-other-keys)
4404 (let ((discid (assoc-ref inputs "libdiscid")))
4405 (substitute* "discid/libdiscid.py"
4406 (("lib_name = (.*)$" all name)
4407 (string-append "lib_name = \"" discid
4408 "/lib/libdiscid.so.0\"\n")))
4410 (home-page "https://python-discid.readthedocs.io/")
4411 (synopsis "Python bindings for Libdiscid")
4413 "This package provides Python bindings for the Libdiscid library. The
4414 main purpose is the calculation of @url{https://musicbrainz.org/doc/Disc%20ID,
4415 Disc IDs} for use with the MusicBrainz database. Additionally the disc
4416 @dfn{Media Catalog Number} (MCN) and track @dfn{International Standard
4417 Recording Code} (ISRC) can be extracted.}")
4418 (license license:lgpl3+)))
4420 (define-public libmusicbrainz
4422 (name "libmusicbrainz")
4428 "https://github.com/metabrainz/libmusicbrainz/releases/download/release-"
4429 version "/libmusicbrainz-" version ".tar.gz"))
4432 "0ikb9igyyk28jm34raxfzkw2qyn4nzzwsymdyprp7cmvi6g2ajb7"))))
4433 (build-system cmake-build-system)
4436 (modify-phases %standard-phases
4439 ;; requires network connections
4440 ;; (invoke "tests/mbtest")
4441 (invoke "tests/ctest")
4443 (inputs `(("neon" ,neon)
4444 ("libxml2" ,libxml2)))
4445 (native-inputs `(("pkg-config" ,pkg-config)))
4446 (home-page "https://musicbrainz.org/doc/libmusicbrainz")
4447 (synopsis "MusicBrainz client library")
4448 (description "The MusicBrainz Client Library (libmusicbrainz), also known as
4449 mb_client, is a development library geared towards developers who wish to add
4450 MusicBrainz lookup capabilities to their applications.")
4451 (license license:lgpl2.1+)))
4453 (define-public perl-musicbrainz-discid
4455 (name "perl-musicbrainz-discid")
4460 "mirror://cpan/authors/id/N/NJ/NJH/MusicBrainz-DiscID-"
4464 "1i4qk1qfcmxdibqkyfjrrjdq2zk42vjcz590qgiyc47fi9p6xx1j"))))
4465 (build-system perl-build-system)
4466 (native-inputs `(("pkg-config" ,pkg-config)
4468 (inputs `(("libdiscid" ,libdiscid)))
4469 (home-page "https://metacpan.org/release/MusicBrainz-DiscID")
4470 (synopsis "Perl interface to the MusicBrainz libdiscid library")
4472 "The @code{MusicBrainz::DiscID} module is a Perl interface to the
4473 MusicBrainz libdiscid library, allowing you to manipulate digital audio
4474 compact disc (CDDA) identifiers.")
4475 (license license:gpl2)))
4477 (define-public perl-webservice-musicbrainz
4479 (name "perl-webservice-musicbrainz")
4484 "mirror://cpan/authors/id/B/BF/BFAIST/WebService-MusicBrainz-"
4488 "16chs1l58cf000d5kalkyph3p31ci73p1rlyx98mfv10d2cq6fsj"))))
4489 (build-system perl-build-system)
4491 ;; Tests try to connect to http://musicbrainz.org.
4494 `(("perl-module-build" ,perl-module-build)))
4496 `(("perl-mojolicious" ,perl-mojolicious)))
4497 (home-page "https://metacpan.org/release/WebService-MusicBrainz")
4498 (synopsis "Web service API to the MusicBrainz database")
4500 "This module searches the MusicBrainz database through their web service
4501 at @code{musicbrainz.org}.")
4502 (license license:perl-license)))
4504 (define-public clyrics
4512 (url "https://github.com/trizen/clyrics.git")
4514 (file-name (git-file-name name version))
4516 (base32 "1l9iqz6vxrrxapv7s110g360bqxksir4dcqd8w0l4lhmnfmz3vnk"))))
4517 (build-system trivial-build-system)
4519 `(("bash" ,bash) ; for the wrapped program
4521 ("perl-www-mechanize" ,perl-www-mechanize)
4522 ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
4523 ;; Required or else LWP will fail with "GET https://www.google.com/ ==>
4524 ;; 500 Can't verify SSL peers without knowing which Certificate
4525 ;; Authorities to trust".
4526 ("perl-mozilla-ca" ,perl-mozilla-ca)))
4528 `(#:modules ((guix build utils))
4530 (use-modules (guix build utils)
4533 (let* ((source (assoc-ref %build-inputs "source"))
4534 (output (assoc-ref %outputs "out")))
4537 (assoc-ref %build-inputs "bash") "/bin" ":"
4538 (assoc-ref %build-inputs "perl") "/bin" ":"))
4539 (copy-recursively source (getcwd))
4540 (patch-shebang "clyrics")
4541 (substitute* "clyrics"
4542 (("/usr/share") output))
4543 (install-file "clyrics" (string-append output "/bin"))
4544 (wrap-program (string-append output "/bin/clyrics")
4549 (((? (cut string-prefix? "perl-" <>) name) . dir)
4550 (string-append dir "/lib/perl5/site_perl"))
4553 (copy-recursively "plugins" (string-append output "/clyrics"))
4555 (home-page "https://github.com/trizen/clyrics")
4556 (synopsis "Extensible lyrics fetcher")
4558 "Clyrics is an extensible command-line tool to fetch the lyrics of songs.
4559 It can be used in daemon mode along with the Music-on-Console (MOC) and cmus
4560 console music players.")
4561 (license license:gpl3+)))
4563 (define-public demlo
4564 (let ((commit "fe9ec4c8ac2fa995ec18e6ac86d50d46df06ec01")
4568 (version (git-version "3.8" revision commit))
4574 "https://gitlab.com/ambrevar/demlo")
4576 (file-name (git-file-name name version))
4579 "1afkbqhzn6da7zaf5ab7dvyqj1izqhzprwfb4hw448fllda9bdvk"))))
4580 (build-system go-build-system)
4583 ("go-github-com-mattn-go-isatty" ,go-github-com-mattn-go-isatty)
4584 ("go-github-com-mattn-go-colorable" ,go-github-com-mattn-go-colorable)
4585 ("go-github-com-aarzilli-golua" ,go-github-com-aarzilli-golua)
4586 ("go-gitlab-com-ambrevar-damerau" ,go-gitlab-com-ambrevar-damerau)
4587 ("go-gitlab-com-ambrevar-golua-unicode" ,go-gitlab-com-ambrevar-golua-unicode)
4588 ("go-github-com-mgutz-ansi" ,go-github-com-mgutz-ansi)
4589 ("go-github-com-michiwend-gomusicbrainz" ,go-github-com-michiwend-gomusicbrainz)
4590 ("go-github-com-stevedonovan-luar" ,go-github-com-stevedonovan-luar)
4591 ("go-github-com-wtolson-go-taglib" ,go-github-com-wtolson-go-taglib)
4592 ("go-github-com-yookoala-realpath" ,go-github-com-yookoala-realpath)))
4594 `(("chromaprint" ,chromaprint)
4595 ("ffmpeg" ,ffmpeg)))
4597 `(#:import-path "gitlab.com/ambrevar/demlo"
4599 (modify-phases %standard-phases
4600 (add-after 'install 'wrap-program
4601 (lambda* (#:key inputs outputs #:allow-other-keys)
4602 (let ((out (assoc-ref outputs "out"))
4603 (ffmpeg (assoc-ref inputs "ffmpeg"))
4604 (chromaprint (assoc-ref inputs "chromaprint")))
4605 (wrap-program (string-append out "/bin/demlo")
4606 `("XDG_DATA_DIRS" ":" prefix (,out))
4609 (string-append dir "/bin:"
4611 (list ffmpeg chromaprint))))
4613 (add-after 'install 'install-scripts
4614 (lambda* (#:key outputs #:allow-other-keys)
4615 (let* ((out (assoc-ref outputs "out"))
4616 (root (string-append out "/src/gitlab.com/ambrevar/demlo"))
4617 (xdg-data-dirs (string-append out "/demlo")))
4618 (copy-recursively (string-append root "/actions")
4619 (string-append xdg-data-dirs "/actions"))
4620 (copy-recursively (string-append root "/scripts")
4621 (string-append xdg-data-dirs "/scripts"))
4622 (install-file (string-append root "/config.lua") xdg-data-dirs)
4623 ;; TODO: Test fish completion.
4624 (install-file (string-append root "/completion/demlo.fish")
4625 (string-append out "/share/fish/vendor_completions.d"))
4627 (home-page "https://gitlab.com/ambrevar/demlo")
4628 (synopsis "Dynamic and extensible music library organizer")
4629 (description "Demlo is a music library organizer. It can encode, fix
4630 case, change folder hierarchy according to tags or file properties, tag from
4631 an online database, copy covers while ignoring duplicates or those below a
4632 quality threshold, and much more. It makes it possible to manage your
4633 libraries uniformly and dynamically. You can write your own rules to fit your
4636 Demlo can address any of these recurring music library issues (and much more):
4639 @item Fix the lack of folder structure.
4640 @item Normalize tags, fix their case, chose which tags to keep and which to
4642 @item Handle lossy and lossless audio differently.
4643 @item Handle mp3 id3tags hell...
4644 @item Handle multiple covers, whether embedded and/or external, resize covers,
4645 discard bad quality ones.
4647 (license license:expat))))
4656 (url "https://github.com/gillesdegottex/fmit/")
4657 (commit (string-append "v" version))))
4658 (file-name (git-file-name name version))
4661 "1qyskam053pvlap1av80rgp12pzhr92rs88vqs6s0ia3ypnixcc6"))))
4662 (build-system gnu-build-system)
4665 (modify-phases %standard-phases
4667 (add-before 'build 'qmake
4669 (let ((out (assoc-ref %outputs "out")))
4672 (string-append "PREFIX=" out)
4673 (string-append "PREFIXSHORTCUT=" out)
4674 "CONFIG+=acs_qt acs_alsa acs_jack acs_portaudio"))))
4675 (add-after 'install 'wrap-executable
4676 (lambda* (#:key inputs outputs #:allow-other-keys)
4677 (let ((out (assoc-ref outputs "out")))
4678 (wrap-program (string-append out "/bin/fmit")
4679 `("QT_PLUGIN_PATH" ":" prefix
4680 ,(map (lambda (label)
4681 (string-append (assoc-ref inputs label)
4682 "/lib/qt5/plugins"))
4683 '("qtbase" "qtmultimedia" "qtsvg")))
4684 `("QML2_IMPORT_PATH" ":" prefix
4685 ,(map (lambda (label)
4686 (string-append (assoc-ref inputs label)
4688 '("qtmultimedia"))))
4691 `(("alsa-lib" ,alsa-lib)
4694 ("portaudio" ,portaudio)
4696 ("qtmultimedia" ,qtmultimedia)
4699 `(("gettext" ,gettext-minimal)
4700 ("hicolor-icon-theme" ,hicolor-icon-theme)
4701 ("itstool" ,itstool)
4702 ("qttools" ,qttools)))
4703 (synopsis "Musical instrument tuner")
4704 (description "FMIT is a graphical utility for tuning musical instruments,
4705 with error and volume history, and advanced features.")
4706 (home-page "https://gillesdegottex.github.io/fmit/")
4707 ;; Most of the code is under GPL2+, but some abstract or helper classes
4708 ;; are under LGPL2.1.
4709 (license (list license:gpl2+ license:lgpl2.1))))
4711 (define-public mloop
4712 (let ((commit "adebff98b0b4dc5872a03acb82e89c77cb29c127")
4716 (version (git-version "0.0.1" revision commit))
4720 (url "http://git.fuzzle.org/mloop")
4722 (file-name (git-file-name name version))
4725 "175gxvg5slq0bllcx1c381rjlq3xpxww8c3kpiw5i2kfr4m52myz"))))
4726 (build-system waf-build-system)
4728 `(#:python ,python-2
4729 #:tests? #f)) ; no "check" target
4732 ("ncurses" ,ncurses)))
4734 `(("pkg-config" ,pkg-config)))
4735 (home-page "https://fuzzle.org/~petern/mloop.html")
4736 (synopsis "Live MIDI looper")
4737 (description "mloop is a live MIDI looping system, using jack-midi.
4738 Loops are recorded, optionally with beat quantization, and can then be played
4739 back, either once or looping. A 'note cache' system is implemented to
4740 remember which notes are pressed and their velocities. This allows for a loop
4741 to start off with the currently pressed notes, making seamless loops much
4742 easier to perform. Features include:
4745 @item Quantisation; end a loop on a beat exactly.
4746 @item Delayed recording; wait for a MIDI event before starting a loop record.
4747 @item Adjust tempo; Playback speed of loops can be adjusted on the fly.
4749 (license license:gpl2))))
4751 (define-public pragha
4757 (uri (string-append "https://github.com/pragha-music-player/pragha/"
4758 "releases/download/v" version "/pragha-" version
4762 "19kbhq99bkimx3aqrdzln0vlr4slkpx6kq66j731jvqyq76nlkp5"))))
4763 (build-system glib-or-gtk-build-system)
4765 `(("intltool" ,intltool)
4766 ("pkg-config" ,pkg-config)))
4770 ("gstreamer" ,gstreamer)
4771 ("gst-plugins-base" ,gst-plugins-base)
4772 ("gst-plugins-good" ,gst-plugins-good)
4774 ("libcddb" ,libcddb)
4775 ("libcdio" ,libcdio)
4776 ("libcdio-paranoia" ,libcdio-paranoia)
4777 ("libgudev" ,libgudev)
4778 ("libnotify" ,libnotify)
4779 ("libpeas" ,libpeas)
4780 ("libsoup" ,libsoup)
4782 ("taglib" ,taglib)))
4785 (modify-phases %standard-phases
4786 (add-after 'install 'wrap-program
4787 (lambda* (#:key inputs outputs #:allow-other-keys)
4788 (let ((out (assoc-ref outputs "out"))
4789 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
4790 (wrap-program (string-append out "/bin/pragha")
4791 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
4793 (home-page "https://pragha-music-player.github.io")
4794 (synopsis "Music player")
4795 (description "Pragha is a lightweight music player based on Gtk and
4796 sqlite. It is constructed to be fast, light, and simultaneously tries to be
4797 complete without obstructing your daily work.")
4798 (license license:gpl3+)))
4800 (define-public playerctl
4807 (url "https://github.com/altdesktop/playerctl.git")
4808 (commit (string-append "v" version))))
4809 (file-name (git-file-name name version))
4812 "1f3njnpd52djx3dmhh9a8p5a67f0jmr1gbk98icflr2q91149gjz"))))
4813 (build-system meson-build-system)
4815 `(#:configure-flags '("-Dintrospection=false" "-Dgtk-doc=false")))
4816 (inputs `(("python-pygobject" ,python-pygobject)))
4818 `(("glib:bin" ,glib "bin")
4819 ("pkg-config" ,pkg-config)))
4820 (synopsis "Control MPRIS-supporting media player applications")
4822 "Playerctl is a command-line utility and library for controlling media
4823 players that implement the MPRIS D-Bus Interface Specification. Playerctl
4824 makes it easy to bind player actions, such as play and pause, to media keys.
4825 You can also get metadata about the playing track such as the artist and title
4826 for integration into status line generators or other command-line tools.")
4827 (home-page "https://github.com/altdesktop/playerctl")
4828 (license license:lgpl3+)))
4830 (define-public artyfx
4838 "https://github.com/openAVproductions/openAV-ArtyFX.git")
4839 (commit (string-append "release-" version))))
4840 (file-name (git-file-name name version))
4843 "012hcy1mxl7gs2lipfcqp5x0xv1azb9hjrwf0h59yyxnzx96h7c9"))))
4844 (build-system cmake-build-system)
4846 `(#:tests? #f ; no tests included
4848 (modify-phases %standard-phases
4849 (add-after 'unpack 'remove-architecture-specific-flags
4851 (substitute* "CMakeLists.txt"
4852 (("-msse2 -mfpmath=sse") ""))
4856 ("libsndfile" ,libsndfile)))
4858 `(("pkg-config" ,pkg-config)
4860 (home-page "http://openavproductions.com/artyfx/")
4861 (synopsis "Audio effect LV2 plugin bundle")
4862 (description "ArtyFX is an LV2 plugin bundle of artistic real-time audio
4863 effects. It contains a bitcrusher, delay, distortion, equalizer, compressor,
4865 (license license:gpl2+)))
4867 (define-public sherlock-lv2
4869 (name "sherlock-lv2")
4875 "https://git.open-music-kontrollers.ch/lv2/"
4876 "sherlock.lv2/snapshot/sherlock.lv2-"
4880 "1c5xajpss9h8lbyx160bbzg8va50n2d74qwnxig9sf468rzmha1y"))))
4881 (build-system meson-build-system)
4883 `(("libx11" ,libx11)
4885 ("sratom" ,sratom)))
4888 ("pkg-config" ,pkg-config)))
4889 (synopsis "Investigative LV2 plugin bundle")
4890 (description "The Sherlock plugin bundle contains LV2 plugins for
4891 visualizing LV2 atom, MIDI and OSC events. They can be used for monitoring
4892 and debugging of event signal flows inside plugin graphs.")
4893 (home-page "https://open-music-kontrollers.ch/lv2/sherlock/")
4894 (license license:artistic2.0)))
4896 (define-public x42-plugins
4898 (name "x42-plugins")
4899 (version "20191215")
4904 (string-append "http://gareus.org/misc/x42-plugins/x42-plugins-"
4907 (base32 "1mwfvhsvc0qgjyiwd8pmmam1mav43lmv39fljhmj9yri558v5g1c"))))
4908 (build-system gnu-build-system)
4910 `(#:tests? #f ; no "check" target
4912 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
4913 "LIBZITACONVOLVER=-lzita-convolver"
4914 (string-append "FONTFILE="
4915 (assoc-ref %build-inputs "font-dejavu")
4916 "/share/fonts/truetype/DejaVuSans-Bold.ttf"))
4918 (modify-phases %standard-phases
4919 (add-before 'build 'set-CC-variable
4923 (delete 'configure))))
4930 ("hicolor-icon-theme" ,hicolor-icon-theme)
4933 ("libsamplerate" ,libsamplerate)
4936 ("zita-convolver" ,zita-convolver)))
4938 `(("help2man" ,help2man)
4941 ("font-dejavu" ,font-dejavu)
4942 ("pkg-config" ,pkg-config)))
4943 (synopsis "Collection of LV2/JACK audio/MIDI processing plugins")
4944 (description "x42-plugins is a collection of over 80 cross-platform LV2
4945 audio and MIDI plugins that can also run as standalone JACK applications.")
4946 (home-page "https://x42-plugins.com/x42/")
4947 (license license:gpl2+)))
4949 (define-public zam-plugins
4951 (name "zam-plugins")
4958 (url "https://github.com/zamaudio/zam-plugins.git")
4960 ;; Recursive to fetch the DISTRHO plugin framework. This
4961 ;; framework is intended to be included in the sources
4962 ;; and not to be used as a library.
4964 (file-name (git-file-name name version))
4966 (base32 "0icsbarc9azcp0kjjydmiqn401v60jmf16zdcp4040q8g7bpfmfa"))))
4967 (build-system gnu-build-system)
4969 `(#:tests? #f ;no "check" target
4971 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
4972 "HAVE_ZITA_CONVOLVER=true")
4974 (modify-phases %standard-phases
4975 (add-before 'build 'set-CC-variable
4977 (setenv "CC" "gcc") #t))
4978 (delete 'configure))))
4981 ("jack" ,jack-1) ;for the standalone JACK application
4983 ("libsamplerate" ,libsamplerate)
4985 ("zita-convolver" ,zita-convolver)))
4987 `(("ladspa" ,ladspa)
4989 ("pkg-config" ,pkg-config)))
4990 (synopsis "Collection of audio processing plugins")
4992 "Zam plugins is a collection of audio processing plugins in the LADSPA,
4993 LV2 and VST2 formats, as well as standalone JACK versions. The collection
4994 includes ZaMaximX2, ZamAutoSat, ZamComp, ZamCompX2, ZamEQ2, ZamGEQ31,
4995 ZamHeadX2, ZamPhono, ZamGate, ZamGateX2, ZamTube, ZamDelay, ZamDynamicEQ,
4996 ZaMultiComp, ZaMultiCompX2 and ZamSynth.")
4997 (home-page "http://www.zamaudio.com/?p=976")
4998 (license license:gpl2+)))
5000 (define-public geonkick
5008 (url "https://gitlab.com/geontime/geonkick.git")
5009 (commit (string-append "v" version))))
5010 (file-name (git-file-name name version))
5013 "1a59wnm4035kjhs66hihlkiv45p3ffb2yaj1awvyyi5f0lds5zvh"))))
5014 (build-system cmake-build-system)
5016 `(#:tests? #f ;no tests included
5018 (list (string-append "-DGKICK_REDKITE_SDK_PATH="
5019 (assoc-ref %build-inputs "redkite"))
5020 (string-append "-DCMAKE_INSTALL_PREFIX="
5021 (assoc-ref %outputs "out")))))
5024 ("hicolor-icon-theme" ,hicolor-icon-theme)
5025 ("jack" ,jack-1) ;for the standalone JACK application
5026 ("libsndfile" ,libsndfile)
5028 ("redkite" ,redkite)
5029 ("rapidjson" ,rapidjson)))
5032 ("pkg-config" ,pkg-config)
5034 (synopsis "Percussion synthesizer")
5035 (description "Geonkick is a synthesizer that can synthesize elements
5036 of percussion such as kicks, snares, hit-hats, shakers, claps and sticks.
5037 It can also play and mix samples.")
5038 (home-page "https://gitlab.com/geontime/geonkick")
5039 (license license:gpl3+)))
5041 (define-public dpf-plugins
5043 (name "dpf-plugins")
5050 (url "https://github.com/DISTRHO/DPF-Plugins.git")
5051 (commit (string-append "v" version))))
5052 (file-name (git-file-name name version))
5055 "1hsfmpv3kvpiwk8nfw9xpaipzy0n27i83y2v1yr93lznwm5rqrbs"))))
5056 (build-system gnu-build-system)
5058 `(#:tests? #f ; no "check" target
5060 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
5062 (modify-phases %standard-phases
5063 (add-before 'build 'set-CC-variable
5064 (lambda _ (setenv "CC" "gcc") #t))
5065 (delete 'configure))))
5068 ("liblo" ,liblo) ; for dssi plugins
5069 ("jack" ,jack-1) ; for standalone applications
5072 `(("pkg-config" ,pkg-config)
5075 (home-page "https://github.com/DISTRHO/DPF-Plugins")
5076 (synopsis "Audio plugin collection")
5077 (description "Collection of audio plugins built with the DISTRHO Plugin
5078 Framework (DPF) available in LADSPA, DSSI, LV2 and VST2 formats. This
5079 package includes the following plugins: glBars, Kars, Max-Gen examples
5080 (MaBitcrush, MaFreeverb, MaGigaverb, MaPitchshift), Mini-Series (3BandEQ,
5081 3BandSplitter, PingPongPan), ndc-Plugs (Amplitude Imposer, Cycle Shifter,
5082 Soul Force), MVerb, Nekobi, and ProM.")
5083 ;; This package consists of several plugins refactored to use the
5084 ;; DISTHRO Plugin Framework (DPF). Different copyrights and licenses
5085 ;; apply to different plugins. The root LICENSE file has a table with
5086 ;; license information for each plugin and paths to each license
5087 (license (list license:isc license:gpl3 license:lgpl3 license:expat license:gpl2))))
5089 (define-public avldrums-lv2
5091 (name "avldrums-lv2")
5097 (url "https://github.com/x42/avldrums.lv2.git")
5098 (commit (string-append "v" version))
5099 ;; This plugin expects the robtk submodule's source files to be
5100 ;; there in order to build.
5102 (file-name (git-file-name name version))
5104 (base32 "1vwdp3d8qzd493qa99ddya7iql67bbfxmbcl8hk96lxif2lhmyws"))))
5105 (build-system gnu-build-system)
5107 `(#:tests? #f ; no "check" target
5109 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
5111 (modify-phases %standard-phases
5112 (add-before 'build 'set-CC-variable
5114 (setenv "CC" "gcc") #t))
5115 (delete 'configure))))
5123 `(("pkg-config" ,pkg-config)
5125 (home-page "https://x42-plugins.com/x42/x42-avldrums")
5126 (synopsis "Drum sample player LV2 plugin dedicated to the AVLinux Drumkits")
5127 (description "AVLdrums is a drum sample player LV2 plugin dedicated to Glen
5128 MacArthur's AVLdrums. This plugin provides a convenient way to sequence and mix
5129 MIDI drums and comes as two separate drumkits: Black Pearl and Red Zeppelin.")
5130 (license license:gpl2+)))
5141 (url "https://github.com/mtytel/helm.git")
5142 (commit (string-append "v" version))))
5143 (file-name (git-file-name name version))
5146 "17ys2vvhncx9i3ydg3xwgz1d3gqv4yr5mqi7vr0i0ca6nad6x3d4"))))
5147 (build-system gnu-build-system)
5149 `(#:tests? #f ; no "check" target
5151 (list (string-append "DESTDIR=" (assoc-ref %outputs "out"))
5154 (modify-phases %standard-phases
5155 (add-after 'unpack 'include-pnglib-code-and-remove-usr-from-paths
5157 (substitute* "standalone/builds/linux/Makefile"
5158 (("JUCE_INCLUDE_PNGLIB_CODE=0")
5159 "JUCE_INCLUDE_PNGLIB_CODE=1"))
5160 (substitute* "builds/linux/LV2/Makefile"
5161 (("JUCE_INCLUDE_PNGLIB_CODE=0")
5162 "JUCE_INCLUDE_PNGLIB_CODE=1"))
5163 (substitute* "Makefile"
5166 (add-before 'reset-gzip-timestamps 'make-gz-files-writable
5167 (lambda* (#:key outputs #:allow-other-keys)
5168 (for-each make-file-writable
5169 (find-files (string-append (assoc-ref outputs "out"))
5172 (delete 'configure))))
5174 `(("alsa-lib" ,alsa-lib)
5176 ("freetype2" ,freetype)
5177 ("hicolor-icon-theme" ,hicolor-icon-theme)
5178 ("libxcursor" ,libxcursor)
5179 ("libxinerama", libxinerama)
5183 `(("pkg-config" ,pkg-config)
5185 (home-page "https://tytel.org/helm/")
5186 (synopsis "Polyphonic synth with lots of modulation")
5187 (description "Helm is a cross-platform polyphonic synthesizer available standalone
5188 and as an LV2 plugin.")
5189 (license license:gpl3+)))
5191 (define-public zrythm
5198 (uri (string-append "https://www.zrythm.org/releases/zrythm-"
5202 "0x2kxr5zz058jpy6k6ymj0fi2gqfcgrlv4qkwz9443hjy5345iwb"))))
5203 (build-system meson-build-system)
5207 `("-Denable_tests=true" "-Dmanpage=true"
5208 "-Dinstall_dseg_font=false" "-Denable_ffmpeg=true")
5210 (modify-phases %standard-phases
5211 (add-after 'unpack 'patch-xdg-open
5213 (substitute* "src/utils/io.c"
5215 (string-append "\"" (which "xdg-open") "\"")))
5218 `(("alsa-lib" ,alsa-lib)
5220 ("font-dseg" ,font-dseg)
5224 ("gettext" ,gettext-minimal)
5226 ("graphviz" ,graphviz)
5228 ("gtksourceview" ,gtksourceview)
5229 ("guile" ,guile-2.2)
5230 ("libcyaml" ,libcyaml)
5231 ("libsamplerate" ,libsamplerate)
5232 ("libsndfile" ,libsndfile)
5233 ("libyaml" ,libyaml)
5235 ("xdg-utils" ,xdg-utils)
5236 ("rubberband" ,rubberband)))
5238 `(("pkg-config" ,pkg-config)
5239 ("help2man" ,help2man)
5240 ("libaudec" ,libaudec)
5242 ("glib" ,glib "bin"))) ;for 'glib-compile-resources'
5243 (synopsis "Digital audio workstation focusing on usability")
5244 (description "Zrythm is a digital audio workstation designed to be
5245 featureful and easy to use. It offers unlimited automation options, LV2
5246 plugin support, JACK support and chord assistance.")
5247 (home-page "https://www.zrythm.org")
5248 (license license:agpl3+)))
5250 (define-public dragonfly-reverb
5252 (name "dragonfly-reverb")
5259 (url "https://github.com/michaelwillis/dragonfly-reverb.git")
5261 ;; Bundles a specific commit of the DISTRHO plugin framework.
5263 (file-name (git-file-name name version))
5265 (base32 "1qrbv4kk5v6ynx424h1i54qj0w8v6vpw81b759jawxvzzprpgq72"))))
5266 (build-system gnu-build-system)
5268 `(#:tests? #f ; no check target
5269 #:make-flags (list "CC=gcc")
5271 (modify-phases %standard-phases
5272 (delete 'configure) ;no configure target
5273 (replace 'install ;no install target
5274 (lambda* (#:key outputs #:allow-other-keys)
5275 (let* ((out (assoc-ref outputs "out"))
5276 (bin (string-append out "/bin"))
5277 (lv2 (string-append out "/lib/lv2")))
5281 (copy-recursively file
5282 (string-append lv2 "/" (basename file))))
5283 (find-files "bin" "\\.lv2$" #:directories? #t))
5284 ;; Install executables.
5285 (install-file "bin/DragonflyRoomReverb" bin)
5286 (install-file "bin/DragonflyHallReverb" bin)
5289 `(("pkg-config" ,pkg-config)))
5294 (home-page "https://michaelwillis.github.io/dragonfly-reverb/")
5295 (synopsis "Concert hall reverb and room reverb effects")
5297 "Dragonfly Reverb is a bundle of two free audio effects: a concert
5298 hall reverb and a room reverb. Both are available as LV2 plugins as well
5299 as JACK standalone applications.")
5300 (license license:gpl3+)))
5310 (url "https://git.zrythm.org/git/ZLFO")
5311 (commit (string-append "v" version))))
5312 (file-name (git-file-name name version))
5315 "0bm466ci5xyvxvq7l9p6xyh789lvk6i31b4zja1igqh13akbjnjz"))))
5316 (build-system meson-build-system)
5318 `(("librsvg" ,librsvg)
5320 ("ztoolkit-rsvg" ,ztoolkit-rsvg)))
5322 `(("pkg-config" ,pkg-config)))
5323 (synopsis "Low frequency oscillator plugin")
5324 (description "ZLFO is a fully featured
5325 @dfn{low frequency oscillator} (LFO) for @dfn{control voltage} (CV)-based
5326 automation that comes as an LV2 plugin bundle with a custom UI.")
5327 (home-page "https://git.zrythm.org/cgit/ZLFO/")
5328 (license license:agpl3+)))
5330 (define-public vl1-emulator
5332 (name "vl1-emulator")
5338 (url "https://github.com/linuxmao-org/VL1-emulator.git")
5339 (commit (string-append "v" version))
5340 ;; bundles a specific commit of the DISTRHO plugin framework
5342 (file-name (git-file-name name version))
5345 "1npc86vqma8gk1hawa0lii0r2xmnv846plyl1ci3bdswyrdk5chm"))))
5346 (build-system gnu-build-system)
5348 `(#:tests? #f ;no check target
5350 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
5353 (modify-phases %standard-phases
5354 (delete 'configure)))) ;no configure target
5360 `(("pkg-config" ,pkg-config)))
5361 (home-page "https://github.com/linuxmao-org/VL1-emulator")
5362 (synopsis "Emulator of Casio VL-Tone VL1")
5363 (description "The VL1-Emulator is an emulator of Casio VL-Tone VL1,
5364 based on source code by PolyValens, offered as an LV2 plugin and a
5365 standalone JACK application.")
5367 (license (list license:expat license:cc0))))
5369 (define-public regrader
5371 (inherit vl1-emulator)
5378 (url "https://github.com/linuxmao-org/regrader.git")
5379 (commit (string-append "v" version))
5380 ;; bundles a specific commit of the DISTRHO plugin framework
5382 (file-name (git-file-name name version))
5385 "0gl4d5lf2afqknz22jz7hh7029sc9v1xrz6nbz9dlv42bwc0cvl0"))))
5386 (home-page "https://github.com/linuxmao-org/regrader")
5387 (synopsis "Delay effect plugin")
5389 "Regrader is a delay effect where the repeats degrade in resolution.
5390 This is an unofficial port of the Regrader plugin created by Igorski. It
5391 is available as an LV2 plugin and a standalone JACK application.")
5392 (license license:expat)))
5394 (define-public fogpad
5396 (inherit vl1-emulator)
5403 (url "https://github.com/linuxmao-org/fogpad")
5404 (commit (string-append "v" version))
5405 ;; bundles a specific commit of the DISTRHO plugin framework
5407 (file-name (git-file-name name version))
5410 "1j1hbya2dsqpf22zkpi4kwz3dram9g1ndxzmgfwpmf3i4jd3csgb"))))
5411 (home-page "https://github.com/linuxmao-org/fogpad")
5412 (synopsis "Reverb effect plugin")
5414 "Fogpad is a reverb effect in which the reflections can be frozen,
5415 filtered, pitch shifted and ultimately disintegrated. This is an unofficial
5416 port of the Regrader plugin created by Igorski. It is available as an LV2
5417 plugin and a standalone JACK application.")
5418 (license license:expat)))
5420 (define-public tap-lv2
5421 (let ((commit "cab6e0dfb2ce20e4ad34b067d1281ec0b193598a")
5425 (version (git-version "0.0" revision commit))
5430 (url "https://github.com/moddevices/tap-lv2.git")
5432 (file-name (git-file-name name version))
5435 "0q480djfqd9g8mzrggc4vl7yclrhdjqx563ghs8mvi2qq8liycw3"))))
5436 (build-system gnu-build-system)
5438 `(#:tests? #f ; no check target
5442 (modify-phases %standard-phases
5443 (delete 'configure) ; no configure
5447 (string-append "INSTALL_PATH="
5448 (assoc-ref %outputs "out")
5454 `(("pkg-config", pkg-config)))
5455 (synopsis "Audio plugin collection")
5456 (description "TAP (Tom's Audio Processing) plugins is a collection of
5457 audio effect plugins originally released as LADSPA plugins. This package
5458 offers an LV2 version ported by moddevices.")
5459 (home-page "http://tap-plugins.sourceforge.net/")
5460 (license license:gpl2))))
5462 (define-public wolf-shaper
5464 (name "wolf-shaper")
5470 (url "https://github.com/pdesaulniers/wolf-shaper.git")
5471 (commit (string-append "v" version))
5472 ;; Bundles a specific commit of the DISTRHO plugin framework.
5474 (file-name (git-file-name name version))
5477 "0lllgcbnnh1m95bp29hh17x170hl7170zizjrvy892qfkn36830d"))))
5478 (build-system gnu-build-system)
5480 `(#:tests? #f ; no check target
5481 #:make-flags (list "CC=gcc")
5483 (modify-phases %standard-phases
5484 (delete 'configure) ;no configure target
5485 (replace 'install ;no install target
5486 (lambda* (#:key outputs #:allow-other-keys)
5487 (let* ((out (assoc-ref outputs "out"))
5488 (bin (string-append out "/bin"))
5489 (lv2 (string-append out "/lib/lv2")))
5493 (copy-recursively file
5494 (string-append lv2 "/" (basename file))))
5495 (find-files "bin" "\\.lv2$" #:directories? #t))
5496 ;; Install executables.
5499 (install-file file bin))
5503 (equal? (dirname name) "bin")
5504 (not (string-suffix? ".so" name))
5505 (not (string-suffix? ".lv2" name))))))
5508 `(("pkg-config" ,pkg-config)))
5513 (synopsis "Waveshaper plugin")
5514 (description "Wolf Shaper is a waveshaper plugin with a graph editor.
5515 It is provided as an LV2 plugin and as a standalone Jack application.")
5516 (home-page "https://pdesaulniers.github.io/wolf-shaper/")
5517 (license license:gpl3)))
5519 (define-public wolf-spectrum
5521 (inherit wolf-shaper)
5522 (name "wolf-spectrum")
5528 (url "https://github.com/pdesaulniers/wolf-spectrum")
5529 (commit (string-append "v" version))
5530 ;; Bundles a specific commit of the DISTRHO plugin framework.
5532 (file-name (git-file-name name version))
5535 "17db1jlj7vb1xyvkdhhrsvdbwb7jqw6i4168cdvlj3yvn2ra8gpm"))))
5536 (synopsis "2D spectrogram plugin")
5537 (description "Wolf Spectrum is a real-time 2D spectrogram plugin.
5538 It is provided as an LV2 plugin and as a standalone Jack application.")
5539 (home-page "https://github.com/pdesaulniers/wolf-spectrum")
5540 (license license:gpl3)))