HCoop / jackhill / guix / guix.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
gnu: infamous-plugins: Remove compiler optimizations.
[jackhill/guix/guix.git] / gnu / packages / music.scm
CommitLineData
1b6826d3 1;;; GNU Guix --- Functional package management for GNU
658212eb 2;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
a763ce7d 3;;; Copyright © 2015, 2016 Ricardo Wurmus <rekado@elephly.net>
e8069d01 4;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
aa0edd3f 5;;; Copyright © 2016 Al McElrath <hello@yrns.org>
b7367762 6;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
3f7a182d 7;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
21f05134 8;;; Copyright © 2016 Kei Kebreau <kei@openmailbox.org>
6d3ef286 9;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net>
23319ed6 10;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
1b6826d3
RW		 11;;;
12;;; This file is part of GNU Guix.
13;;;
14;;; GNU Guix is free software; you can redistribute it and/or modify it
15;;; under the terms of the GNU General Public License as published by
16;;; the Free Software Foundation; either version 3 of the License, or (at
17;;; your option) any later version.
18;;;
19;;; GNU Guix is distributed in the hope that it will be useful, but
20;;; WITHOUT ANY WARRANTY; without even the implied warranty of
21;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22;;; GNU General Public License for more details.
23;;;
24;;; You should have received a copy of the GNU General Public License
25;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
26
27(define-module (gnu packages music)
28 #:use-module (guix utils)
29 #:use-module (guix packages)
30 #:use-module (guix download)
8e80244a 31 #:use-module (guix git-download)
1b6826d3
RW		 32 #:use-module ((guix licenses) #:prefix license:)
33 #:use-module (guix build-system gnu)
f467c352 34 #:use-module (guix build-system ant)
8b9ec354 35 #:use-module (guix build-system cmake)
821664f1 36 #:use-module (guix build-system python)
8e80244a 37 #:use-module (guix build-system waf)
1b6826d3 38 #:use-module (gnu packages)
ddfddb0c 39 #:use-module (gnu packages algebra)
91595624 40 #:use-module (gnu packages apr)
c267cc15 41 #:use-module (gnu packages audio)
2d0fd07b 42 #:use-module (gnu packages autotools)
b7367762 43 #:use-module (gnu packages backup)
8b9ec354 44 #:use-module (gnu packages base) ;libbdf
1b6826d3 45 #:use-module (gnu packages bison)
b7367762 46 #:use-module (gnu packages boost)
e8069d01 47 #:use-module (gnu packages cdrom)
8b9ec354
RW		 48 #:use-module (gnu packages code)
49 #:use-module (gnu packages check)
50 #:use-module (gnu packages compression)
aa0edd3f 51 #:use-module (gnu packages curl)
13416a10 52 #:use-module (gnu packages cyrus-sasl)
1b6826d3 53 #:use-module (gnu packages docbook)
99828fa7 54 #:use-module (gnu packages documentation)
91595624 55 #:use-module (gnu packages emacs)
13416a10 56 #:use-module (gnu packages file)
1b6826d3 57 #:use-module (gnu packages flex)
8e80244a 58 #:use-module (gnu packages fltk)
1b6826d3
RW		 59 #:use-module (gnu packages fonts)
60 #:use-module (gnu packages fontutils)
3bf429af 61 #:use-module (gnu packages freedesktop)
6260d1a8 62 #:use-module (gnu packages gcc)
aa0edd3f 63 #:use-module (gnu packages gnupg)
1b6826d3
RW		 64 #:use-module (gnu packages gettext)
65 #:use-module (gnu packages ghostscript)
ec8da0e2 66 #:use-module (gnu packages gl)
8e80244a 67 #:use-module (gnu packages glib)
c267cc15 68 #:use-module (gnu packages gnome)
770305f4 69 #:use-module (gnu packages graphics)
1b6826d3
RW		 70 #:use-module (gnu packages gtk)
71 #:use-module (gnu packages guile)
c267cc15 72 #:use-module (gnu packages image)
1b6826d3 73 #:use-module (gnu packages imagemagick)
6260d1a8 74 #:use-module (gnu packages java)
c267cc15 75 #:use-module (gnu packages linux) ; for alsa-utils
91595624
RW		 76 #:use-module (gnu packages libffi)
77 #:use-module (gnu packages llvm)
c267cc15
RW		 78 #:use-module (gnu packages man)
79 #:use-module (gnu packages mp3)
3bf429af 80 #:use-module (gnu packages mpd)
e8069d01 81 #:use-module (gnu packages ncurses)
1b6826d3 82 #:use-module (gnu packages netpbm)
91595624 83 #:use-module (gnu packages pcre)
821664f1 84 #:use-module (gnu packages pdf)
1b6826d3
RW		 85 #:use-module (gnu packages perl)
86 #:use-module (gnu packages pkg-config)
d231bb35 87 #:use-module (gnu packages pulseaudio) ;libsndfile
1b6826d3 88 #:use-module (gnu packages python)
8b9ec354 89 #:use-module (gnu packages qt)
d231bb35 90 #:use-module (gnu packages rdf)
c493679f 91 #:use-module (gnu packages readline)
1b6826d3 92 #:use-module (gnu packages rsync)
21d18113 93 #:use-module (gnu packages sdl)
2d0fd07b 94 #:use-module (gnu packages tcl)
1b6826d3 95 #:use-module (gnu packages texinfo)
8f9ac901 96 #:use-module (gnu packages tex)
13416a10 97 #:use-module (gnu packages tls)
e8069d01 98 #:use-module (gnu packages video)
8b9ec354 99 #:use-module (gnu packages web)
c30a66de 100 #:use-module (gnu packages wxwidgets)
c267cc15 101 #:use-module (gnu packages xml)
ddfddb0c 102 #:use-module (gnu packages xorg)
c267cc15 103 #:use-module (gnu packages xiph)
2d0fd07b
RW		 104 #:use-module (gnu packages zip)
105 #:use-module ((srfi srfi-1) #:select (last)))
1b6826d3 106
c30a66de
RW		 107(define-public aria-maestosa
108 (package
109 (name "aria-maestosa")
110 (version "1.4.11")
111 (source (origin
112 (method url-fetch)
113 (uri (string-append "mirror://sourceforge/ariamaestosa/ariamaestosa/"
114 version "/AriaSrc-" version ".tar.bz2"))
115 (sha256
116 (base32
117 "0gf9z96z83jiabxhpl856j15vl9flfgs6x1r0r6hc7g2xvwag0vy"))))
118 (build-system gnu-build-system)
119 (arguments
120 `(#:tests? #f ;no tests
121 #:phases
122 ;; TODO: Add scons-build-system and use it here.
123 (modify-phases %standard-phases
124 (delete 'configure)
125 (add-after 'unpack 'scons-propagate-environment
126 (lambda _
127 ;; By design, SCons does not, by default, propagate
128 ;; environment variables to subprocesses. See:
129 ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
130 ;; Here, we modify the SConstruct file to arrange for
131 ;; environment variables to be propagated.
132 (substitute* "SConstruct"
133 (("env = Environment\\(\\)")
134 "env = Environment(ENV=os.environ)")
135 ;; Scons errors out when copying subdirectories from Resources,
136 ;; so we move them instead.
137 (("Copy") "Move")
138 ;; We move the "score" and "Documentation" directories at once,
139 ;; so we have to ignore files contained therein.
140 (("if \".svn\" in file" line)
141 (string-append line
142 " or \"score/\" in file"
143 " or \"Documentation/\" in file")))
144 #t))
145 (replace 'build (lambda _ (zero? (system* "scons"))))
146 (replace 'install
147 (lambda* (#:key outputs #:allow-other-keys)
148 (let ((out (assoc-ref outputs "out")))
149 (and
150 (zero? (system* "scons"
151 (string-append "prefix=" out)
152 "install"))
153 ;; Fix directory permissions
154 (begin
155 (chmod (string-append out "/share/Aria/Documentation") #o555)
156 (chmod (string-append out "/share/Aria/score") #o555)
157 #t))))))))
158 (inputs
159 `(("wxwidgets" ,wxwidgets)
160 ("glib" ,glib)
161 ("alsa-lib" ,alsa-lib)))
162 (native-inputs
163 `(("scons" ,scons)
164 ("pkg-config" ,pkg-config)))
165 (home-page "http://ariamaestosa.sourceforge.net/")
166 (synopsis "MIDI sequencer and editor")
167 (description
168 "Aria Maestosa is a MIDI sequencer and editor. It lets you compose, edit
169and play MIDI files with a few clicks in a user-friendly interface offering
170score, keyboard, guitar, drum and controller views.")
171 (license license:gpl3+)))
172
e8069d01
PW		 173(define-public cmus
174 (package
175 (name "cmus")
176 (version "2.7.1")
177 (source (origin
178 (method url-fetch)
179 (uri (string-append
180 "https://github.com/" name "/" name "/archive/v"
181 version ".tar.gz"))
566fc7fa 182 (file-name (string-append name "-" version ".tar.gz"))
e8069d01
PW		 183 (sha256
184 (base32
185 "0raixgjavkm7hxppzsc5zqbfbh2bhjcmbiplhnsxsmyj8flafyc1"))))
186 (build-system gnu-build-system)
187 (arguments
188 `(#:tests? #f ; cmus does not include tests
189 #:phases
190 (modify-phases %standard-phases
191 (replace
192 'configure
193 (lambda* (#:key outputs #:allow-other-keys)
194 (let ((out (assoc-ref outputs "out")))
195
196 ;; It's an idiosyncratic configure script that doesn't
197 ;; understand --prefix=..; it wants prefix=.. instead.
198 (zero?
199 (system* "./configure"
200 (string-append "prefix=" out)))))))))
201 ;; TODO: cmus optionally supports the following formats, which haven't yet
202 ;; been added to Guix:
203 ;;
204 ;; - Roar, libroar
205 ;;
206 ;; - DISCID_LIBS, apparently different from cd-discid which is included in
207 ;; Guix. See <http://sourceforge.net/projects/discid/>
208 (native-inputs
209 `(("pkg-config" ,pkg-config)))
210 (inputs
211 `(("alsa-lib" ,alsa-lib)
212 ("ao" ,ao)
213 ("ffmpeg" ,ffmpeg)
214 ("flac" ,flac)
215 ("jack" ,jack-1)
216 ("libcddb" ,libcddb)
217 ("libcdio-paranoia" ,libcdio-paranoia)
218 ("libcue" ,libcue)
219 ("libmad" ,libmad)
220 ("libmodplug" ,libmodplug)
221 ("libmpcdec" ,libmpcdec)
222 ("libsamplerate" ,libsamplerate)
223 ("libvorbis" ,libvorbis)
224 ("ncurses" ,ncurses)
225 ("opusfile" ,opusfile)
226 ("pulseaudio" ,pulseaudio)
227 ("wavpack" ,wavpack)))
228 (home-page "https://cmus.github.io/")
229 (synopsis "Small console music player")
230 (description "Cmus is a small and fast console music player. It supports
231many input formats and provides a customisable Vi-style user interface.")
232 (license license:gpl2+)))
233
d231bb35
RW		 234(define-public hydrogen
235 (package
236 (name "hydrogen")
b7367762 237 (version "0.9.6.1")
d231bb35
RW		 238 (source (origin
239 (method url-fetch)
240 (uri (string-append
b7367762
EF		 241 "https://github.com/hydrogen-music/hydrogen/archive/"
242 version ".tar.gz"))
d231bb35
RW		 243 (sha256
244 (base32
b7367762
EF		 245 "0vxnaqfmcv7hhk0cj67imdcqngspnck7f0wfmvhfgfqa7x1xznll"))))
246 (build-system cmake-build-system)
d231bb35 247 (arguments
b7367762 248 `(#:test-target "tests"))
d231bb35 249 (native-inputs
b7367762 250 `(("cppunit" ,cppunit)
d231bb35
RW		 251 ("pkg-config" ,pkg-config)))
252 (inputs
b7367762 253 `(("alsa-lib" ,alsa-lib)
d231bb35 254 ("jack" ,jack-1)
b7367762 255 ;; ("ladspa" ,ladspa) ; cannot find during configure
d231bb35 256 ("lash" ,lash)
b7367762
EF		 257 ("libarchive" ,libarchive)
258 ("libsndfile" ,libsndfile)
259 ("libtar" ,libtar)
260 ("lrdf" ,lrdf)
d231bb35 261 ("qt" ,qt-4)
b7367762 262 ("zlib" ,zlib)))
d231bb35
RW		 263 (home-page "http://www.hydrogen-music.org")
264 (synopsis "Drum machine")
265 (description
266 "Hydrogen is an advanced drum machine for GNU/Linux. Its main goal is to
267enable professional yet simple and intuitive pattern-based drum programming.")
268 (license license:gpl2+)))
269
91595624
RW		 270(define-public extempore
271 (package
272 (name "extempore")
273 (version "0.7.0")
274 (source (origin
275 (method url-fetch)
276 (uri (string-append
277 "https://github.com/digego/extempore/archive/"
278 version ".tar.gz"))
279 (sha256
280 (base32
281 "1wap1mvsicrhlazikf7l8zxg37fir8bmnh9rin28m1rix730vcch"))
282 (file-name (string-append name "-" version ".tar.gz"))))
283 (build-system cmake-build-system)
284 (arguments
285 `(;; The default target also includes ahead-of-time compilation of the
286 ;; standard libraries. However, during the "install" phase this would
287 ;; happen *again* for unknown reasons. Hence we only build the
288 ;; extempore executable during the build phase.
289 #:make-flags '("extempore")
290 #:configure-flags '("-DJACK=ON"
291 ;; We want to distribute.
292 "-DIN_TREE=OFF"
293 ;; Don't download any dependencies.
294 "-DBUILD_DEPS=OFF")
295 #:modules ((ice-9 match)
296 (guix build cmake-build-system)
297 (guix build utils))
298 #:phases
299 (modify-phases %standard-phases
300 (add-after 'unpack 'patch-directories
301 (lambda* (#:key outputs #:allow-other-keys)
302 ;; Rewrite default path to runtime directory
303 (substitute* "src/Extempore.cpp"
304 (("runtimedir \\+= \"runtime\"")
305 (string-append "runtimedir = \""
306 (assoc-ref outputs "out")
307 "/lib/extempore/runtime\"")))
308 (substitute* "extras/extempore.el"
309 (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
310 (string-append "(runtime-directory \""
311 (assoc-ref outputs "out")
312 "/lib/extempore/runtime"
313 "\")")))
314 #t))
315 (add-after 'unpack 'link-with-additional-libs
316 (lambda _
317 ;; The executable must be linked with libffi and zlib.
318 (substitute* "CMakeLists.txt"
319 (("add_dependencies\\(aot_extended extended_deps\\)") "")
320 (("target_link_libraries\\(extempore PRIVATE dl" line)
321 (string-append line " ffi z")))
322 #t))
323 ;; FIXME: AOT compilation of the nanovg bindings fail with the error:
324 ;; "Compiler Error could not bind _nvgLinearGradient"
325 (add-after 'unpack 'disable-nanovg
326 (lambda _
327 (substitute* "CMakeLists.txt"
328 (("aotcompile_lib\\(libs/external/nanovg.xtm.*") ""))
329 #t))
330 ;; FIXME: All examples that are used as tests segfault for some
331 ;; unknown reason.
332 (add-after 'unpack 'disable-broken-tests
333 (lambda _
334 (substitute* "CMakeLists.txt"
335 (("extempore_add_example_as_test\\(.*") ""))
336 #t))
337 (add-after 'unpack 'hardcode-external-lib-paths
338 (lambda* (#:key inputs #:allow-other-keys)
339 (use-modules (ice-9 match))
340 (for-each
341 (match-lambda
342 ((file-name lib pkg-name)
343 (substitute* (string-append "libs/external/" file-name ".xtm")
344 ((lib) (string-append (assoc-ref inputs pkg-name)
345 "/lib/" lib)))))
346 '(("assimp" "libassimp.so" "assimp")
347 ("portmidi" "libportmidi.so" "portmidi")
348 ("sndfile" "libsndfile.so" "libsndfile")
349 ("fft" "libkiss_fft.so" "kiss-fft")
350 ("stb_image" "libstb_image.so" "stb-image")
351 ("nanovg" "libnanovg.so" "nanovg")
352 ("glext" "libGL.so" "mesa")
353 ("glfw3" "libglfw.so" "glfw")
354 ("gl/glcore-directbind" "libGL.so" "mesa")
355 ("gl/glcompat-directbind" "libGL.so" "mesa")))
356 #t))
357 (add-after 'unpack 'use-own-llvm
358 (lambda* (#:key inputs #:allow-other-keys)
359 (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
360 ;; Our LLVM builds shared libraries, so Extempore should use
361 ;; those.
362 (substitute* "CMakeLists.txt"
363 (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
364 #t))
365 (add-after 'unpack 'fix-aot-compilation
366 (lambda* (#:key outputs #:allow-other-keys)
367 (substitute* "CMakeLists.txt"
368 ;; EXT_SHARE_DIR does not exist before installation, so the
369 ;; working directory should be the source directory instead.
370 (("WORKING_DIRECTORY \\$\\{EXT_SHARE_DIR\\}")
371 "WORKING_DIRECTORY ${CMAKE_SOURCE_DIR}")
372 ;; Extempore needs to be told where the runtime is to be found.
373 ;; While we're at it we disable automatic tuning for a specific
374 ;; CPU to make binary substitution possible.
375 (("COMMAND extempore" prefix)
376 (string-append prefix " --sharedir " (getcwd)
377 " --mcpu=generic --attr=none")))
378 #t)))))
379 (inputs
380 `(("llvm" ,llvm-for-extempore)
381 ("libffi" ,libffi)
382 ("jack" ,jack-1)
383 ("libsndfile" ,libsndfile)
384 ("glfw" ,glfw)
385 ("apr" ,apr)
386 ("stb-image" ,stb-image-for-extempore)
387 ("kiss-fft" ,kiss-fft-for-extempore)
388 ("nanovg" ,nanovg-for-extempore)
389 ("portmidi" ,portmidi-for-extempore)
390 ("assimp" ,assimp)
391 ("alsa-lib" ,alsa-lib)
392 ("portaudio" ,portaudio)
393 ("mesa" ,mesa)
394 ("pcre" ,pcre)
395 ("zlib" ,zlib)))
396 (native-inputs
397 `(("perl" ,perl)
398 ("emacs" ,emacs-no-x)))
39162ee4
RW		 399 ;; Extempore refuses to build on architectures other than x86_64
400 (supported-systems '("x86_64-linux"))
91595624
RW		 401 (home-page "http://benswift.me/extempore-docs/index.html")
402 (synopsis "Programming environment for live coding of multimedia")
403 (description
404 "Extempore is a programming language and runtime environment designed
405with live programming in mind. It supports interactive programming in a REPL
406style, compiling and binding code just-in-time. Although Extempore has its
407roots in 'live coding' of audiovisual media art, it is suitable for any task
408domain where dynamic run-time modifiability and good numerical performance are
409required. Extempore also has strong timing and concurrency semantics, which
410are helpful when working in problem spaces where timing is important (such as
411audio and video).")
412 (license license:bsd-2)))
413
8c454dcd
RW		 414(define-public klick
415 (package
416 (name "klick")
417 (version "0.12.2")
418 (source (origin
419 (method url-fetch)
420 (uri (string-append "http://das.nasophon.de/download/klick-"
421 version ".tar.gz"))
422 (sha256
423 (base32
424 "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
425 (build-system gnu-build-system)
426 (arguments
427 `(#:tests? #f ;no "check" target
428 #:phases
429 ;; TODO: Add scons-build-system and use it here.
430 (modify-phases %standard-phases
431 (delete 'configure)
432 (replace 'build
433 (lambda* (#:key inputs outputs #:allow-other-keys)
434 (let ((out (assoc-ref outputs "out")))
435 (mkdir-p out)
436 (zero? (system* "scons" (string-append "PREFIX=" out))))))
437 (replace 'install (lambda _ (zero? (system* "scons" "install")))))))
438 (inputs
439 `(("boost" ,boost)
440 ("jack" ,jack-1)
441 ("libsndfile" ,libsndfile)
442 ("libsamplerate" ,libsamplerate)
443 ("liblo" ,liblo)
444 ("rubberband" ,rubberband)))
445 (native-inputs
446 `(("scons" ,scons)
447 ("python" ,python-2)
448 ("pkg-config" ,pkg-config)))
449 (home-page "http://das.nasophon.de/klick/")
450 (synopsis "Metronome for JACK")
451 (description
452 "klick is an advanced command-line based metronome for JACK. It allows
453you to define complex tempo maps for entire songs or performances.")
454 (license license:gpl2+)))
455
048bfba1
RW		 456(define-public gtklick
457 (package
458 (name "gtklick")
459 (version "0.6.4")
460 (source (origin
461 (method url-fetch)
462 (uri (string-append "http://das.nasophon.de/download/gtklick-"
463 version ".tar.gz"))
464 (sha256
465 (base32
466 "0dq1km6njnzsqdqyf6wzir9g733z0mc9vmxfg2383k3c2a2di6bp"))))
467 (build-system python-build-system)
468 (arguments
469 `(#:tests? #f ; no tests
470 #:python ,python-2
471 #:phases
472 (modify-phases %standard-phases
473 (add-before 'build 'add-sitedirs
474 ;; .pth files are not automatically interpreted unless the
475 ;; directories containing them are added as "sites". The directories
476 ;; are then added to those in the PYTHONPATH. This is required for
477 ;; the operation of pygtk.
478 (lambda _
479 (substitute* "gtklick/gtklick.py"
480 (("import pygtk")
481 "import pygtk, site, sys
482for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))))
483 (add-after 'unpack 'inject-store-path-to-klick
484 (lambda* (#:key inputs #:allow-other-keys)
485 (substitute* "gtklick/klick_backend.py"
486 (("KLICK_PATH = 'klick'")
487 (string-append "KLICK_PATH = '"
488 (assoc-ref inputs "klick")
489 "/bin/klick'")))
490 #t)))))
491 (inputs
492 `(("klick" ,klick)
493 ("python2-pyliblo" ,python2-pyliblo)
494 ("python2-pygtk" ,python2-pygtk)))
495 (native-inputs
496 `(("gettext" ,gnu-gettext)))
497 (home-page "http://das.nasophon.de/gtklick/")
498 (synopsis "Simple metronome with an easy-to-use graphical interface")
499 (description
500 "Gtklick is a simple metronome with an easy-to-use graphical user
501interface. It is implemented as a frontend to @code{klick}.")
502 (license license:gpl2+)))
503
1b6826d3
RW		 504(define-public lilypond
505 (package
506 (name "lilypond")
398abcf8 507 (version "2.19.33")
1b6826d3
RW		 508 (source (origin
509 (method url-fetch)
510 (uri (string-append
511 "http://download.linuxaudio.org/lilypond/sources/v"
512 (version-major+minor version) "/"
513 name "-" version ".tar.gz"))
514 (sha256
515 (base32
398abcf8 516 "0s4vbbfy4xwq4da4kmlnndalmcyx2jaz7y8praah2146qbnr90xh"))))
1b6826d3
RW		 517 (build-system gnu-build-system)
518 (arguments
127b04d7 519 `(#:tests? #f ; out-test/collated-files.html fails
1b6826d3 520 #:out-of-source? #t
409be57b 521 #:make-flags '("conf=www") ;to generate images for info manuals
127b04d7 522 #:configure-flags
409be57b
RW		 523 (list "CONFIGURATION=www"
524 (string-append "--with-texgyre-dir="
127b04d7
RW		 525 (assoc-ref %build-inputs "font-tex-gyre")
526 "/share/fonts/opentype/"))
1b6826d3 527 #:phases
a8bc747a 528 (modify-phases %standard-phases
409be57b
RW		 529 (add-after 'unpack 'fix-path-references
530 (lambda _
a8bc747a
RW		 531 (substitute* "scm/backend-library.scm"
532 (("\\(search-executable '\\(\"gs\"\\)\\)")
409be57b
RW		 533 (string-append "\"" (which "gs") "\""))
534 (("\"/bin/sh\"")
535 (string-append "\"" (which "sh") "\"")))
a8bc747a
RW		 536 #t))
537 (add-before 'configure 'prepare-configuration
538 (lambda _
539 (substitute* "configure"
7affb2c1
RW		 540 (("SHELL=/bin/sh") "SHELL=sh")
541 ;; When checking the fontforge version do not consider the
542 ;; version string that's part of the directory.
543 (("head -n") "tail -n"))
409be57b
RW		 544 (setenv "out" "www")
545 (setenv "conf" "www")
546 #t))
547 (add-after 'install 'install-info
548 (lambda _
549 (zero? (system* "make"
550 "-j" (number->string (parallel-job-count))
551 "conf=www" "install-info")))))))
1b6826d3
RW		 552 (inputs
553 `(("guile" ,guile-1.8)
554 ("font-dejavu" ,font-dejavu)
127b04d7 555 ("font-tex-gyre" ,font-tex-gyre)
1b6826d3
RW		 556 ("fontconfig" ,fontconfig)
557 ("freetype" ,freetype)
d8eb9121 558 ("ghostscript" ,ghostscript-gs)
1b6826d3
RW		 559 ("pango" ,pango)
560 ("python" ,python-2)))
561 (native-inputs
562 `(("bison" ,bison)
563 ("perl" ,perl)
564 ("flex" ,flex)
565 ("fontforge" ,fontforge)
566 ("dblatex" ,dblatex)
567 ("gettext" ,gnu-gettext)
568 ("imagemagick" ,imagemagick)
569 ("netpbm" ,netpbm) ;for pngtopnm
570 ("texlive" ,texlive) ;metafont and metapost
571 ("texinfo" ,texinfo)
572 ("texi2html" ,texi2html)
573 ("rsync" ,rsync)
574 ("pkg-config" ,pkg-config)
575 ("zip" ,zip)))
576 (home-page "http://www.lilypond.org/")
577 (synopsis "Music typesetting")
578 (description
579 "GNU LilyPond is a music typesetter, which produces high-quality sheet
580music. Music is input in a text file containing control sequences which are
581interpreted by LilyPond to produce the final document. It is extendable with
582Guile.")
55ca5e80
LC		 583 (license license:gpl3+)
584
585 ;; On armhf and mips64el, building the documentation sometimes leads to
586 ;; more than an hour of silence, so double the max silent time.
587 (properties `((max-silent-time . 7200)))))
c267cc15 588
8e80244a
RW		 589(define-public non-sequencer
590 ;; The latest tagged release is three years old and uses a custom build
591 ;; system, so we take the last commit affecting the "sequencer" directory.
698bd297 592 (let ((commit "1d9bd576f6bf7ea240af5f7a60260592750af0dd"))
8e80244a
RW		 593 (package
594 (name "non-sequencer")
698bd297 595 (version (string-append "1.9.5-" (string-take commit 7)))
8e80244a
RW		 596 (source (origin
597 (method git-fetch)
598 (uri (git-reference
599 (url "git://git.tuxfamily.org/gitroot/non/non.git")
600 (commit commit)))
601 (sha256
602 (base32
603 "0pkkw8q6d55j38xm7r4rwpdv1wy00a44h8c4wrn7vbgpq9nij46y"))
604 (file-name (string-append name "-" version "-checkout"))))
605 (build-system waf-build-system)
606 (arguments
607 `(#:tests? #f ;no "check" target
e591a4d6
RW		 608 #:configure-flags
609 (list "--project=sequencer"
610 ;; Disable the use of SSE unless on x86_64.
611 ,@(if (not (string-prefix? "x86_64" (or (%current-target-system)
612 (%current-system))))
613 '("--disable-sse")
614 '()))
d8c317df
SB		 615 #:phases
616 (modify-phases %standard-phases
617 (add-before
618 'configure 'set-flags
619 (lambda _
620 ;; Compile with C++11, required by libsigc++.
621 (setenv "CXXFLAGS" "-std=c++11")
622 #t)))
8e80244a
RW		 623 #:python ,python-2))
624 (inputs
625 `(("jack" ,jack-1)
626 ("libsigc++" ,libsigc++)
627 ("liblo" ,liblo)
628 ("ntk" ,ntk)))
629 (native-inputs
630 `(("pkg-config" ,pkg-config)))
631 (home-page "http://non.tuxfamily.org/wiki/Non%20Sequencer")
632 (synopsis "Pattern-based MIDI sequencer")
633 (description
634 "The Non Sequencer is a powerful, lightweight, real-time,
635pattern-based MIDI sequencer. It utilizes the JACK Audio Connection Kit for
636MIDI I/O and the NTK GUI toolkit for its user interface. Everything in Non
637Sequencer happens on-line, in real-time. Music can be composed live, while the
638transport is rolling.")
639 (license license:gpl2+))))
640
c267cc15
RW		 641(define-public solfege
642 (package
643 (name "solfege")
644 (version "3.22.2")
645 (source (origin
646 (method url-fetch)
647 (uri (string-append
648 "mirror://gnu/solfege/solfege-"
649 version ".tar.xz"))
650 (sha256
651 (base32
652 "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
653 (build-system gnu-build-system)
654 (arguments
655 `(#:tests? #f ; xmllint attempts to download DTD
656 #:test-target "test"
657 #:phases
658 (alist-cons-after
659 'unpack 'fix-configuration
660 (lambda* (#:key inputs #:allow-other-keys)
661 (substitute* "default.config"
662 (("csound=csound")
663 (string-append "csound="
664 (assoc-ref inputs "csound")
665 "/bin/csound"))
666 (("/usr/bin/aplay")
667 (string-append (assoc-ref inputs "aplay")
668 "/bin/aplay"))
669 (("/usr/bin/timidity")
670 (string-append (assoc-ref inputs "timidity")
671 "/bin/timidity"))
672 (("/usr/bin/mpg123")
673 (string-append (assoc-ref inputs "mpg123")
674 "/bin/mpg123"))
675 (("/usr/bin/ogg123")
676 (string-append (assoc-ref inputs "ogg123")
677 "/bin/ogg123"))))
678 (alist-cons-before
679 'build 'patch-python-shebangs
680 (lambda _
681 ;; Two python scripts begin with a Unicode BOM, so patch-shebang
682 ;; has no effect.
683 (substitute* '("solfege/parsetree.py"
684 "solfege/presetup.py")
685 (("#!/usr/bin/python") (string-append "#!" (which "python")))))
686 (alist-cons-before
687 'build 'add-sitedirs
688 ;; .pth files are not automatically interpreted unless the
689 ;; directories containing them are added as "sites". The directories
690 ;; are then added to those in the PYTHONPATH. This is required for
691 ;; the operation of pygtk and pygobject.
692 (lambda _
693 (substitute* "run-solfege.py"
694 (("import os")
695 "import os, site
696for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)")))
697 (alist-cons-before
698 'build 'adjust-config-file-prefix
699 (lambda* (#:key outputs #:allow-other-keys)
700 (substitute* "run-solfege.py"
701 (("prefix = os.path.*$")
702 (string-append "prefix = " (assoc-ref outputs "out")))))
703 (alist-cons-after
704 'install 'wrap-program
705 (lambda* (#:key inputs outputs #:allow-other-keys)
f3045a5b 706 ;; Make sure 'solfege' runs with the correct PYTHONPATH.
c267cc15 707 (let* ((out (assoc-ref outputs "out"))
f3045a5b 708 (path (getenv "PYTHONPATH")))
c267cc15 709 (wrap-program (string-append out "/bin/solfege")
f3045a5b 710 `("PYTHONPATH" ":" prefix (,path)))))
c267cc15
RW		 711 %standard-phases)))))))
712 (inputs
713 `(("python" ,python-2)
714 ("pygtk" ,python2-pygtk)
715 ("gettext" ,gnu-gettext)
716 ("gtk" ,gtk+)
e8309291 717 ("lilypond" ,lilypond)
c267cc15
RW		 718 ;; players needed at runtime
719 ("aplay" ,alsa-utils)
720 ("csound" ,csound) ; optional, needed for some exercises
721 ("mpg123" ,mpg123)
722 ("ogg123" ,vorbis-tools)
723 ("timidity" ,timidity++)))
724 (native-inputs
725 `(("pkg-config" ,pkg-config)
726 ("txt2man" ,txt2man)
727 ("libxml2" ,libxml2) ; for tests
728 ("ghostscript" ,ghostscript)
c267cc15
RW		 729 ("texinfo" ,texinfo)))
730 (home-page "https://www.gnu.org/software/solfege/")
731 (synopsis "Ear training")
732 (description
733 "GNU Solfege is a program for practicing musical ear-training. With it,
734you can practice your recognition of various musical intervals and chords. It
735features a statistics overview so you can monitor your progress across several
736sessions. Solfege is also designed to be extensible so you can easily write
737your own lessons.")
738 (license license:gpl3+)))
6260d1a8 739
8b9ec354
RW		 740(define-public powertabeditor
741 (package
742 (name "powertabeditor")
d19cf783 743 (version "2.0.0-alpha8")
8b9ec354
RW		 744 (source (origin
745 (method url-fetch)
746 (uri (string-append
747 "https://github.com/powertab/powertabeditor/archive/"
748 version ".tar.gz"))
749 (file-name (string-append name "-" version ".tar.gz"))
750 (sha256
751 (base32
d19cf783 752 "0gaa2x209v3azql8ak3r1n9a9qbxjx2ssirvwdxwklv2lmfqkm82"))
8b9ec354
RW		 753 (modules '((guix build utils)))
754 (snippet
755 '(begin
756 ;; Remove bundled sources for external libraries
757 (delete-file-recursively "external")
758 (substitute* "CMakeLists.txt"
759 (("include_directories\\(\\$\\{PROJECT_SOURCE_DIR\\}/external/.*") "")
8b9ec354
RW		 760 (("add_subdirectory\\(external\\)") ""))
761 (substitute* "test/CMakeLists.txt"
762 (("include_directories\\(\\$\\{PROJECT_SOURCE_DIR\\}/external/.*") ""))
763
764 ;; Add install target
765 (substitute* "source/CMakeLists.txt"
766 (("qt5_use_modules")
767 (string-append
768 "install(TARGETS powertabeditor "
769 "RUNTIME DESTINATION ${CMAKE_INSTALL_PREFIX}/bin)\n"
770 "install(FILES data/tunings.json DESTINATION "
771 "${CMAKE_INSTALL_PREFIX}/share/powertabeditor/)\n"
772 "qt5_use_modules")))
773 #t))))
774 (build-system cmake-build-system)
775 (arguments
7e11d113 776 `(#:modules ((guix build cmake-build-system)
8b9ec354
RW		 777 (guix build utils)
778 (ice-9 match))
779 #:configure-flags
780 ;; CMake appears to lose the RUNPATH for some reason, so it has to be
781 ;; explicitly set with CMAKE_INSTALL_RPATH.
7e11d113
RW		 782 (list "-DCMAKE_BUILD_WITH_INSTALL_RPATH=TRUE"
783 "-DCMAKE_ENABLE_PRECOMPILED_HEADERS=OFF" ; if ON pte_tests cannot be built
784 (string-append "-DCMAKE_INSTALL_RPATH="
8b9ec354
RW		 785 (string-join (map (match-lambda
786 ((name . directory)
787 (string-append directory "/lib")))
788 %build-inputs) ";")))
789 #:phases
790 (modify-phases %standard-phases
7e11d113
RW		 791 (replace
792 'check
793 (lambda _
794 (zero? (system* "bin/pte_tests"
795 ;; Exclude this failing test
796 "~Formats/PowerTabOldImport/Directions"))))
797 (add-before
798 'configure 'fix-tests
799 (lambda _
800 ;; Tests cannot be built with precompiled headers
801 (substitute* "test/CMakeLists.txt"
802 (("cotire\\(pte_tests\\)") ""))
803 #t))
8b9ec354
RW		 804 (add-before
805 'configure 'remove-third-party-libs
806 (lambda* (#:key inputs #:allow-other-keys)
807 ;; Link with required static libraries, because we're not
808 ;; using the bundled version of withershins.
809 (substitute* '("source/CMakeLists.txt"
810 "test/CMakeLists.txt")
7e11d113 811 (("target_link_libraries\\((powertabeditor|pte_tests)" _ target)
8b9ec354
RW		 812 (string-append "target_link_libraries(" target " "
813 (assoc-ref inputs "binutils")
814 "/lib/libbfd.a "
d6902798 815 (assoc-ref inputs "libiberty")
8b9ec354
RW		 816 "/lib/libiberty.a "
817 "dl")))
818 #t)))))
819 (inputs
820 `(("boost" ,boost)
821 ("alsa-lib" ,alsa-lib)
0a0bfd68 822 ("qtbase" ,qtbase)
8b9ec354 823 ("withershins" ,withershins)
d6902798 824 ("libiberty" ,libiberty) ;for withershins
8b9ec354
RW		 825 ("binutils" ,binutils) ;for -lbfd and -liberty (for withershins)
826 ("timidity" ,timidity++)
827 ("pugixml" ,pugixml)
828 ("rtmidi" ,rtmidi)
829 ("rapidjson" ,rapidjson)
830 ("zlib" ,zlib)))
831 (native-inputs
832 `(("catch" ,catch-framework)
833 ("pkg-config" ,pkg-config)))
834 (home-page "http://powertabs.net")
835 (synopsis "Guitar tablature editor")
836 (description
837 "Power Tab Editor 2.0 is the successor to the famous original Power Tab
838Editor. It is compatible with Power Tab Editor 1.7 and Guitar Pro.")
839 (license license:gpl3+)))
840
b095e762
RW		 841(define-public synthv1
842 (package
843 (name "synthv1")
cb1436d8 844 (version "0.7.5")
b095e762
RW		 845 (source (origin
846 (method url-fetch)
847 (uri
de67e922
LF		 848 (string-append "mirror://sourceforge/synthv1/synthv1/" version
849 "/synthv1-" version ".tar.gz"))
b095e762
RW		 850 (sha256
851 (base32
cb1436d8 852 "0h5zja78phf9705i9g54zh61iczb24iv7rxhljyms30sjgajig1y"))))
b095e762 853 (build-system gnu-build-system)
69008d73
DC		 854 (arguments
855 `(#:tests? #f ; There are no tests.
856 #:configure-flags
857 '("CXXFLAGS=-std=gnu++11")))
b095e762
RW		 858 (inputs
859 `(("jack" ,jack-1)
860 ("lv2" ,lv2)
861 ("alsa-lib" ,alsa-lib)
862 ("liblo" ,liblo)
e5f2afdb
EF		 863 ("qtbase" ,qtbase)
864 ("qttools" ,qttools)))
b095e762
RW		 865 (home-page "http://synthv1.sourceforge.net")
866 (synopsis "Polyphonic subtractive synthesizer")
867 (description
868 "Synthv1 is an old-school subtractive polyphonic synthesizer with four
869oscillators and stereo effects.")
870 (license license:gpl2+)))
2bb00612
RW		 871
872(define-public amsynth
873 (package
874 (name "amsynth")
875 (version "1.6.4")
876 (source
877 (origin
878 (method url-fetch)
879 (uri (string-append "https://github.com/amsynth/amsynth/releases/"
880 "download/release-" version
881 "/amsynth-" version ".tar.bz2"))
882 (sha256
883 (base32
884 "07dp9dl38g9krjqxxh89l2z42z08yzrl57cx95b1l67xnxwjp5k3"))))
885 (build-system gnu-build-system)
886 (arguments
887 `(#:phases
888 (modify-phases %standard-phases
889 (add-before 'configure 'set-flags
890 (lambda _
891 ;; Compile with C++11, required by gtkmm.
892 (setenv "CXXFLAGS" "-std=c++11")
893 #t)))))
894 (inputs
895 `(("alsa-lib" ,alsa-lib)
896 ("jack" ,jack-1)
897 ("lv2" ,lv2)
898 ("libsndfile" ,libsndfile)
899 ("gtk+" ,gtk+-2)
900 ("gtkmm" ,gtkmm-2)))
901 (native-inputs
902 `(("pkg-config" ,pkg-config)))
903 (home-page "http://amsynth.github.io")
904 (synopsis "Analog modeling synthesizer")
905 (description
906 "amsynth is an easy-to-use software synthesizer with a classic
907subtractive synthesizer topology. Its features include: dual
908oscillators (sine, saw, square, noise) with hard sync; 12 and 24 dB/oct
909resonant filters (low-pass, high-pass, band-pass, notch); mono, poly, legato
910keyboard modes; dual ADSR envelope generators for filter and amplitude; LFO
911which can modulate the oscillators, filter, and amplitude; distortion and
912reverb effects.")
913 (license license:gpl2+)))
b095e762 914
ec8da0e2
RW		 915(define-public setbfree
916 (package
917 (name "setbfree")
a39f48b8 918 (version "0.8.1")
ec8da0e2
RW		 919 (source (origin
920 (method url-fetch)
921 (uri
a39f48b8
RW		 922 (string-append "https://github.com/pantherb/setBfree/archive/v"
923 version ".tar.gz"))
924 (file-name (string-append name "-" version ".tar.gz"))
ec8da0e2
RW		 925 (sha256
926 (base32
a39f48b8 927 "0hj0rqk5yd4fzs7bwy6a6nhqgrmcggkjcr4il76rxy92r7nwabf3"))))
ec8da0e2
RW		 928 (build-system gnu-build-system)
929 (arguments
930 `(#:tests? #f ; no "check" target
931 #:make-flags
932 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
933 (string-append "FONTFILE="
934 (assoc-ref %build-inputs "font-bitstream-vera")
b42d4508
RW		 935 "/share/fonts/truetype/VeraBd.ttf")
936 ;; Disable unsupported optimization flags on non-x86
937 ,@(let ((system (or (%current-target-system)
938 (%current-system))))
939 (if (or (string-prefix? "x86_64" system)
940 (string-prefix? "i686" system))
941 '()
942 '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
ec8da0e2
RW		 943 #:phases
944 (modify-phases %standard-phases
945 (add-before 'build 'set-CC-variable
946 (lambda _ (setenv "CC" "gcc") #t))
947 (delete 'configure))))
948 (inputs
949 `(("jack" ,jack-1)
950 ("lv2" ,lv2)
951 ("zita-convolver" ,zita-convolver)
952 ("glu" ,glu)
953 ("ftgl" ,ftgl)
954 ("font-bitstream-vera" ,font-bitstream-vera)))
955 (native-inputs
956 `(("help2man" ,help2man)
957 ("pkg-config" ,pkg-config)))
958 (home-page "http://setbfree.org")
959 (synopsis "Tonewheel organ")
960 (description
961 "setBfree is a MIDI-controlled, software synthesizer designed to imitate
962the sound and properties of the electromechanical organs and sound
963modification devices that brought world-wide fame to the names and products of
964Laurens Hammond and Don Leslie.")
965 (license license:gpl2+)))
966
770305f4
RW		 967(define-public beast
968 (package
969 (name "beast")
970 (version "0.10.0")
971 (source (origin
972 (method url-fetch)
973 (uri (string-append "https://testbit.eu/pub/dists/beast/beast-"
974 version ".tar.xz"))
975 (sha256
976 (base32
977 "1jzzmfwssklzw8fvvil04n8csc0zm99fnd9p2xa7c0xchg37lvhn"))))
978 (build-system gnu-build-system)
979 (inputs
980 `(("rapicorn" ,rapicorn)
981 ("guile" ,guile-1.8)
982 ("python" ,python-2)
983 ("cython" ,python2-cython)
984 ("libgnomecanvas" ,libgnomecanvas)
985 ("libogg" ,libogg)
986 ("libmad" ,libmad)
987 ("flac" ,flac)
988 ("alsa-lib" ,alsa-lib)
989 ("libvorbis" ,libvorbis)
990 ("gettext" ,gnu-gettext)))
991 (native-inputs
992 `(("pkg-config" ,pkg-config)
993 ("glib:bin" ,glib "bin")
994 ("perl" ,perl)
995 ("perl-xml-parser" ,perl-xml-parser)))
996 (home-page "https://testbit.eu/wiki/Beast_Home")
997 (synopsis "Music composition and modular synthesis environment")
998 (description
999 "Beast is a music composition and modular synthesis application. It
1000supports a wide range of standards in the field, such as MIDI, various audio
1001file formats and LADSPA modules. It allows for multitrack editing, real-time
1002synthesis, 32bit audio rendering, precise timing down to sample granularity,
1003on-demand and partial loading of wave files, on the fly decoding, stereo
1004mixing, FFT scopes, MIDI automation and full scriptability in Scheme.")
1005 (license license:gpl3+)))
1006
96250294
RW		 1007(define-public bristol
1008 (package
1009 (name "bristol")
1010 (version "0.60.11")
1011 (source (origin
1012 (method url-fetch)
1013 (uri (string-append "mirror://sourceforge/bristol/bristol/"
1014 (version-major+minor version)
1015 "/bristol-" version ".tar.gz"))
1016 (sha256
1017 (base32
1018 "1fi2m4gmvxdi260821y09lxsimq82yv4k5bbgk3kyc3x1nyhn7vx"))))
1019 (build-system gnu-build-system)
18ef998b
RW		 1020 (arguments
1021 `(#:phases
1022 (modify-phases %standard-phases
1023 (add-after 'unpack 'remove-sse-flags
1024 (lambda* (#:key system #:allow-other-keys)
1025 (when (not (or (string-prefix? "x86_64" system)
1026 (string-prefix? "i686" system)))
1027 (substitute* "bristol/Makefile.in"
1028 (("-msse -mfpmath=sse") "")))
73124d34
RW		 1029 #t))
1030 ;; We know that Bristol has been linked with JACK and we don't have
1031 ;; ldd, so we can just skip this check.
1032 (add-after 'unpack 'do-not-grep-for-jack
1033 (lambda _
1034 (substitute* "bin/startBristol.in"
1035 (("ldd `which bristol` | grep jack") "echo guix"))
18ef998b 1036 #t)))))
96250294
RW		 1037 (inputs
1038 `(("alsa-lib" ,alsa-lib)
1039 ("jack" ,jack-1)
1040 ("liblo" ,liblo)
1041 ("libx11" ,libx11)))
1042 (native-inputs
1043 `(("pkg-config" ,pkg-config)))
1044 (home-page "http://bristol.sourceforge.net/")
1045 (synopsis "Synthesizer emulator")
1046 (description
1047 "Bristol is an emulation package for a number of different 'classic'
1048synthesizers including additive and subtractive and a few organs. The
1049application consists of the engine, which is called bristol, and its own GUI
1050library called brighton that represents all the emulations. There are
1051currently more than twenty different emulations; each does sound different
1052although the author maintains that the quality and accuracy of each emulation
1053is subjective.")
1054 (license license:gpl3+)))
1055
6260d1a8
RW		 1056(define-public tuxguitar
1057 (package
1058 (name "tuxguitar")
f467c352 1059 (version "1.3.2")
6260d1a8
RW		 1060 (source (origin
1061 (method url-fetch)
1062 (uri (string-append
1063 "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
f467c352 1064 version "/tuxguitar-" version "-src.tar.gz"))
6260d1a8
RW		 1065 (sha256
1066 (base32
f467c352
RW		 1067 "0ldml31zvywid1w28mfd65ramyiics55fdl0ch846vm7j7nwv58j"))
1068 (modules '((guix build utils)))
1069 (snippet
1070 ;; Delete pre-built classes
1071 '(delete-file-recursively "TuxGuitar-android/bin"))))
1072 (build-system ant-build-system)
6260d1a8 1073 (arguments
f467c352
RW		 1074 `(#:build-target "build"
1075 #:tests? #f ; no tests
6260d1a8 1076 #:phases
5f1c9498 1077 (modify-phases %standard-phases
f467c352
RW		 1078 (add-after 'unpack 'enter-dir
1079 (lambda _ (chdir "TuxGuitar-lib") #t))
1080 (add-after 'build 'build-editor-utils
1081 (lambda* (#:key inputs outputs #:allow-other-keys)
1082 (chdir "..")
1083 (let ((cwd (getcwd)))
1084 (setenv "CLASSPATH"
1085 (string-append
1086 cwd "/TuxGuitar-lib/tuxguitar-lib.jar" ":"
1087 cwd "/TuxGuitar-editor-utils/build/jar/tuxguitar-editor-utils.jar" ":"
1088 (getenv "CLASSPATH"))))
1089 (chdir "TuxGuitar-editor-utils")
1090 ;; Generate default build.xml
1091 ((@@ (guix build ant-build-system) default-build.xml)
1092 "tuxguitar-editor-utils.jar"
1093 (string-append (assoc-ref outputs "out")
1094 "/share/java"))
1095 ((assoc-ref %standard-phases 'build))))
1096 (add-after 'build-editor-utils 'build-application
1097 (lambda _
1098 (chdir "../TuxGuitar")
1099 ((assoc-ref %standard-phases 'build)
1100 #:build-target "build")))
1101 (replace 'install
1102 (lambda* (#:key inputs outputs #:allow-other-keys)
1103 (let* ((out (assoc-ref outputs "out"))
1104 (bin (string-append out "/bin"))
1105 (share (string-append out "/share"))
1106 (lib (string-append share "/java"))
1107 (swt (assoc-ref inputs "java-swt")))
1108 (mkdir-p bin)
1109 (mkdir-p lib)
1110 ;; install all jars
1111 (for-each (lambda (file)
1112 (install-file file lib))
1113 (find-files ".." "\\.jar$"))
1114 ;; install all resources
1115 (for-each (lambda (file)
1116 (install-file file share))
1117 (find-files "share" ".*"))
1118 ;; create wrapper
1119 (call-with-output-file (string-append bin "/tuxguitar")
1120 (lambda (port)
1121 (let ((classpath (string-join (append (find-files lib "\\.jar$")
1122 (find-files swt "\\.jar$"))
1123 ":")))
1124 (format
1125 port
1126 (string-append "#!/bin/sh\n"
1127 (which "java")
1128 " -cp " classpath
1129 " -Dtuxguitar.home.path=" out
1130 " -Dtuxguitar.share.path=" out "/share"
1131 " -Dswt.library.path=" swt "/lib"
1132 " org.herac.tuxguitar.app.TGMainSingleton"
1133 " \"$1\" \"$2\"")))))
1134 (chmod (string-append bin "/tuxguitar") #o555)
1135 #t))))))
6260d1a8 1136 (inputs
1ad15c16 1137 `(("java-swt" ,java-swt)))
6260d1a8
RW		 1138 (home-page "http://tuxguitar.com.ar")
1139 (synopsis "Multitrack tablature editor and player")
1140 (description
1141 "TuxGuitar is a guitar tablature editor with player support through midi.
1142It can display scores and multitrack tabs. TuxGuitar provides various
1143additional features, including autoscrolling while playing, note duration
1144management, bend/slide/vibrato/hammer-on/pull-off effects, support for
1145tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
1146export.")
1147 (license license:lgpl2.1+)))
2d0fd07b
RW		 1148
1149(define-public pd
1150 (package
1151 (name "pd")
1152 (version "0.45.4")
1153 (source (origin
1154 (method url-fetch)
1155 (uri
1156 (string-append "mirror://sourceforge/pure-data/pure-data/"
1157 version "/pd-" (version-major+minor version)
1158 "-" (last (string-split version #\.))
1159 ".src.tar.gz"))
1160 (sha256
1161 (base32
1162 "1ls2ap5yi2zxvmr247621g4jx0hhfds4j5704a050bn2n3l0va2p"))))
1163 (build-system gnu-build-system)
1164 (arguments
1165 `(#:tests? #f ; no "check" target
1166 #:phases
1167 (modify-phases %standard-phases
1168 (add-before
1169 'configure 'fix-wish-path
1170 (lambda _
1171 (substitute* "src/s_inter.c"
1172 ((" wish ") (string-append " " (which "wish8.6") " ")))
1173 (substitute* "tcl/pd-gui.tcl"
1174 (("exec wish ") (string-append "exec " (which "wish8.6") " ")))
1175 #t))
1176 (add-after
1177 'unpack 'autoconf
1178 (lambda _ (zero? (system* "autoreconf" "-vfi")))))))
1179 (native-inputs
1180 `(("autoconf" ,autoconf)
1181 ("automake" ,automake)
1182 ("libtool" ,libtool)
1183 ("gettext" ,gnu-gettext)
1184 ("pkg-config" ,pkg-config)))
1185 (inputs
1186 `(("tk" ,tk)
1187 ("alsa-lib" ,alsa-lib)
1188 ("jack" ,jack-1)))
1189 (home-page "http://puredata.info")
1190 (synopsis "Visual programming language for artistic performances")
1191 (description
1192 "Pure Data (aka Pd) is a visual programming language. Pd enables
1193musicians, visual artists, performers, researchers, and developers to create
1194software graphically, without writing lines of code. Pd is used to process
1195and generate sound, video, 2D/3D graphics, and interface sensors, input
1196devices, and MIDI. Pd can easily work over local and remote networks to
1197integrate wearable technology, motor systems, lighting rigs, and other
1198equipment. Pd is suitable for learning basic multimedia processing and visual
1199programming methods as well as for realizing complex systems for large-scale
1200projects.")
1201 (license license:bsd-3)))
821664f1 1202
aacb52fb
RW		 1203(define-public portmidi
1204 (package
1205 (name "portmidi")
1206 (version "217")
1207 (source (origin
1208 (method url-fetch)
1209 (uri (string-append "mirror://sourceforge/portmedia/portmidi/"
1210 version "/portmidi-src-" version ".zip"))
1211 (sha256
1212 (base32
1213 "03rfsk7z6rdahq2ihy5k13qjzgx757f75yqka88v3gc0pn9ais88"))
1214 (patches (list (search-patch "portmidi-modular-build.patch")))))
1215 (build-system cmake-build-system)
1216 (arguments
1217 `(#:tests? #f ; tests cannot be linked
1218 #:configure-flags
1219 (list "-DPORTMIDI_ENABLE_JAVA=Off"
1220 "-DCMAKE_BUILD_TYPE=Release" ; needed to have PMALSA set
1221 "-DPORTMIDI_ENABLE_TEST=Off"))) ; tests fail linking
1222 (inputs
1223 `(("alsa-lib" ,alsa-lib)))
1224 (native-inputs
1225 `(("unzip" ,unzip)))
1226 (home-page "http://portmedia.sourceforge.net/portmidi/")
1227 (synopsis "Library for MIDI I/O")
1228 (description
1229 "PortMidi is a library supporting real-time input and output of MIDI data
1230using a system-independent interface.")
1231 (license license:expat)))
f65d59fc 1232
38098bf7
RW		 1233(define-public portmidi-for-extempore
1234 (package (inherit portmidi)
1235 (name "portmidi-for-extempore")
1236 (version "217")
1237 (source (origin
1238 (method url-fetch)
1239 (uri (string-append "https://github.com/extemporelang/portmidi/"
1240 "archive/" version ".tar.gz"))
1241 (file-name (string-append name "-" version ".tar.gz"))
1242 (sha256
1243 (base32
1244 "0gjikwciyr8kk4y3qiv1pcq58xpgw38ql1m2gs6g0qc1s8sx4235"))))
1245 (build-system cmake-build-system)
1246 (arguments `(#:tests? #f)) ; no tests
1247 (native-inputs '())
39162ee4
RW		 1248 ;; Extempore refuses to build on architectures other than x86_64
1249 (supported-systems '("x86_64-linux"))
38098bf7
RW		 1250 (home-page "https://github.com/extemporelang/portmidi/")))
1251
f65d59fc
RW		 1252(define-public python-pyportmidi
1253 (package
1254 (name "python-pyportmidi")
1255 (version (package-version portmidi))
1256 (source (package-source portmidi))
1257 (build-system python-build-system)
1258 (arguments
1259 `(#:tests? #f ; no tests included
1260 #:phases
1261 (modify-phases %standard-phases
1262 (add-after 'unpack 'enter-dir
1263 (lambda _ (chdir "pm_python") #t))
1264 (add-after 'enter-dir 'fix-setup.py
1265 (lambda _
1266 (substitute* "setup.py"
1267 ;; Use Python 3 syntax
1268 (("print (\".*\")" _ text)
1269 (string-append "print(" text ")\n"))
1270 ;; TODO.txt and CHANGES.txt don't exist
1271 (("CHANGES =.*") "CHANGES = \"\"\n")
1272 (("TODO =.*") "TODO = \"\"\n"))
1273 #t)))))
1274 (inputs
1275 `(("portmidi" ,portmidi)
1276 ("alsa-lib" ,alsa-lib)
1277 ("python-cython" ,python-cython)))
1278 (native-inputs
1279 `(("unzip" ,unzip)))
1280 (home-page "http://portmedia.sourceforge.net/portmidi/")
1281 (synopsis "Python bindings to PortMidi")
1282 (description
1283 "This package provides Python bindings to the PortMidi library.")
1284 (license license:expat)))
aacb52fb 1285
821664f1
RW		 1286(define-public frescobaldi
1287 (package
1288 (name "frescobaldi")
4b2eede4 1289 (version "2.19.0")
821664f1
RW		 1290 (source (origin
1291 (method url-fetch)
1292 (uri (string-append
1293 "https://github.com/wbsoft/frescobaldi/releases/download/v"
1294 version "/frescobaldi-" version ".tar.gz"))
1295 (sha256
1296 (base32
4b2eede4 1297 "1rnk8i8dlshzx16n2qxcsqcs7kywgyazzyzw2vy4vp2gsm9vs9ml"))))
821664f1
RW		 1298 (build-system python-build-system)
1299 (inputs
1300 `(("lilypond" ,lilypond)
6855b347 1301 ("portmidi" ,portmidi)
821664f1
RW		 1302 ("python-pyqt-4" ,python-pyqt-4)
1303 ("python-ly" ,python-ly)
6855b347 1304 ("python-pyportmidi" ,python-pyportmidi)
821664f1
RW		 1305 ("poppler" ,poppler)
1306 ("python-poppler-qt4" ,python-poppler-qt4)
1307 ("python-sip" ,python-sip)))
1308 (home-page "http://www.frescobaldi.org/")
1309 (synopsis "LilyPond sheet music text editor")
1310 (description
1311 "Frescobaldi is a LilyPond sheet music text editor with syntax
1312highlighting and automatic completion. Among other things, it can render
1313scores next to the source, can capture input from MIDI or read MusicXML and
1314ABC files, has a MIDI player for proof-listening, and includes a documentation
1315browser.")
1316 (license license:gpl2+)))
ddfddb0c 1317
bf76d780
RW		 1318(define-public drumstick
1319 (package
1320 (name "drumstick")
382aacc5 1321 (version "1.1.0")
bf76d780
RW		 1322 (source (origin
1323 (method url-fetch)
1324 (uri (string-append "mirror://sourceforge/drumstick/"
1325 version "/drumstick-" version ".tar.bz2"))
1326 (sha256
1327 (base32
382aacc5 1328 "13pkfqrav30bbcddgf1imd7jk6lpqbxkz1qv31718pdl446jq7df"))))
bf76d780
RW		 1329 (build-system cmake-build-system)
1330 (arguments
1331 `(#:tests? #f ; no test target
1332 #:configure-flags '("-DLIB_SUFFIX=")
1333 #:phases
1334 (modify-phases %standard-phases
1335 (add-before 'configure 'fix-docbook
1336 (lambda* (#:key inputs #:allow-other-keys)
1337 (substitute* "cmake_admin/CreateManpages.cmake"
1338 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
1339 (string-append (assoc-ref inputs "docbook-xsl")
1340 "/xml/xsl/docbook-xsl-"
1341 ,(package-version docbook-xsl)
1342 "/manpages/docbook.xsl")))
1343 #t)))))
1344 (inputs
ca1cab82
EF		 1345 `(("qtbase" ,qtbase)
1346 ("qtsvg" ,qtsvg)
bf76d780
RW		 1347 ("alsa-lib" ,alsa-lib)
1348 ("fluidsynth" ,fluidsynth)))
1349 (native-inputs
1350 `(("pkg-config" ,pkg-config)
1351 ("libxslt" ,libxslt) ;for xsltproc
1352 ("docbook-xsl" ,docbook-xsl)
1353 ("doxygen" ,doxygen)))
1354 (home-page "http://drumstick.sourceforge.net/")
1355 (synopsis "C++ MIDI library")
1356 (description
1357 "Drumstick is a set of MIDI libraries using C++/Qt5 idioms and style. It
1358includes a C++ wrapper around the ALSA library sequencer interface. A
1359complementary library provides classes for processing SMF (Standard MIDI
1360files: .MID/.KAR), Cakewalk (.WRK), and Overture (.OVE) file formats. A
1361multiplatform realtime MIDI I/O library is also provided with various output
1362backends, including ALSA, OSS, Network and FluidSynth.")
1363 (license license:gpl2+)))
1364
8e92cfb1
RW		 1365(define-public vmpk
1366 (package
1367 (name "vmpk")
fb492b9a 1368 (version "0.6.2a")
8e92cfb1
RW		 1369 (source (origin
1370 (method url-fetch)
1371 (uri (string-append "mirror://sourceforge/vmpk/vmpk/"
fb492b9a
RW		 1372 (string-drop-right version 1)
1373 "/vmpk-" version ".tar.bz2"))
8e92cfb1
RW		 1374 (sha256
1375 (base32
fb492b9a 1376 "0259iikvxnfdiifrh02g8xgcxikrkca4nhd3an8xzx0bd6bk8ifi"))))
8e92cfb1
RW		 1377 (build-system cmake-build-system)
1378 (arguments
1379 `(#:tests? #f ; no test target
1380 #:phases
1381 (modify-phases %standard-phases
1382 (add-before 'configure 'fix-docbook
1383 (lambda* (#:key inputs #:allow-other-keys)
1384 (substitute* "cmake_admin/CreateManpages.cmake"
1385 (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
1386 (string-append (assoc-ref inputs "docbook-xsl")
1387 "/xml/xsl/docbook-xsl-"
1388 ,(package-version docbook-xsl)
1389 "/manpages/docbook.xsl")))
1390 #t)))))
1391 (inputs
1392 `(("drumstick" ,drumstick)
07831f7a
EF		 1393 ("qtbase" ,qtbase)
1394 ("qtsvg" ,qtsvg)
1395 ("qttools" ,qttools)
1396 ("qtx11extras" ,qtx11extras)))
8e92cfb1
RW		 1397 (native-inputs
1398 `(("libxslt" ,libxslt) ;for xsltproc
1399 ("docbook-xsl" ,docbook-xsl)
1400 ("pkg-config" ,pkg-config)))
1401 (home-page "http://vmpk.sourceforge.net")
1402 (synopsis "Virtual MIDI piano keyboard")
1403 (description
1404 "Virtual MIDI Piano Keyboard is a MIDI events generator and receiver. It
1405doesn't produce any sound by itself, but can be used to drive a MIDI
1406synthesizer (either hardware or software, internal or external). You can use
1407the computer's keyboard to play MIDI notes, and also the mouse. You can use
1408the Virtual MIDI Piano Keyboard to display the played MIDI notes from another
1409instrument or MIDI file player.")
1410 (license license:gpl3+)))
1411
ddfddb0c
RW		 1412(define-public zynaddsubfx
1413 (package
1414 (name "zynaddsubfx")
acf2320b 1415 (version "2.5.4")
ddfddb0c
RW		 1416 (source (origin
1417 (method url-fetch)
1418 (uri (string-append
1419 "mirror://sourceforge/zynaddsubfx/zynaddsubfx/"
138e7697 1420 version "/zynaddsubfx-" version ".tar.bz2"))
ddfddb0c
RW		 1421 (sha256
1422 (base32
acf2320b 1423 "16llaa2wg2gbgjhwp3632b2vx9jvanj4csv7d41k233ms6d1sjq1"))))
ddfddb0c 1424 (build-system cmake-build-system)
00dfc97c
RW		 1425 (arguments
1426 `(#:phases
1427 (modify-phases %standard-phases
1428 ;; Move SSE compiler optimization flags from generic target to
1429 ;; athlon64 and core2 targets, because otherwise the build would fail
1430 ;; on non-Intel machines.
1431 (add-after 'unpack 'remove-sse-flags-from-generic-target
1432 (lambda _
1433 (substitute* "src/CMakeLists.txt"
1434 (("-msse -msse2 -mfpmath=sse") "")
1435 (("-march=(athlon64|core2)" flag)
1436 (string-append flag " -msse -msse2 -mfpmath=sse")))
1437 #t)))))
ddfddb0c
RW		 1438 (inputs
1439 `(("liblo" ,liblo)
1440 ("ntk" ,ntk)
1441 ("alsa-lib" ,alsa-lib)
1442 ("jack" ,jack-1)
1443 ("fftw" ,fftw)
1444 ("minixml" ,minixml)
1445 ("libxpm" ,libxpm)
1446 ("zlib" ,zlib)))
1447 (native-inputs
1448 `(("pkg-config" ,pkg-config)))
1449 (home-page "http://zynaddsubfx.sf.net/")
1450 (synopsis "Software synthesizer")
1451 (description
1452 "ZynAddSubFX is a feature heavy realtime software synthesizer. It offers
1453three synthesizer engines, multitimbral and polyphonic synths, microtonal
1454capabilities, custom envelopes, effects, etc.")
1455 (license license:gpl2)))
c493679f
RW		 1456
1457(define-public yoshimi
1458 (package
1459 (name "yoshimi")
7fd30d1b 1460 (version "1.4.1")
c493679f
RW		 1461 (source (origin
1462 (method url-fetch)
1463 (uri (string-append "mirror://sourceforge/yoshimi/"
1464 (version-major+minor version)
1465 "/yoshimi-" version ".tar.bz2"))
1466 (sha256
1467 (base32
7fd30d1b 1468 "133sx42wb66g803pcrgdwph40wh94knvab3yfqkgm0001jv4v14y"))))
c493679f
RW		 1469 (build-system cmake-build-system)
1470 (arguments
1471 `(#:tests? #f ; there are no tests
1472 #:configure-flags
1473 (list (string-append "-DCMAKE_INSTALL_DATAROOTDIR="
1474 (assoc-ref %outputs "out") "/share"))
1475 #:phases
1476 (modify-phases %standard-phases
1477 (add-before 'configure 'enter-dir
1478 (lambda _ (chdir "src") #t))
1479 ;; Move SSE compiler optimization flags from generic target to
1480 ;; athlon64 and core2 targets, because otherwise the build would fail
1481 ;; on non-Intel machines.
1482 (add-after 'unpack 'remove-sse-flags-from-generic-target
1483 (lambda _
1484 (substitute* "src/CMakeLists.txt"
1485 (("-msse -msse2 -mfpmath=sse") "")
1486 (("-march=(athlon64|core2)" flag)
1487 (string-append flag " -msse -msse2 -mfpmath=sse")))
7fd30d1b
RW		 1488 #t))
1489 ;; Yoshimi tries to find ncurses with pkg-config, but our ncurses
1490 ;; package does not install .pc files.
1491 (add-after 'unpack 'find-ncurses
1492 (lambda _
1493 (substitute* "src/CMakeLists.txt"
1494 (("LIBNCURSES REQUIRED") "LIBNCURSES")
1495 (("NCURSES REQUIRED") "NCURSES")
1496 (("FATAL_ERROR \"libncurses") "STATUS \"libncurses")
1497 (("\\$\\{NCURSES_LIBRARIES\\}") "ncurses"))
1498 #t)))))
c493679f
RW		 1499 (inputs
1500 `(("boost" ,boost)
1501 ("fftwf" ,fftwf)
1502 ("alsa-lib" ,alsa-lib)
1503 ("jack" ,jack-1)
1504 ("fontconfig" ,fontconfig)
1505 ("minixml" ,minixml)
1506 ("mesa" ,mesa)
1507 ("fltk" ,fltk)
1508 ("lv2" ,lv2)
1509 ("readline" ,readline)
1510 ("ncurses" ,ncurses)
1511 ("cairo" ,cairo)
1512 ("zlib" ,zlib)))
1513 (native-inputs
1514 `(("pkg-config" ,pkg-config)))
1515 (home-page "http://yoshimi.sourceforge.net/")
1516 (synopsis "Multi-paradigm software synthesizer")
1517 (description
1518 "Yoshimi is a fork of ZynAddSubFX, a feature heavy realtime software
1519synthesizer. It offers three synthesizer engines, multitimbral and polyphonic
1520synths, microtonal capabilities, custom envelopes, effects, etc. Yoshimi
1521improves on support for JACK features, such as JACK MIDI.")
1522 (license license:gpl2)))
658212eb 1523
a9f55bf2
RW		 1524(define-public jack-keyboard
1525 (package
1526 (name "jack-keyboard")
1527 (version "2.5")
1528 (source
1529 (origin
1530 (method url-fetch)
1531 (uri (string-append "mirror://sourceforge/jack-keyboard/jack-keyboard/"
1532 version "/jack-keyboard-" version ".tar.gz"))
1533 (sha256
1534 (base32
1535 "0mzmg8aavybcfdlq2yd9d0vscqd6is5p6jzrgfpfm5j3xdcvh2s3"))))
1536 (build-system gnu-build-system)
1537 (inputs
1538 `(("jack" ,jack-1)
1539 ("lash" ,lash)
1540 ("gtk+" ,gtk+-2)))
1541 (native-inputs
1542 `(("pkg-config" ,pkg-config)))
1543 (home-page "http://jack-keyboard.sourceforge.net/")
1544 (synopsis "Virtual MIDI keyboard")
1545 (description "Jack-keyboard is a virtual MIDI keyboard, a program that
1546allows you to send JACK MIDI events (i.e. play) using your PC keyboard.")
1547 (license license:bsd-2)))
1548
658212eb
LF		 1549(define-public cursynth
1550 (package
1551 (name "cursynth")
1552 (version "1.5")
1553 (source
1554 (origin
1555 (method url-fetch)
1556 (uri (string-append "mirror://gnu/cursynth/cursynth-"
1557 version ".tar.gz"))
1558 (sha256
1559 (base32 "1dhphsya41rv8z6yqcv9l6fwbslsds4zh1y56zizi39nd996d40v"))
fc1adab1 1560 (patches (search-patches "cursynth-wave-rand.patch"))))
658212eb
LF		 1561 (build-system gnu-build-system)
1562 (native-inputs `(("pkg-config" ,pkg-config)))
1563 ;; TODO: See https://github.com/iyoko/cursynth/issues/4 which currently
1564 ;; prevents us from using pulseaudio
1565 (inputs `(("ncurses" ,ncurses)
1566 ("alsa" ,alsa-lib)))
1567 (home-page "http://www.gnu.org/software/cursynth")
1568 (synopsis "Polyphonic and MIDI subtractive music synthesizer using curses")
1569 (description "GNU cursynth is a polyphonic synthesizer that runs
1570graphically in the terminal. It is built on a full-featured subtractive
1571synthesis engine. Notes and parameter changes may be entered via MIDI or the
1572computer's keyboard.")
1573 (license license:gpl3+)))
a763ce7d
RW		 1574
1575(define-public qtractor
1576 (package
1577 (name "qtractor")
3ef08dce 1578 (version "0.7.9")
a763ce7d
RW		 1579 (source (origin
1580 (method url-fetch)
1581 (uri (string-append "http://downloads.sourceforge.net/qtractor/"
1582 "qtractor-" version ".tar.gz"))
1583 (sha256
1584 (base32
3ef08dce 1585 "0pp459kfgrnngj373gnwwl43xjz32lmyf7v62p2nnjh6c7wr1ryq"))))
a763ce7d
RW		 1586 (build-system gnu-build-system)
1587 (arguments `(#:tests? #f)) ; no "check" target
1588 (inputs
1589 `(("qt" ,qt)
1590 ("alsa-lib" ,alsa-lib)
1591 ("jack" ,jack-1)
1592 ("libsndfile" ,libsndfile)
1593 ("ladspa" ,ladspa)
1594 ("lv2" ,lv2)
1595 ("lilv" ,lilv)
1596 ("suil" ,suil)
1597 ("libsamplerate" ,libsamplerate)
1598 ("libvorbis" ,libvorbis)
1599 ("libmad" ,libmad)
1600 ("rubberband" ,rubberband)
1601 ("liblo" ,liblo)
1602 ("zlib" ,zlib)))
1603 (native-inputs
1604 `(("pkg-config" ,pkg-config)))
1605 (home-page "http://qtractor.sourceforge.net/")
1606 (synopsis "Audio/MIDI multi-track sequencer")
1607 (description
1608 "Qtractor is an Audio/MIDI multi-track sequencer application. It uses
1609JACK for audio and ALSA sequencer for MIDI as multimedia infrastructures and
1610follows a traditional multi-track tape recorder control paradigm.")
1611 (license license:gpl2+)))
aa0edd3f 1612
aed023ff
RW		 1613(define-public gxtuner
1614 (package
1615 (name "gxtuner")
1616 (version "2.3")
1617 (source (origin
1618 (method url-fetch)
1619 (uri (string-append "https://github.com/brummer10/gxtuner/"
1620 "archive/v" version ".tar.gz"))
1621 (file-name (string-append name "-" version ".tar.gz"))
1622 (sha256
1623 (base32
1624 "1abpxiydn4c9wssz6895hnad9ipkcy3rkgzbnanvwb46nm44x6if"))))
1625 (build-system gnu-build-system)
1626 (arguments
1627 `(#:make-flags
1628 (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1629 (string-append "INCLUDE_L_DIR="
1630 (assoc-ref %build-inputs "zita-resampler")
1631 "/include/"))
1632 #:phases
1633 (modify-phases %standard-phases
1634 (delete 'configure))))
1635 (inputs
1636 `(("gtk+" ,gtk+-2)
1637 ("jack" ,jack-1)
1638 ("fftwf" ,fftwf)
1639 ("cairo" ,cairo)
1640 ("zita-resampler" ,zita-resampler)))
1641 (native-inputs
1642 `(("pkg-config" ,pkg-config)))
1643 (home-page "https://github.com/brummer10/gxtuner")
1644 (synopsis "Guitar tuner")
1645 (description "GXtuner is a simple guitar tuner for JACK with an
1646analogue-like user interface.")
1647 (license license:gpl2+)))
1648
aa0edd3f
AM		 1649(define-public pianobar
1650 (package
1651 (name "pianobar")
1652 (version "2015.11.22")
1653 (source (origin
1654 (method url-fetch)
1655 (uri (string-append "https://github.com/PromyLOPh/"
1656 name "/archive/" version ".tar.gz"))
1657 (file-name (string-append name "-" version ".tar.gz"))
1658 (sha256
1659 (base32
1660 "022df19bhxqvkhy0qy21xahba5s1fm17b13y0p9p9dnf2yl44wfv"))))
1661 (build-system gnu-build-system)
1662 (arguments
1663 `(#:tests? #f ; no tests
1664 #:make-flags (list "CC=gcc" "CFLAGS=-std=c99"
1665 (string-append "PREFIX=" %output))
1666 #:phases (modify-phases %standard-phases
1667 (delete 'configure))))
1668 (inputs
1669 `(("ao" ,ao)
1670 ("curl" ,curl)
1671 ("libgcrypt" ,libgcrypt)
1672 ("json-c" ,json-c)
1673 ("ffmpeg" ,ffmpeg)))
1674 (native-inputs
1675 `(("pkg-config" ,pkg-config)))
1676 (home-page "http://6xq.net/projects/pianobar/")
1677 (synopsis "Console-based pandora.com player")
1678 (description "pianobar is a console-based music player for the
1679personalized online radio pandora.com. It has configurable keys for playing
1680and managing stations, can be controlled remotely via fifo, and can run
1681event-based scripts for scrobbling, notifications, etc.")
1682 (license license:expat)))
3f7a182d
LF		 1683
1684(define-public python-mutagen
1685 (package
1686 (name "python-mutagen")
1687 (version "1.31")
1688 (source (origin
1689 (method url-fetch)
1690 (uri (pypi-uri "mutagen" version))
1691 (sha256
1692 (base32
1693 "16fnnhspniac2i7qswxafawsh2x2a803hmc6bn9k1zl5fxq1380a"))))
1694 (build-system python-build-system)
1695 (home-page "https://bitbucket.org/lazka/mutagen")
1696 (synopsis "Read and write audio tags")
1697 (description "Mutagen is a Python module to handle audio metadata. It
1698supports ASF, FLAC, M4A, Monkey’s Audio, MP3, Musepack, Ogg FLAC, Ogg Speex, Ogg
1699Theora, Ogg Vorbis, True Audio, WavPack and OptimFROG audio files. All versions
1700of ID3v2 are supported, and all standard ID3v2.4 frames are parsed. It can read
1701Xing headers to accurately calculate the bitrate and length of MP3s. ID3 and
1702APEv2 tags can be edited regardless of audio format. It can also manipulate Ogg
1703streams on an individual packet/page level.")
1704 (license license:gpl2))) ; "later version" never mentioned
1705
1706(define-public python2-mutagen
1707 (package-with-python2 python-mutagen))
8975de88
LF		 1708
1709(define-public python-musicbrainzngs
1710 (package
1711 (name "python-musicbrainzngs")
1712 (version "0.5")
1713 (source (origin
1714 (method url-fetch)
1715 (uri (pypi-uri "musicbrainzngs" version))
1716 (sha256
1717 (base32
1718 "12f48llmdf5rkiqxcb70k2k1dmhm8byq0ifazvlrca8dfnmqh4r8"))))
1719 (build-system python-build-system)
1720 (home-page "https://python-musicbrainzngs.readthedocs.org/")
1721 (synopsis "Python bindings for MusicBrainz NGS webservice")
1722 (description "Musicbrainzngs implements Python bindings of the MusicBrainz
1723web service. This library can be used to retrieve music metadata from the
1724MusicBrainz database.")
1725 ;; 'musicbrainzngs/compat.py' is ISC licensed.
1726 (license (list license:bsd-2 license:isc))))
1727
1728(define-public python2-musicbrainzngs
1729 (package-with-python2 python-musicbrainzngs))
e8fee648
LF		 1730
1731(define-public python-pyechonest
1732 (package
1733 (name "python-pyechonest")
1734 (version "9.0.0")
1735 (source (origin
1736 (method url-fetch)
1737 (uri (pypi-uri "pyechonest" version))
1738 (sha256
1739 (base32
1740 "1584nira3rkiman9dm81kdshihmkj21s8navndz2l8spnjwb790x"))))
1741 (build-system python-build-system)
1742 (home-page "https://github.com/echonest/pyechonest")
1743 (synopsis "Python interface to The Echo Nest APIs")
d3e3468f
LF		 1744 (description "Pyechonest is a Python library for the Echo Nest API. With
1745Pyechonest you have Python access to the entire set of API methods including:
e8fee648
LF		 1746
1747@enumerate
1748@item artist - search for artists by name, description, or attribute, and get
1749back detailed information about any artist including audio, similar artists,
1750blogs, familiarity, hotttnesss, news, reviews, urls and video.
1751@item song - search songs by artist, title, description, or attribute (tempo,
1752duration, etc) and get detailed information back about each song, such as
1753hotttnesss, audio_summary, or tracks.
1754@item track - upload a track to the Echo Nest and receive summary information
1755about the track including key, duration, mode, tempo, time signature along with
1756detailed track info including timbre, pitch, rhythm and loudness information.
1757@end enumerate\n")
1758 (license license:bsd-3)
1759 (properties `((python2-variant . ,(delay python2-pyechonest))))))
1760
1761(define-public python2-pyechonest
1762 (package (inherit (package-with-python2
1763 (strip-python2-variant python-pyechonest)))
1764 (native-inputs `(("python2-setuptools" ,python2-setuptools)))))
acd7351f
LF		 1765
1766(define-public python-pylast
1767 (package
1768 (name "python-pylast")
1769 (version "1.5.1")
1770 (source (origin
1771 (method url-fetch)
1772 (uri (pypi-uri "pylast" version))
1773 (sha256
1774 (base32
1775 "10znd9xr1vs2ix519jkz3ccm90zciaddcdr2w2wrrh2jyy3bc59a"))))
1776 (build-system python-build-system)
1777 (native-inputs
1778 `(("python-coverage" ,python-coverage)
1779 ("python-mock" ,python-mock)
1780 ("python-pep8" ,python-pep8)
1781 ("python-pytest" ,python-pytest)
1782 ("python-pyflakes" ,python-pyflakes)
1783 ("python-pyyaml" ,python-pyyaml)))
1784 (propagated-inputs
1785 `(("python-six" ,python-six)))
1786 (home-page "https://github.com/pylast/pylast")
1787 (synopsis "Python interface to Last.fm and Libre.fm")
1788 (description "A Python interface to Last.fm and other API-compatible
1789websites such as Libre.fm.")
1790 (license license:asl2.0)
1791 (properties `((python2-variant . ,(delay python2-pylast))))))
1792
1793(define-public python2-pylast
1794 (let ((pylast (package-with-python2
1795 (strip-python2-variant python-pylast))))
1796 (package (inherit pylast)
1797 (native-inputs
1798 `(("python2-setuptools" ,python2-setuptools)
1799 ,@(package-native-inputs pylast))))))
3bf429af
LF		 1800
1801(define-public beets
1802 (package
1803 (name "beets")
23319ed6 1804 (version "1.3.19")
3bf429af
LF		 1805 (source (origin
1806 (method url-fetch)
23319ed6 1807 (uri (pypi-uri "beets" version))
3bf429af
LF		 1808 (sha256
1809 (base32
23319ed6 1810 "1vi1dh3fr554bnm8y9pjy09hblw18v6cl2jppzwlp72afri1w93b"))))
3bf429af
LF		 1811 (build-system python-build-system)
1812 (arguments
1813 `(#:python ,python-2 ; only Python 2 is supported
1814 #:phases
1815 (modify-phases %standard-phases
1816 (add-after 'unpack 'set-HOME
36c2c8c8
LF		 1817 (lambda _ (setenv "HOME" (string-append (getcwd) "/tmp"))))
1818 (replace 'check
1819 (lambda _ (zero? (system* "nosetests" "-v")))))))
3bf429af
LF		 1820 (native-inputs
1821 `(("python2-beautifulsoup4" ,python2-beautifulsoup4)
1822 ("python2-flask" ,python2-flask)
1823 ("python2-setuptools" ,python2-setuptools)
1824 ("python2-mock" ,python2-mock)
1825 ("python2-mpd2" ,python2-mpd2)
36c2c8c8 1826 ("python2-nose" ,python2-nose)
3bf429af
LF		 1827 ("python2-pathlib" ,python2-pathlib)
1828 ("python2-pyxdg" ,python2-pyxdg)
1829 ("python2-pyechonest" ,python2-pyechonest)
1830 ("python2-pylast" ,python2-pylast)
1831 ("python2-rarfile" ,python2-rarfile)
1832 ("python2-responses" ,python2-responses)))
1833 ;; TODO: Install optional plugins and dependencies.
b3470031 1834 (inputs
3bf429af
LF		 1835 `(("python2-enum34" ,python2-enum34)
1836 ("python2-jellyfish" ,python2-jellyfish)
1837 ("python2-munkres" ,python2-munkres)
1838 ("python2-musicbrainzngs" ,python2-musicbrainzngs)
1839 ("python2-mutagen" ,python2-mutagen)
1840 ("python2-pyyaml" ,python2-pyyaml)
1841 ("python2-unidecode" ,python2-unidecode)))
1842 (home-page "http://beets.io")
1843 (synopsis "Music organizer")
1844 (description "The purpose of beets is to get your music collection right
1845once and for all. It catalogs your collection, automatically improving its
1846metadata as it goes using the MusicBrainz database. Then it provides a variety
1847of tools for manipulating and accessing your music.")
1848 (license license:expat)))
21d18113
KY		 1849
1850(define-public milkytracker
1851 (package
1852 (name "milkytracker")
1853 (version "0.90.86")
1854 (source (origin
1855 (method url-fetch)
1856 (uri (string-append "http://milkytracker.org/files/"
1857 name "-" version ".tar.bz2"))
1858 (sha256
1859 (base32
1860 "1v9vp8vi24lkagfpr92c128whvakwgrm9pq2zf6ijpl5sh7014zb"))))
1861 (build-system gnu-build-system)
1862 (arguments
1863 `(#:make-flags '("CXXFLAGS=-lasound")))
1864 (inputs
1865 `(("alsa-lib" ,alsa-lib)
1866 ("jack" ,jack-1)
1867 ("sdl" ,sdl)
1868 ("zlib" ,zlib)))
1869 (native-inputs
1870 `(("pkg-config" ,pkg-config)))
1871 (synopsis "Music tracker for working with .MOD/.XM module files")
1872 (description "MilkyTracker is a music application for creating .MOD and .XM
1873module files. It attempts to recreate the module replay and user experience of
1874the popular DOS program Fasttracker II, with special playback modes available
1875for improved Amiga ProTracker 2/3 compatibility.")
1876 (home-page "http://milkytracker.org/")
1877 ;; 'src/milkyplay' is under Modified BSD, the rest is under GPL3 or later.
1878 (license (list license:bsd-3 license:gpl3+))))
13416a10 1879
89bcf3fc
KK		 1880(define-public schismtracker
1881 (package
1882 (name "schismtracker")
1883 (version "20160521")
1884 (source (origin
1885 (method url-fetch)
1886 (uri (string-append
1887 "https://github.com/" name "/" name "/archive/"
1888 version ".tar.gz"))
1889 (file-name (string-append name "-" version ".tar.gz"))
1890 (sha256
1891 (base32
1892 "0c6r24wm3rldm4j8cskl9xnixj3rwi3lnrhckw5gv43wpy6h4jcz"))
1893 (modules '((guix build utils)))
1894 (snippet
1895 ;; Remove use of __DATE__ and __TIME__ for reproducibility.
1896 `(substitute* "schism/version.c"
1897 (("Schism Tracker build %s %s.*$")
1898 (string-append "Schism Tracker version " ,version "\");"))))))
1899 (build-system gnu-build-system)
1900 (arguments
1901 `(#:phases
1902 (modify-phases %standard-phases
1903 (add-after 'unpack 'autoconf
1904 (lambda _ (zero? (system* "autoreconf" "-vfi"))))
1905 (add-before 'configure 'link-libm
1906 (lambda _ (setenv "LIBS" "-lm") #t)))))
1907 (native-inputs
1908 `(("autoconf" ,autoconf)
1909 ("automake" ,automake)
1910 ("python" ,python)))
1911 (inputs
1912 `(("alsa-lib" ,alsa-lib) ; for asound dependency
1913 ("libx11" ,libx11)
1914 ("libxext" ,libxext)
1915 ("sdl" ,sdl)))
1916 (home-page "http://schismtracker.org")
1917 (synopsis "Oldschool sample-based music composition tool")
1918 (description
1919 "Schism Tracker is a reimplementation of Impulse Tracker, a program used to
1920create high quality music without the requirements of specialized, expensive
1921equipment, and with a unique \"finger feel\" that is difficult to replicate in
1922part. The player is based on a highly modified version of the ModPlug engine,
1923with a number of bugfixes and changes to improve IT playback.")
1924 (license license:gpl2+)))
1925
13416a10
KY		 1926(define-public moc
1927 (package
1928 (name "moc")
1929 (version "2.5.1")
1930 (source (origin
1931 (method url-fetch)
1932 (uri (string-append "http://ftp.daper.net/pub/soft/"
1933 name "/stable/"
1934 name "-" version ".tar.bz2"))
1935 (sha256
1936 (base32
1937 "1wn4za08z64bhsgfhr9c0crfyvy8c3b6a337wx7gz19am5srqh8v"))))
1938 (build-system gnu-build-system)
1939 (inputs
1940 `(("alsa-lib" ,alsa-lib)
1941 ("curl" ,curl)
1942 ("faad2" ,faad2)
1943 ("ffmpeg" ,ffmpeg)
1944 ("file" ,file)
1945 ("jack" ,jack-1)
1946 ("libid3tag" ,libid3tag)
1947 ("libltdl" ,libltdl)
1948 ("libmodplug" ,libmodplug)
1949 ("libmpcdec" ,libmpcdec)
1950 ("libmad" ,libmad)
1951 ("ncurses" ,ncurses)
1952 ("openssl" ,openssl)
1953 ("sasl" ,cyrus-sasl)
1954 ("speex" ,speex)
1955 ("taglib" ,taglib)
1956 ("wavpack" ,wavpack)
1957 ("zlib" ,zlib)))
1958 (native-inputs
1959 `(("pkg-config" ,pkg-config)))
1960 (synopsis "Console audio player designed to be powerful and easy to use")
1961 (description
1962 "Music on Console is a console audio player that supports many file
1963formats, including most audio formats recognized by FFMpeg.")
1964 (home-page "http://moc.daper.net")
1965 (license license:gpl2+)))
6d3ef286
JF		 1966
1967(define-public midicsv
1968 (package
1969 (name "midicsv")
1970 (version "1.1")
1971 (source (origin
1972 (method url-fetch)
1973 (uri (string-append "http://www.fourmilab.ch/webtools/midicsv/"
1974 name "-" version ".tar.gz"))
1975 (sha256
1976 (base32
1977 "1vvhk2nf9ilfw0wchmxy8l13hbw9cnpz079nsx5srsy4nnd78nkw"))))
1978 (build-system gnu-build-system)
1979 (arguments
1980 `(#:phases (modify-phases %standard-phases (delete 'configure))
1981 #:make-flags (list "CC=gcc" (string-append "INSTALL_DEST=" %output))))
1982 (synopsis "Convert MIDI files to and from CSV")
1983 (description
1984 "Midicsv reads a standard MIDI file and decodes it into a comma-separated
1985value file (CSV), which preserves all the information in the MIDI file. The
1986ASCII CSV file may be loaded into a spreadsheet or database application, or
1987processed by a program to transform the MIDI data (for example, to key
1988transpose a composition or extract a track from a multi-track sequence). A
1989CSV file in the format created by midicsv may be converted back into a
1990standard MIDI file with the csvmidi program.")
1991 (home-page "http://www.fourmilab.ch/webtools/midicsv/")
1992 (license license:public-domain)))
49604680
RW		 1993
1994(define-public gx-guvnor-lv2
1995 (let ((commit "9f528a7623a201383e119bb6a2df32b18396a9d5")
1996 (revision "1"))
1997 (package
1998 (name "gx-guvnor-lv2")
1999 (version (string-append "0-" revision "." (string-take commit 9)))
2000 (source (origin
2001 (method git-fetch)
2002 (uri (git-reference
2003 (url "https://github.com/brummer10/GxGuvnor.lv2")
2004 (commit commit)))
2005 (sha256
2006 (base32
2007 "10zx84p2vd7i1yqc5ma9p17927265j4g0zfwv9rxladw0nm8y45k"))
2008 (file-name (string-append name "-" version "-checkout"))))
2009 (build-system gnu-build-system)
2010 (arguments
2011 `(;; The check target is used only to output a warning.
2012 #:tests? #f
2013 #:make-flags
2014 (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
2015 #:phases
2016 (modify-phases %standard-phases
2017 (replace 'configure
2018 (lambda _
2019 (substitute* "Makefile"
2020 (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n")
2021 ;; Avoid rebuilding everything
2022 (("install : all") "install:"))
2023 #t)))))
2024 (inputs
2025 `(("lv2" ,lv2)))
2026 (home-page "https://github.com/brummer10/GxGuvnor.lv2")
2027 (synopsis "Overdrive/distortion pedal simulation")
2028 (description "This package provides the LV2 plugin \"GxGuvnor\", a
2029simulation of an overdrive or distortion pedal for guitars.")
2030 ;; The LICENSE file says GPLv3 but the license headers in the files say
2031 ;; GPLv2 or later.
2032 (license license:gpl2+))))
85ae347e
RW		 2033
2034(define-public gx-vbass-preamp-lv2
2035 (let ((commit "0e599abab10c7669dd444e5d06f671c2fc1b9c6c")
2036 (revision "1"))
2037 (package (inherit gx-guvnor-lv2)
2038 (name "gx-vbass-preamp-lv2")
2039 (version (string-append "0-" revision "." (string-take commit 9)))
2040 (source (origin
2041 (method git-fetch)
2042 (uri (git-reference
2043 (url "https://github.com/brummer10/GxVBassPreAmp.lv2")
2044 (commit commit)))
2045 (sha256
2046 (base32
2047 "1dzksdfrva666gpi62fd2ni9rhf18sl917f1894qr0b17pbdh9k1"))
2048 (file-name (string-append name "-" version "-checkout"))))
2049 (home-page "https://github.com/brummer10/GxVBassPreAmp.lv2")
2050 (synopsis "Simulation of the Vox Venue Bass 100 Pre Amp Section")
2051 (description "This package provides the LV2 plugin \"GxVBassPreAmp\", a
2052pre-amplifier simulation modelled after the 1984 Vox Venue Bass 100 Pre Amp
2053Section."))))
cdc7a021
RW		 2054
2055(define-public gx-overdriver-lv2
2056 (let ((commit "ed71801987449414bf3adaa0dbfac68e8775f1ce")
2057 (revision "1"))
2058 (package (inherit gx-guvnor-lv2)
2059 (name "gx-overdriver-lv2")
2060 (version (string-append "0-" revision "." (string-take commit 9)))
2061 (source (origin
2062 (method git-fetch)
2063 (uri (git-reference
2064 (url "https://github.com/brummer10/GxOverDriver.lv2")
2065 (commit commit)))
2066 (sha256
2067 (base32
2068 "13j614jh525fbkby79nnzwj0z1ac0c9wclyn5pfqvkmx6a7j24r8"))
2069 (file-name (string-append name "-" version "-checkout"))))
2070 (home-page "https://github.com/brummer10/GxOverDriver.lv2")
2071 (synopsis "Overdrive effect with level and tone control")
2072 (description "This package provides the LV2 plugin \"GxOverDriver\", an
2073overdrive effect."))))
4d95cd30
RW		 2074
2075(define-public gx-tone-mender-lv2
2076 (let ((commit "b6780b4a3e4782b3ed0e5882d6788f178aed138f")
2077 (revision "1"))
2078 (package (inherit gx-guvnor-lv2)
2079 (name "gx-tone-mender-lv2")
2080 (version (string-append "0-" revision "." (string-take commit 9)))
2081 (source (origin
2082 (method git-fetch)
2083 (uri (git-reference
2084 (url "https://github.com/brummer10/GxToneMender.lv2")
2085 (commit commit)))
2086 (sha256
2087 (base32
2088 "07qdcfsvv2vdnfnjh91pfgvjdcs5y91nvwfm8c0z8fp6b4bk7a9q"))
2089 (file-name (string-append name "-" version "-checkout"))))
2090 (home-page "https://github.com/brummer10/GxToneMender.lv2")
2091 (synopsis "Clean boost with a 3-knob tonestack")
2092 (description "This package provides the LV2 plugin \"GxToneMender\", a
2093clean boost effect with a 3-knob tonestack."))))
4d4bfdc2
RW		 2094
2095(define-public gx-push-pull-lv2
2096 (let ((commit "7f76ae2068498643ac8671ee0930b13ee3fd8eb5")
2097 (revision "1"))
2098 (package (inherit gx-guvnor-lv2)
2099 (name "gx-push-pull-lv2")
2100 (version (string-append "0-" revision "." (string-take commit 9)))
2101 (source (origin
2102 (method git-fetch)
2103 (uri (git-reference
2104 (url "https://github.com/brummer10/GxPushPull.lv2")
2105 (commit commit)))
2106 (sha256
2107 (base32
2108 "12f5hwck2irph0gjbj8xy8jqcqdwb8l1hlwf29k0clz52h1jhb5q"))
2109 (file-name (string-append name "-" version "-checkout"))))
2110 (home-page "https://github.com/brummer10/GxPushPull.lv2")
2111 (synopsis "Octave up push pull transistor fuzz simulation")
2112 (description "This package provides the LV2 plugin \"GxPushPull\", a
2113simulation of a push pull transistor fuzz effect with added high octave."))))
3eb1a964
RW		 2114
2115(define-public gx-suppa-tone-bender-lv2
2116 (let ((commit "4e6dc713ec24e7fcf5ea23b7e685af627c01b9c9")
2117 (revision "1"))
2118 (package (inherit gx-guvnor-lv2)
2119 (name "gx-suppa-tone-bender-lv2")
2120 (version (string-append "0-" revision "." (string-take commit 9)))
2121 (source (origin
2122 (method git-fetch)
2123 (uri (git-reference
2124 (url "https://github.com/brummer10/GxSuppaToneBender.lv2")
2125 (commit commit)))
2126 (sha256
2127 (base32
2128 "1i22xr252nkbazkwidll2zb3i96610gx65qn5djdkijlz7j77138"))
2129 (file-name (string-append name "-" version "-checkout"))))
2130 (home-page "https://github.com/brummer10/GxSuppaToneBender.lv2")
2131 (synopsis "Simulation of the Vox Suppa Tone Bender pedal")
2132 (description "This package provides the LV2 plugin
2133\"GxSuppaToneBender\", a simulation modelled after the Vox Suppa Tone Bender
2134pedal."))))
664f677f
RW		 2135
2136(define-public gx-saturator-lv2
2137 (let ((commit "361399245d234b4d02f11f066d25ac15d90c6bf8")
2138 (revision "1"))
2139 (package (inherit gx-guvnor-lv2)
2140 (name "gx-saturator-lv2")
2141 (version (string-append "0-" revision "." (string-take commit 9)))
2142 (source (origin
2143 (method git-fetch)
2144 (uri (git-reference
2145 (url "https://github.com/brummer10/GxSaturator.lv2")
2146 (commit commit)))
2147 (sha256
2148 (base32
2149 "13cf5gxr2wzp5954hdhbl79v98a665ll5434mb3668p4j33sv217"))
2150 (file-name (string-append name "-" version "-checkout"))))
9d54b12a
RW		 2151 (arguments
2152 (substitute-keyword-arguments (package-arguments gx-guvnor-lv2)
2153 ((#:phases phases)
2154 `(modify-phases ,phases
2155 (add-after 'unpack 'escape-shell-commands
2156 (lambda _
2157 (substitute* "Makefile"
2158 (("cat ") "$(shell cat ")
2159 (("/dev/null") "/dev/null)")
2160 (("SSE_CFLAGS = \"\"") "SSE_CFLAGS ="))
2161 #t))))))
664f677f
RW		 2162 (home-page "https://github.com/brummer10/GxSaturator.lv2")
2163 (synopsis "Saturation effect")
2164 (description "This package provides the LV2 plugin \"GxSaturator\", a
2165saturation effect."))))
89412238
RW		 2166
2167(define-public gx-hyperion-lv2
2168 (let ((commit "7d993bc77f9946b3df0e481632c61b2dcbb6549f")
2169 (revision "1"))
2170 (package (inherit gx-guvnor-lv2)
2171 (name "gx-hyperion-lv2")
2172 (version (string-append "0-" revision "." (string-take commit 9)))
2173 (source (origin
2174 (method git-fetch)
2175 (uri (git-reference
2176 (url "https://github.com/brummer10/GxHyperion.lv2")
2177 (commit commit)))
2178 (sha256
2179 (base32
2180 "12klcyc6l9v93ii3478mqz44jzvh5np1sk8zzdmz42jp0w8qd429"))
2181 (file-name (string-append name "-" version "-checkout"))))
b9ac372c
RW		 2182 (arguments
2183 (substitute-keyword-arguments (package-arguments gx-guvnor-lv2)
2184 ((#:phases phases)
2185 `(modify-phases ,phases
2186 (add-after 'unpack 'escape-shell-commands
2187 (lambda _
2188 (substitute* "Makefile"
2189 (("cat ") "$(shell cat ")
2190 (("/dev/null") "/dev/null)")
2191 (("SSE_CFLAGS = \"\"") "SSE_CFLAGS ="))
2192 #t))))))
89412238
RW		 2193 (home-page "https://github.com/brummer10/GxHyperion.lv2")
2194 (synopsis "Simulation of the Hyperion Fuzz pedal")
2195 (description "This package provides the LV2 plugin \"GxHyperion\", a
2196simulation of the Hyperion Fuzz pedal."))))
32536f00
RW		 2197
2198(define-public gx-voodoo-fuzz-lv2
2199 (let ((commit "d2d6b27bc279f98c2fd11bbd58ffe2fb2c321ec4")
2200 (revision "1"))
2201 (package (inherit gx-guvnor-lv2)
2202 (name "gx-voodoo-fuzz-lv2")
2203 (version (string-append "0-" revision "." (string-take commit 9)))
2204 (source (origin
2205 (method git-fetch)
2206 (uri (git-reference
2207 (url "https://github.com/brummer10/GxVoodoFuzz.lv2")
2208 (commit commit)))
2209 (sha256
2210 (base32
2211 "1ji915bly588a8xwvwspvsqv0nh8ljgi6rky2mk1d9d6nz96jrbk"))
2212 (file-name (string-append name "-" version "-checkout"))))
2dedc16b
RW		 2213 (arguments
2214 (substitute-keyword-arguments (package-arguments gx-guvnor-lv2)
2215 ((#:phases phases)
2216 `(modify-phases ,phases
2217 (add-after 'unpack 'escape-shell-commands
2218 (lambda _
2219 (substitute* "Makefile"
2220 (("cat ") "$(shell cat ")
2221 (("/dev/null") "/dev/null)")
2222 (("SSE_CFLAGS = \"\"") "SSE_CFLAGS ="))
2223 #t))))))
32536f00
RW		 2224 (home-page "https://github.com/brummer10/GxVoodoFuzz.lv2")
2225 (synopsis "Fuzz effect modelled after the Voodoo Lab SuperFuzz")
2226 (description "This package provides the LV2 plugin \"GxVoodooFuzz\", a
2227simulation modelled after the Voodoo Lab SuperFuzz pedal. It's basically a
2228Bosstone circuit, followed by the tone control of the FoxToneMachine in
2229parallel with a DarkBooster, followed by a volume control."))))
29f63222
RW		 2230
2231(define-public gx-super-fuzz-lv2
2232 (let ((commit "9800354caeb4082a64ca55b2daa9a9a1f79b8c21")
2233 (revision "1"))
2234 (package (inherit gx-guvnor-lv2)
2235 (name "gx-super-fuzz-lv2")
2236 (version (string-append "0-" revision "." (string-take commit 9)))
2237 (source (origin
2238 (method git-fetch)
2239 (uri (git-reference
2240 (url "https://github.com/brummer10/GxSuperFuzz.lv2")
2241 (commit commit)))
2242 (sha256
2243 (base32
2244 "1jclp53p01h94cpx17wm4765r7klbr41g7bvq87l53qwlrgkc7a9"))
2245 (file-name (string-append name "-" version "-checkout"))))
c6e45a93
RW		 2246 (arguments
2247 (substitute-keyword-arguments (package-arguments gx-guvnor-lv2)
2248 ((#:phases phases)
2249 `(modify-phases ,phases
2250 (add-after 'unpack 'escape-shell-commands
2251 (lambda _
2252 (substitute* "Makefile"
2253 (("cat ") "$(shell cat ")
2254 (("/dev/null") "/dev/null)")
2255 (("SSE_CFLAGS = \"\"") "SSE_CFLAGS ="))
2256 #t))))))
29f63222
RW		 2257 (home-page "https://github.com/brummer10/GxSuperFuzz.lv2")
2258 (synopsis "Fuzz effect modelled after the UniVox SuperFuzz")
2259 (description "This package provides the LV2 plugin \"GxVoodooFuzz\", an
2260analog simulation of the UniVox SuperFuzz pedal. In this simulation the trim
2261pot, which is usualy in the housing, is exposed as a control parameter. It
2262adjusts the amount of harmonics."))))
40bffdfa
RW		 2263
2264(define-public gx-vintage-fuzz-master-lv2
2265 (let ((commit "c3ab9a3019a8381a398718b98615940b4a225b9e")
2266 (revision "1"))
2267 (package (inherit gx-guvnor-lv2)
2268 (name "gx-vintage-fuzz-master-lv2")
2269 (version (string-append "0-" revision "." (string-take commit 9)))
2270 (source (origin
2271 (method git-fetch)
2272 (uri (git-reference
2273 (url "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
2274 (commit commit)))
2275 (sha256
2276 (base32
2277 "0s1ghysggx6psalyhcpgjnmf38vama6jcqgbldqmxii5c2w2ybsc"))
2278 (file-name (string-append name "-" version "-checkout"))))
34975374
RW		 2279 (arguments
2280 (substitute-keyword-arguments (package-arguments gx-guvnor-lv2)
2281 ((#:phases phases)
2282 `(modify-phases ,phases
2283 (add-after 'unpack 'escape-shell-commands
2284 (lambda _
2285 (substitute* "Makefile"
2286 (("cat ") "$(shell cat ")
2287 (("/dev/null") "/dev/null)")
2288 (("SSE_CFLAGS = \"\"") "SSE_CFLAGS ="))
2289 #t))))))
40bffdfa
RW		 2290 (home-page "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
2291 (synopsis "Fuzz effect simulation of the vintage Fuzz Master")
2292 (description "This package provides the LV2 plugin
2293\"GxVintageFuzzMaster\", a simulation of the vintage Fuzz Master pedal."))))
631f8175
RW		 2294
2295(define-public gx-slow-gear-lv2
2296 (let ((commit "1071c2b2936ebad859242cb578af2f3415f8900f")
2297 (revision "1"))
2298 (package (inherit gx-guvnor-lv2)
2299 (name "gx-slow-gear-lv2")
2300 (version (string-append "0-" revision "." (string-take commit 9)))
2301 (source (origin
2302 (method git-fetch)
2303 (uri (git-reference
2304 (url "https://github.com/brummer10/GxSlowGear.lv2")
2305 (commit commit)))
2306 (sha256
2307 (base32
2308 "0c6099h5qkv7ilsvxxcrzwy1h6lkld1srh3fvbjxyw9q34kbqsyl"))
2309 (file-name (string-append name "-" version "-checkout"))))
759318fd
RW		 2310 (arguments
2311 (substitute-keyword-arguments (package-arguments gx-guvnor-lv2)
2312 ((#:phases phases)
2313 `(modify-phases ,phases
2314 (add-after 'unpack 'escape-shell-commands
2315 (lambda _
2316 (substitute* "Makefile"
2317 (("cat ") "$(shell cat ")
2318 (("/dev/null") "/dev/null)")
2319 (("SSE_CFLAGS = \"\"") "SSE_CFLAGS ="))
2320 #t))))))
631f8175
RW		 2321 (home-page "https://github.com/brummer10/GxSlowGear.lv2")
2322 (synopsis "Slow gear audio effect")
2323 (description "This package provides the LV2 plugin \"GxSlowGear\", a
2324slow gear audio effect to produce volume swells."))))
d75e8f5a
RW		 2325
2326(define-public gx-switchless-wah-lv2
2327 (let ((commit "1d466240c482b7ce9136aee39044068ab96f1c92")
2328 (revision "1"))
2329 (package (inherit gx-guvnor-lv2)
2330 (name "gx-switchless-wah-lv2")
2331 (version (string-append "0-" revision "." (string-take commit 9)))
2332 (source (origin
2333 (method git-fetch)
2334 (uri (git-reference
2335 (url "https://github.com/brummer10/GxSwitchlessWah.lv2")
2336 (commit commit)))
2337 (sha256
2338 (base32
2339 "0g6njgsm8s76n6yys09a8w77z93pjjgqq9hzhhsrl73hhvyr9qmy"))
2340 (file-name (string-append name "-" version "-checkout"))))
b74d79dc
RW		 2341 (arguments
2342 (substitute-keyword-arguments (package-arguments gx-guvnor-lv2)
2343 ((#:phases phases)
2344 `(modify-phases ,phases
2345 (add-after 'unpack 'escape-shell-commands
2346 (lambda _
2347 (substitute* "Makefile"
2348 (("cat ") "$(shell cat ")
2349 (("/dev/null") "/dev/null)")
2350 (("SSE_CFLAGS = \"\"") "SSE_CFLAGS ="))
2351 #t))))))
d75e8f5a
RW		 2352 (home-page "https://github.com/brummer10/GxSwitchlessWah.lv2")
2353 (synopsis "Wah emulation with switchless activation")
2354 (description "This package provides the LV2 plugin \"GxSwitchlessWah\",
2355a simulation of an analog Wah pedal with switchless activation."))))
jackhill's copy of GNU Guix: https://guix.gnu.org/