1 ;;; GNU Guix --- Functional package management for GNU
2 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
3 ;;; Copyright © 2015, 2016, 2017, 2018, 2019 Ricardo Wurmus <rekado@elephly.net>
4 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
5 ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
6 ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
7 ;;; Copyright © 2016, 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 Nicolas Goaziou <mail@nicolasgoaziou.fr>
14 ;;; Copyright © 2017, 2018 Pierre Langlois <pierre.langlois@gmx.com>
15 ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
16 ;;; Copyright © 2017, 2018, 2019 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 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.lonestar.org>
25 ;;; Copyright © 2019 raingloom <raingloom@protonmail.com>
27 ;;; This file is part of GNU Guix.
29 ;;; GNU Guix is free software; you can redistribute it and/or modify it
30 ;;; under the terms of the GNU General Public License as published by
31 ;;; the Free Software Foundation; either version 3 of the License, or (at
32 ;;; your option) any later version.
34 ;;; GNU Guix is distributed in the hope that it will be useful, but
35 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
36 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
37 ;;; GNU General Public License for more details.
39 ;;; You should have received a copy of the GNU General Public License
40 ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
42 (define-module (gnu packages music)
43 #:use-module (guix utils)
44 #:use-module (guix packages)
45 #:use-module (guix download)
46 #:use-module (guix git-download)
47 #:use-module ((guix licenses) #:prefix license:)
48 #:use-module (guix build-system gnu)
49 #:use-module (guix build-system ant)
50 #:use-module (guix build-system cmake)
51 #:use-module (guix build-system meson)
52 #:use-module (guix build-system perl)
53 #:use-module (guix build-system python)
54 #:use-module (guix build-system scons)
55 #:use-module (guix build-system glib-or-gtk)
56 #:use-module (guix build-system waf)
57 #:use-module (guix build-system trivial)
58 #:use-module (guix build-system go)
59 #:use-module (gnu packages)
60 #:use-module (gnu packages admin)
61 #:use-module (gnu packages algebra)
62 #:use-module (gnu packages apr)
63 #:use-module (gnu packages audio)
64 #:use-module (gnu packages autotools)
65 #:use-module (gnu packages backup)
66 #:use-module (gnu packages base) ;libbdf
67 #:use-module (gnu packages bash)
68 #:use-module (gnu packages bison)
69 #:use-module (gnu packages boost)
70 #:use-module (gnu packages cdrom)
71 #:use-module (gnu packages code)
72 #:use-module (gnu packages check)
73 #:use-module (gnu packages cmake)
74 #:use-module (gnu packages compression)
75 #:use-module (gnu packages crypto)
76 #:use-module (gnu packages curl)
77 #:use-module (gnu packages cyrus-sasl)
78 #:use-module (gnu packages datastructures)
79 #:use-module (gnu packages docbook)
80 #:use-module (gnu packages documentation)
81 #:use-module (gnu packages emacs)
82 #:use-module (gnu packages file)
83 #:use-module (gnu packages flex)
84 #:use-module (gnu packages fltk)
85 #:use-module (gnu packages fonts)
86 #:use-module (gnu packages fontutils)
87 #:use-module (gnu packages freedesktop)
88 #:use-module (gnu packages game-development)
89 #:use-module (gnu packages gcc)
90 #:use-module (gnu packages gnupg)
91 #:use-module (gnu packages gettext)
92 #:use-module (gnu packages ghostscript)
93 #:use-module (gnu packages gl)
94 #:use-module (gnu packages glib)
95 #:use-module (gnu packages gnome)
96 #:use-module (gnu packages gpodder)
97 #:use-module (gnu packages graphics)
98 #:use-module (gnu packages gstreamer)
99 #:use-module (gnu packages gtk)
100 #:use-module (gnu packages guile)
101 #:use-module (gnu packages haskell)
102 #:use-module (gnu packages image)
103 #:use-module (gnu packages imagemagick)
104 #:use-module (gnu packages java)
105 #:use-module (gnu packages libffi)
106 #:use-module (gnu packages libusb)
107 #:use-module (gnu packages linux) ; for alsa-utils
108 #:use-module (gnu packages lirc)
109 #:use-module (gnu packages llvm)
110 #:use-module (gnu packages man)
111 #:use-module (gnu packages mp3)
112 #:use-module (gnu packages mpd)
113 #:use-module (gnu packages ncurses)
114 #:use-module (gnu packages netpbm)
115 #:use-module (gnu packages pcre)
116 #:use-module (gnu packages pdf)
117 #:use-module (gnu packages perl)
118 #:use-module (gnu packages perl-web)
119 #:use-module (gnu packages pkg-config)
120 #:use-module (gnu packages protobuf)
121 #:use-module (gnu packages pulseaudio) ;libsndfile
122 #:use-module (gnu packages python)
123 #:use-module (gnu packages python-web)
124 #:use-module (gnu packages python-xyz)
125 #:use-module (gnu packages qt)
126 #:use-module (gnu packages rdf)
127 #:use-module (gnu packages readline)
128 #:use-module (gnu packages rsync)
129 #:use-module (gnu packages sdl)
130 #:use-module (gnu packages sqlite)
131 #:use-module (gnu packages tcl)
132 #:use-module (gnu packages texinfo)
133 #:use-module (gnu packages tex)
134 #:use-module (gnu packages time)
135 #:use-module (gnu packages tls)
136 #:use-module (gnu packages version-control)
137 #:use-module (gnu packages video)
138 #:use-module (gnu packages web)
139 #:use-module (gnu packages wxwidgets)
140 #:use-module (gnu packages xml)
141 #:use-module (gnu packages xorg)
142 #:use-module (gnu packages xiph)
143 #:use-module (gnu packages golang)
144 #:use-module (gnu packages lua)
145 #:use-module ((srfi srfi-1) #:select (last)))
147 (define-public aria-maestosa
149 (name "aria-maestosa")
153 (uri (string-append "mirror://sourceforge/ariamaestosa/ariamaestosa/"
154 version "/AriaSrc-" version ".tar.bz2"))
157 "1cs3z6frx2ch7rm5ammx9p0rxcjrbj1vq14hvcbimpaw39rdsn3d"))))
158 (build-system scons-build-system)
160 `(#:tests? #f ;no tests
162 (list (string-append "prefix=" (assoc-ref %outputs "out")))
163 #:scons ,scons-python2
165 (modify-phases %standard-phases
167 (add-after 'unpack 'scons-propagate-environment
169 ;; By design, SCons does not, by default, propagate
170 ;; environment variables to subprocesses. See:
171 ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
172 ;; Here, we modify the SConstruct file to arrange for
173 ;; environment variables to be propagated.
174 (substitute* "SConstruct"
175 (("env = Environment\\(\\)")
176 "env = Environment(ENV=os.environ)")
177 ;; Scons errors out when copying subdirectories from Resources,
178 ;; so we move them instead.
180 ;; We move the "score" and "Documentation" directories at once,
181 ;; so we have to ignore files contained therein.
182 (("if \".svn\" in file" line)
184 " or \"score/\" in file"
185 " or \"Documentation/\" in file")))
187 (add-after 'install 'fix-directory-permissions
188 (lambda* (#:key outputs #:allow-other-keys)
189 (let ((out (assoc-ref outputs "out")))
190 (chmod (string-append out "/share/Aria/Documentation") #o555)
191 (chmod (string-append out "/share/Aria/score") #o555)
194 `(("wxwidgets" ,wxwidgets)
196 ("alsa-lib" ,alsa-lib)))
198 `(("pkg-config" ,pkg-config)))
199 (home-page "http://ariamaestosa.sourceforge.net/")
200 (synopsis "MIDI sequencer and editor")
202 "Aria Maestosa is a MIDI sequencer and editor. It lets you compose, edit
203 and play MIDI files with a few clicks in a user-friendly interface offering
204 score, keyboard, guitar, drum and controller views.")
205 (license license:gpl3+)))
207 ;; We don't use the latest release because it depends on Qt4. Instead we
208 ;; download the sources from the tip of the "qt5" branch.
209 (define-public clementine
210 (let ((commit "4619a4c1ab3b17b13d4b2327ad477912917eaf36")
214 (version (git-version "1.3.1" revision commit))
218 (url "https://github.com/clementine-player/Clementine.git")
220 (file-name (git-file-name name version))
223 "1hximk3q0p8nw8is5w7215xgkb7k4flnfyr0pdz9svfwvcm05w1i"))
224 (modules '((guix build utils)))
229 (delete-file-recursively
230 (string-append "3rdparty/" dir)))
232 ;; TODO: The following dependencies are still bundled:
233 ;; - "qxt": Appears to be unmaintained upstream.
235 ;; - "qtsingleapplication"
237 ;; - "qtiocompressor"
238 ;; - "gmock": The tests crash when using our googletest
239 ;; package instead of the bundled gmock.
247 "sha2" ;; Replaced by openssl.
251 (patches (search-patches "clementine-use-openssl.patch"
252 "clementine-remove-crypto++-dependency.patch"
253 "clementine-fix-sqlite.patch"))))
254 (build-system cmake-build-system)
256 '(#:test-target "clementine_test"
258 (list ;; Requires unpackaged "projectm"
259 "-DENABLE_VISUALISATIONS=OFF"
260 ;; Otherwise it may try to download a non-free library at run-time.
261 ;; TODO In an origin snippet, remove the code that performs the
263 "-DHAVE_SPOTIFY_DOWNLOADER=FALSE"
264 "-DUSE_SYSTEM_SHA2=TRUE")
266 (modify-phases %standard-phases
267 (add-after 'install 'wrap-program
268 (lambda* (#:key inputs outputs #:allow-other-keys)
269 (let ((out (assoc-ref outputs "out"))
270 (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
271 (wrap-program (string-append out "/bin/clementine")
272 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
275 `(("gettext" ,gettext-minimal)
276 ("pkg-config" ,pkg-config)
277 ("qtlinguist" ,qttools)))
280 ("chromaprint" ,chromaprint)
284 ("gstreamer" ,gstreamer)
285 ("gst-plugins-base" ,gst-plugins-base)
286 ("gst-plugins-good" ,gst-plugins-good)
287 ("gst-libav" ,gst-libav)
289 ("libmygpo-qt" ,libmygpo-qt)
290 ;; TODO: Package libgpod.
294 ("protobuf" ,protobuf)
295 ("pulseaudio" ,pulseaudio)
297 ("qtx11extras" ,qtx11extras)
298 ("sqlite" ,sqlite-with-column-metadata)
299 ("sparsehash" ,sparsehash)
301 (home-page "https://clementine-player.org")
302 (synopsis "Music player and library organizer")
303 (description "Clementine is a multiplatform music player. It is inspired
304 by Amarok 1.4, focusing on a fast and easy-to-use interface for searching and
305 playing your music.")
307 ;; clementine and qtiocompressor are under GPLv3.
309 ;; gmock is under BSD-3.
311 ;; qxt is under CPL1.0.
313 ;; qsqlite and qtsingleapplication are under LGPL2.1+.
315 ;; qocoa is under MIT and CC by-sa for the icons.
316 license:cc-by-sa3.0)))))
325 (url "https://github.com/cmus/cmus.git")
326 (commit (string-append "v" version))))
327 (file-name (git-file-name name version))
330 "1ydnvq13ay8b8mfmmgwi5qsgyf220yi1d01acbnxqn775dghmwar"))))
331 (build-system gnu-build-system)
333 `(#:tests? #f ; cmus does not include tests
335 (modify-phases %standard-phases
337 (lambda* (#:key outputs #:allow-other-keys)
338 (let ((out (assoc-ref outputs "out")))
339 ;; It's an idiosyncratic configure script that doesn't
340 ;; understand --prefix=..; it wants prefix=.. instead.
341 (invoke "./configure"
342 (string-append "prefix=" out))
344 ;; TODO: cmus optionally supports the following formats, which haven't yet
345 ;; been added to Guix:
349 ;; - DISCID_LIBS, apparently different from cd-discid which is included in
350 ;; Guix. See <http://sourceforge.net/projects/discid/>
352 `(("pkg-config" ,pkg-config)))
354 `(("alsa-lib" ,alsa-lib)
361 ("libcdio-paranoia" ,libcdio-paranoia)
364 ("libmodplug" ,libmodplug)
365 ("libmpcdec" ,libmpcdec)
366 ("libsamplerate" ,libsamplerate)
367 ("libvorbis" ,libvorbis)
369 ("opusfile" ,opusfile)
370 ("pulseaudio" ,pulseaudio)
371 ("wavpack" ,wavpack)))
372 (home-page "https://cmus.github.io/")
373 (synopsis "Small console music player")
374 (description "Cmus is a small and fast console music player. It supports
375 many input formats and provides a customisable Vi-style user interface.")
376 (license license:gpl2+)))
378 (define-public denemo
384 (uri (string-append "mirror://gnu/denemo/denemo-"
388 "0hggf8c4xcrjcxd5m00r788r7jg7g8ff54w2idfaqpj5j2ix3299"))))
389 (build-system gnu-build-system)
392 (modify-phases %standard-phases
394 ;; Denemo's documentation says to use this command to run its
397 (invoke "make" "-C" "tests" "check")))
398 (add-before 'build 'set-lilypond
399 ;; This phase sets the default path for lilypond to its current
400 ;; location in the store.
401 (lambda* (#:key inputs #:allow-other-keys)
402 (let* ((lilypond (string-append (assoc-ref inputs "lilypond")
404 (substitute* "src/core/prefops.c"
405 (("g_string_new \\(\"lilypond\"\\);")
406 (string-append "g_string_new (\""
410 (add-after 'install 'correct-filename
411 ;; "graft-derivation/shallow" from the (guix grafts) module runs in
412 ;; the C locale, expecting file names to be ASCII encoded. This
413 ;; phase renames a filename with a Unicode character in it to meet
414 ;; the aforementioned condition.
415 (lambda* (#:key outputs #:allow-other-keys)
416 (let* ((out (assoc-ref outputs "out")))
417 (chdir (string-append
419 "/share/denemo/templates/instruments/woodwind"))
420 (rename-file "Clarinet in B♭.denemo"
421 "Clarinet in Bb.denemo"))
424 `(("glib:bin" ,glib "bin") ; for gtester
425 ("pkg-config" ,pkg-config)))
427 `(("alsa-lib" ,alsa-lib)
431 ("fluidsynth" ,fluidsynth)
435 ("gtksourceview" ,gtksourceview-3)
437 ("intltool" ,intltool)
439 ("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-beta1")
509 (url "https://github.com/hydrogen-music/hydrogen.git")
511 (file-name (string-append name "-" version "-checkout"))
514 "0nv83l70j5bjz2wd6n3a8cq3bmgrvdvg6g2hjhc1g5h6xnbqsh9x"))))
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)))
531 `(("alsa-lib" ,alsa-lib)
533 ;; ("ladspa" ,ladspa) ; cannot find during configure
535 ("libarchive" ,libarchive)
536 ("libsndfile" ,libsndfile)
540 ("qtxmlpatterns" ,qtxmlpatterns)
542 (home-page "http://www.hydrogen-music.org")
543 (synopsis "Drum machine")
545 "Hydrogen is an advanced drum machine for GNU/Linux. Its main goal is to
546 enable professional yet simple and intuitive pattern-based drum programming.")
547 (license license:gpl2+)))
549 (define-public easytag
555 (uri (string-append "mirror://gnome/sources/easytag/2.4/easytag-"
559 "1mbxnqrw1fwcgraa1bgik25vdzvf97vma5pzknbwbqq5ly9fwlgw"))))
560 (build-system glib-or-gtk-build-system)
562 `(("desktop-file-utils" ,desktop-file-utils)
564 ("intltool" ,intltool)
566 ("pkg-config" ,pkg-config)
567 ("xmllint" ,libxml2)))
572 ("libid3tag" ,libid3tag)
573 ("libvorbis" ,libvorbis)
574 ("opusfile" ,opusfile)
581 (modify-phases %standard-phases
582 (add-before 'configure 'configure-libid3tag
583 (lambda* (#:key inputs #:allow-other-keys)
584 ;; libid3tag does not provide a .pc file and EasyTAG's configure
585 ;; script healivy relies on pkg-config. Providing a temporary
586 ;; local .pc file is easier than patching the configure script.
587 (let* ((libid3tag (assoc-ref inputs "libid3tag")))
588 (mkdir-p "pkgconfig")
590 "pkgconfig/id3tag.pc"
594 libdir=${prefix}/lib~@
595 includedir=${prefix}/include~@
596 Libs: -L${libdir} -lid3tag -lz~@
597 Cflags: -I${includedir}~%"
599 (setenv "PKG_CONFIG_PATH"
600 (string-append (getenv "PKG_CONFIG_PATH")
601 ":" (getcwd) "/pkgconfig")))))
602 (add-after 'unpack 'patch-makefile
604 (substitute* "Makefile.in"
605 ;; The Makefile generates a test-desktop-file-validate.sh
606 ;; script with /bin/sh hard-coded.
607 (("/bin/sh") (which "sh"))
608 ;; Don't create 'icon-theme.cache'.
609 (("gtk-update-icon-cache") "true")))))))
610 (home-page "https://wiki.gnome.org/Apps/EasyTAG")
611 (synopsis "Simple application for viewing and editing tags in audio files")
613 "EasyTAG is an application for viewing and editing tags in audio files.
614 It supports MP3, MP2, MP4/AAC, FLAC, Ogg Opus, Ogg Speex, Ogg Vorbis,
615 MusePack, Monkey's Audio, and WavPack files.")
616 (license license:gpl2+)))
618 (define-public extempore
625 (url "https://github.com/digego/extempore.git")
629 "12fsp7zkfxb9kykwq46l88kcbbici9arczrrsl4qn87m6vm5349l"))
630 (file-name (string-append name "-" version "-checkout"))))
631 (build-system cmake-build-system)
633 `(;; The default target also includes ahead-of-time compilation of the
634 ;; standard libraries. However, during the "install" phase this would
635 ;; happen *again* for unknown reasons. Hence we only build the
636 ;; extempore executable during the build phase.
637 #:make-flags '("extempore")
638 #:configure-flags '("-DJACK=ON"
639 ;; We want to distribute.
641 ;; Don't download any dependencies.
643 #:modules ((ice-9 match)
644 (guix build cmake-build-system)
647 (modify-phases %standard-phases
648 (add-after 'unpack 'patch-directories
649 (lambda* (#:key outputs #:allow-other-keys)
650 ;; Rewrite default path to runtime directory
651 (substitute* "src/Extempore.cpp"
652 (("runtimedir \\+= \"runtime\"")
653 (string-append "runtimedir = \""
654 (assoc-ref outputs "out")
655 "/lib/extempore/runtime\"")))
656 (substitute* "extras/extempore.el"
657 (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
658 (string-append "(runtime-directory \""
659 (assoc-ref outputs "out")
660 "/lib/extempore/runtime"
663 (add-after 'unpack 'link-with-additional-libs
665 ;; The executable must be linked with libffi and zlib.
666 (substitute* "CMakeLists.txt"
667 (("add_dependencies\\(aot_extended extended_deps\\)") "")
668 (("target_link_libraries\\(extempore PRIVATE dl" line)
669 (string-append line " ffi z")))
671 ;; FIXME: AOT compilation of the nanovg bindings fail with the error:
672 ;; "Compiler Error could not bind _nvgLinearGradient"
673 (add-after 'unpack 'disable-nanovg
675 (substitute* "CMakeLists.txt"
676 (("aotcompile_lib\\(libs/external/nanovg.xtm.*") ""))
678 ;; FIXME: All examples that are used as tests segfault for some
680 (add-after 'unpack 'disable-broken-tests
682 (substitute* "CMakeLists.txt"
683 (("extempore_add_example_as_test\\(.*") ""))
685 (add-after 'unpack 'hardcode-external-lib-paths
686 (lambda* (#:key inputs #:allow-other-keys)
687 (use-modules (ice-9 match))
690 ((file-name lib pkg-name)
691 (substitute* (string-append "libs/external/" file-name ".xtm")
692 ((lib) (string-append (assoc-ref inputs pkg-name)
694 '(("assimp" "libassimp.so" "assimp")
695 ("portmidi" "libportmidi.so" "portmidi")
696 ("sndfile" "libsndfile.so" "libsndfile")
697 ("fft" "libkiss_fft.so" "kiss-fft")
698 ("stb_image" "libstb_image.so" "stb-image")
699 ("nanovg" "libnanovg.so" "nanovg")
700 ("glext" "libGL.so" "mesa")
701 ("glfw3" "libglfw.so" "glfw")
702 ("gl/glcore-directbind" "libGL.so" "mesa")
703 ("gl/glcompat-directbind" "libGL.so" "mesa")))
705 (add-after 'unpack 'use-own-llvm
706 (lambda* (#:key inputs #:allow-other-keys)
707 (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
708 ;; Our LLVM builds shared libraries, so Extempore should use
710 (substitute* "CMakeLists.txt"
711 (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
713 (add-after 'unpack 'fix-aot-compilation
714 (lambda* (#:key outputs #:allow-other-keys)
715 (substitute* "CMakeLists.txt"
716 ;; EXT_SHARE_DIR does not exist before installation, so the
717 ;; working directory should be the source directory instead.
718 (("WORKING_DIRECTORY \\$\\{EXT_SHARE_DIR\\}")
719 "WORKING_DIRECTORY ${CMAKE_SOURCE_DIR}")
720 ;; Extempore needs to be told where the runtime is to be found.
721 ;; While we're at it we disable automatic tuning for a specific
722 ;; CPU to make binary substitution possible.
723 (("COMMAND extempore" prefix)
724 (string-append prefix " --sharedir " (getcwd)
725 " --mcpu=generic --attr=none")))
728 `(("llvm" ,llvm-for-extempore)
731 ("libsndfile" ,libsndfile)
734 ("stb-image" ,stb-image-for-extempore)
735 ("kiss-fft" ,kiss-fft-for-extempore)
736 ("nanovg" ,nanovg-for-extempore)
737 ("portmidi" ,portmidi-for-extempore)
739 ("alsa-lib" ,alsa-lib)
740 ("portaudio" ,portaudio)
746 ("emacs" ,emacs-no-x)))
747 ;; Extempore refuses to build on architectures other than x86_64
748 (supported-systems '("x86_64-linux"))
749 (home-page "http://digego.github.io/extempore/")
750 (synopsis "Programming environment for live coding of multimedia")
752 "Extempore is a programming language and runtime environment designed
753 with live programming in mind. It supports interactive programming in a REPL
754 style, compiling and binding code just-in-time. Although Extempore has its
755 roots in 'live coding' of audiovisual media art, it is suitable for any task
756 domain where dynamic run-time modifiability and good numerical performance are
757 required. Extempore also has strong timing and concurrency semantics, which
758 are helpful when working in problem spaces where timing is important (such as
760 (license license:bsd-2)))
768 (uri (string-append "http://das.nasophon.de/download/klick-"
772 "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
773 (build-system scons-build-system)
775 `(#:scons-flags (list (string-append "PREFIX=" %output))
776 #:scons ,scons-python2
777 #:tests? #f ; no "check" target
779 (modify-phases %standard-phases
780 (add-after 'unpack 'replace-removed-scons-syntax
782 (substitute* "SConstruct"
783 (("BoolOption") "BoolVariable")
784 (("PathOption") "PathVariable")
785 (("Options") "Variables"))
790 ("libsndfile" ,libsndfile)
791 ("libsamplerate" ,libsamplerate)
793 ("rubberband" ,rubberband)))
795 `(("pkg-config" ,pkg-config)))
796 (home-page "http://das.nasophon.de/klick/")
797 (synopsis "Metronome for JACK")
799 "klick is an advanced command-line based metronome for JACK. It allows
800 you to define complex tempo maps for entire songs or performances.")
801 (license license:gpl2+)))
803 (define-public gtklick
809 (uri (string-append "http://das.nasophon.de/download/gtklick-"
813 "0dq1km6njnzsqdqyf6wzir9g733z0mc9vmxfg2383k3c2a2di6bp"))))
814 (build-system python-build-system)
816 `(#:tests? #f ; no tests
819 (modify-phases %standard-phases
820 (add-before 'build 'add-sitedirs
821 ;; .pth files are not automatically interpreted unless the
822 ;; directories containing them are added as "sites". The directories
823 ;; are then added to those in the PYTHONPATH. This is required for
824 ;; the operation of pygtk.
826 (substitute* "gtklick/gtklick.py"
828 "import pygtk, site, sys
829 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))))
830 (add-after 'unpack 'inject-store-path-to-klick
831 (lambda* (#:key inputs #:allow-other-keys)
832 (substitute* "gtklick/klick_backend.py"
833 (("KLICK_PATH = 'klick'")
834 (string-append "KLICK_PATH = '"
835 (assoc-ref inputs "klick")
840 ("python2-pyliblo" ,python2-pyliblo)
841 ("python2-pygtk" ,python2-pygtk)))
843 `(("gettext" ,gettext-minimal)))
844 (home-page "http://das.nasophon.de/gtklick/")
845 (synopsis "Simple metronome with an easy-to-use graphical interface")
847 "Gtklick is a simple metronome with an easy-to-use graphical user
848 interface. It is implemented as a frontend to @code{klick}.")
849 (license license:gpl2+)))
851 (define-public libgme
857 (uri (string-append "https://bitbucket.org/mpyne/game-music-emu/"
858 "downloads/game-music-emu-" version
862 "0hkkmxbaas2sirlb5i4r10mgbbiaapjx8pazifabwba23m3wnijh"))))
863 (build-system cmake-build-system)
865 '(#:tests? #f)) ; no check target
867 `(;; Use gcc-4.9 to work around an internal compiler error that happens
868 ;; when using gcc-5.5.0. FIXME: Try removing this when the default
869 ;; compiler is no longer gcc-5.5.0.
871 (home-page "https://bitbucket.org/mpyne/game-music-emu")
872 (synopsis "Video game music file playback library")
874 "Game-music-emu is a collection of video game music file emulators that
875 support the following formats and systems:
878 ZX Spectrum/Asmtrad CPC
882 Sega Genesis/Mega Drive
884 NEC TurboGrafx-16/PC Engine
886 MSX Home Computer/other Z80 systems (doesn't support FM sound)
888 Nintendo NES/Famicom (with VRC 6, Namco 106, and FME-7 sound)
890 Atari systems using POKEY sound chip
892 Super Nintendo/Super Famicom
894 Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC Micro
896 (license (list license:lgpl2.1+
897 ;; demo and player directories are under the Expat license
900 (define-public lilypond
907 "http://download.linuxaudio.org/lilypond/sources/v"
908 (version-major+minor version) "/"
909 name "-" version ".tar.gz"))
912 "0lql4q946gna2pl1g409mmmsvn2qvnq2z5cihrkfhk7plcqdny9n"))))
913 (build-system gnu-build-system)
915 `(#:tests? #f ; out-test/collated-files.html fails
917 #:make-flags '("conf=www") ;to generate images for info manuals
919 (list "CONFIGURATION=www"
920 (string-append "--with-texgyre-dir="
921 (assoc-ref %build-inputs "font-tex-gyre")
922 "/share/fonts/opentype/"))
924 (modify-phases %standard-phases
925 (add-after 'unpack 'use-texlive-union
927 ;; FIXME: fonts are not found and have to be generated in HOME.
928 (setenv "HOME" "/tmp")
929 ;; The test for the "lh" package fails, even though it is among
931 (substitute* "configure"
932 (("TEX_FIKPARM=.*") "TEX_FIKPARM=found\n"))
934 (add-after 'unpack 'fix-path-references
936 (substitute* "scm/backend-library.scm"
937 (("\\(search-executable '\\(\"gs\"\\)\\)")
938 (string-append "\"" (which "gs") "\""))
940 (string-append "\"" (which "sh") "\"")))
942 (add-before 'configure 'prepare-configuration
944 (substitute* "configure"
945 (("SHELL=/bin/sh") "SHELL=sh")
946 ;; When checking the fontforge version do not consider the
947 ;; version string that's part of the directory.
948 (("head -n") "tail -n")
949 ;; Also allow for SOURCE_DATE_EPOCH = 0 in fontforge.
950 (("20110222") "19700101"))
952 (setenv "conf" "www")
954 (add-after 'install 'install-info
957 "-j" (number->string (parallel-job-count))
958 "conf=www" "install-info")
961 `(("guile" ,guile-1.8)
962 ("font-dejavu" ,font-dejavu)
963 ("font-tex-gyre" ,font-tex-gyre)
964 ("fontconfig" ,fontconfig)
965 ("freetype" ,freetype)
966 ("ghostscript" ,ghostscript)
968 ("python" ,python-2)))
973 ("fontforge" ,fontforge)
975 ("gettext" ,gettext-minimal)
976 ("imagemagick" ,imagemagick)
977 ("netpbm" ,netpbm) ;for pngtopnm
978 ("texlive" ,(texlive-union (list texlive-metapost
981 texlive-latex-cyrillic)))
983 ("texi2html" ,texi2html)
985 ("pkg-config" ,pkg-config)
987 (home-page "http://www.lilypond.org/")
988 (synopsis "Music typesetting")
990 "GNU LilyPond is a music typesetter, which produces high-quality sheet
991 music. Music is input in a text file containing control sequences which are
992 interpreted by LilyPond to produce the final document. It is extendable with
994 (license license:gpl3+)
996 ;; On armhf and mips64el, building the documentation sometimes leads to
997 ;; more than an hour of silence, so double the max silent time.
998 (properties `((max-silent-time . 7200)))))
1000 (define-public non-sequencer
1001 ;; The latest tagged release is three years old and uses a custom build
1002 ;; system, so we take the last commit.
1003 (let ((commit "5ae43bb27c42387052a73e5ffc5d33efb9d946a9")
1006 (name "non-sequencer")
1007 (version (string-append "1.9.5-" revision "." (string-take commit 7)))
1011 (url "git://git.tuxfamily.org/gitroot/non/non.git")
1015 "1cljkkyi9dxqpqhx8y6l2ja4zjmlya26m26kqxml8gx08vyvddhx"))
1016 (file-name (string-append name "-" version "-checkout"))))
1017 (build-system waf-build-system)
1019 `(#:tests? #f ;no "check" target
1021 (list "--project=sequencer"
1022 ;; Disable the use of SSE unless on x86_64.
1023 ,@(if (not (string-prefix? "x86_64" (or (%current-target-system)
1024 (%current-system))))
1028 (modify-phases %standard-phases
1030 'configure 'set-flags
1032 ;; Compile with C++11, required by libsigc++.
1033 (setenv "CXXFLAGS" "-std=c++11")
1035 #:python ,python-2))
1038 ("libsigc++" ,libsigc++)
1042 `(("pkg-config" ,pkg-config)))
1043 (home-page "http://non.tuxfamily.org/wiki/Non%20Sequencer")
1044 (synopsis "Pattern-based MIDI sequencer")
1046 "The Non Sequencer is a powerful, lightweight, real-time,
1047 pattern-based MIDI sequencer. It utilizes the JACK Audio Connection Kit for
1048 MIDI I/O and the NTK GUI toolkit for its user interface. Everything in Non
1049 Sequencer happens on-line, in real-time. Music can be composed live, while the
1050 transport is rolling.")
1051 (license license:gpl2+))))
1053 (define-public non-session-manager
1054 (package (inherit non-sequencer)
1055 (name "non-session-manager")
1057 (substitute-keyword-arguments (package-arguments non-sequencer)
1058 ((#:configure-flags flags)
1059 `(cons "--project=session-manager"
1060 (delete "--project=sequencer" ,flags)))))
1066 `(("pkg-config" ,pkg-config)))
1067 (home-page "http://non.tuxfamily.org/nsm/")
1068 (synopsis "Audio session management")
1070 "The Non Session Manager is an API and an implementation for audio
1071 session management. NSM clients use a well-specified OSC protocol to
1072 communicate with the session management daemon.")
1073 (license license:gpl2+)))
1075 (define-public non-mixer
1076 (package (inherit non-sequencer)
1079 (substitute-keyword-arguments (package-arguments non-sequencer)
1080 ((#:configure-flags flags)
1081 `(cons "--project=mixer"
1082 (delete "--project=sequencer" ,flags)))))
1090 `(("pkg-config" ,pkg-config)))
1091 (home-page "http://non.tuxfamily.org/wiki/Non%20Mixer")
1092 (synopsis "Modular digital audio mixer")
1094 "The Non Mixer is a powerful, reliable and fast modular digital audio
1095 mixer. It utilizes JACK for inter-application audio I/O and the NTK GUI
1096 toolkit for a fast and lightweight user interface. Non Mixer can be used
1097 alone or in concert with Non Timeline and Non Sequencer to form a complete
1099 (license license:gpl2+)))
1101 (define-public non-timeline
1102 (package (inherit non-sequencer)
1103 (name "non-timeline")
1105 (substitute-keyword-arguments (package-arguments non-sequencer)
1106 ((#:configure-flags flags)
1107 `(cons "--project=timeline"
1108 (delete "--project=sequencer" ,flags)))))
1112 ("libsndfile" ,libsndfile)
1115 `(("pkg-config" ,pkg-config)))
1116 (home-page "http://non.tuxfamily.org/wiki/Non%20Timeline")
1117 (synopsis "Modular digital audio timeline arranger")
1119 "The Non Timeline is a powerful, reliable and fast modular digital audio
1120 timeline arranger. It utilizes JACK for inter-application audio I/O and the
1121 NTK GUI toolkit for a fast and lightweight user interface. Non Timeline can
1122 be used alone or in concert with Non Mixer and Non Sequencer to form a
1124 (license license:gpl2+)))
1126 (define-public solfege
1133 "mirror://gnu/solfege/solfege-"
1137 "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
1138 (build-system gnu-build-system)
1140 `(#:tests? #f ; xmllint attempts to download DTD
1141 #:test-target "test"
1143 (modify-phases %standard-phases
1144 (add-after 'unpack 'fix-configuration
1145 (lambda* (#:key inputs #:allow-other-keys)
1146 (substitute* "default.config"
1147 (("/usr/bin/aplay") "aplay")
1148 (("/usr/bin/timidity") "timidity")
1149 (("/usr/bin/mpg123") "mpg123")
1150 (("/usr/bin/ogg123") "ogg123"))
1152 (add-before 'build 'patch-python-shebangs
1154 ;; Two python scripts begin with a Unicode BOM, so patch-shebang
1156 (substitute* '("solfege/parsetree.py"
1157 "solfege/presetup.py")
1158 (("#!/usr/bin/python") (string-append "#!" (which "python"))))
1160 (add-before 'build 'add-sitedirs
1161 ;; .pth files are not automatically interpreted unless the
1162 ;; directories containing them are added as "sites". The directories
1163 ;; are then added to those in the PYTHONPATH. This is required for
1164 ;; the operation of pygtk and pygobject.
1166 (substitute* "run-solfege.py"
1169 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))
1171 (add-before 'build 'adjust-config-file-prefix
1172 (lambda* (#:key outputs #:allow-other-keys)
1173 (substitute* "run-solfege.py"
1174 (("prefix = os.path.*$")
1175 (string-append "prefix = " (assoc-ref outputs "out"))))
1177 (add-after 'install 'wrap-program
1178 (lambda* (#:key inputs outputs #:allow-other-keys)
1179 ;; Make sure 'solfege' runs with the correct PYTHONPATH.
1180 (let* ((out (assoc-ref outputs "out"))
1181 (path (getenv "PYTHONPATH")))
1182 (wrap-program (string-append out "/bin/solfege")
1183 `("PYTHONPATH" ":" prefix (,path))))
1186 `(("python" ,python-2)
1187 ("pygtk" ,python2-pygtk)
1188 ("gettext" ,gettext-minimal)
1190 ("lilypond" ,lilypond)))
1192 `(("pkg-config" ,pkg-config)
1193 ("txt2man" ,txt2man)
1194 ("libxml2" ,libxml2) ; for tests
1195 ("ghostscript" ,ghostscript)
1196 ("texinfo" ,texinfo)))
1197 (home-page "https://www.gnu.org/software/solfege/")
1198 (synopsis "Ear training")
1200 "GNU Solfege is a program for practicing musical ear-training. With it,
1201 you can practice your recognition of various musical intervals and chords. It
1202 features a statistics overview so you can monitor your progress across several
1203 sessions. Solfege is also designed to be extensible so you can easily write
1205 (license license:gpl3+)))
1207 (define-public powertabeditor
1209 (name "powertabeditor")
1210 (version "2.0.0-alpha10")
1214 (url "https://github.com/powertab/powertabeditor.git")
1216 (file-name (git-file-name name version))
1219 "1z4fhdp71ck9synr12rg1p6365xnypd8ih40c5icj4si36khvksk"))
1220 (modules '((guix build utils)))
1223 ;; Remove bundled sources for external libraries
1224 (delete-file-recursively "external")
1225 ;; Use only system libraries
1226 (substitute* "CMakeLists.txt"
1227 (("include\\( PTE_ThirdParty \\)")
1229 include(third_party/Qt)
1230 include(third_party/boost)
1231 add_library( Catch INTERFACE IMPORTED )
1232 add_library( rapidjson INTERFACE IMPORTED )"))
1234 (build-system cmake-build-system)
1236 `(#:modules ((guix build cmake-build-system)
1240 ;; CMake appears to lose the RUNPATH for some reason, so it has to be
1241 ;; explicitly set with CMAKE_INSTALL_RPATH.
1242 (list "-DCMAKE_BUILD_WITH_INSTALL_RPATH=TRUE"
1243 (string-append "-DCMAKE_INSTALL_RPATH="
1244 (string-join (map (match-lambda
1246 (string-append directory "/lib")))
1247 %build-inputs) ";"))
1248 "-DPTE_DATA_DIR=share/powertabeditor")
1250 (modify-phases %standard-phases
1253 (invoke "bin/pte_tests"
1254 ;; FIXME: these tests fail
1255 "exclude:Actions/EditStaff"
1256 "exclude:Formats/PowerTabOldImport/MergeMultiBarRests"
1257 "exclude:Score/ViewFilter/FilterRule"
1258 "exclude:Score/ViewFilter/ViewFilter"
1259 "exclude:Formats/PowerTabOldImport/Directions")
1261 ;; FIXME: This bug has been fixed upstream, but no release has been
1262 ;; made yet. See https://github.com/powertab/powertabeditor/issues/257
1263 (add-after 'unpack 'fix-boost-bug
1265 (substitute* "source/score/voiceutils.cpp"
1266 (("boost::rational<int> duration\\(4, pos.getDurationType\\(\\)\\);")
1267 "boost::rational<int> duration(4, static_cast<int>(pos.getDurationType()));"))
1269 ;; Fix build with Qt 5.11.
1270 (add-after 'unpack 'add-missing-headers
1272 (substitute* (find-files "source/dialogs/" "\\.h$")
1273 (("#include <QDialog>" m)
1274 (string-append m "\n#include <QButtonGroup>")))
1275 (substitute* "source/widgets/mixer/mixeritem.h"
1276 (("#include <QWidget>" m)
1277 (string-append m "\n#include <QStyle>")))
1278 (substitute* "source/widgets/playback/playbackwidget.h"
1279 (("#include <QWidget>" m)
1280 (string-append m "\n#include <QButtonGroup>\n#include <QAction>")))
1282 (add-before 'configure 'remove-third-party-libs
1283 (lambda* (#:key inputs #:allow-other-keys)
1284 ;; Link with required static libraries, because we're not
1285 ;; using the bundled version of withershins.
1286 ;; Also add pthread for fixing a linker error.
1287 (substitute* "source/build/CMakeLists.txt"
1288 (("withershins" line)
1289 (string-append line "\n"
1290 (assoc-ref inputs "binutils")
1292 (assoc-ref inputs "libiberty")
1293 "/lib/libiberty.a\n"
1300 ("alsa-lib" ,alsa-lib)
1302 ("withershins" ,withershins)
1303 ("libiberty" ,libiberty) ;for withershins
1304 ("binutils" ,binutils) ;for -lbfd and -liberty (for withershins)
1305 ("timidity" ,timidity++)
1306 ("pugixml" ,pugixml)
1308 ("rapidjson" ,rapidjson)
1311 `(("catch" ,catch-framework)
1312 ("pkg-config" ,pkg-config)))
1313 (home-page "http://powertabs.net")
1314 (synopsis "Guitar tablature editor")
1316 "Power Tab Editor 2.0 is the successor to the famous original Power Tab
1317 Editor. It is compatible with Power Tab Editor 1.7 and Guitar Pro.")
1318 (license license:gpl3+)))
1320 (define-public jalv-select
1322 (name "jalv-select")
1327 (url "https://github.com/brummer10/jalv_select.git")
1328 (commit (string-append "v" version))))
1329 (file-name (git-file-name name version))
1332 "15yanq1wra0hyh6x72ji7pk562iddg476g3vksj495x91zhnl6vm"))))
1333 (build-system gnu-build-system)
1336 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1338 (modify-phases %standard-phases
1340 (add-after 'unpack 'ignore-PATH
1341 (lambda* (#:key inputs #:allow-other-keys)
1342 (substitute* "jalv.select.cpp"
1343 (("echo \\$PATH.*tr ':'.*xargs ls")
1344 (string-append "ls -1 " (assoc-ref inputs "jalv") "/bin")))
1346 (add-before 'reset-gzip-timestamps 'make-manpages-writable
1347 (lambda* (#:key outputs #:allow-other-keys)
1348 (for-each make-file-writable
1349 (find-files (string-append (assoc-ref outputs "out")
1357 ("gtkmm" ,gtkmm-2)))
1359 `(("pkg-config" ,pkg-config)))
1360 (home-page "https://github.com/brummer10/jalv_select")
1361 (synopsis "GUI to select LV2 plugins and run them with jalv")
1363 "The jalv.select package provides a graphical user interface allowing
1364 users to select LV2 plugins and run them with jalv.")
1365 (license license:public-domain)))
1367 (define-public synthv1
1374 (string-append "mirror://sourceforge/synthv1/synthv1/" version
1375 "/synthv1-" version ".tar.gz"))
1378 "15kabmxp38wqvavs5hr1dqasjjf1j977kzqggxfmzyi3y5fan3hj"))))
1379 (build-system gnu-build-system)
1381 `(#:tests? #f)) ; there are no tests
1385 ("alsa-lib" ,alsa-lib)
1386 ("non-session-manager" ,non-session-manager)
1389 ("qttools" ,qttools)))
1391 `(("pkg-config" ,pkg-config)))
1392 (home-page "https://synthv1.sourceforge.io")
1393 (synopsis "Polyphonic subtractive synthesizer")
1395 "Synthv1 is an old-school subtractive polyphonic synthesizer with four
1396 oscillators and stereo effects.")
1397 (license license:gpl2+)))
1399 (define-public drumkv1
1406 (string-append "mirror://sourceforge/drumkv1/drumkv1/" version
1407 "/drumkv1-" version ".tar.gz"))
1410 "010p8nwnmqgj5mw324psig3hxi1g2gylxrigd6sj6sgcpy3kdm23"))))
1411 (build-system gnu-build-system)
1413 `(#:tests? #f)) ; there are no tests
1417 ("libsndfile" ,libsndfile)
1418 ("alsa-lib" ,alsa-lib)
1419 ("non-session-manager" ,non-session-manager)
1421 ("qtbase" ,qtbase)))
1423 `(("pkg-config" ,pkg-config)
1424 ("qttools" ,qttools)))
1425 (home-page "https://drumkv1.sourceforge.io")
1426 (synopsis "Drum-kit sampler synthesizer with stereo effects")
1428 "Drumkv1 is an old-school drum-kit sampler synthesizer with stereo
1430 (license license:gpl2+)))
1432 (define-public samplv1
1439 (string-append "mirror://sourceforge/samplv1/samplv1/" version
1440 "/samplv1-" version ".tar.gz"))
1443 "138kd9szgn3b97s7crhsyj8pgwb0bn4l9knd4zliqjgj2f1bs9x0"))))
1444 (build-system gnu-build-system)
1446 `(#:tests? #f)) ; there are no tests
1450 ("libsndfile" ,libsndfile)
1451 ("alsa-lib" ,alsa-lib)
1452 ("non-session-manager" ,non-session-manager)
1454 ("qtbase" ,qtbase)))
1456 `(("pkg-config" ,pkg-config)
1457 ("qttools" ,qttools)))
1458 (home-page "https://samplv1.sourceforge.io")
1459 (synopsis "Polyphonic sampler synthesizer with stereo effects")
1461 "Samplv1 is an old-school polyphonic sampler synthesizer with stereo
1463 (license license:gpl2+)))
1465 (define-public padthv1
1472 (string-append "mirror://sourceforge/padthv1/padthv1/" version
1473 "/padthv1-" version ".tar.gz"))
1476 "1k4p2ir12qjcs62knvw2s6qyvb46203yx22fnwp341cjk171cxji"))))
1477 (build-system gnu-build-system)
1479 `(#:tests? #f)) ; there are no tests
1483 ("alsa-lib" ,alsa-lib)
1484 ("non-session-manager" ,non-session-manager)
1487 ("qtbase" ,qtbase)))
1489 `(("pkg-config" ,pkg-config)
1490 ("qttools" ,qttools)))
1491 (home-page "https://padthv1.sourceforge.io")
1492 (synopsis "Polyphonic additive synthesizer")
1494 "Padthv1 is an old-school polyphonic additive synthesizer with stereo
1495 effects. Padthv1 is based on the PADsynth algorithm by Paul Nasca, as a
1496 special variant of additive synthesis.")
1497 (license license:gpl2+)))
1499 (define-public amsynth
1506 (uri (string-append "https://github.com/amsynth/amsynth/releases/"
1507 "download/release-" version
1508 "/amsynth-" version ".tar.bz2"))
1511 "1882pfcmf3rqg3vd4qflzkppcv158d748i603spqjbxqi8z7x7w0"))))
1512 (build-system gnu-build-system)
1515 (modify-phases %standard-phases
1516 (add-before 'configure 'set-flags
1518 ;; Compile with C++11, required by gtkmm.
1519 (setenv "CXXFLAGS" "-std=c++11")
1522 `(("alsa-lib" ,alsa-lib)
1526 ("libsndfile" ,libsndfile)
1528 ("gtkmm" ,gtkmm-2)))
1530 `(("pkg-config" ,pkg-config)
1531 ("intltool" ,intltool)))
1532 (home-page "http://amsynth.github.io")
1533 (synopsis "Analog modeling synthesizer")
1535 "amsynth is an easy-to-use software synthesizer with a classic
1536 subtractive synthesizer topology. Its features include: dual
1537 oscillators (sine, saw, square, noise) with hard sync; 12 and 24 dB/oct
1538 resonant filters (low-pass, high-pass, band-pass, notch); mono, poly, legato
1539 keyboard modes; dual ADSR envelope generators for filter and amplitude; LFO
1540 which can modulate the oscillators, filter, and amplitude; distortion and
1542 (license license:gpl2+)))
1544 (define-public setbfree
1551 (url "https://github.com/pantherb/setBfree")
1552 (commit (string-append "v" version))))
1553 (file-name (git-file-name name version))
1556 "1lpsa64xvwa9xbbp8zcwxy5w0daffc7fziny2pizabqh7m9xqjl2"))))
1557 (build-system gnu-build-system)
1559 `(#:tests? #f ; no "check" target
1561 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1562 (string-append "FONTFILE="
1563 (assoc-ref %build-inputs "font-bitstream-vera")
1564 "/share/fonts/truetype/VeraBd.ttf")
1565 ;; Disable unsupported optimization flags on non-x86
1566 ,@(let ((system (or (%current-target-system)
1567 (%current-system))))
1568 (if (or (string-prefix? "x86_64" system)
1569 (string-prefix? "i686" system))
1571 '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
1573 (modify-phases %standard-phases
1574 (add-before 'build 'set-CC-variable
1575 (lambda _ (setenv "CC" "gcc") #t))
1576 (delete 'configure))))
1580 ("zita-convolver" ,zita-convolver)
1583 ("font-bitstream-vera" ,font-bitstream-vera)))
1585 `(("help2man" ,help2man)
1586 ("pkg-config" ,pkg-config)))
1587 (home-page "http://setbfree.org")
1588 (synopsis "Tonewheel organ")
1590 "setBfree is a MIDI-controlled, software synthesizer designed to imitate
1591 the sound and properties of the electromechanical organs and sound
1592 modification devices that brought world-wide fame to the names and products of
1593 Laurens Hammond and Don Leslie.")
1594 (license license:gpl2+)))
1596 (define-public beast
1602 (uri (string-append "https://testbit.eu/pub/dists/beast/beast-"
1606 "1jzzmfwssklzw8fvvil04n8csc0zm99fnd9p2xa7c0xchg37lvhn"))))
1607 (build-system gnu-build-system)
1609 '(#:parallel-build? #f)) ; Race conditions cause build failures
1611 `(("rapicorn" ,rapicorn)
1612 ("guile" ,guile-1.8)
1613 ("python" ,python-2)
1614 ("libgnomecanvas" ,libgnomecanvas)
1618 ("alsa-lib" ,alsa-lib)
1619 ("libvorbis" ,libvorbis)
1620 ("gettext" ,gettext-minimal)))
1622 `(("pkg-config" ,pkg-config)
1623 ("glib:bin" ,glib "bin")
1624 ("cython" ,python2-cython)
1626 ("perl-xml-parser" ,perl-xml-parser)))
1627 (home-page "https://testbit.eu/wiki/Beast_Home")
1628 (synopsis "Music composition and modular synthesis environment")
1630 "Beast is a music composition and modular synthesis application. It
1631 supports a wide range of standards in the field, such as MIDI, various audio
1632 file formats and LADSPA modules. It allows for multitrack editing, real-time
1633 synthesis, 32bit audio rendering, precise timing down to sample granularity,
1634 on-demand and partial loading of wave files, on the fly decoding, stereo
1635 mixing, FFT scopes, MIDI automation and full scriptability in Scheme.")
1636 (license license:gpl3+)))
1638 (define-public bristol
1644 (uri (string-append "mirror://sourceforge/bristol/bristol/"
1645 (version-major+minor version)
1646 "/bristol-" version ".tar.gz"))
1649 "1fi2m4gmvxdi260821y09lxsimq82yv4k5bbgk3kyc3x1nyhn7vx"))))
1650 (build-system gnu-build-system)
1653 (modify-phases %standard-phases
1654 (add-after 'unpack 'remove-sse-flags
1655 (lambda* (#:key system #:allow-other-keys)
1656 (when (not (or (string-prefix? "x86_64" system)
1657 (string-prefix? "i686" system)))
1658 (substitute* "bristol/Makefile.in"
1659 (("-msse -mfpmath=sse") "")))
1661 ;; alsa-lib 1.1.x no longer provides iatomic.h. That's okay because
1662 ;; bristol actually doesn't use it.
1663 (add-after 'unpack 'do-not-use-alsa-iatomic
1665 (substitute* "libbristolaudio/audioEngineJack.c"
1666 (("#include <alsa/iatomic.h>") ""))
1668 ;; We know that Bristol has been linked with JACK and we don't have
1669 ;; ldd, so we can just skip this check.
1670 (add-after 'unpack 'do-not-grep-for-jack
1672 (substitute* "bin/startBristol.in"
1673 (("ldd `which bristol` | grep jack") "echo guix"))
1676 `(("alsa-lib" ,alsa-lib)
1679 ("libx11" ,libx11)))
1681 `(("pkg-config" ,pkg-config)))
1682 (home-page "http://bristol.sourceforge.net/")
1683 (synopsis "Synthesizer emulator")
1685 "Bristol is an emulation package for a number of different @code{classic}
1686 synthesizers including additive and subtractive and a few organs. The
1687 application consists of the engine, which is called bristol, and its own GUI
1688 library called brighton that represents all the emulations. There are
1689 currently more than twenty different emulations; each does sound different
1690 although the author maintains that the quality and accuracy of each emulation
1692 (license license:gpl3+)))
1694 (define-public tuxguitar
1701 "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
1702 version "/tuxguitar-" version "-src.tar.gz"))
1705 "10arfpgm2pw7mn922klklzn05lw5ifqx070shdrar81afmkfbbd9"))))
1706 (build-system ant-build-system)
1708 `(#:build-target "build"
1710 #:tests? #f ; no tests
1712 (modify-phases %standard-phases
1713 (add-after 'unpack 'enter-dir
1714 (lambda _ (chdir "TuxGuitar-lib") #t))
1715 (add-after 'build 'build-libraries
1716 (lambda* (#:key inputs outputs #:allow-other-keys)
1717 (let* ((initial-classpath (getenv "CLASSPATH"))
1718 (build-dir (lambda (dir)
1721 (string-join (cons initial-classpath
1722 (find-files (getcwd) "\\.jar$"))
1725 (if (file-exists? "build.xml")
1726 ((assoc-ref %standard-phases 'build)
1727 #:build-target "build")
1729 ;; Generate default build.xml.
1730 ((@@ (guix build ant-build-system) default-build.xml)
1731 (string-append (string-downcase dir) ".jar")
1732 (string-append (assoc-ref outputs "out")
1734 ((assoc-ref %standard-phases 'build)))))))
1735 (map build-dir '("TuxGuitar-editor-utils"
1736 "TuxGuitar-ui-toolkit"
1737 "TuxGuitar-ui-toolkit-swt"
1738 "TuxGuitar-awt-graphics")))))
1739 (add-after 'build-libraries 'build-application
1741 (chdir "../TuxGuitar")
1742 ((assoc-ref %standard-phases 'build)
1743 #:build-target "build")))
1745 (lambda* (#:key inputs outputs #:allow-other-keys)
1746 (let* ((out (assoc-ref outputs "out"))
1747 (bin (string-append out "/bin"))
1748 (share (string-append out "/share"))
1749 (lib (string-append share "/java"))
1750 (swt (assoc-ref inputs "java-swt")))
1752 ;; Install all jars.
1753 (for-each (lambda (file)
1754 (install-file file lib))
1755 (find-files ".." "\\.jar$"))
1757 ;; Install all resources.
1758 (copy-recursively "share" share)
1761 (call-with-output-file (string-append bin "/tuxguitar")
1763 (let ((classpath (string-join (append (find-files lib "\\.jar$")
1764 (find-files swt "\\.jar$"))
1768 (string-append "#!/bin/sh\n"
1771 " -Dtuxguitar.home.path=" out
1772 " -Dtuxguitar.share.path=" out "/share"
1773 " -Dswt.library.path=" swt "/lib"
1774 " org.herac.tuxguitar.app.TGMainSingleton"
1775 " \"$1\" \"$2\"")))))
1776 (chmod (string-append bin "/tuxguitar") #o555)
1779 `(("java-swt" ,java-swt)))
1780 (home-page "http://tuxguitar.com.ar/")
1781 (synopsis "Multitrack tablature editor and player")
1783 "TuxGuitar is a guitar tablature editor with player support through midi.
1784 It can display scores and multitrack tabs. TuxGuitar provides various
1785 additional features, including autoscrolling while playing, note duration
1786 management, bend/slide/vibrato/hammer-on/pull-off effects, support for
1787 tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
1789 (license license:lgpl2.1+)))
1798 (string-append "http://msp.ucsd.edu/Software/pd-"
1799 version ".src.tar.gz"))
1802 "0hg4n5b55f650qsc0mjx559072dp7vfza7w0pvk6rk2l831cvsps"))))
1803 (build-system gnu-build-system)
1805 `(#:tests? #f ; no "check" target
1809 (string-append "--with-wish=" (string-append
1810 (assoc-ref %build-inputs "tk")
1813 (modify-phases %standard-phases
1814 (add-before 'configure 'fix-with-path
1816 (substitute* "tcl/pd-gui.tcl"
1817 (("exec wish ") (string-append "exec " (which "wish8.6") " ")))
1820 `(("autoconf" ,autoconf)
1821 ("automake" ,automake)
1822 ("libtool" ,libtool)
1823 ("gettext" ,gettext-minimal)
1824 ("pkg-config" ,pkg-config)))
1827 ("alsa-lib" ,alsa-lib)
1829 (home-page "http://puredata.info")
1830 (synopsis "Visual programming language for artistic performances")
1832 "Pure Data (aka Pd) is a visual programming language. Pd enables
1833 musicians, visual artists, performers, researchers, and developers to create
1834 software graphically, without writing lines of code. Pd is used to process
1835 and generate sound, video, 2D/3D graphics, and interface sensors, input
1836 devices, and MIDI. Pd can easily work over local and remote networks to
1837 integrate wearable technology, motor systems, lighting rigs, and other
1838 equipment. Pd is suitable for learning basic multimedia processing and visual
1839 programming methods as well as for realizing complex systems for large-scale
1841 (license license:bsd-3)))
1843 (define-public libpd
1850 (url "https://github.com/libpd/libpd.git")
1852 (recursive? #t))) ; for the 'pure-data' submodule
1853 (file-name (string-append name "-" version "-checkout"))
1856 "1bcg1d9iyf9n37hwwphmih0c8rd1xcqykil5z1cax6xfs76552nk"))))
1857 (build-system gnu-build-system)
1859 '(#:tests? #f ; no tests
1860 #:make-flags '("CC=gcc")
1862 (modify-phases %standard-phases
1863 (delete 'configure) ; no configure script
1865 (lambda* (#:key outputs #:allow-other-keys)
1866 (let ((out (assoc-ref outputs "out")))
1867 (invoke "make" "install"
1868 (string-append "prefix=" out)
1869 ;; XXX: Fix the last 2 lines of 'install' target.
1871 "LIBPD_DEF=NO")))))))
1872 (home-page "http://libpd.cc/")
1873 (synopsis "Pure Data as an embeddable audio synthesis library")
1875 "Libpd provides Pure Data as an embeddable audio synthesis library. Its
1876 main purpose is to liberate raw audio rendering from audio and MIDI drivers.")
1877 (license license:bsd-3)))
1879 (define-public portmidi
1885 (uri (string-append "mirror://sourceforge/portmedia/portmidi/"
1886 version "/portmidi-src-" version ".zip"))
1889 "03rfsk7z6rdahq2ihy5k13qjzgx757f75yqka88v3gc0pn9ais88"))
1890 (patches (list (search-patch "portmidi-modular-build.patch")))))
1891 (build-system cmake-build-system)
1893 `(#:tests? #f ; tests cannot be linked
1894 #:build-type "Release" ; needed to have PMALSA set
1896 (list "-DPORTMIDI_ENABLE_JAVA=Off"
1897 "-DPORTMIDI_ENABLE_TEST=Off") ; tests fail linking
1899 (modify-phases %standard-phases
1900 ;; Some packages, e.g., MuseScore, expect "libporttime.so" instead of
1901 ;; "libportmidi.so". Distributions get away with it by creating an
1902 ;; appropriate symlink.
1903 (add-after 'install 'add-porttime
1904 (lambda* (#:key outputs #:allow-other-keys)
1905 (let* ((out (assoc-ref outputs "out"))
1906 (lib (string-append out "/lib")))
1907 (with-directory-excursion lib
1908 (symlink "libportmidi.so" "libporttime.so")))
1911 `(("alsa-lib" ,alsa-lib)))
1913 `(("unzip" ,unzip)))
1914 (home-page "http://portmedia.sourceforge.net/portmidi/")
1915 (synopsis "Library for MIDI I/O")
1917 "PortMidi is a library supporting real-time input and output of MIDI data
1918 using a system-independent interface.")
1919 (license license:expat)))
1921 (define-public portmidi-for-extempore
1922 (package (inherit portmidi)
1923 (name "portmidi-for-extempore")
1928 (url "https://github.com/extemporelang/portmidi.git")
1930 (file-name (git-file-name name version))
1933 "1inriyrjf7xx2b7r54x0vmf9ngyqgr7g5060c22bwkbsgg53apzv"))))
1934 (build-system cmake-build-system)
1935 (arguments `(#:tests? #f)) ; no tests
1937 ;; Extempore refuses to build on architectures other than x86_64
1938 (supported-systems '("x86_64-linux"))
1939 (home-page "https://github.com/extemporelang/portmidi/")))
1941 (define-public python-pyportmidi
1943 (name "python-pyportmidi")
1944 (version (package-version portmidi))
1945 (source (package-source portmidi))
1946 (build-system python-build-system)
1948 `(#:tests? #f ; no tests included
1950 (modify-phases %standard-phases
1951 (add-after 'unpack 'enter-dir
1952 (lambda _ (chdir "pm_python") #t))
1953 (add-after 'enter-dir 'fix-setup.py
1955 (substitute* "setup.py"
1956 ;; Use Python 3 syntax
1957 (("print (\".*\")" _ text)
1958 (string-append "print(" text ")\n"))
1959 ;; TODO.txt and CHANGES.txt don't exist
1960 (("CHANGES =.*") "CHANGES = \"\"\n")
1961 (("TODO =.*") "TODO = \"\"\n"))
1964 `(("portmidi" ,portmidi)
1965 ("alsa-lib" ,alsa-lib)))
1967 `(("python-cython" ,python-cython)
1969 (home-page "http://portmedia.sourceforge.net/portmidi/")
1970 (synopsis "Python bindings to PortMidi")
1972 "This package provides Python bindings to the PortMidi library.")
1973 (license license:expat)))
1975 (define-public frescobaldi
1977 (name "frescobaldi")
1982 "https://github.com/wbsoft/frescobaldi/releases/download/v"
1983 version "/frescobaldi-" version ".tar.gz"))
1986 "15cqhbjbjikr7ljgiq56bz2gxrr38j8p0f78p2vhyzydaviy9a2z"))))
1987 (build-system python-build-system)
1988 (arguments `(#:tests? #f)) ; no tests included
1990 `(("lilypond" ,lilypond)
1991 ("portmidi" ,portmidi)
1992 ("python-pyqt" ,python-pyqt)
1993 ("python-ly" ,python-ly)
1994 ("python-pyportmidi" ,python-pyportmidi)
1995 ("poppler" ,poppler)
1996 ("python-poppler-qt5" ,python-poppler-qt5)
1997 ("python-sip" ,python-sip)))
1998 (home-page "http://www.frescobaldi.org/")
1999 (synopsis "LilyPond sheet music text editor")
2001 "Frescobaldi is a LilyPond sheet music text editor with syntax
2002 highlighting and automatic completion. Among other things, it can render
2003 scores next to the source, can capture input from MIDI or read MusicXML and
2004 ABC files, has a MIDI player for proof-listening, and includes a documentation
2006 (license license:gpl2+)))
2008 (define-public drumstick
2014 (uri (string-append "mirror://sourceforge/drumstick/"
2015 version "/drumstick-" version ".tar.bz2"))
2018 "1n9wvg79yvkygrkc8xd8pgrd3d7hqmr7gh24dccf0px23lla9b3m"))))
2019 (build-system cmake-build-system)
2021 `(#:tests? #f ; no test target
2022 #:configure-flags '("-DLIB_SUFFIX=")
2024 (modify-phases %standard-phases
2025 (add-before 'configure 'fix-docbook
2026 (lambda* (#:key inputs #:allow-other-keys)
2027 (substitute* "cmake_admin/CreateManpages.cmake"
2028 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2029 (string-append (assoc-ref inputs "docbook-xsl")
2030 "/xml/xsl/docbook-xsl-"
2031 ,(package-version docbook-xsl)
2032 "/manpages/docbook.xsl")))
2035 `(("qtbase" ,qtbase)
2037 ("alsa-lib" ,alsa-lib)))
2039 `(("pkg-config" ,pkg-config)
2040 ("libxslt" ,libxslt) ; for xsltproc
2041 ("docbook-xsl" ,docbook-xsl)
2042 ("doxygen" ,doxygen)))
2043 (home-page "http://drumstick.sourceforge.net/")
2044 (synopsis "C++ MIDI library")
2046 "Drumstick is a set of MIDI libraries using C++/Qt5 idioms and style. It
2047 includes a C++ wrapper around the ALSA library sequencer interface. A
2048 complementary library provides classes for processing SMF (Standard MIDI
2049 files: .MID/.KAR), Cakewalk (.WRK), and Overture (.OVE) file formats. A
2050 multiplatform realtime MIDI I/O library is also provided with various output
2051 backends, including ALSA, OSS, Network and FluidSynth.")
2052 (license license:gpl2+)))
2060 (uri (string-append "mirror://sourceforge/vmpk/vmpk/"
2061 version "/vmpk-" version ".tar.bz2"))
2064 "1i3hnvdgz46n4k5v0q4jhgh7nkh0s390ix4nqr69z0q3026yp0p6"))))
2065 (build-system cmake-build-system)
2067 `(#:tests? #f ; no test target
2069 (modify-phases %standard-phases
2070 (add-before 'configure 'fix-docbook
2071 (lambda* (#:key inputs #:allow-other-keys)
2072 (substitute* "cmake_admin/CreateManpages.cmake"
2073 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2074 (string-append (assoc-ref inputs "docbook-xsl")
2075 "/xml/xsl/docbook-xsl-"
2076 ,(package-version docbook-xsl)
2077 "/manpages/docbook.xsl")))
2080 `(("drumstick" ,drumstick)
2083 ("qttools" ,qttools)
2084 ("qtx11extras" ,qtx11extras)))
2086 `(("libxslt" ,libxslt) ;for xsltproc
2087 ("docbook-xsl" ,docbook-xsl)
2088 ("pkg-config" ,pkg-config)))
2089 (home-page "http://vmpk.sourceforge.net")
2090 (synopsis "Virtual MIDI piano keyboard")
2092 "Virtual MIDI Piano Keyboard is a MIDI events generator and receiver. It
2093 doesn't produce any sound by itself, but can be used to drive a MIDI
2094 synthesizer (either hardware or software, internal or external). You can use
2095 the computer's keyboard to play MIDI notes, and also the mouse. You can use
2096 the Virtual MIDI Piano Keyboard to display the played MIDI notes from another
2097 instrument or MIDI file player.")
2098 (license license:gpl3+)))
2100 (define-public zynaddsubfx
2102 (name "zynaddsubfx")
2107 "mirror://sourceforge/zynaddsubfx/zynaddsubfx/"
2108 version "/zynaddsubfx-" version ".tar.bz2"))
2111 "0qwzg14h043rmyf9jqdylxhyfy4sl0vsr0gjql51wjhid0i34ivl"))))
2112 (build-system cmake-build-system)
2115 (modify-phases %standard-phases
2116 ;; Move SSE compiler optimization flags from generic target to
2117 ;; athlon64 and core2 targets, because otherwise the build would fail
2118 ;; on non-Intel machines.
2119 (add-after 'unpack 'remove-sse-flags-from-generic-target
2121 (substitute* "src/CMakeLists.txt"
2122 (("-msse -msse2 -mfpmath=sse") "")
2123 (("-march=(athlon64|core2)" flag)
2124 (string-append flag " -msse -msse2 -mfpmath=sse")))
2130 ("alsa-lib" ,alsa-lib)
2133 ("minixml" ,minixml)
2137 `(("pkg-config" ,pkg-config)))
2138 (home-page "http://zynaddsubfx.sf.net/")
2139 (synopsis "Software synthesizer")
2141 "ZynAddSubFX is a feature heavy realtime software synthesizer. It offers
2142 three synthesizer engines, multitimbral and polyphonic synths, microtonal
2143 capabilities, custom envelopes, effects, etc.")
2144 (license license:gpl2)))
2146 (define-public yoshimi
2152 (uri (string-append "mirror://sourceforge/yoshimi/"
2153 (version-major+minor version)
2154 "/yoshimi-" version ".tar.bz2"))
2157 "140f2k4akj39pny8c7i794q125415gyvmy4rday0il5ncp3glik4"))))
2158 (build-system cmake-build-system)
2160 `(#:tests? #f ; there are no tests
2162 (list (string-append "-DCMAKE_INSTALL_DATAROOTDIR="
2163 (assoc-ref %outputs "out") "/share"))
2165 (modify-phases %standard-phases
2166 (add-before 'configure 'enter-dir
2167 (lambda _ (chdir "src") #t))
2168 ;; Move SSE compiler optimization flags from generic target to
2169 ;; athlon64 and core2 targets, because otherwise the build would fail
2170 ;; on non-Intel machines.
2171 (add-after 'unpack 'remove-sse-flags-from-generic-target
2173 (substitute* "src/CMakeLists.txt"
2174 (("-msse -msse2 -mfpmath=sse") "")
2175 (("-march=(athlon64|core2)" flag)
2176 (string-append flag " -msse -msse2 -mfpmath=sse")))
2181 ("alsa-lib" ,alsa-lib)
2183 ("fontconfig" ,fontconfig)
2184 ("minixml" ,minixml)
2188 ("readline" ,readline)
2189 ("ncurses" ,ncurses)
2193 `(("pkg-config" ,pkg-config)))
2194 (home-page "http://yoshimi.sourceforge.net/")
2195 (synopsis "Multi-paradigm software synthesizer")
2197 "Yoshimi is a fork of ZynAddSubFX, a feature-heavy real-time software
2198 synthesizer. It offers three synthesizer engines, multitimbral and polyphonic
2199 synths, microtonal capabilities, custom envelopes, effects, etc. Yoshimi
2200 improves on support for JACK features, such as JACK MIDI.")
2201 (license license:gpl2)))
2203 (define-public libgig
2209 (uri (string-append "http://download.linuxsampler.org/packages/"
2210 "libgig-" version ".tar.bz2"))
2213 "02xx6bqxzgkvrawwnzrnxx1ypk244q4kpwfd58266f9ji8kq18h6"))))
2214 (build-system gnu-build-system)
2216 `(("libuuid" ,util-linux)
2217 ("libsndfile" ,libsndfile)))
2219 `(("pkg-config" ,pkg-config)))
2220 (home-page "http://linuxsampler.org/libgig/")
2221 (synopsis "C++ library for working with Gigasampler (.gig) files")
2223 "Libgig is a C++ library for loading, modifying existing and creating new
2224 Gigasampler (.gig) files and DLS (Downloadable Sounds) Level 1/2 files, KORG
2225 sample based instruments (.KSF and .KMP files), SoundFont v2 (.sf2) files and
2226 AKAI sampler data. The package includes a couple of command line tools based
2228 ;; The library and tools are released under the GPL, except the AKAI
2229 ;; classes which are released under the LGPL.
2230 (license (list license:gpl2+ license:lgpl2.1+))))
2232 (define-public jack-keyboard
2234 (name "jack-keyboard")
2239 (uri (string-append "mirror://sourceforge/jack-keyboard/jack-keyboard/"
2240 version "/jack-keyboard-" version ".tar.gz"))
2243 "0mzmg8aavybcfdlq2yd9d0vscqd6is5p6jzrgfpfm5j3xdcvh2s3"))))
2244 (build-system gnu-build-system)
2250 `(("pkg-config" ,pkg-config)))
2251 (home-page "http://jack-keyboard.sourceforge.net/")
2252 (synopsis "Virtual MIDI keyboard")
2253 (description "Jack-keyboard is a virtual MIDI keyboard, a program that
2254 allows you to send JACK MIDI events (i.e. play) using your PC keyboard.")
2255 (license license:bsd-2)))
2257 (define-public jack-capture
2259 (name "jack-capture")
2264 (url "https://github.com/kmatheussen/jack_capture.git")
2266 (file-name (string-append name "-" version "-checkout"))
2269 "0jcqky96q8xgya6wqv1p8pj9fkf2wh7ynl67ah7x5bn3basgfclf"))))
2270 (build-system gnu-build-system)
2273 (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2274 #:tests? #f ; there are none
2276 (modify-phases %standard-phases
2277 (delete 'configure))))
2279 `(("pkg-config" ,pkg-config)
2287 ("libsndfile" ,libsndfile)))
2288 (home-page "https://github.com/kmatheussen/jack_capture")
2289 (synopsis "Program for recording sound files with JACK")
2290 (description "This is a program for recording sound files with JACK. It
2291 can connect to any JACK port and record the output into a stereo WAV file.")
2292 (license license:gpl2+)))
2294 (define-public cursynth
2301 (uri (string-append "mirror://gnu/cursynth/cursynth-"
2304 (base32 "1dhphsya41rv8z6yqcv9l6fwbslsds4zh1y56zizi39nd996d40v"))
2305 (patches (search-patches "cursynth-wave-rand.patch"))))
2306 (build-system gnu-build-system)
2307 (native-inputs `(("pkg-config" ,pkg-config)))
2308 ;; TODO: See https://github.com/iyoko/cursynth/issues/4 which currently
2309 ;; prevents us from using pulseaudio
2310 (inputs `(("ncurses" ,ncurses)
2311 ("alsa" ,alsa-lib)))
2312 (home-page "https://www.gnu.org/software/cursynth/")
2313 (synopsis "Polyphonic and MIDI subtractive music synthesizer using curses")
2314 (description "GNU cursynth is a polyphonic synthesizer that runs
2315 graphically in the terminal. It is built on a full-featured subtractive
2316 synthesis engine. Notes and parameter changes may be entered via MIDI or the
2317 computer's keyboard.")
2318 (license license:gpl3+)))
2320 (define-public aj-snapshot
2322 (name "aj-snapshot")
2326 (uri (string-append "mirror://sourceforge/aj-snapshot/"
2327 "aj-snapshot-" version ".tar.bz2"))
2330 "0z8wd5yvxdmw1h1rj6km9h01xd4xmp4d86gczlix7hsc7zrf0wil"))))
2331 (build-system gnu-build-system)
2333 `(("minixml" ,minixml)
2335 ("alsa-lib" ,alsa-lib)))
2337 `(("pkg-config" ,pkg-config)))
2338 (home-page "http://aj-snapshot.sourceforge.net/")
2339 (synopsis "Snapshot connections between ALSA and JACK clients")
2340 (description "Aj-snapshot is a small program that can be used to make
2341 snapshots of the connections made between JACK and/or ALSA clients. Because
2342 JACK can provide both audio and MIDI support to programs, aj-snapshot can
2343 store both types of connections for JACK. ALSA, on the other hand, only
2344 provides routing facilities for MIDI clients. Aj-snapshot is meant to be used
2345 from the command line.")
2346 (license license:gpl3+)))
2348 (define-public qtractor
2354 (uri (string-append "http://downloads.sourceforge.net/qtractor/"
2355 "qtractor-" version ".tar.gz"))
2358 "06sa4wl8zr0k8dnjiil0gjwnhrkq95h50xv56ih1y8jgyzxchaxp"))))
2359 (build-system gnu-build-system)
2361 `(#:tests? #f)) ; no "check" target
2364 ("qtx11extras" ,qtx11extras)
2365 ("alsa-lib" ,alsa-lib)
2367 ("libsndfile" ,libsndfile)
2372 ("libsamplerate" ,libsamplerate)
2373 ("libvorbis" ,libvorbis)
2375 ("rubberband" ,rubberband)
2379 `(("pkg-config" ,pkg-config)
2380 ("qttools" ,qttools)))
2381 (home-page "http://qtractor.org/")
2382 (synopsis "Audio/MIDI multi-track sequencer")
2384 "Qtractor is an Audio/MIDI multi-track sequencer application. It uses
2385 JACK for audio and ALSA sequencer for MIDI as multimedia infrastructures and
2386 follows a traditional multi-track tape recorder control paradigm.")
2387 (license license:gpl2+)))
2389 (define-public ams-lv2
2390 ;; Version 1.2.1 built with Python 3.7 raises an error in the waf-script.
2391 ;; Therefore, we take two more commmits than 1.2.1 that introduce an updated
2392 ;; waf-script and fix one error.
2393 (let ((commit "377d166db54a787b48979171c5652d2eb4f1bbb5")
2397 (version (git-version "1.2.1" revision commit))
2402 (url "https://github.com/blablack/ams-lv2.git")
2404 (file-name (git-file-name name version))
2407 "1ndgxcxjxwidg7436k0nb5clxkyi878k1j999sbbd1gk2fm0kcqm"))))
2408 (build-system waf-build-system)
2411 (modify-phases %standard-phases
2412 (add-after 'unpack 'remove-sse-flags
2413 (lambda* (#:key system #:allow-other-keys)
2414 (unless (or (string-prefix? "x86_64" system)
2415 (string-prefix? "i686" system))
2416 (substitute* "wscript"
2417 (("'-msse', '-mfpmath=sse', ") "")))
2419 #:tests? #f)) ; no tests
2428 `(("pkg-config" ,pkg-config)))
2429 (home-page "https://objectivewave.wordpress.com/ams-lv2/")
2430 (synopsis "Port of Alsa Modular Synth internal modules into LV2")
2431 (description "This set of LV2 plugins is a port of the internal modules
2432 found in Alsa Modular Synth. These plugins are used to create modular
2433 synthesizers and contain: VCO, VCF, VCA, LFO, slew limiter, envelopes, sample
2435 (license license:gpl2))))
2437 (define-public gxtuner
2444 (url "https://github.com/brummer10/gxtuner.git")
2445 (commit (string-append "v" version))))
2446 (file-name (git-file-name name version))
2449 "1fxd2akan2njlr7fpkh84830783qhh1gg7yakswqk5dd466dcn96"))))
2450 (build-system gnu-build-system)
2453 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2454 (string-append "INCLUDE_L_DIR="
2455 (assoc-ref %build-inputs "zita-resampler")
2458 (modify-phases %standard-phases
2459 (delete 'configure))))
2465 ("zita-resampler" ,zita-resampler)))
2467 `(("pkg-config" ,pkg-config)))
2468 (home-page "https://github.com/brummer10/gxtuner")
2469 (synopsis "Guitar tuner")
2470 (description "GXtuner is a simple guitar tuner for JACK with an
2471 analogue-like user interface.")
2472 (license license:gpl2+)))
2474 (define-public mod-host
2475 ;; The last release was in 2014 but since then hundreds of commits have
2477 (let ((commit "1726ad06b11323da7e1aaed690ff8aef91f702b5")
2481 (version (string-append "0.10.6-" revision "." (string-take commit 9)))
2485 (url "https://github.com/moddevices/mod-host")
2489 "1nrd37c35w6z6ldczgrwmmd9hx1n3zyvcjcgb3mi4cygqdanvspv"))
2490 (file-name (string-append name "-" version "-checkout"))))
2491 (build-system gnu-build-system)
2493 `(#:tests? #f ; no tests included
2495 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2498 (modify-phases %standard-phases
2500 (add-after 'unpack 'fix-jack-installation-directory
2502 ;; Do not attempt to install files to output of "jack" package.
2503 (substitute* "Makefile"
2504 (("\\$\\(shell pkg-config --variable=libdir jack\\)")
2513 ("readline" ,readline)))
2515 `(("pkg-config" ,pkg-config)
2516 ("python" ,python-2)))
2517 (home-page "https://github.com/moddevices/mod-host")
2518 (synopsis "LV2 host for Jack controllable via socket or command line")
2519 (description "mod-host is an LV2 plugin host for JACK, controllable via
2520 socket or command line.")
2521 (license license:gpl3+))))
2523 (define-public curseradio
2524 (let ((commit "1bd4bd0faeec675e0647bac9a100b526cba19f8d")
2528 (version (git-version "0" revision commit))
2532 (url "https://github.com/chronitis/curseradio.git")
2534 (file-name (git-file-name name version))
2537 "11bf0jnj8h2fxhpdp498189r4s6b47vy4wripv0z4nx7lxajl88i"))))
2538 (build-system python-build-system)
2540 `(("python-lxml" ,python-lxml)
2541 ("python-requests" ,python-requests)
2542 ("python-pyxdg" ,python-pyxdg)
2544 (home-page "https://github.com/chronitis/curseradio")
2545 (synopsis "Command-line Internet radio player")
2546 (description "Curseradio is a Curses-based radio player that uses a
2547 tune-in sender list from @url{http://opml.radiotime.com}.")
2548 (license license:expat))))
2550 (define-public pianobar
2553 (version "2016.06.02")
2557 (url "https://github.com/PromyLOPh/pianobar.git")
2559 (file-name (git-file-name name version))
2562 "058fbdxp7n35hxwy3b8slfy4pb4n63cb173vfmywqa06wh1dv6f6"))))
2563 (build-system gnu-build-system)
2565 `(#:tests? #f ; no tests
2566 #:make-flags (list "CC=gcc" "CFLAGS=-std=c99"
2567 (string-append "PREFIX=" %output))
2568 #:phases (modify-phases %standard-phases
2569 (delete 'configure))))
2573 ("libgcrypt" ,libgcrypt)
2575 ("ffmpeg" ,ffmpeg-3.4)))
2577 `(("pkg-config" ,pkg-config)))
2578 (home-page "http://6xq.net/projects/pianobar/")
2579 (synopsis "Console-based pandora.com player")
2580 (description "pianobar is a console-based music player for the
2581 personalized online radio pandora.com. It has configurable keys for playing
2582 and managing stations, can be controlled remotely via fifo, and can run
2583 event-based scripts for scrobbling, notifications, etc.")
2584 (license license:expat)))
2586 (define-public picard
2593 "https://musicbrainz.osuosl.org/pub/musicbrainz/"
2594 "picard/picard-" version ".tar.gz"))
2597 "19w5k3bf4886gdycxjds9nkjvir0gwy2r5cqkz0lbls4ikk4y14f"))))
2598 (build-system python-build-system)
2600 '(#:use-setuptools? #f
2603 ;; Don't phone home or show ‘Check for Update…’ in the Help menu.
2604 "--disable-autoupdate")
2606 (modify-phases %standard-phases
2607 (add-after 'unpack 'patch-source
2608 (lambda* (#:key inputs #:allow-other-keys)
2609 (substitute* "picard/const/__init__.py"
2613 (assoc-ref inputs "chromaprint") "/bin/fpcalc")))
2616 `(("gettext" ,gettext-minimal)))
2618 `(("chromaprint" ,chromaprint)
2619 ("python-discid" ,python-discid)
2620 ("python-pyqt" ,python-pyqt)
2621 ("python-mutagen" ,python-mutagen)))
2622 (home-page "https://picard.musicbrainz.org/")
2623 (synopsis "Graphical music tagging application")
2625 "MusicBrainz Picard is a music tagging application, supporting multiple
2626 formats, looking up tracks through metadata and audio fingerprints.")
2627 (license license:gpl2+)))
2629 (define-public python-mutagen
2631 (name "python-mutagen")
2635 (uri (pypi-uri "mutagen" version))
2638 "0rl7sxn1rcjl48fwga3dqf9f6pzspsny4ngxyf6pp337mrq0z693"))))
2639 (build-system python-build-system)
2641 `(("python-pytest" ,python-pytest)))
2642 (home-page "https://bitbucket.org/lazka/mutagen")
2643 (synopsis "Read and write audio tags")
2644 (description "Mutagen is a Python module to handle audio metadata. It
2645 supports ASF, FLAC, M4A, Monkey’s Audio, MP3, Musepack, Ogg FLAC, Ogg Speex, Ogg
2646 Theora, Ogg Vorbis, True Audio, WavPack and OptimFROG audio files. All versions
2647 of ID3v2 are supported, and all standard ID3v2.4 frames are parsed. It can read
2648 Xing headers to accurately calculate the bitrate and length of MP3s. ID3 and
2649 APEv2 tags can be edited regardless of audio format. It can also manipulate Ogg
2650 streams on an individual packet/page level.")
2651 (license license:gpl2))) ; "later version" never mentioned
2653 (define-public python2-mutagen
2654 (package-with-python2 python-mutagen))
2656 (define-public python-musicbrainzngs
2658 (name "python-musicbrainzngs")
2662 (uri (pypi-uri "musicbrainzngs" version))
2665 "1dddarpjawryll2wss65xq3v9q8ln8dan7984l5dxzqx88d2dvr8"))))
2666 (build-system python-build-system)
2668 '(;; The tests fail suffer from race conditions:
2669 ;; https://github.com/alastair/python-musicbrainzngs/issues/211
2671 (home-page "https://python-musicbrainzngs.readthedocs.org/")
2672 (synopsis "Python bindings for MusicBrainz NGS webservice")
2673 (description "Musicbrainzngs implements Python bindings of the MusicBrainz
2674 web service. This library can be used to retrieve music metadata from the
2675 MusicBrainz database.")
2676 ;; 'musicbrainzngs/compat.py' is ISC licensed.
2677 (license (list license:bsd-2 license:isc))))
2679 (define-public python2-musicbrainzngs
2680 (package-with-python2 python-musicbrainzngs))
2682 (define-public python-isrcsubmit
2684 (name "python-isrcsubmit")
2689 (uri (pypi-uri "isrcsubmit" version))
2692 "0jh4cni8qhri6dh83cmp0i0m0384vv0vznlygv49wj9xzh1d99qv"))))
2693 (build-system python-build-system)
2695 `(("python-discid" ,python-discid)
2696 ("python-musicbrainzngs" ,python-musicbrainzngs)))
2697 (home-page "https://github.com/JonnyJD/musicbrainz-isrcsubmit")
2698 (synopsis "Submit ISRCs from CDs to MusicBrainz")
2699 (description "@code{isrcsubmit} is a tool to extract @dfn{International
2700 Standard Recording Code} (ISRCs) from audio CDs and submit them to
2701 @url{https://musicbrainz.org/, MusicBrainz}.")
2702 (license license:gpl3+)))
2704 (define-public python2-pyechonest
2706 (name "python2-pyechonest")
2710 (uri (pypi-uri "pyechonest" version))
2713 "1584nira3rkiman9dm81kdshihmkj21s8navndz2l8spnjwb790x"))))
2714 (build-system python-build-system)
2716 `(;; Python 3 is not supported:
2717 ;; https://github.com/echonest/pyechonest/issues/42
2718 #:python ,python-2))
2719 (home-page "https://github.com/echonest/pyechonest")
2720 (synopsis "Python interface to The Echo Nest APIs")
2721 (description "Pyechonest is a Python library for the Echo Nest API. With
2722 Pyechonest you have Python access to the entire set of API methods including:
2725 @item artist - search for artists by name, description, or attribute, and get
2726 back detailed information about any artist including audio, similar artists,
2727 blogs, familiarity, hotttnesss, news, reviews, urls and video.
2728 @item song - search songs by artist, title, description, or attribute (tempo,
2729 duration, etc) and get detailed information back about each song, such as
2730 hotttnesss, audio_summary, or tracks.
2731 @item track - upload a track to the Echo Nest and receive summary information
2732 about the track including key, duration, mode, tempo, time signature along with
2733 detailed track info including timbre, pitch, rhythm and loudness information.
2735 (license license:bsd-3)))
2737 (define-public python-pylast
2739 (name "python-pylast")
2743 (uri (pypi-uri "pylast" version))
2746 "0r9h7g8i8l2mgqjwkda3v6prfbkb2im5kap1az9ppmhjm9i4jkcf"))))
2747 (build-system python-build-system)
2748 ;; Tests require network access. See
2749 ;; https://github.com/pylast/pylast/issues/105
2750 (arguments '(#:tests? #f))
2752 `(("python-coverage" ,python-coverage)
2753 ("python-pycodestyle" ,python-pycodestyle)
2754 ("python-mock" ,python-mock)
2755 ("python-pep8" ,python-pep8)
2756 ("python-pytest" ,python-pytest)
2757 ("python-flaky" ,python-flaky)
2758 ("python-pyflakes" ,python-pyflakes)
2759 ("python-pyyaml" ,python-pyyaml)))
2761 `(("python-six" ,python-six)))
2762 (home-page "https://github.com/pylast/pylast")
2763 (synopsis "Python interface to Last.fm and Libre.fm")
2764 (description "A Python interface to Last.fm and other API-compatible
2765 websites such as Libre.fm.")
2766 (license license:asl2.0)))
2768 (define-public python2-pylast
2769 (package-with-python2 python-pylast))
2771 (define-public instantmusic
2772 (let ((commit "300891d09c703525215fa5a116b9294af1c923c8")
2775 (name "instantmusic")
2776 (version (git-version "1.0" revision commit))
2780 (url "https://github.com/yask123/Instant-Music-Downloader.git")
2782 (file-name (git-file-name name version))
2785 "0j7qivaa04bpdz3anmgci5833dgiyfqqwq9fdrpl9m68b34gl773"))))
2786 (build-system python-build-system)
2788 `(("python-requests" ,python-requests)
2790 ("python-beautifulsoup4" ,python-beautifulsoup4)
2791 ("youtube-dl" ,youtube-dl)))
2793 '(#:modules ((guix build python-build-system)
2796 #:phases (modify-phases %standard-phases
2797 (add-before 'build 'change-directory
2799 (chdir "instantmusic-0.1") #t))
2800 (add-before 'check 'fix-file-permissions
2802 ;; Fix some read-only files that would cause a build failure
2803 (for-each (cut chmod <> #o644)
2804 (find-files "instantmusic.egg-info"
2805 "PKG-INFO|.*\\.txt"))
2807 (home-page "http://iyask.me/Instant-Music-Downloader/")
2808 (synopsis "Command-line program to download a song from YouTube")
2809 (description "InstantMusic downloads a song from YouTube in MP3 format.
2810 Songs can be searched by artist, name or even by a part of the song text.")
2811 (license license:expat))))
2813 (define-public beets
2819 (uri (pypi-uri "beets" version))
2820 (patches (search-patches "beets-python-3.7-fix.patch"))
2823 "0w3gz69s9gf5ih69d4sddgh7ndj7658m621bp742zldvjakdncrs"))))
2824 (build-system python-build-system)
2827 (modify-phases %standard-phases
2828 (add-after 'unpack 'set-HOME
2830 (setenv "HOME" (string-append (getcwd) "/tmp"))
2832 (add-after 'unpack 'make-python3.7-compatible
2834 ;; See <https://github.com/beetbox/beets/issues/2978>.
2835 (substitute* "beets/autotag/hooks.py"
2836 (("re\\._pattern_type") "re.Pattern"))
2840 (invoke "nosetests" "-v"))))))
2842 `(("python-beautifulsoup4" ,python-beautifulsoup4)
2843 ("python-flask" ,python-flask)
2844 ("python-mock" ,python-mock)
2845 ("python-mpd2" ,python-mpd2)
2846 ("python-nose" ,python-nose)
2847 ("python-pathlib" ,python-pathlib)
2848 ("python-pyxdg" ,python-pyxdg)
2849 ("python-pylast" ,python-pylast)
2850 ("python-rarfile" ,python-rarfile)
2851 ("python-responses" ,python-responses)))
2852 ;; TODO: Install optional plugins and dependencies.
2854 `(("python-discogs-client" ,python-discogs-client)
2855 ("python-jellyfish" ,python-jellyfish)
2856 ("python-munkres" ,python-munkres)
2857 ("python-musicbrainzngs" ,python-musicbrainzngs)
2858 ("python-mutagen" ,python-mutagen)
2859 ("python-pyyaml" ,python-pyyaml)
2860 ("python-unidecode" ,python-unidecode)))
2861 (home-page "https://beets.io")
2862 (synopsis "Music organizer")
2863 (description "The purpose of beets is to get your music collection right
2864 once and for all. It catalogs your collection, automatically improving its
2865 metadata as it goes using the MusicBrainz database. Then it provides a variety
2866 of tools for manipulating and accessing your music.")
2867 (license license:expat)))
2869 (define-public beets-bandcamp
2871 (name "beets-bandcamp")
2875 (uri (pypi-uri "beets-bandcamp" version))
2878 "04awg0zdhhg5h510fc1p3qkvr2l1qm6nf85hlr9z8im8a7xlka0i"))))
2879 (build-system python-build-system)
2880 (arguments '(#:tests? #f)) ; there are no tests
2883 ("python-isodate" ,python-isodate)))
2885 `(("python-beautifulsoup4" ,python-beautifulsoup4)
2886 ("python-requests" ,python-requests)
2887 ("python-six" ,python-six)))
2888 (home-page "https://github.com/unrblt/beets-bandcamp")
2889 (synopsis "Bandcamp plugin for beets")
2891 "This plugin for beets automatically obtains tag data from @uref{Bandcamp,
2892 https://bandcamp.com/}. It's also capable of getting song lyrics and album art
2893 using the beets FetchArt plugin.")
2894 (license license:gpl2)))
2896 (define-public milkytracker
2898 (name "milkytracker")
2903 (url "https://github.com/milkytracker/MilkyTracker.git")
2904 (commit (string-append "v" version))))
2905 (file-name (git-file-name name version))
2908 "05a6d7l98k9i82dwrgi855dnccm3f2lkb144gi244vhk1156n0ca"))
2909 (modules '((guix build utils)))
2910 ;; Remove non-FSDG compliant sample songs.
2913 (delete-file-recursively "resources/music")
2914 (substitute* "CMakeLists.txt"
2915 (("add_subdirectory\\(resources/music\\)") ""))
2917 (build-system cmake-build-system)
2919 '(#:tests? #f ; no check target
2920 ;; This flag ensures that MilkyTracker links with the JACK library.
2921 #:configure-flags '("-DCMAKE_CXX_FLAGS=-ljack")))
2923 `(("alsa-lib" ,alsa-lib)
2929 ("zziplib" ,zziplib)))
2931 `(("pkg-config" ,pkg-config)))
2932 (synopsis "Music tracker for working with .MOD/.XM module files")
2933 (description "MilkyTracker is a music application for creating .MOD and .XM
2934 module files. It attempts to recreate the module replay and user experience of
2935 the popular DOS program Fasttracker II, with special playback modes available
2936 for improved Amiga ProTracker 2/3 compatibility.")
2937 (home-page "http://milkytracker.titandemo.org/")
2938 ;; 'src/milkyplay' is under Modified BSD, the rest is under GPL3 or later.
2939 (license (list license:bsd-3 license:gpl3+))))
2941 (define-public schismtracker
2943 (name "schismtracker")
2944 (version "20190614")
2948 (url "https://github.com/schismtracker/schismtracker.git")
2950 (file-name (git-file-name name version))
2953 "0cg0q5bkn8a06v03vmj69xyhi4xxpl729k4008q4hiakh9gy2x49"))
2954 (modules '((guix build utils)))
2956 ;; Remove use of __DATE__ and __TIME__ for reproducibility.
2958 (substitute* "schism/version.c"
2959 (("Schism Tracker built %s %s.*$")
2960 (string-append "Schism Tracker version " ,version "\");")))
2962 (build-system gnu-build-system)
2965 (modify-phases %standard-phases
2966 (add-before 'configure 'link-libm
2967 (lambda _ (setenv "LIBS" "-lm") #t)))))
2969 `(("autoconf" ,autoconf)
2970 ("automake" ,automake)
2971 ("python" ,python)))
2973 `(("alsa-lib" ,alsa-lib) ; for asound dependency
2975 ("libxext" ,libxext)
2977 (home-page "http://schismtracker.org")
2978 (synopsis "Oldschool sample-based music composition tool")
2980 "Schism Tracker is a reimplementation of Impulse Tracker, a program used to
2981 create high quality music without the requirements of specialized, expensive
2982 equipment, and with a unique \"finger feel\" that is difficult to replicate in
2983 part. The player is based on a highly modified version of the ModPlug engine,
2984 with a number of bugfixes and changes to improve IT playback.")
2985 (license license:gpl2+)))
2987 (define-public sooperlooper
2989 (name "sooperlooper")
2993 (uri (string-append "http://essej.net/sooperlooper/sooperlooper-"
2997 "0n2gdxw1fx8nxxnpzf4sj0kp6k6zi1yq59cbz6qqzcnsnpnvszbs"))
2998 (patches (search-patches "sooperlooper-build-with-wx-30.patch"))))
2999 (build-system gnu-build-system)
3001 `(#:make-flags (list "CXXFLAGS=-std=gnu++11")
3003 (modify-phases %standard-phases
3004 (add-after 'unpack 'add-sigc++-includes
3005 (lambda* (#:key inputs #:allow-other-keys)
3006 (let ((sig (assoc-ref inputs "libsigc++"))
3007 (xml (assoc-ref inputs "libxml2"))
3010 (string-append sig "/include/sigc++-2.0:"
3011 sig "/lib/sigc++-2.0/include:"
3012 xml "/include/libxml2/:"
3014 cwd "/libs/midi++")))
3015 (substitute* '("src/control_osc.hpp"
3016 "src/gui/app_frame.hpp"
3017 "src/gui/config_panel.hpp"
3018 "src/gui/keys_panel.hpp"
3019 "src/gui/latency_panel.hpp"
3020 "src/gui/main_panel.hpp"
3021 "src/gui/midi_bind_panel.hpp"
3022 "src/gui/prefs_dialog.hpp")
3023 (("sigc\\+\\+/object.h")
3025 (substitute* '("src/engine.cpp"
3026 "src/gui/latency_panel.cpp"
3027 "src/gui/looper_panel.cpp"
3028 "src/gui/main_panel.cpp")
3029 (("(\\(| )bind " _ pre)
3030 (string-append pre "sigc::bind ")))
3032 (add-after 'unpack 'fix-xpm-warnings
3034 (substitute* (find-files "." "\\.xpm$")
3035 (("static char") "static const char"))
3039 ("alsa-lib" ,alsa-lib)
3040 ("wxwidgets" ,wxwidgets-gtk2)
3041 ("libsndfile" ,libsndfile)
3042 ("libsamplerate" ,libsamplerate)
3044 ("rubberband" ,rubberband)
3045 ("libxml2" ,libxml2)
3046 ("libsigc++" ,libsigc++)
3047 ("ncurses" ,ncurses)))
3049 `(("pkg-config" ,pkg-config)))
3050 (home-page "http://essej.net/sooperlooper/")
3051 (synopsis "Live looping sampler")
3053 "SooperLooper is a live looping sampler capable of immediate loop
3054 recording, overdubbing, multiplying, reversing and more. It allows for
3055 multiple simultaneous multi-channel loops limited only by your computer's
3057 (license license:gpl2+)))
3065 (uri (string-append "http://ftp.daper.net/pub/soft/"
3067 name "-" version ".tar.bz2"))
3070 "026v977kwb0wbmlmf6mnik328plxg8wykfx9ryvqhirac0aq39pk"))))
3071 (build-system gnu-build-system)
3073 `(("alsa-lib" ,alsa-lib)
3076 ("ffmpeg" ,ffmpeg-3.4)
3079 ("libid3tag" ,libid3tag)
3080 ("libltdl" ,libltdl)
3081 ("libmodplug" ,libmodplug)
3082 ("libmpcdec" ,libmpcdec)
3085 ("libvorbis" ,libvorbis)
3086 ("ncurses" ,ncurses)
3087 ("openssl" ,openssl)
3088 ("sasl" ,cyrus-sasl)
3091 ("wavpack" ,wavpack)
3094 `(("pkg-config" ,pkg-config)))
3095 (synopsis "Console audio player designed to be powerful and easy to use")
3097 "Music on Console is a console audio player that supports many file
3098 formats, including most audio formats recognized by FFMpeg.")
3099 (home-page "http://moc.daper.net")
3100 (license license:gpl2+)))
3102 (define-public midicsv
3108 (uri (string-append "http://www.fourmilab.ch/webtools/midicsv/"
3109 name "-" version ".tar.gz"))
3112 "1vvhk2nf9ilfw0wchmxy8l13hbw9cnpz079nsx5srsy4nnd78nkw"))))
3113 (build-system gnu-build-system)
3115 `(#:phases (modify-phases %standard-phases (delete 'configure))
3116 #:make-flags (list "CC=gcc" (string-append "INSTALL_DEST=" %output))))
3117 (synopsis "Convert MIDI files to and from CSV")
3119 "Midicsv reads a standard MIDI file and decodes it into a comma-separated
3120 value file (CSV), which preserves all the information in the MIDI file. The
3121 ASCII CSV file may be loaded into a spreadsheet or database application, or
3122 processed by a program to transform the MIDI data (for example, to key
3123 transpose a composition or extract a track from a multi-track sequence). A
3124 CSV file in the format created by midicsv may be converted back into a
3125 standard MIDI file with the csvmidi program.")
3126 (home-page "http://www.fourmilab.ch/webtools/midicsv/")
3127 (license license:public-domain)))
3129 (define-public gx-guvnor-lv2
3131 (name "gx-guvnor-lv2")
3136 (url "https://github.com/brummer10/GxGuvnor.lv2.git")
3137 (commit (string-append "v" version))))
3138 (file-name (string-append name "-" version "-checkout"))
3141 "1wa5070j40p7f0b3kr259pzm99xb6cf2badr2capayjvgayd6gnm"))))
3142 (build-system gnu-build-system)
3144 `(;; The check target is used only to output a warning.
3147 (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
3149 (modify-phases %standard-phases
3152 (substitute* "Makefile"
3153 (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n")
3154 (("install : all") "install :"))
3158 (home-page "https://github.com/brummer10/GxGuvnor.lv2")
3159 (synopsis "Overdrive/distortion pedal simulation")
3160 (description "This package provides the LV2 plugin \"GxGuvnor\", a
3161 simulation of an overdrive or distortion pedal for guitars.")
3162 ;; The LICENSE file says GPLv3 but the license headers in the files say
3163 ;; GPLv2 or later. The whole project is released under GPLv3 or later
3164 ;; according to https://github.com/brummer10/GxGuvnor.lv2/issues/1
3165 (license license:gpl3+)))
3167 (define-public gx-vbass-preamp-lv2
3168 (let ((commit "eb999b0ca0ef4da40a59e458a9ab6e7042b96c99")
3170 (package (inherit gx-guvnor-lv2)
3171 (name "gx-vbass-preamp-lv2")
3172 (version (string-append "0-" revision "." (string-take commit 9)))
3176 (url "https://github.com/brummer10/GxVBassPreAmp.lv2")
3180 "0firap073ldw4nrykkd7jvyyj0jbl1nslxyzjj4kswazp99x7d9h"))
3181 (file-name (string-append name "-" version "-checkout"))))
3186 `(("pkg-config" ,pkg-config)))
3187 (home-page "https://github.com/brummer10/GxVBassPreAmp.lv2")
3188 (synopsis "Simulation of the Vox Venue Bass 100 Pre Amp Section")
3189 (description "This package provides the LV2 plugin \"GxVBassPreAmp\", a
3190 pre-amplifier simulation modelled after the 1984 Vox Venue Bass 100 Pre Amp
3193 (define-public gx-overdriver-lv2
3194 (let ((commit "ed71801987449414bf3adaa0dbfac68e8775f1ce")
3196 (package (inherit gx-guvnor-lv2)
3197 (name "gx-overdriver-lv2")
3198 (version (string-append "0-" revision "." (string-take commit 9)))
3202 (url "https://github.com/brummer10/GxOverDriver.lv2")
3206 "13j614jh525fbkby79nnzwj0z1ac0c9wclyn5pfqvkmx6a7j24r8"))
3207 (file-name (string-append name "-" version "-checkout"))))
3208 (home-page "https://github.com/brummer10/GxOverDriver.lv2")
3209 (synopsis "Overdrive effect with level and tone control")
3210 (description "This package provides the LV2 plugin \"GxOverDriver\", an
3211 overdrive effect."))))
3213 (define-public gx-tone-mender-lv2
3214 (let ((commit "b6780b4a3e4782b3ed0e5882d6788f178aed138f")
3216 (package (inherit gx-guvnor-lv2)
3217 (name "gx-tone-mender-lv2")
3218 (version (string-append "0-" revision "." (string-take commit 9)))
3222 (url "https://github.com/brummer10/GxToneMender.lv2")
3226 "07qdcfsvv2vdnfnjh91pfgvjdcs5y91nvwfm8c0z8fp6b4bk7a9q"))
3227 (file-name (string-append name "-" version "-checkout"))))
3228 (home-page "https://github.com/brummer10/GxToneMender.lv2")
3229 (synopsis "Clean boost with a 3-knob tonestack")
3230 (description "This package provides the LV2 plugin \"GxToneMender\", a
3231 clean boost effect with a 3-knob tonestack."))))
3233 (define-public gx-push-pull-lv2
3234 (let ((commit "7f76ae2068498643ac8671ee0930b13ee3fd8eb5")
3236 (package (inherit gx-guvnor-lv2)
3237 (name "gx-push-pull-lv2")
3238 (version (string-append "0-" revision "." (string-take commit 9)))
3242 (url "https://github.com/brummer10/GxPushPull.lv2")
3246 "12f5hwck2irph0gjbj8xy8jqcqdwb8l1hlwf29k0clz52h1jhb5q"))
3247 (file-name (string-append name "-" version "-checkout"))))
3248 (home-page "https://github.com/brummer10/GxPushPull.lv2")
3249 (synopsis "Octave up push pull transistor fuzz simulation")
3250 (description "This package provides the LV2 plugin \"GxPushPull\", a
3251 simulation of a push pull transistor fuzz effect with added high octave."))))
3253 (define-public gx-suppa-tone-bender-lv2
3254 (package (inherit gx-guvnor-lv2)
3255 (name "gx-suppa-tone-bender-lv2")
3260 (url "https://github.com/brummer10/GxSuppaToneBender.lv2.git")
3261 (commit (string-append "v" version))))
3262 (file-name (string-append name "-" version "-checkout"))
3265 "01x6bjmllkmvxfzc5xwdix7w021j26js71awv728cxsmkxgqw0zy"))))
3266 (home-page "https://github.com/brummer10/GxSuppaToneBender.lv2")
3267 (synopsis "Simulation of the Vox Suppa Tone Bender pedal")
3268 (description "This package provides the LV2 plugin
3269 \"GxSuppaToneBender\", a simulation modelled after the Vox Suppa Tone Bender
3272 (define-public gx-saturator-lv2
3273 (let ((commit "605330f432c94b6eb3f8203cbe472befae959532")
3275 (package (inherit gx-vbass-preamp-lv2)
3276 (name "gx-saturator-lv2")
3277 (version (string-append "0-" revision "." (string-take commit 9)))
3281 (url "https://github.com/brummer10/GxSaturator.lv2")
3285 "1w4nvh0rmxrv3s3hmh4fs74f3hc0jn31v00j769j7v68mqr7kawy"))
3286 (file-name (string-append name "-" version "-checkout"))))
3287 (home-page "https://github.com/brummer10/GxSaturator.lv2")
3288 (synopsis "Saturation effect")
3289 (description "This package provides the LV2 plugin \"GxSaturator\", a
3290 saturation effect."))))
3292 (define-public gx-hyperion-lv2
3293 (package (inherit gx-guvnor-lv2)
3294 (name "gx-hyperion-lv2")
3299 (url "https://github.com/brummer10/GxHyperion.lv2.git")
3300 (commit (string-append "v" version))))
3301 (file-name (string-append name "-" version "-checkout"))
3304 "1vx79s6s9if117y2g0ppdja2sv2wcny6xcfl3j1z4cipahnildxf"))))
3305 (home-page "https://github.com/brummer10/GxHyperion.lv2")
3306 (synopsis "Simulation of the Hyperion Fuzz pedal")
3307 (description "This package provides the LV2 plugin \"GxHyperion\", a
3308 simulation of the Hyperion Fuzz pedal.")))
3310 (define-public gx-voodoo-fuzz-lv2
3311 (package (inherit gx-guvnor-lv2)
3312 (name "gx-voodoo-fuzz-lv2")
3317 (url "https://github.com/brummer10/GxVoodoFuzz.lv2.git")
3318 (commit (string-append "v" version))))
3319 (file-name (string-append name "-" version "-checkout"))
3322 "1v0scphivri1fk4hl20j13f92i48mnx1zsil4hgnadsmm4nsfw43"))))
3323 (home-page "https://github.com/brummer10/GxVoodoFuzz.lv2")
3324 (synopsis "Fuzz effect modelled after the Voodoo Lab SuperFuzz")
3325 (description "This package provides the LV2 plugin \"GxVoodooFuzz\", a
3326 simulation modelled after the Voodoo Lab SuperFuzz pedal. It's basically a
3327 Bosstone circuit, followed by the tone control of the FoxToneMachine in
3328 parallel with a DarkBooster, followed by a volume control.")))
3330 (define-public gx-super-fuzz-lv2
3331 (package (inherit gx-guvnor-lv2)
3332 (name "gx-super-fuzz-lv2")
3337 (url "https://github.com/brummer10/GxSuperFuzz.lv2.git")
3338 (commit (string-append "v" version))))
3339 (file-name (string-append name "-" version "-checkout"))
3342 "1jlljd9hlgfflbiizq47lv1xbbgjyx3v835mf24zmh1q5zsw4np4"))))
3343 (home-page "https://github.com/brummer10/GxSuperFuzz.lv2")
3344 (synopsis "Fuzz effect modelled after the UniVox SuperFuzz")
3345 (description "This package provides the LV2 plugin \"GxSuperFuzz\", an
3346 analog simulation of the UniVox SuperFuzz pedal. In this simulation the trim
3347 pot, which is usually in the housing, is exposed as a control parameter. It
3348 adjusts the amount of harmonics.")))
3350 (define-public gx-vintage-fuzz-master-lv2
3351 (package (inherit gx-guvnor-lv2)
3352 (name "gx-vintage-fuzz-master-lv2")
3357 (url "https://github.com/brummer10/GxVintageFuzzMaster.lv2.git")
3358 (commit (string-append "v" version))))
3359 (file-name (string-append name "-" version "-checkout"))
3362 "02jb211z8rw2qr5r1z5mdxlqgiw6cbc319xpqplvn6k21c59mskv"))))
3363 (home-page "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
3364 (synopsis "Fuzz effect simulation of the vintage Fuzz Master")
3365 (description "This package provides the LV2 plugin
3366 \"GxVintageFuzzMaster\", a simulation of the vintage Fuzz Master pedal.")))
3368 (define-public gx-slow-gear-lv2
3369 (let ((commit "5d37e775b0feef1d82feee94e2a7a2d7e57efe2d")
3371 (package (inherit gx-vbass-preamp-lv2)
3372 (name "gx-slow-gear-lv2")
3373 (version (string-append "0-" revision "." (string-take commit 9)))
3377 (url "https://github.com/brummer10/GxSlowGear.lv2")
3381 "141mz69zkhk3lm54bb6wgpnghb92zm1ig7fv07240cmhydqji1q1"))
3382 (file-name (string-append name "-" version "-checkout"))))
3383 (home-page "https://github.com/brummer10/GxSlowGear.lv2")
3384 (synopsis "Slow gear audio effect")
3385 (description "This package provides the LV2 plugin \"GxSlowGear\", a
3386 slow gear audio effect to produce volume swells."))))
3388 (define-public gx-switchless-wah-lv2
3389 (let ((commit "7b08691203314612999f0ce2328cdc1161cd6665")
3391 (package (inherit gx-guvnor-lv2)
3392 (name "gx-switchless-wah-lv2")
3393 (version (string-append "0-" revision "." (string-take commit 9)))
3397 (url "https://github.com/brummer10/GxSwitchlessWah.lv2")
3401 "04jqfpncmrrqn34p21w4v9m2x5a5wsqwbm4f3byxvq4vcibwxzk2"))
3402 (file-name (string-append name "-" version "-checkout"))))
3403 (home-page "https://github.com/brummer10/GxSwitchlessWah.lv2")
3404 (synopsis "Wah emulation with switchless activation")
3405 (description "This package provides the LV2 plugin \"GxSwitchlessWah\",
3406 a simulation of an analog Wah pedal with switchless activation."))))
3408 (define-public rkrlv2
3409 (let ((commit "d8c17d3c976107e5c012970276d7cf0aa059f15b")
3413 (version (git-version "0" revision commit))
3417 (url "https://github.com/ssj71/rkrlv2.git")
3421 "035z068rlafb7ibgqf34ck2lm4fab8yzlx41qh061x2xi4hxkvp0"))
3422 (file-name (git-file-name name version))))
3423 (build-system cmake-build-system)
3424 (arguments '(#:tests? #f)) ; there are no tests
3427 ("libsamplerate" ,libsamplerate)
3430 `(("pkg-config" ,pkg-config)))
3431 (home-page "https://github.com/ssj71/rkrlv2")
3432 (synopsis "Rakarrack effects ported to LV2 plugins")
3433 (description "This package provides the Rakarrack effects as LV2
3434 plugins. The ports are done such that hopefully when Rakarrack gets an active
3435 maintainer these will get merged into the original project.")
3436 (license license:gpl2))))
3438 (define-public mod-utilities
3439 (let ((commit "80ea3ea9f52fab7f191671f4810bf90fc955a046")
3442 (name "mod-utilities")
3443 (version (string-append "0-" revision "." (string-take commit 9)))
3447 (url "https://github.com/moddevices/mod-utilities.git")
3449 (file-name (string-append name "-" version "-checkout"))
3452 "1v55zmzmlg0ka7341x5lsvb44amy17vk27s669ps1basd1bk5s5v"))))
3453 (build-system gnu-build-system)
3455 `(#:tests? #f ; there are no tests
3457 (list (string-append "INSTALL_PATH="
3458 (assoc-ref %outputs "out")
3460 (string-append "PREFIX=" (assoc-ref %outputs "out"))
3463 (modify-phases %standard-phases
3464 (delete 'configure))))
3467 (home-page "https://github.com/moddevices/mod-utilities")
3468 (synopsis "LV2 utility plugins")
3469 (description "This package provides LV2 audio utility plugins, such as
3470 filters, crossovers, simple gain plugins without zipper noise, switch box
3471 plugins, a switch trigger, a toggle switch, and a peakmeter.")
3472 (license license:gpl2+))))
3474 (define-public ingen
3475 (let ((commit "cc4a4db33f4d126a07a4a498e053c5fb9a883be3")
3479 (version (string-append "0.0.0-" revision "."
3480 (string-take commit 9)))
3485 (url "https://git.drobilla.net/ingen.git")
3487 (file-name (string-append name "-" version "-checkout"))
3490 "1wg47vjw9djn99gbnsl2bcwj4xhdid61m4wrbn2nlp797flj91ic"))))
3491 (build-system waf-build-system)
3493 `(#:python ,python-2
3494 #:tests? #f ; no "check" target
3495 #:configure-flags (list "--no-webkit")
3497 (modify-phases %standard-phases
3498 (add-after 'unpack 'patch-wscript
3499 (lambda* (#:key outputs #:allow-other-keys)
3500 (let ((out (assoc-ref outputs "out")))
3501 (substitute* "wscript"
3502 ;; FIXME: Our version of lv2specgen.py does not behave as
3503 ;; expected. Maybe this requires a development version of
3505 (("lv2specgen.py") "touch ingen.lv2/ingen.html; echo")
3506 ;; Add libraries to RUNPATH.
3507 (("^(.+)target.*= 'src/ingen/ingen'," line prefix)
3508 (string-append prefix
3509 "linkflags=[\"-Wl,-rpath="
3510 out "/lib" "\"]," line)))
3511 (substitute* '("src/wscript"
3512 "src/server/wscript")
3513 ;; Add libraries to RUNPATH.
3514 (("bld.env.PTHREAD_LINKFLAGS" line)
3516 " + [\"-Wl,-rpath=" out "/lib" "\"]")))
3517 (substitute* "src/client/wscript"
3518 ;; Add libraries to RUNPATH.
3519 (("^(.+)target.*= 'ingen_client'," line prefix)
3520 (string-append prefix
3521 "linkflags=[\"-Wl,-rpath="
3522 out "/lib" "\"]," line)))
3523 (substitute* "src/gui/wscript"
3524 ;; Add libraries to RUNPATH.
3525 (("^(.+)target.* = 'ingen_gui.*" line prefix)
3526 (string-append prefix
3527 "linkflags=[\"-Wl,-rpath="
3528 out "/lib" "\"]," line))))
3532 ("python-rdflib" ,python-rdflib)
3537 ("raul" ,raul-devel)
3538 ("ganv" ,ganv-devel)
3543 ("gtkmm" ,gtkmm-2)))
3545 `(("pkg-config" ,pkg-config)
3546 ("python-pygments" ,python-pygments)))
3547 (home-page "https://drobilla.net/software/ingen")
3548 (synopsis "Modular audio processing system")
3549 (description "Ingen is a modular audio processing system for JACK and
3550 LV2 based systems. Ingen is built around LV2 technology and a strict
3551 separation of engine from user interface. The engine is controlled
3552 exclusively through a protocol, and can execute as a headless process, with an
3553 in-process GUI, or as an LV2 plugin. The GUI can run as a program which
3554 communicates over a Unix or TCP/IP socket, or as an embeddable LV2 GUI which
3555 communicates via LV2 ports. Any saved Ingen graph can be loaded as an LV2
3556 plugin on any system where Ingen is installed. This allows users to visually
3557 develop custom plugins for use in other applications without programming.")
3558 (license license:agpl3+))))
3560 (define-public qmidiarp
3566 (uri (string-append "mirror://sourceforge/qmidiarp/qmidiarp/"
3567 version "/qmidiarp-" version ".tar.bz2"))
3570 "043yh1p0rrbj1v840y27529m9260g55gvh1km8az4jxy7mns58r2"))))
3571 (build-system gnu-build-system)
3574 (list "--enable-qt5"
3575 "CXXFLAGS=-std=gnu++11")))
3577 `(("qtbase" ,qtbase)
3578 ("alsa-lib" ,alsa-lib)
3583 `(("pkg-config" ,pkg-config)
3584 ("qttools" ,qttools)))
3585 (home-page "http://qmidiarp.sourceforge.net/")
3586 (synopsis "MIDI arpeggiator")
3587 (description "QMidiArp is an advanced MIDI arpeggiator, programmable step
3588 sequencer and LFO. It can hold any number of arpeggiator, sequencer, or LFO
3589 modules running in parallel.")
3590 (license license:gpl2+)))
3592 (define-public qmidiroute
3598 (uri (string-append "mirror://sourceforge/alsamodular/QMidiRoute/"
3599 version "/qmidiroute-" version ".tar.bz2"))
3602 "19v1ppbglgl3z9v7xdqc0k33w71cqq8a7d6ihvfs7iz77dygrih9"))))
3603 (build-system gnu-build-system)
3606 (list "--enable-qt5"
3607 "CXXFLAGS=-std=gnu++11")))
3609 `(("qtbase" ,qtbase)
3610 ("alsa-lib" ,alsa-lib)))
3612 `(("pkg-config" ,pkg-config)
3613 ("qttools" ,qttools)))
3614 (home-page "http://alsamodular.sourceforge.net/")
3615 (synopsis "MIDI event router and filter")
3616 (description "QMidiRoute is a MIDI event router and filter. MIDI note,
3617 control change, program change and pitch bend events are logged, and can be
3618 filtered, redirected and transformed into other events according to MIDI maps
3619 defined as tabs in the main control surface.")
3620 (license license:gpl2+)))
3622 (define-public seq24
3628 (uri (string-append "https://launchpad.net/seq24/trunk/"
3629 version "/+download/seq24-"
3630 version ".tar.bz2"))
3633 "12dphdhnvfk1k0vmagi1v2lhyxjyj1j3cz6ksjw0ydcvid1x8ap2"))
3634 (patches (search-patches "seq24-rename-mutex.patch"))))
3635 (build-system gnu-build-system)
3638 (list "CXXFLAGS=-std=gnu++11")))
3640 `(("gtkmm" ,gtkmm-2)
3641 ("alsa-lib" ,alsa-lib)
3645 `(("pkg-config" ,pkg-config)))
3646 (home-page "https://edge.launchpad.net/seq24/")
3647 (synopsis "Real-time MIDI sequencer")
3648 (description "Seq24 is a real-time MIDI sequencer. It was created to
3649 provide a very simple interface for editing and playing MIDI loops.")
3650 (license license:gpl2+)))
3652 (define-public python-discogs-client
3654 (name "python-discogs-client")
3658 (uri (pypi-uri "discogs-client" version))
3661 "053ld2psh0yj3z0kg6z5bn4y3cr562m727494n0ayhgzbkjbacly"))))
3662 (build-system python-build-system)
3664 `(("python-oauthlib" ,python-oauthlib)
3665 ("python-requests" ,python-requests)))
3667 `(("python-six" ,python-six)))
3668 (home-page "https://github.com/discogs/discogs_client")
3669 (synopsis "Official Python client for the Discogs API")
3670 (description "This is the official Discogs API client for Python. It enables
3671 you to query the Discogs database for information on artists, releases, labels,
3672 users, Marketplace listings, and more. It also supports OAuth 1.0a
3673 authorization, which allows you to change user data such as profile information,
3674 collections and wantlists, inventory, and orders.")
3675 (license license:bsd-2)))
3677 (define-public python2-discogs-client
3678 (package-with-python2 python-discogs-client))
3680 (define-public libsmf
3687 ;; SF download page says development moved, but the link it points to
3688 ;; is gone (https://github.com/nilsgey/libsmf). Someone else adopted
3689 ;; it but made no release so far (https://github.com/stump/libsmf).
3690 (uri (string-append "mirror://sourceforge/libsmf/libsmf/"
3691 version "/libsmf-" version ".tar.gz"))
3694 "16c0n40h0r56gzbh5ypxa4dwp296dan3jminml2qkb4lvqarym6k"))))
3695 (build-system gnu-build-system)
3697 "static")) ; 88KiB of .a files
3700 (modify-phases %standard-phases
3701 (add-after 'install 'move-static-libraries
3702 (lambda* (#:key outputs #:allow-other-keys)
3703 ;; Move static libraries to the "static" output.
3704 (let* ((out (assoc-ref outputs "out"))
3705 (lib (string-append out "/lib"))
3706 (static (assoc-ref outputs "static"))
3707 (slib (string-append static "/lib")))
3709 (for-each (lambda (file)
3710 (install-file file slib)
3712 (find-files lib "\\.a$"))
3715 `(("readline" ,readline)
3718 `(("doxygen" ,doxygen)
3719 ("pkg-config" ,pkg-config)))
3720 (home-page "http://libsmf.sourceforge.net/")
3721 (synopsis "Standard MIDI File format library")
3723 "LibSMF is a C library for handling SMF (\"*.mid\") files. It transparently handles
3724 conversions between time and pulses, tempo map handling and more. The only dependencies
3725 are a C compiler and glib. Full API documentation and examples are included.")
3726 (license license:bsd-2)))
3736 (url "https://github.com/LMMS/lmms.git")
3737 (commit (string-append "v" version))))
3738 (file-name (git-file-name name version))
3741 "03hhymc6d73fa3wbcqb7rm1l03zkw605k5i9kvkvjmv488bqh3pd"))))
3742 (build-system cmake-build-system)
3744 `(#:tests? #f ; no tests
3746 (modify-phases %standard-phases
3747 (add-before 'configure 'set-ldflags
3748 (lambda* (#:key outputs #:allow-other-keys)
3752 (assoc-ref outputs "out") "/lib/lmms"
3754 (assoc-ref outputs "out") "/lib/lmms/ladspa"
3757 (add-before 'configure 'remove-Werror
3759 (substitute* "CMakeLists.txt"
3760 (("SET\\(WERROR_FLAGS \"\\$\\{WERROR_FLAGS\\} -Werror")
3761 "SET(WERROR_FLAGS \"${WERROR_FLAGS}"))
3763 (add-before 'reset-gzip-timestamps 'make-manpages-writable
3764 (lambda* (#:key outputs #:allow-other-keys)
3766 (make-file-writable file))
3767 (find-files (string-append (assoc-ref outputs "out")
3772 `(("pkg-config" ,pkg-config)))
3778 ("libsamplerate" ,libsamplerate)
3779 ("fluidsynth" ,fluidsynth-1) ;XXX: try using 2.x when updating
3780 ("libvorbis" ,libvorbis)
3781 ("alsa-lib" ,alsa-lib)
3782 ("portaudio" ,portaudio)
3784 ("libsndfile1" ,libsndfile)
3786 ("freetype2" ,freetype)
3788 (home-page "https://lmms.io/")
3789 (synopsis "Music composition tool")
3790 (description "LMMS is a digital audio workstation. It includes tools for sequencing
3791 melodies and beats and for mixing and arranging songs. LMMS includes instruments based on
3792 audio samples and various soft sythesizers. It can receive input from a MIDI keyboard.")
3793 (license license:gpl2+)))
3795 (define-public musescore
3802 (url "https://github.com/musescore/MuseScore.git")
3803 (commit (string-append "v" version))))
3804 (file-name (git-file-name name version))
3807 "17wx1wl8ns2k31qvrr888dxnrsa13vazg04zh2sn2q4vzd869a7v"))
3808 (modules '((guix build utils)))
3810 ;; Un-bundle OpenSSL and remove unused libraries.
3812 (substitute* "thirdparty/kQOAuth/CMakeLists.txt"
3813 (("-I \\$\\{PROJECT_SOURCE_DIR\\}/thirdparty/openssl/include ")
3815 (substitute* "thirdparty/kQOAuth/kqoauthutils.cpp"
3816 (("#include <openssl/.*") ""))
3817 (for-each delete-file-recursively
3818 '("thirdparty/freetype"
3819 "thirdparty/openssl"
3820 "thirdparty/portmidi"))
3822 (build-system cmake-build-system)
3825 `("-DBUILD_CRASH_REPORTER=OFF"
3826 "-DBUILD_WEBENGINE=OFF"
3827 "-DDOWNLOAD_SOUNDFONT=OFF"
3828 "-DUSE_SYSTEM_FREETYPE=ON")
3829 ;; There are tests, but no simple target to run. The command used to
3832 ;; make debug && sudo make installdebug && cd \
3833 ;; build.debug/mtest && make && ctest
3835 ;; Basically, it requires to start a whole new build process.
3836 ;; So we simply skip them.
3839 `(("alsa-lib" ,alsa-lib)
3840 ("freetype" ,freetype)
3841 ("gtk+-bin" ,gtk+ "bin") ;for gtk-update-icon-cache
3845 ("libsndfile" ,libsndfile)
3846 ("libvorbis" ,libvorbis)
3847 ("portaudio" ,portaudio)
3848 ("portmidi" ,portmidi)
3849 ("pulseaudio" ,pulseaudio)
3851 ("qtdeclarative" ,qtdeclarative)
3852 ("qtscript" ,qtscript)
3854 ("qtxmlpatterns" ,qtxmlpatterns)))
3856 `(("pkg-config" ,pkg-config)
3857 ("qttools" ,qttools)))
3858 (synopsis "Music composition and notation software")
3859 (description "MuseScore is a music score typesetter. Its main purpose is
3860 the creation of high-quality engraved musical scores in a WYSIWYG environment.
3862 It supports unlimited staves, linked parts and part extraction, tablature,
3863 MIDI input, percussion notation, cross-staff beaming, automatic transposition,
3864 lyrics (multiple verses), fretboard diagrams, and in general everything
3865 commonly used in sheet music. Style options and style sheets to change the
3866 appearance and layout are provided.
3868 MuseScore can also play back scores through the built-in sequencer and SoundFont
3870 (home-page "https://musescore.org")
3871 (license license:gpl2)))
3873 (define-public muse-sequencer
3875 (name "muse-sequencer")
3880 (url "https://github.com/muse-sequencer/muse.git")
3881 (commit (string-append "muse_"
3882 (string-map (lambda (c)
3884 #\_ c)) version)))))
3885 (file-name (string-append name "-" version "-checkout"))
3888 "1nninz8qyqlxxjdnrm79y3gr3056pga9l2fsqh674jd3cjvafya3"))))
3889 (build-system cmake-build-system)
3891 `(#:tests? #f ; there is no test target
3893 (list "-DENABLE_LV2_SUPPLIED=OFF"
3894 "-DENABLE_RTAUDIO=OFF" ; FIXME: not packaged
3895 "-DENABLE_INSTPATCH=OFF" ; FIXME: not packaged
3896 "-DENABLE_VST_NATIVE=OFF")
3898 (modify-phases %standard-phases
3899 (add-after 'unpack 'chdir
3900 (lambda _ (chdir "muse3"))))))
3902 `(("alsa-lib" ,alsa-lib)
3911 ("libsndfile" ,libsndfile)
3912 ("libsamplerate" ,libsamplerate)
3913 ("fluidsynth" ,fluidsynth)
3918 `(("pkg-config" ,pkg-config)
3919 ("qttools" ,qttools)))
3920 (home-page "http://muse-sequencer.org")
3921 (synopsis "MIDI/Audio sequencer")
3922 (description "MusE is a MIDI/Audio sequencer with recording and editing
3923 capabilities. Its audio sequencer supports the LADSPA, DSSI, and LV2 audio
3924 plugin formats; the MIDI sequencer provides a piano roll, a drum editor, a
3925 list view, and a score editor. MusE aims to be a complete multitrack virtual
3927 (license license:gpl2+)))
3936 "mirror://sourceforge/dssi/dssi/" version
3937 "/dssi-" version ".tar.gz"))
3940 "0kl1hzhb7cykzkrqcqgq1dk4xcgrcxv0jja251aq4z4l783jpj7j"))))
3941 (build-system gnu-build-system)
3943 `(("alsa-lib" ,alsa-lib)
3946 ("libsamplerate" ,libsamplerate)
3947 ("libsndfile" ,libsndfile)
3950 `(("pkg-config" ,pkg-config)))
3951 (synopsis "Audio plugin API for soft synths and effects")
3952 (description "DSSI is a plugin API for software instruments with user
3953 interfaces, permitting them to be hosted in-process by audio applications.
3954 It is intended to be simple, GUI-toolkit-agnostic, and slightly biased
3955 towards familiarity with MIDI. The DSSI distribution package contains
3956 a JACK/ALSA-sequencer reference host and some plugins as well as the
3957 specification and header.")
3958 (home-page "http://dssi.sourceforge.net/")
3959 ;; The DSSI interface is LGPL2.1+, some tests and examples are GPL2+.
3960 ;; The vast majority of examples are in the public domain.
3961 (license (list license:lgpl2.1+ license:gpl2+))))
3963 (define-public rosegarden
3970 "mirror://sourceforge/rosegarden/rosegarden/"
3971 version "/rosegarden-" version ".tar.bz2"))
3974 "15i9fm0vkn3wsgahaxqi1j5zs0wc0j3wdwml0x49084gk2p328vb"))))
3975 (build-system cmake-build-system)
3977 `(#:configure-flags '("-DCMAKE_BUILD_TYPE=Release")
3979 (modify-phases %standard-phases
3980 (add-after 'unpack 'patch-tests
3982 (substitute* "CMakeLists.txt"
3983 (("BUILD_TESTING OFF") "BUILD_TESTING ON")
3985 ((" -fvisibility=hidden") ""))
3987 (add-after 'unpack 'fix-references
3988 (lambda* (#:key inputs #:allow-other-keys)
3989 (substitute* "src/gui/general/ProjectPackager.cpp"
3991 (string-append "\"" (assoc-ref inputs "flac") "/bin/flac"))
3993 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wavpack"))
3995 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wvunpack"))
3997 (string-append "\"" (assoc-ref inputs "bash") "/bin/bash"))
3999 (string-append "\"" (assoc-ref inputs "tar") "/bin/tar")))
4000 (substitute* "src/gui/general/LilyPondProcessor.cpp"
4001 (("\"convert-ly\\>")
4002 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/convert-ly"))
4004 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/lilypond")))
4006 (add-after 'unpack 'make-reproducible
4008 ;; Prevent Last-Modified from being written.
4009 ;; The "*.qm" files that are used in locale.qrc would have a new
4010 ;; mtime otherwise that is written into qrc_locale.cpp in the
4011 ;; end - except when we disable it.
4012 (substitute* "src/CMakeLists.txt"
4013 (("COMMAND [$][{]QT_RCC_EXECUTABLE[}]")
4014 "COMMAND ${QT_RCC_EXECUTABLE} --format-version 1")
4016 ;(("qt5_add_resources[(]rg_SOURCES ../data/data.qrc[)]")
4017 ; "qt5_add_resources(rg_SOURCES ../data/data.qrc OPTIONS --format-version 1)")
4019 ;; Make hashtable traversal order predicable.
4020 (setenv "QT_RCC_TEST" "1") ; important
4022 (add-before 'check 'prepare-check
4024 (setenv "QT_QPA_PLATFORM" "offscreen")
4025 ;; Tests create files in $HOME/.local/share/rosegarden .
4026 (mkdir-p "/tmp/foo")
4027 (setenv "HOME" "/tmp/foo")
4028 (setenv "XDG_RUNTIME_DIR" "/tmp/foo")
4031 `(("alsa-lib" ,alsa-lib)
4039 ("libsamplerate" ,libsamplerate)
4040 ("lilypond" ,lilypond)
4045 ("wavpack" ,wavpack)
4048 `(("pkg-config" ,pkg-config)
4049 ("qtlinguist" ,qttools)))
4050 (synopsis "Music composition and editing environment based around a MIDI
4052 (description "Rosegarden is a music composition and editing environment
4053 based around a MIDI sequencer that features a rich understanding of music
4054 notation and includes basic support for digital audio.")
4055 (home-page "https://www.rosegardenmusic.com/")
4056 (license license:gpl2)))
4058 (define-public patchmatrix
4059 ;; There have been no releases for more than a year.
4060 (let ((commit "a0b0b1e791f4574d5abd059cfe1819c71e8b18d5")
4063 (name "patchmatrix")
4064 (version (git-version "0.12.0" revision commit))
4068 (url "https://github.com/OpenMusicKontrollers/patchmatrix.git")
4070 (file-name (string-append "patchmatrix-" version "-checkout"))
4073 "0pph4ra7aci3rbpqvvr564pi16vxrk448bmvp8985cd9lbjlrp3m"))))
4074 (build-system meson-build-system)
4076 '(#:tests? #f ; no test target
4078 (modify-phases %standard-phases
4079 (add-before 'reset-gzip-timestamps 'make-gzip-archive-writable
4080 (lambda* (#:key outputs #:allow-other-keys)
4081 (map make-file-writable
4082 (find-files (assoc-ref outputs "out") ".*\\.gz$"))
4089 `(("pkg-config" ,pkg-config)))
4090 (home-page "https://github.com/OpenMusicKontrollers/patchmatrix")
4091 (synopsis "Simple JACK patch bay")
4092 (description "PatchMatrix is a patch bay for the JACK audio connection
4093 kit. It provides a patch bay in flow matrix style for audio, MIDI, CV, and
4095 (license license:artistic2.0))))
4097 (define-public sorcer
4103 (uri (string-append "https://github.com/openAVproductions/"
4104 "openAV-Sorcer/archive/release-"
4106 (file-name (string-append name "-" version ".tar.gz"))
4109 "07iyqj28wm0xc4arrq893bm12xjpz65db7ynrlmf6w8krg8wjmd0"))))
4110 (build-system cmake-build-system)
4112 `(#:tests? #f ; no tests included
4114 (modify-phases %standard-phases
4115 (add-after 'unpack 'remove-architecture-specific-flags
4117 (substitute* "CMakeLists.txt"
4118 (("-msse2 -mfpmath=sse") ""))
4120 (add-after 'unpack 'build-faust-sources
4121 (lambda* (#:key inputs #:allow-other-keys)
4122 (with-directory-excursion "faust"
4123 (delete-file "main.cpp")
4124 (invoke "faust" "-i"
4126 "-o" "main.cpp" "main.dsp")))))))
4133 ("pkg-config" ,pkg-config)))
4134 (home-page "http://openavproductions.com/sorcer/")
4135 (synopsis "Wavetable LV2 plugin synth")
4136 (description "Sorcer is a wavetable LV2 plugin synthesizer, targeted at
4137 the electronic or dubstep genre.")
4138 (license license:gpl3+)))
4140 (define-public sonivox-eas
4142 (name "sonivox-eas")
4147 (url "https://github.com/pedrolcl/Linux-SonivoxEas.git")
4148 (commit (string-append "v" version))))
4149 (file-name (string-append name "-" version "-checkout"))
4152 "0l9gs00p5g4k4qy6i7nv1mfi2n2wnsycwjrgrh9hxzam4irf2mw2"))))
4153 (build-system cmake-build-system)
4154 (arguments '(#:tests? #f)) ; there are no tests
4156 `(("alsa-lib" ,alsa-lib)
4157 ("drumstick" ,drumstick)
4158 ("pulseaudio" ,pulseaudio)
4159 ("qtbase" ,qtbase)))
4161 `(("pkg-config" ,pkg-config)))
4162 (home-page "https://github.com/pedrolcl/Linux-SonivoxEas")
4163 (synopsis "MIDI synthesizer library")
4164 (description "This project is a real time General MIDI synthesizer based
4165 on the Sonivox EAS Synthesizer by Google. It does not need external
4166 soundfonts, using embedded samples instead.")
4167 ;; Sonivox is released under the ASL2.0; the rest of the code is under
4169 (license (list license:gpl2+ license:asl2.0))))
4171 (define-public whysynth
4174 (version "20170701")
4177 (uri (string-append "http://smbolton.com/whysynth/whysynth-"
4178 version ".tar.bz2"))
4181 "02qbn0hbvn1iym4zxv35b201blg31yjpgh71h8db0j5zls2xc0m6"))))
4182 (build-system gnu-build-system)
4189 ("alsa-lib" ,alsa-lib)))
4191 `(("pkg-config" ,pkg-config)))
4192 (home-page "http://smbolton.com/whysynth.html")
4193 (synopsis "DSSI software synthesizer")
4194 (description "WhySynth is a versatile softsynth which operates as a plugin
4195 for the DSSI Soft Synth Interface. A brief list of features:
4198 @item 4 oscillators, 2 filters, 3 LFOs, and 5 envelope generators per voice.
4199 @item 11 oscillator modes: minBLEP, wavecycle, chorused wavecycle,
4200 asynchronous granular, three FM modes, waveshaper, noise, PADsynth, and phase
4202 @item 10 filter modes.
4203 @item flexible modulation and mixdown options, plus effects.
4206 (license license:gpl2+)))
4208 (define-public libdiscid
4216 "http://ftp.musicbrainz.org/pub/musicbrainz/libdiscid/libdiscid-"
4220 "1f9irlj3dpb5gyfdnb1m4skbjvx4d4hwiz2152f83m0d9jn47r7r"))))
4221 (arguments `(#:test-target "check"))
4222 (build-system cmake-build-system)
4223 (home-page "https://musicbrainz.org/doc/libdiscid")
4224 (synopsis "Disc id reader library")
4225 (description "libdiscid is a C library for creating MusicBrainz and freedb
4226 disc IDs from audio CDs. It reads a CD's table of contents (TOC) and generates
4227 an identifier which can be used to lookup the CD at MusicBrainz. Additionally,
4228 it provides a submission URL for adding the disc ID to the database and gathers
4229 ISRCs and the MCN (=UPC/EAN) from disc.")
4230 (license license:lgpl2.1+)))
4232 (define-public python-discid
4234 (name "python-discid")
4239 (uri (pypi-uri "discid" version))
4242 "1fgp67nhqlbvhhwrcxq5avil7alpzw4s4579hlyvxzbphdnbz8vq"))))
4243 (build-system python-build-system)
4245 `(("libdiscid" ,libdiscid)))
4248 (modify-phases %standard-phases
4249 (add-before 'build 'set-libdiscid
4250 ;; Set path of libdiscid
4251 (lambda* (#:key inputs #:allow-other-keys)
4252 (let ((discid (assoc-ref inputs "libdiscid")))
4253 (substitute* "discid/libdiscid.py"
4254 (("lib_name = (.*)$" all name)
4255 (string-append "lib_name = \"" discid
4256 "/lib/libdiscid.so.0\"\n")))
4258 (home-page "https://python-discid.readthedocs.io/")
4259 (synopsis "Python bindings for Libdiscid")
4261 "This package provides Python bindings for the Libdiscid library. The
4262 main purpose is the calculation of @url{https://musicbrainz.org/doc/Disc%20ID,
4263 Disc IDs} for use with the MusicBrainz database. Additionally the disc
4264 @dfn{Media Catalog Number} (MCN) and track @dfn{International Standard
4265 Recording Code} (ISRC) can be extracted.}")
4266 (license license:lgpl3+)))
4268 (define-public libmusicbrainz
4270 (name "libmusicbrainz")
4276 "https://github.com/metabrainz/libmusicbrainz/releases/download/release-"
4277 version "/libmusicbrainz-" version ".tar.gz"))
4280 "0ikb9igyyk28jm34raxfzkw2qyn4nzzwsymdyprp7cmvi6g2ajb7"))))
4281 (build-system cmake-build-system)
4284 (modify-phases %standard-phases
4287 ;; requires network connections
4288 ;; (invoke "tests/mbtest")
4289 (invoke "tests/ctest")
4291 (inputs `(("neon" ,neon)
4292 ("libxml2" ,libxml2)))
4293 (native-inputs `(("pkg-config" ,pkg-config)))
4294 (home-page "https://musicbrainz.org/doc/libmusicbrainz")
4295 (synopsis "MusicBrainz client library")
4296 (description "The MusicBrainz Client Library (libmusicbrainz), also known as
4297 mb_client, is a development library geared towards developers who wish to add
4298 MusicBrainz lookup capabilities to their applications.")
4299 (license license:lgpl2.1+)))
4301 (define-public perl-musicbrainz-discid
4303 (name "perl-musicbrainz-discid")
4308 "mirror://cpan/authors/id/N/NJ/NJH/MusicBrainz-DiscID-"
4312 "1i4qk1qfcmxdibqkyfjrrjdq2zk42vjcz590qgiyc47fi9p6xx1j"))))
4313 (build-system perl-build-system)
4314 (native-inputs `(("pkg-config" ,pkg-config)
4316 (inputs `(("libdiscid" ,libdiscid)))
4317 (home-page "https://metacpan.org/release/MusicBrainz-DiscID")
4318 (synopsis "Perl interface to the MusicBrainz libdiscid library")
4320 "The @code{MusicBrainz::DiscID} module is a Perl interface to the
4321 MusicBrainz libdiscid library, allowing you to manipulate digital audio
4322 compact disc (CDDA) identifiers.")
4323 (license license:gpl2)))
4325 (define-public perl-webservice-musicbrainz
4327 (name "perl-webservice-musicbrainz")
4332 "mirror://cpan/authors/id/B/BF/BFAIST/WebService-MusicBrainz-"
4336 "16chs1l58cf000d5kalkyph3p31ci73p1rlyx98mfv10d2cq6fsj"))))
4337 (build-system perl-build-system)
4339 ;; Tests try to connect to http://musicbrainz.org.
4342 `(("perl-module-build" ,perl-module-build)))
4344 `(("perl-mojolicious" ,perl-mojolicious)))
4345 (home-page "https://metacpan.org/release/WebService-MusicBrainz")
4346 (synopsis "Web service API to the MusicBrainz database")
4348 "This module searches the MusicBrainz database through their web service
4349 at @code{musicbrainz.org}.")
4350 (license license:perl-license)))
4352 (define-public clyrics
4360 (url "https://github.com/trizen/clyrics.git")
4362 (file-name (git-file-name name version))
4365 "0vfjy555achgi5zwa34x4q7r692nc6bq4jx518a5w4m7k5fvm71j"))))
4366 (build-system trivial-build-system)
4368 `(("bash" ,bash) ; for the wrapped program
4370 ("perl-www-mechanize" ,perl-www-mechanize)
4371 ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
4372 ;; Required or else LWP will fail with "GET https://www.google.com/ ==>
4373 ;; 500 Can't verify SSL peers without knowing which Certificate
4374 ;; Authorities to trust".
4375 ("perl-mozilla-ca" ,perl-mozilla-ca)))
4377 `(#:modules ((guix build utils))
4379 (use-modules (guix build utils)
4382 (let* ((source (assoc-ref %build-inputs "source"))
4383 (output (assoc-ref %outputs "out")))
4386 (assoc-ref %build-inputs "bash") "/bin" ":"
4387 (assoc-ref %build-inputs "perl") "/bin" ":"))
4388 (copy-recursively source (getcwd))
4389 (patch-shebang "clyrics")
4390 (substitute* "clyrics"
4391 (("/usr/share") output))
4392 (install-file "clyrics" (string-append output "/bin"))
4393 (wrap-program (string-append output "/bin/clyrics")
4398 (((? (cut string-prefix? "perl-" <>) name) . dir)
4399 (string-append dir "/lib/perl5/site_perl"))
4402 (copy-recursively "plugins" (string-append output "/clyrics"))
4404 (home-page "https://github.com/trizen/clyrics")
4405 (synopsis "Extensible lyrics fetcher")
4407 "Clyrics is an extensible command-line tool to fetch the lyrics of songs.
4408 It can be used in daemon mode along with the Music-on-Console (MOC) and cmus
4409 console music players.")
4410 (license license:gpl3+)))
4412 (define-public demlo
4413 (let ((commit "fe9ec4c8ac2fa995ec18e6ac86d50d46df06ec01")
4417 (version (git-version "3.8" revision commit))
4423 "https://gitlab.com/ambrevar/demlo")
4425 (file-name (git-file-name name version))
4428 "1afkbqhzn6da7zaf5ab7dvyqj1izqhzprwfb4hw448fllda9bdvk"))))
4429 (build-system go-build-system)
4432 ("go-github-com-mattn-go-isatty" ,go-github-com-mattn-go-isatty)
4433 ("go-github-com-mattn-go-colorable" ,go-github-com-mattn-go-colorable)
4434 ("go-github-com-aarzilli-golua" ,go-github-com-aarzilli-golua)
4435 ("go-gitlab-com-ambrevar-damerau" ,go-gitlab-com-ambrevar-damerau)
4436 ("go-gitlab-com-ambrevar-golua-unicode" ,go-gitlab-com-ambrevar-golua-unicode)
4437 ("go-github-com-mgutz-ansi" ,go-github-com-mgutz-ansi)
4438 ("go-github-com-michiwend-gomusicbrainz" ,go-github-com-michiwend-gomusicbrainz)
4439 ("go-github-com-stevedonovan-luar" ,go-github-com-stevedonovan-luar)
4440 ("go-github-com-wtolson-go-taglib" ,go-github-com-wtolson-go-taglib)
4441 ("go-github-com-yookoala-realpath" ,go-github-com-yookoala-realpath)))
4443 `(("chromaprint" ,chromaprint)
4444 ("ffmpeg" ,ffmpeg)))
4446 `(#:import-path "gitlab.com/ambrevar/demlo"
4448 (modify-phases %standard-phases
4449 (add-after 'install 'wrap-program
4450 (lambda* (#:key inputs outputs #:allow-other-keys)
4451 (let ((out (assoc-ref outputs "out"))
4452 (ffmpeg (assoc-ref inputs "ffmpeg"))
4453 (chromaprint (assoc-ref inputs "chromaprint")))
4454 (wrap-program (string-append out "/bin/demlo")
4455 `("XDG_DATA_DIRS" ":" prefix (,out))
4458 (string-append dir "/bin:"
4460 (list ffmpeg chromaprint))))
4462 (add-after 'install 'install-scripts
4463 (lambda* (#:key outputs #:allow-other-keys)
4464 (let* ((out (assoc-ref outputs "out"))
4465 (root (string-append out "/src/gitlab.com/ambrevar/demlo"))
4466 (xdg-data-dirs (string-append out "/demlo")))
4467 (copy-recursively (string-append root "/actions")
4468 (string-append xdg-data-dirs "/actions"))
4469 (copy-recursively (string-append root "/scripts")
4470 (string-append xdg-data-dirs "/scripts"))
4471 (install-file (string-append root "/config.lua") xdg-data-dirs)
4472 ;; TODO: Test fish completion.
4473 (install-file (string-append root "/completion/demlo.fish")
4474 (string-append out "/share/fish/vendor_completions.d"))
4476 (home-page "https://gitlab.com/ambrevar/demlo")
4477 (synopsis "Dynamic and extensible music library organizer")
4478 (description "Demlo is a music library organizer. It can encode, fix
4479 case, change folder hierarchy according to tags or file properties, tag from
4480 an online database, copy covers while ignoring duplicates or those below a
4481 quality threshold, and much more. It makes it possible to manage your
4482 libraries uniformly and dynamically. You can write your own rules to fit your
4485 Demlo can address any of these recurring music library issues (and much more):
4488 @item Fix the lack of folder structure.
4489 @item Normalize tags, fix their case, chose which tags to keep and which to
4491 @item Handle lossy and lossless audio differently.
4492 @item Handle mp3 id3tags hell...
4493 @item Handle multiple covers, whether embedded and/or external, resize covers,
4494 discard bad quality ones.
4496 (license license:expat))))
4498 (define-public lpd8editor
4505 (url "https://github.com/charlesfleche/lpd8editor.git")
4506 (commit (string-append "v" version))))
4507 (file-name (git-file-name name version))
4510 "0lsz3v493ilq2zr016m7kvymrplxd0n3pqv1pjglpq1h7sjw9764"))))
4511 (build-system gnu-build-system)
4514 (modify-phases %standard-phases
4515 (add-after 'unpack 'setenv
4517 (setenv "INSTALL_PREFIX"
4518 (assoc-ref %outputs "out"))))
4519 (delete 'configure) ; no configure script
4520 (add-before 'build 'qmake
4521 (lambda _ (invoke "qmake"))))))
4523 `(("pkg-config" ,pkg-config)))
4525 `(("alsa" ,alsa-lib)
4528 (synopsis "Graphical editor for the Akai LPD8 MIDI controller")
4529 (description "lpd8editor is a graphical patch editor for the Akai LPD8 MIDI
4531 (home-page "https://github.com/charlesfleche/lpd8editor")
4532 (license license:expat)))
4541 (url "https://github.com/gillesdegottex/fmit/")
4542 (commit (string-append "v" version))))
4543 (file-name (git-file-name name version))
4546 "1qyskam053pvlap1av80rgp12pzhr92rs88vqs6s0ia3ypnixcc6"))))
4547 (build-system gnu-build-system)
4550 (modify-phases %standard-phases
4552 (add-before 'build 'qmake
4554 (let ((out (assoc-ref %outputs "out")))
4557 (string-append "PREFIX=" out)
4558 (string-append "PREFIXSHORTCUT=" out)
4559 "CONFIG+=acs_qt acs_alsa acs_jack acs_portaudio"))))
4560 (add-after 'install 'wrap-executable
4561 (lambda* (#:key inputs outputs #:allow-other-keys)
4562 (let ((out (assoc-ref outputs "out")))
4563 (wrap-program (string-append out "/bin/fmit")
4564 `("QT_PLUGIN_PATH" ":" prefix
4565 ,(map (lambda (label)
4566 (string-append (assoc-ref inputs label)
4567 "/lib/qt5/plugins"))
4568 '("qtbase" "qtmultimedia" "qtsvg")))
4569 `("QML2_IMPORT_PATH" ":" prefix
4570 ,(map (lambda (label)
4571 (string-append (assoc-ref inputs label)
4573 '("qtmultimedia"))))
4576 `(("alsa-lib" ,alsa-lib)
4579 ("portaudio" ,portaudio)
4581 ("qtmultimedia" ,qtmultimedia)
4584 `(("gettext" ,gnu-gettext)
4585 ("hicolor-icon-theme" ,hicolor-icon-theme)
4586 ("itstool" ,itstool)
4587 ("qttools" ,qttools)))
4588 (synopsis "Musical instrument tuner")
4589 (description "FMIT is a graphical utility for tuning musical instruments,
4590 with error and volume history, and advanced features.")
4591 (home-page "https://gillesdegottex.github.io/fmit/")
4592 ;; Most of the code is under GPL2+, but some abstract or helper classes
4593 ;; are under LGPL2.1.
4594 (license (list license:gpl2+ license:lgpl2.1))))