gnu/packages/music.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
   3 ;;; Copyright © 2015, 2016, 2017 Ricardo Wurmus <rekado@elephly.net>
   4 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
   5 ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
   6 ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il>
   7 ;;; Copyright © 2016 Leo Famulari <leo@famulari.name>
   8 ;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net>
   9 ;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net>
  10 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
  11 ;;; Copyright © 2017 ng0 <contact.ng0@cryptolab.net>
  12 ;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org>
  13 ;;; Copyright © 2017 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  14 ;;;
  15 ;;; This file is part of GNU Guix.
  16 ;;;
  17 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  18 ;;; under the terms of the GNU General Public License as published by
  19 ;;; the Free Software Foundation; either version 3 of the License, or (at
  20 ;;; your option) any later version.
  21 ;;;
  22 ;;; GNU Guix is distributed in the hope that it will be useful, but
  23 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  24 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 ;;; GNU General Public License for more details.
  26 ;;;
  27 ;;; You should have received a copy of the GNU General Public License
  28 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  29
  30 (define-module (gnu packages music)
  31   #:use-module (guix utils)
  32   #:use-module (guix packages)
  33   #:use-module (guix download)
  34   #:use-module (guix git-download)
  35   #:use-module ((guix licenses) #:prefix license:)
  36   #:use-module (guix build-system gnu)
  37   #:use-module (guix build-system ant)
  38   #:use-module (guix build-system cmake)
  39   #:use-module (guix build-system python)
  40   #:use-module (guix build-system waf)
  41   #:use-module (gnu packages)
  42   #:use-module (gnu packages algebra)
  43   #:use-module (gnu packages apr)
  44   #:use-module (gnu packages audio)
  45   #:use-module (gnu packages autotools)
  46   #:use-module (gnu packages backup)
  47   #:use-module (gnu packages base) ;libbdf
  48   #:use-module (gnu packages bash)
  49   #:use-module (gnu packages bison)
  50   #:use-module (gnu packages boost)
  51   #:use-module (gnu packages cdrom)
  52   #:use-module (gnu packages code)
  53   #:use-module (gnu packages check)
  54   #:use-module (gnu packages cmake)
  55   #:use-module (gnu packages compression)
  56   #:use-module (gnu packages curl)
  57   #:use-module (gnu packages cyrus-sasl)
  58   #:use-module (gnu packages docbook)
  59   #:use-module (gnu packages documentation)
  60   #:use-module (gnu packages emacs)
  61   #:use-module (gnu packages file)
  62   #:use-module (gnu packages flex)
  63   #:use-module (gnu packages fltk)
  64   #:use-module (gnu packages fonts)
  65   #:use-module (gnu packages fontutils)
  66   #:use-module (gnu packages freedesktop)
  67   #:use-module (gnu packages gcc)
  68   #:use-module (gnu packages gnupg)
  69   #:use-module (gnu packages gettext)
  70   #:use-module (gnu packages ghostscript)
  71   #:use-module (gnu packages gl)
  72   #:use-module (gnu packages glib)
  73   #:use-module (gnu packages gnome)
  74   #:use-module (gnu packages graphics)
  75   #:use-module (gnu packages gtk)
  76   #:use-module (gnu packages guile)
  77   #:use-module (gnu packages image)
  78   #:use-module (gnu packages imagemagick)
  79   #:use-module (gnu packages java)
  80   #:use-module (gnu packages libffi)
  81   #:use-module (gnu packages linux) ; for alsa-utils
  82   #:use-module (gnu packages lirc)
  83   #:use-module (gnu packages llvm)
  84   #:use-module (gnu packages man)
  85   #:use-module (gnu packages mp3)
  86   #:use-module (gnu packages mpd)
  87   #:use-module (gnu packages ncurses)
  88   #:use-module (gnu packages netpbm)
  89   #:use-module (gnu packages pcre)
  90   #:use-module (gnu packages pdf)
  91   #:use-module (gnu packages perl)
  92   #:use-module (gnu packages pkg-config)
  93   #:use-module (gnu packages pulseaudio) ;libsndfile
  94   #:use-module (gnu packages python)
  95   #:use-module (gnu packages qt)
  96   #:use-module (gnu packages rdf)
  97   #:use-module (gnu packages readline)
  98   #:use-module (gnu packages rsync)
  99   #:use-module (gnu packages sdl)
 100   #:use-module (gnu packages tcl)
 101   #:use-module (gnu packages texinfo)
 102   #:use-module (gnu packages tex)
 103   #:use-module (gnu packages tls)
 104   #:use-module (gnu packages video)
 105   #:use-module (gnu packages web)
 106   #:use-module (gnu packages wxwidgets)
 107   #:use-module (gnu packages xml)
 108   #:use-module (gnu packages xorg)
 109   #:use-module (gnu packages xiph)
 110   #:use-module ((srfi srfi-1) #:select (last)))
 111
 112 (define-public aria-maestosa
 113   (package
 114     (name "aria-maestosa")
 115     (version "1.4.13")
 116     (source (origin
 117               (method url-fetch)
 118               (uri (string-append "mirror://sourceforge/ariamaestosa/ariamaestosa/"
 119                                   version "/AriaSrc-" version ".tar.bz2"))
 120               (sha256
 121                (base32
 122                 "1cs3z6frx2ch7rm5ammx9p0rxcjrbj1vq14hvcbimpaw39rdsn3d"))))
 123     (build-system gnu-build-system)
 124     (arguments
 125      `(#:tests? #f  ;no tests
 126        #:phases
 127        ;; TODO: Add scons-build-system and use it here.
 128        (modify-phases %standard-phases
 129          (delete 'configure)
 130          (add-after 'unpack 'scons-propagate-environment
 131            (lambda _
 132              ;; By design, SCons does not, by default, propagate
 133              ;; environment variables to subprocesses.  See:
 134              ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
 135              ;; Here, we modify the SConstruct file to arrange for
 136              ;; environment variables to be propagated.
 137              (substitute* "SConstruct"
 138                (("env = Environment\\(\\)")
 139                 "env = Environment(ENV=os.environ)")
 140                ;; Scons errors out when copying subdirectories from Resources,
 141                ;; so we move them instead.
 142                (("Copy") "Move")
 143                ;; We move the "score" and "Documentation" directories at once,
 144                ;; so we have to ignore files contained therein.
 145                (("if \".svn\" in file" line)
 146                 (string-append line
 147                                " or \"score/\" in file"
 148                                " or \"Documentation/\" in file")))
 149              #t))
 150          (replace 'build (lambda _ (zero? (system* "scons"))))
 151          (replace 'install
 152            (lambda* (#:key outputs #:allow-other-keys)
 153              (let ((out (assoc-ref outputs "out")))
 154                (and
 155                 (zero? (system* "scons"
 156                                 (string-append "prefix=" out)
 157                                 "install"))
 158                 ;; Fix directory permissions
 159                 (begin
 160                   (chmod (string-append out "/share/Aria/Documentation") #o555)
 161                   (chmod (string-append out "/share/Aria/score") #o555)
 162                   #t))))))))
 163     (inputs
 164      `(("wxwidgets" ,wxwidgets)
 165        ("glib" ,glib)
 166        ("alsa-lib" ,alsa-lib)))
 167     (native-inputs
 168      `(("scons" ,scons)
 169        ("pkg-config" ,pkg-config)))
 170     (home-page "http://ariamaestosa.sourceforge.net/")
 171     (synopsis "MIDI sequencer and editor")
 172     (description
 173      "Aria Maestosa is a MIDI sequencer and editor.  It lets you compose, edit
 174 and play MIDI files with a few clicks in a user-friendly interface offering
 175 score, keyboard, guitar, drum and controller views.")
 176     (license license:gpl3+)))
 177
 178 (define-public cmus
 179   (package
 180     (name "cmus")
 181     (version "2.7.1")
 182     (source (origin
 183               (method url-fetch)
 184               (uri (string-append
 185                     "https://github.com/" name "/" name "/archive/v"
 186                     version ".tar.gz"))
 187               (file-name (string-append name "-" version ".tar.gz"))
 188               (sha256
 189                (base32
 190                 "0raixgjavkm7hxppzsc5zqbfbh2bhjcmbiplhnsxsmyj8flafyc1"))))
 191     (build-system gnu-build-system)
 192     (arguments
 193      `(#:tests? #f ; cmus does not include tests
 194        #:phases
 195        (modify-phases %standard-phases
 196          (replace
 197           'configure
 198           (lambda* (#:key outputs #:allow-other-keys)
 199             (let ((out (assoc-ref outputs "out")))
 200
 201               ;; It's an idiosyncratic configure script that doesn't
 202               ;; understand --prefix=..; it wants prefix=.. instead.
 203               (zero?
 204                (system* "./configure"
 205                         (string-append "prefix=" out)))))))))
 206     ;; TODO: cmus optionally supports the following formats, which haven't yet
 207     ;; been added to Guix:
 208     ;;
 209     ;; - Roar, libroar
 210     ;;
 211     ;; - DISCID_LIBS, apparently different from cd-discid which is included in
 212     ;;   Guix.  See <http://sourceforge.net/projects/discid/>
 213     (native-inputs
 214      `(("pkg-config" ,pkg-config)))
 215     (inputs
 216      `(("alsa-lib" ,alsa-lib)
 217        ("ao" ,ao)
 218        ("ffmpeg" ,ffmpeg)
 219        ("flac" ,flac)
 220        ("jack" ,jack-1)
 221        ("libcddb" ,libcddb)
 222        ("libcdio-paranoia" ,libcdio-paranoia)
 223        ("libcue" ,libcue)
 224        ("libmad" ,libmad)
 225        ("libmodplug" ,libmodplug)
 226        ("libmpcdec" ,libmpcdec)
 227        ("libsamplerate" ,libsamplerate)
 228        ("libvorbis" ,libvorbis)
 229        ("ncurses" ,ncurses)
 230        ("opusfile" ,opusfile)
 231        ("pulseaudio" ,pulseaudio)
 232        ("wavpack" ,wavpack)))
 233      (home-page "https://cmus.github.io/")
 234      (synopsis "Small console music player")
 235      (description "Cmus is a small and fast console music player.  It supports
 236 many input formats and provides a customisable Vi-style user interface.")
 237      (license license:gpl2+)))
 238
 239 (define-public denemo
 240   (package
 241     (name "denemo")
 242     (version "2.1")
 243     (source (origin
 244               (method url-fetch)
 245               (uri (string-append "mirror://gnu/denemo/denemo-"
 246                                   version ".tar.gz"))
 247               (sha256
 248                (base32
 249                 "0hggf8c4xcrjcxd5m00r788r7jg7g8ff54w2idfaqpj5j2ix3299"))))
 250     (build-system gnu-build-system)
 251     (arguments
 252      `(#:phases
 253        (modify-phases %standard-phases
 254          (replace 'check
 255            ;; Denemo's documentation says to use this command to run its
 256            ;; testsuite.
 257            (lambda _
 258              (zero? (system* "make" "-C" "tests" "check"))))
 259          (add-before 'build 'set-lilypond
 260            ;; This phase sets the default path for lilypond to its current
 261            ;; location in the store.
 262            (lambda* (#:key inputs #:allow-other-keys)
 263              (let* ((lilypond (string-append (assoc-ref inputs "lilypond")
 264                                              "/bin/lilypond")))
 265                (substitute* "src/core/prefops.c"
 266                  (("g_string_new \\(\"lilypond\"\\);")
 267                   (string-append "g_string_new (\""
 268                                  lilypond
 269                                  "\");"))))
 270              #t))
 271          (add-after 'install 'correct-filename
 272            ;; "graft-derivation/shallow" from the (guix grafts) module runs in
 273            ;; the C locale, expecting file names to be ASCII encoded. This
 274            ;; phase renames a filename with a Unicode character in it to meet
 275            ;; the aforementioned condition.
 276            (lambda* (#:key outputs #:allow-other-keys)
 277              (let* ((out (assoc-ref outputs "out")))
 278                (chdir (string-append
 279                        out
 280                        "/share/denemo/templates/instruments/woodwind"))
 281                (rename-file "Clarinet in B♭.denemo"
 282                             "Clarinet in Bb.denemo"))
 283              #t)))))
 284     (native-inputs
 285      `(("glib:bin", glib "bin")   ; for gtester
 286        ("pkg-config" ,pkg-config)))
 287     (inputs
 288      `(("alsa-lib" ,alsa-lib)
 289        ("aubio" ,aubio)
 290        ("evince" ,evince)
 291        ("fftw" ,fftw)
 292        ("fluidsynth" ,fluidsynth)
 293        ("glib" ,glib)
 294        ("gtk+" ,gtk+)
 295        ("gtk-doc" ,gtk-doc)
 296        ("gtksourceview" ,gtksourceview)
 297        ("guile" ,guile-2.0)
 298        ("intltool" ,intltool)
 299        ("librsvg" ,librsvg)
 300        ("libsndfile" ,libsndfile)
 301        ("libtool" ,libtool)
 302        ("libxml2" ,libxml2)
 303        ("lilypond", lilypond)
 304        ("portaudio" ,portaudio)
 305        ("portmidi" ,portmidi)
 306        ("rubberband" ,rubberband)))
 307     (synopsis "Graphical music notation, front-end to GNU Lilypond")
 308     (description
 309      "GNU Denemo is a music notation editor that provides a convenient
 310 interface to the powerful music engraving program Lilypond.  Music can be
 311 typed in using the computer keyboard, played in using a MIDI keyboard, or
 312 even input via a microphone connected to the sound card.  The final product
 313 is publication-quality music notation that is continuously generated in the
 314 background while you work.")
 315     (home-page "http://www.denemo.org")
 316     (license license:gpl3+)))
 317
 318 (define-public hydrogen
 319   (package
 320     (name "hydrogen")
 321     (version "0.9.7")
 322     (source (origin
 323               (method url-fetch)
 324               (uri (string-append
 325                     "https://github.com/hydrogen-music/hydrogen/archive/"
 326                     version ".tar.gz"))
 327               (sha256
 328                (base32
 329                 "1dy2jfkdw0nchars4xi4isrz66fqn53a9qk13bqza7lhmsg3s3qy"))))
 330     (build-system cmake-build-system)
 331     (arguments
 332     `(#:test-target "tests"))
 333     (native-inputs
 334      `(("cppunit" ,cppunit)
 335        ("pkg-config" ,pkg-config)))
 336     (inputs
 337      `(("alsa-lib" ,alsa-lib)
 338        ("jack" ,jack-1)
 339        ;; ("ladspa" ,ladspa) ; cannot find during configure
 340        ("lash" ,lash)
 341        ("libarchive" ,libarchive)
 342        ("libsndfile" ,libsndfile)
 343        ("libtar" ,libtar)
 344        ("lrdf" ,lrdf)
 345        ("qt" ,qt-4)
 346        ("zlib" ,zlib)))
 347     (home-page "http://www.hydrogen-music.org")
 348     (synopsis "Drum machine")
 349     (description
 350      "Hydrogen is an advanced drum machine for GNU/Linux.  Its main goal is to
 351 enable professional yet simple and intuitive pattern-based drum programming.")
 352     (license license:gpl2+)))
 353
 354 (define-public extempore
 355   (package
 356     (name "extempore")
 357     (version "0.7.0")
 358     (source (origin
 359               (method url-fetch)
 360               (uri (string-append
 361                     "https://github.com/digego/extempore/archive/"
 362                     version ".tar.gz"))
 363               (sha256
 364                (base32
 365                 "1wap1mvsicrhlazikf7l8zxg37fir8bmnh9rin28m1rix730vcch"))
 366               (file-name (string-append name "-" version ".tar.gz"))))
 367     (build-system cmake-build-system)
 368     (arguments
 369      `(;; The default target also includes ahead-of-time compilation of the
 370        ;; standard libraries.  However, during the "install" phase this would
 371        ;; happen *again* for unknown reasons.  Hence we only build the
 372        ;; extempore executable during the build phase.
 373        #:make-flags '("extempore")
 374        #:configure-flags '("-DJACK=ON"
 375                            ;; We want to distribute.
 376                            "-DIN_TREE=OFF"
 377                            ;; Don't download any dependencies.
 378                            "-DBUILD_DEPS=OFF")
 379        #:modules ((ice-9 match)
 380                   (guix build cmake-build-system)
 381                   (guix build utils))
 382        #:phases
 383        (modify-phases %standard-phases
 384          (add-after 'unpack 'patch-directories
 385            (lambda* (#:key outputs #:allow-other-keys)
 386              ;; Rewrite default path to runtime directory
 387              (substitute* "src/Extempore.cpp"
 388                (("runtimedir \\+= \"runtime\"")
 389                 (string-append "runtimedir = \""
 390                                (assoc-ref outputs "out")
 391                                "/lib/extempore/runtime\"")))
 392              (substitute* "extras/extempore.el"
 393                (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
 394                 (string-append "(runtime-directory \""
 395                                (assoc-ref outputs "out")
 396                                "/lib/extempore/runtime"
 397                                "\")")))
 398              #t))
 399          (add-after 'unpack 'link-with-additional-libs
 400            (lambda _
 401              ;; The executable must be linked with libffi and zlib.
 402              (substitute* "CMakeLists.txt"
 403                (("add_dependencies\\(aot_extended extended_deps\\)") "")
 404                (("target_link_libraries\\(extempore PRIVATE dl" line)
 405                 (string-append line " ffi z")))
 406              #t))
 407          ;; FIXME: AOT compilation of the nanovg bindings fail with the error:
 408          ;; "Compiler Error  could not bind _nvgLinearGradient"
 409          (add-after 'unpack 'disable-nanovg
 410            (lambda _
 411              (substitute* "CMakeLists.txt"
 412                (("aotcompile_lib\\(libs/external/nanovg.xtm.*") ""))
 413              #t))
 414          ;; FIXME: All examples that are used as tests segfault for some
 415          ;; unknown reason.
 416          (add-after 'unpack 'disable-broken-tests
 417            (lambda _
 418              (substitute* "CMakeLists.txt"
 419                (("extempore_add_example_as_test\\(.*") ""))
 420              #t))
 421          (add-after 'unpack 'hardcode-external-lib-paths
 422            (lambda* (#:key inputs #:allow-other-keys)
 423              (use-modules (ice-9 match))
 424              (for-each
 425               (match-lambda
 426                 ((file-name lib pkg-name)
 427                  (substitute* (string-append "libs/external/" file-name ".xtm")
 428                    ((lib) (string-append (assoc-ref inputs pkg-name)
 429                                          "/lib/" lib)))))
 430               '(("assimp"    "libassimp.so"    "assimp")
 431                 ("portmidi"  "libportmidi.so"  "portmidi")
 432                 ("sndfile"   "libsndfile.so"   "libsndfile")
 433                 ("fft"       "libkiss_fft.so"  "kiss-fft")
 434                 ("stb_image" "libstb_image.so" "stb-image")
 435                 ("nanovg"    "libnanovg.so"    "nanovg")
 436                 ("glext"     "libGL.so"        "mesa")
 437                 ("glfw3"     "libglfw.so"      "glfw")
 438                 ("gl/glcore-directbind"   "libGL.so" "mesa")
 439                 ("gl/glcompat-directbind" "libGL.so" "mesa")))
 440              #t))
 441          (add-after 'unpack 'use-own-llvm
 442           (lambda* (#:key inputs #:allow-other-keys)
 443             (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
 444             ;; Our LLVM builds shared libraries, so Extempore should use
 445             ;; those.
 446             (substitute* "CMakeLists.txt"
 447               (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
 448             #t))
 449          (add-after 'unpack 'fix-aot-compilation
 450            (lambda* (#:key outputs #:allow-other-keys)
 451              (substitute* "CMakeLists.txt"
 452                ;; EXT_SHARE_DIR does not exist before installation, so the
 453                ;; working directory should be the source directory instead.
 454                (("WORKING_DIRECTORY \\$\\{EXT_SHARE_DIR\\}")
 455                 "WORKING_DIRECTORY ${CMAKE_SOURCE_DIR}")
 456                ;; Extempore needs to be told where the runtime is to be found.
 457                ;; While we're at it we disable automatic tuning for a specific
 458                ;; CPU to make binary substitution possible.
 459                (("COMMAND extempore" prefix)
 460                 (string-append prefix " --sharedir " (getcwd)
 461                                " --mcpu=generic --attr=none")))
 462              #t)))))
 463     (inputs
 464      `(("llvm" ,llvm-for-extempore)
 465        ("libffi" ,libffi)
 466        ("jack" ,jack-1)
 467        ("libsndfile" ,libsndfile)
 468        ("glfw" ,glfw)
 469        ("apr" ,apr)
 470        ("stb-image" ,stb-image-for-extempore)
 471        ("kiss-fft" ,kiss-fft-for-extempore)
 472        ("nanovg" ,nanovg-for-extempore)
 473        ("portmidi" ,portmidi-for-extempore)
 474        ("assimp" ,assimp)
 475        ("alsa-lib" ,alsa-lib)
 476        ("portaudio" ,portaudio)
 477        ("mesa" ,mesa)
 478        ("pcre" ,pcre)
 479        ("zlib" ,zlib)))
 480     (native-inputs
 481      `(("perl" ,perl)
 482        ("emacs" ,emacs-no-x)))
 483     ;; Extempore refuses to build on architectures other than x86_64
 484     (supported-systems '("x86_64-linux"))
 485     (home-page "http://digego.github.io/extempore/")
 486     (synopsis "Programming environment for live coding of multimedia")
 487     (description
 488      "Extempore is a programming language and runtime environment designed
 489 with live programming in mind.  It supports interactive programming in a REPL
 490 style, compiling and binding code just-in-time.  Although Extempore has its
 491 roots in 'live coding' of audiovisual media art, it is suitable for any task
 492 domain where dynamic run-time modifiability and good numerical performance are
 493 required.  Extempore also has strong timing and concurrency semantics, which
 494 are helpful when working in problem spaces where timing is important (such as
 495 audio and video).")
 496     (license license:bsd-2)))
 497
 498 (define-public klick
 499   (package
 500     (name "klick")
 501     (version "0.12.2")
 502     (source (origin
 503               (method url-fetch)
 504               (uri (string-append "http://das.nasophon.de/download/klick-"
 505                                   version ".tar.gz"))
 506               (sha256
 507                (base32
 508                 "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
 509     (build-system gnu-build-system)
 510     (arguments
 511      `(#:tests? #f ;no "check" target
 512        #:phases
 513        ;; TODO: Add scons-build-system and use it here.
 514        (modify-phases %standard-phases
 515          (delete 'configure)
 516          (replace 'build
 517                   (lambda* (#:key inputs outputs #:allow-other-keys)
 518                     (let ((out (assoc-ref outputs "out")))
 519                       (mkdir-p out)
 520                       (zero? (system* "scons" (string-append "PREFIX=" out))))))
 521          (replace 'install (lambda _ (zero? (system* "scons" "install")))))))
 522     (inputs
 523      `(("boost" ,boost)
 524        ("jack" ,jack-1)
 525        ("libsndfile" ,libsndfile)
 526        ("libsamplerate" ,libsamplerate)
 527        ("liblo" ,liblo)
 528        ("rubberband" ,rubberband)))
 529     (native-inputs
 530      `(("scons" ,scons)
 531        ("python" ,python-2)
 532        ("pkg-config" ,pkg-config)))
 533     (home-page "http://das.nasophon.de/klick/")
 534     (synopsis "Metronome for JACK")
 535     (description
 536      "klick is an advanced command-line based metronome for JACK.  It allows
 537 you to define complex tempo maps for entire songs or performances.")
 538     (license license:gpl2+)))
 539
 540 (define-public gtklick
 541   (package
 542     (name "gtklick")
 543     (version "0.6.4")
 544     (source (origin
 545               (method url-fetch)
 546               (uri (string-append "http://das.nasophon.de/download/gtklick-"
 547                                   version ".tar.gz"))
 548               (sha256
 549                (base32
 550                 "0dq1km6njnzsqdqyf6wzir9g733z0mc9vmxfg2383k3c2a2di6bp"))))
 551     (build-system python-build-system)
 552     (arguments
 553      `(#:tests? #f ; no tests
 554        #:python ,python-2
 555        #:phases
 556        (modify-phases %standard-phases
 557          (add-before 'build 'add-sitedirs
 558            ;; .pth files are not automatically interpreted unless the
 559            ;; directories containing them are added as "sites".  The directories
 560            ;; are then added to those in the PYTHONPATH.  This is required for
 561            ;; the operation of pygtk.
 562            (lambda _
 563              (substitute* "gtklick/gtklick.py"
 564                (("import pygtk")
 565                 "import pygtk, site, sys
 566 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))))
 567          (add-after 'unpack 'inject-store-path-to-klick
 568            (lambda* (#:key inputs #:allow-other-keys)
 569              (substitute* "gtklick/klick_backend.py"
 570                (("KLICK_PATH = 'klick'")
 571                 (string-append "KLICK_PATH = '"
 572                                (assoc-ref inputs "klick")
 573                                "/bin/klick'")))
 574              #t)))))
 575     (inputs
 576      `(("klick" ,klick)
 577        ("python2-pyliblo" ,python2-pyliblo)
 578        ("python2-pygtk" ,python2-pygtk)))
 579     (native-inputs
 580      `(("gettext" ,gettext-minimal)))
 581     (home-page "http://das.nasophon.de/gtklick/")
 582     (synopsis "Simple metronome with an easy-to-use graphical interface")
 583     (description
 584      "Gtklick is a simple metronome with an easy-to-use graphical user
 585 interface.  It is implemented as a frontend to @code{klick}.")
 586     (license license:gpl2+)))
 587
 588 (define-public libgme
 589   (package
 590     (name "libgme")
 591     (version "0.6.1")
 592     (source (origin
 593               (method url-fetch)
 594               (uri (string-append "https://bitbucket.org/mpyne/game-music-emu/"
 595                                   "downloads/game-music-emu-" version
 596                                   ".tar.bz2"))
 597               (sha256
 598                (base32
 599                 "08fk7zddpn7v93d0fa7fcypx7hvgwx9b5psj9l6m8b87k2hbw4fw"))))
 600     (build-system cmake-build-system)
 601     (arguments
 602      '(#:tests? #f)) ; no check target
 603     (home-page "https://bitbucket.org/mpyne/game-music-emu")
 604     (synopsis "Video game music file playback library")
 605     (description
 606      "Game-music-emu is a collection of video game music file emulators that
 607 support the following formats and systems:
 608 @table @code
 609 @item AY
 610 ZX Spectrum/Asmtrad CPC
 611 @item GBS
 612 Nintendo Game Boy
 613 @item GYM
 614 Sega Genesis/Mega Drive
 615 @item HES
 616 NEC TurboGrafx-16/PC Engine
 617 @item KSS
 618 MSX Home Computer/other Z80 systems (doesn't support FM sound)
 619 @item NSF/NSFE
 620 Nintendo NES/Famicom (with VRC 6, Namco 106, and FME-7 sound)
 621 @item SAP
 622 Atari systems using POKEY sound chip
 623 @item SPC
 624 Super Nintendo/Super Famicom
 625 @item VGM/VGZ
 626 Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC Micro
 627 @end table")
 628     (license (list license:lgpl2.1+
 629                    ;; demo and player directories are under the Expat license
 630                    license:expat))))
 631
 632 (define-public lilypond
 633   (package
 634     (name "lilypond")
 635     (version "2.19.63")
 636     (source (origin
 637               (method url-fetch)
 638               (uri (string-append
 639                     "http://download.linuxaudio.org/lilypond/sources/v"
 640                     (version-major+minor version) "/"
 641                     name "-" version ".tar.gz"))
 642               (sha256
 643                (base32
 644                 "0hwv7m1lzyhjiyxqhqfdrrrpx475jhiwckrnxbjbv3ynhyzkngw0"))))
 645     (build-system gnu-build-system)
 646     (arguments
 647      `(#:tests? #f ; out-test/collated-files.html fails
 648        #:out-of-source? #t
 649        #:make-flags '("conf=www") ;to generate images for info manuals
 650        #:configure-flags
 651        (list "CONFIGURATION=www"
 652              (string-append "--with-texgyre-dir="
 653                             (assoc-ref %build-inputs "font-tex-gyre")
 654                             "/share/fonts/opentype/"))
 655        #:phases
 656        (modify-phases %standard-phases
 657          (add-after 'unpack 'use-texlive-union
 658            (lambda _
 659              ;; FIXME: fonts are not found and have to be generated in HOME.
 660              (setenv "HOME" "/tmp")
 661              ;; The test for the "lh" package fails, even though it is among
 662              ;; the inputs.
 663              (substitute* "configure"
 664                (("TEX_FIKPARM=.*") "TEX_FIKPARM=found\n"))
 665              #t))
 666          (add-after 'unpack 'fix-path-references
 667           (lambda _
 668             (substitute* "scm/backend-library.scm"
 669               (("\\(search-executable '\\(\"gs\"\\)\\)")
 670                (string-append "\"" (which "gs") "\""))
 671               (("\"/bin/sh\"")
 672                (string-append "\"" (which "sh") "\"")))
 673             #t))
 674          (add-before 'configure 'prepare-configuration
 675           (lambda _
 676             (substitute* "configure"
 677               (("SHELL=/bin/sh") "SHELL=sh")
 678               ;; When checking the fontforge version do not consider the
 679               ;; version string that's part of the directory.
 680               (("head -n") "tail -n")
 681               ;; Also allow for SOURCE_DATE_EPOCH = 0 in fontforge.
 682               (("20110222") "19700101"))
 683             (setenv "out" "www")
 684             (setenv "conf" "www")
 685             #t))
 686          (add-after 'install 'install-info
 687            (lambda _
 688              (zero? (system* "make"
 689                              "-j" (number->string (parallel-job-count))
 690                              "conf=www" "install-info")))))))
 691     (inputs
 692      `(("guile" ,guile-1.8)
 693        ("font-dejavu" ,font-dejavu)
 694        ("font-tex-gyre" ,font-tex-gyre)
 695        ("fontconfig" ,fontconfig)
 696        ("freetype" ,freetype)
 697        ("ghostscript" ,ghostscript)
 698        ("pango" ,pango)
 699        ("python" ,python-2)))
 700     (native-inputs
 701      `(("bison" ,bison)
 702        ("perl" ,perl)
 703        ("flex" ,flex)
 704        ("fontforge" ,fontforge)
 705        ("dblatex" ,dblatex)
 706        ("gettext" ,gettext-minimal)
 707        ("imagemagick" ,imagemagick)
 708        ("netpbm" ,netpbm) ;for pngtopnm
 709        ("texlive" ,(texlive-union (list texlive-metapost
 710                                         texlive-generic-epsf
 711                                         texlive-latex-lh
 712                                         texlive-latex-cyrillic)))
 713        ("texinfo" ,texinfo)
 714        ("texi2html" ,texi2html)
 715        ("rsync" ,rsync)
 716        ("pkg-config" ,pkg-config)
 717        ("zip" ,zip)))
 718     (home-page "http://www.lilypond.org/")
 719     (synopsis "Music typesetting")
 720     (description
 721      "GNU LilyPond is a music typesetter, which produces high-quality sheet
 722 music.  Music is input in a text file containing control sequences which are
 723 interpreted by LilyPond to produce the final document.  It is extendable with
 724 Guile.")
 725     (license license:gpl3+)
 726
 727     ;; On armhf and mips64el, building the documentation sometimes leads to
 728     ;; more than an hour of silence, so double the max silent time.
 729     (properties `((max-silent-time . 7200)))))
 730
 731 (define-public non-sequencer
 732   ;; The latest tagged release is three years old and uses a custom build
 733   ;; system, so we take the last commit.
 734   (let ((commit "10c31e57291b6e42be53371567a722b62b32d220")
 735         (revision "3"))
 736     (package
 737       (name "non-sequencer")
 738       (version (string-append "1.9.5-" revision "." (string-take commit 7)))
 739       (source (origin
 740                 (method git-fetch)
 741                 (uri (git-reference
 742                       (url "git://git.tuxfamily.org/gitroot/non/non.git")
 743                       (commit commit)))
 744                 (sha256
 745                  (base32
 746                   "080rha4ffp7qycyg1mqcf4vj0s7z8qfvz6bxm0w29xgg2kkmb3fx"))
 747                 (file-name (string-append name "-" version "-checkout"))))
 748       (build-system waf-build-system)
 749       (arguments
 750        `(#:tests? #f ;no "check" target
 751          #:configure-flags
 752          (list "--project=sequencer"
 753                ;; Disable the use of SSE unless on x86_64.
 754                ,@(if (not (string-prefix? "x86_64" (or (%current-target-system)
 755                                                        (%current-system))))
 756                      '("--disable-sse")
 757                      '()))
 758          #:phases
 759          (modify-phases %standard-phases
 760            (add-before
 761             'configure 'set-flags
 762             (lambda _
 763               ;; Compile with C++11, required by libsigc++.
 764               (setenv "CXXFLAGS" "-std=c++11")
 765               #t)))
 766          #:python ,python-2))
 767       (inputs
 768        `(("jack" ,jack-1)
 769          ("libsigc++" ,libsigc++)
 770          ("liblo" ,liblo)
 771          ("ntk" ,ntk)))
 772       (native-inputs
 773        `(("pkg-config" ,pkg-config)))
 774       (home-page "http://non.tuxfamily.org/wiki/Non%20Sequencer")
 775       (synopsis "Pattern-based MIDI sequencer")
 776       (description
 777        "The Non Sequencer is a powerful, lightweight, real-time,
 778 pattern-based MIDI sequencer.  It utilizes the JACK Audio Connection Kit for
 779 MIDI I/O and the NTK GUI toolkit for its user interface.  Everything in Non
 780 Sequencer happens on-line, in real-time.  Music can be composed live, while the
 781 transport is rolling.")
 782       (license license:gpl2+))))
 783
 784 (define-public non-session-manager
 785   (package (inherit non-sequencer)
 786     (name "non-session-manager")
 787     (arguments
 788      (substitute-keyword-arguments (package-arguments non-sequencer)
 789        ((#:configure-flags flags)
 790         `(cons "--project=session-manager"
 791                (delete "--project=sequencer" ,flags)))))
 792     (inputs
 793      `(("jack" ,jack-1)
 794        ("liblo" ,liblo)
 795        ("ntk" ,ntk)))
 796     (native-inputs
 797      `(("pkg-config" ,pkg-config)))
 798     (home-page "http://non.tuxfamily.org/nsm/")
 799     (synopsis "Audio session management")
 800     (description
 801      "The Non Session Manager is an API and an implementation for audio
 802 session management.  NSM clients use a well-specified OSC protocol to
 803 communicate with the session management daemon.")
 804     (license license:gpl2+)))
 805
 806 (define-public non-mixer
 807   (package (inherit non-sequencer)
 808     (name "non-mixer")
 809     (arguments
 810      (substitute-keyword-arguments (package-arguments non-sequencer)
 811        ((#:configure-flags flags)
 812         `(cons "--project=mixer"
 813                (delete "--project=sequencer" ,flags)))))
 814     (inputs
 815      `(("jack" ,jack-1)
 816        ("liblo" ,liblo)
 817        ("ladspa" ,ladspa)
 818        ("lrdf" ,lrdf)
 819        ("ntk" ,ntk)))
 820     (native-inputs
 821      `(("pkg-config" ,pkg-config)))
 822     (home-page "http://non.tuxfamily.org/wiki/Non%20Mixer")
 823     (synopsis "Modular digital audio mixer")
 824     (description
 825      "The Non Mixer is a powerful, reliable and fast modular digital audio
 826 mixer.  It utilizes JACK for inter-application audio I/O and the NTK GUI
 827 toolkit for a fast and lightweight user interface.  Non Mixer can be used
 828 alone or in concert with Non Timeline and Non Sequencer to form a complete
 829 studio.")
 830     (license license:gpl2+)))
 831
 832 (define-public non-timeline
 833   (package (inherit non-sequencer)
 834     (name "non-timeline")
 835     (arguments
 836      (substitute-keyword-arguments (package-arguments non-sequencer)
 837        ((#:configure-flags flags)
 838         `(cons "--project=timeline"
 839                (delete "--project=sequencer" ,flags)))))
 840     (inputs
 841      `(("jack" ,jack-1)
 842        ("liblo" ,liblo)
 843        ("libsndfile" ,libsndfile)
 844        ("ntk" ,ntk)))
 845     (native-inputs
 846      `(("pkg-config" ,pkg-config)))
 847     (home-page "http://non.tuxfamily.org/wiki/Non%20Timeline")
 848     (synopsis "Modular digital audio timeline arranger")
 849     (description
 850      "The Non Timeline is a powerful, reliable and fast modular digital audio
 851 timeline arranger.  It utilizes JACK for inter-application audio I/O and the
 852 NTK GUI toolkit for a fast and lightweight user interface.  Non Timeline can
 853 be used alone or in concert with Non Mixer and Non Sequencer to form a
 854 complete studio.")
 855     (license license:gpl2+)))
 856
 857 (define-public solfege
 858   (package
 859     (name "solfege")
 860     (version "3.22.2")
 861     (source (origin
 862               (method url-fetch)
 863               (uri (string-append
 864                     "mirror://gnu/solfege/solfege-"
 865                     version ".tar.xz"))
 866               (sha256
 867                (base32
 868                 "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
 869     (build-system gnu-build-system)
 870     (arguments
 871      `(#:tests? #f ; xmllint attempts to download DTD
 872        #:test-target "test"
 873        #:phases
 874        (modify-phases %standard-phases
 875          (add-after 'unpack 'fix-configuration
 876            (lambda* (#:key inputs #:allow-other-keys)
 877              (substitute* "default.config"
 878                (("csound=csound")
 879                 (string-append "csound="
 880                                (assoc-ref inputs "csound")
 881                                "/bin/csound"))
 882                (("/usr/bin/aplay")
 883                 (string-append (assoc-ref inputs "aplay")
 884                                "/bin/aplay"))
 885                (("/usr/bin/timidity")
 886                 (string-append (assoc-ref inputs "timidity")
 887                                "/bin/timidity"))
 888                (("/usr/bin/mpg123")
 889                 (string-append (assoc-ref inputs "mpg123")
 890                                "/bin/mpg123"))
 891                (("/usr/bin/ogg123")
 892                 (string-append (assoc-ref inputs "ogg123")
 893                                "/bin/ogg123")))
 894              #t))
 895          (add-before 'build 'patch-python-shebangs
 896            (lambda _
 897              ;; Two python scripts begin with a Unicode BOM, so patch-shebang
 898              ;; has no effect.
 899              (substitute* '("solfege/parsetree.py"
 900                             "solfege/presetup.py")
 901                (("#!/usr/bin/python") (string-append "#!" (which "python"))))
 902              #t))
 903          (add-before 'build 'add-sitedirs
 904            ;; .pth files are not automatically interpreted unless the
 905            ;; directories containing them are added as "sites".  The directories
 906            ;; are then added to those in the PYTHONPATH.  This is required for
 907            ;; the operation of pygtk and pygobject.
 908            (lambda _
 909              (substitute* "run-solfege.py"
 910                (("import os")
 911                 "import os, site
 912 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))
 913              #t))
 914          (add-before 'build 'adjust-config-file-prefix
 915            (lambda* (#:key outputs #:allow-other-keys)
 916              (substitute* "run-solfege.py"
 917                (("prefix = os.path.*$")
 918                 (string-append "prefix = " (assoc-ref outputs "out"))))
 919              #t))
 920          (add-after 'install 'wrap-program
 921            (lambda* (#:key inputs outputs #:allow-other-keys)
 922              ;; Make sure 'solfege' runs with the correct PYTHONPATH.
 923              (let* ((out (assoc-ref outputs "out"))
 924                     (path (getenv "PYTHONPATH")))
 925                (wrap-program (string-append out "/bin/solfege")
 926                  `("PYTHONPATH" ":" prefix (,path))))
 927              #t)))))
 928     (inputs
 929      `(("python" ,python-2)
 930        ("pygtk" ,python2-pygtk)
 931        ("gettext" ,gettext-minimal)
 932        ("gtk" ,gtk+)
 933        ("lilypond" ,lilypond)
 934        ;; players needed at runtime
 935        ("aplay" ,alsa-utils)
 936        ("csound" ,csound) ; optional, needed for some exercises
 937        ("mpg123" ,mpg123)
 938        ("ogg123" ,vorbis-tools)
 939        ("timidity" ,timidity++)))
 940     (native-inputs
 941      `(("pkg-config" ,pkg-config)
 942        ("txt2man" ,txt2man)
 943        ("libxml2" ,libxml2) ; for tests
 944        ("ghostscript" ,ghostscript)
 945        ("texinfo" ,texinfo)))
 946     (home-page "https://www.gnu.org/software/solfege/")
 947     (synopsis "Ear training")
 948     (description
 949      "GNU Solfege is a program for practicing musical ear-training.  With it,
 950 you can practice your recognition of various musical intervals and chords.  It
 951 features a statistics overview so you can monitor your progress across several
 952 sessions.  Solfege is also designed to be extensible so you can easily write
 953 your own lessons.")
 954     (license license:gpl3+)))
 955
 956 (define-public powertabeditor
 957   (package
 958     (name "powertabeditor")
 959     (version "2.0.0-alpha10")
 960     (source (origin
 961               (method url-fetch)
 962               (uri (string-append
 963                     "https://github.com/powertab/powertabeditor/archive/"
 964                     version ".tar.gz"))
 965               (file-name (string-append name "-" version ".tar.gz"))
 966               (sha256
 967                (base32
 968                 "1fr14ql0yhlqvh6y08yaanszm2nvca5i50rqym396kfvga3ky18x"))
 969               (modules '((guix build utils)))
 970               (snippet
 971                '(begin
 972                   ;; Remove bundled sources for external libraries
 973                   (delete-file-recursively "external")
 974                   ;; Use only system libraries
 975                   (substitute* "CMakeLists.txt"
 976                     (("include\\( PTE_ThirdParty \\)")
 977                      "\
 978 include(third_party/Qt)
 979 include(third_party/boost)
 980 add_library( Catch INTERFACE IMPORTED )
 981 add_library( rapidjson INTERFACE IMPORTED )"))
 982                   #t))))
 983     (build-system cmake-build-system)
 984     (arguments
 985      `(#:modules ((guix build cmake-build-system)
 986                   (guix build utils)
 987                   (ice-9 match))
 988        #:configure-flags
 989        ;; CMake appears to lose the RUNPATH for some reason, so it has to be
 990        ;; explicitly set with CMAKE_INSTALL_RPATH.
 991        (list "-DCMAKE_BUILD_WITH_INSTALL_RPATH=TRUE"
 992              (string-append "-DCMAKE_INSTALL_RPATH="
 993                             (string-join (map (match-lambda
 994                                                 ((name . directory)
 995                                                  (string-append directory "/lib")))
 996                                               %build-inputs) ";"))
 997              "-DPTE_DATA_DIR=share/powertabeditor")
 998        #:phases
 999        (modify-phases %standard-phases
1000          (replace 'check
1001            (lambda _
1002              (zero? (system* "bin/pte_tests"
1003                              ;; FIXME: these tests fail
1004                              "exclude:Actions/EditStaff"
1005                              "exclude:Formats/PowerTabOldImport/MergeMultiBarRests"
1006                              "exclude:Score/ViewFilter/FilterRule"
1007                              "exclude:Score/ViewFilter/ViewFilter"
1008                              "exclude:Formats/PowerTabOldImport/Directions"
1009                              ))))
1010          (add-before 'configure 'remove-third-party-libs
1011            (lambda* (#:key inputs #:allow-other-keys)
1012              ;; Link with required static libraries, because we're not
1013              ;; using the bundled version of withershins.
1014              ;; Also add pthread for fixing a linker error.
1015              (substitute* "source/build/CMakeLists.txt"
1016                (("withershins" line)
1017                 (string-append line "\n"
1018                                (assoc-ref inputs "binutils")
1019                                "/lib/libbfd.a\n"
1020                                (assoc-ref inputs "libiberty")
1021                                "/lib/libiberty.a\n"
1022                                "dl\n"
1023                                "pthread\n"
1024                                "z\n")))
1025              #t)))))
1026     (inputs
1027      `(("boost" ,boost)
1028        ("alsa-lib" ,alsa-lib)
1029        ("qtbase" ,qtbase)
1030        ("withershins" ,withershins)
1031        ("libiberty" ,libiberty) ;for withershins
1032        ("binutils" ,binutils) ;for -lbfd and -liberty (for withershins)
1033        ("timidity" ,timidity++)
1034        ("pugixml" ,pugixml)
1035        ("rtmidi" ,rtmidi)
1036        ("rapidjson" ,rapidjson)
1037        ("zlib" ,zlib)))
1038     (native-inputs
1039      `(("catch" ,catch-framework)
1040        ("pkg-config" ,pkg-config)))
1041     (home-page "http://powertabs.net")
1042     (synopsis "Guitar tablature editor")
1043     (description
1044      "Power Tab Editor 2.0 is the successor to the famous original Power Tab
1045 Editor.  It is compatible with Power Tab Editor 1.7 and Guitar Pro.")
1046     (license license:gpl3+)))
1047
1048 (define-public jalv-select
1049   (package
1050     (name "jalv-select")
1051     (version "0.8")
1052     (source (origin
1053               (method url-fetch)
1054               (uri (string-append "https://github.com/brummer10/jalv_select/"
1055                                   "archive/V" version ".tar.gz"))
1056               (sha256
1057                (base32
1058                 "0zraagwr681b5s3qifxf399c7q93jz23c8sr42gmff9zqnvxc75q"))))
1059     (build-system gnu-build-system)
1060     (arguments
1061      `(#:make-flags
1062        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1063        #:phases
1064        (modify-phases %standard-phases
1065          (delete 'configure)
1066          (add-after 'unpack 'ignore-PATH
1067            (lambda* (#:key inputs #:allow-other-keys)
1068              (substitute* "jalv.select.cpp"
1069                (("echo \\$PATH.*tr ':'.*xargs ls")
1070                 (string-append "ls -1 " (assoc-ref inputs "jalv") "/bin")))
1071              (substitute* "jalv.select.h"
1072                (("gtkmm.h") "gtkmm-2.4/gtkmm.h"))
1073              #t)))))
1074     (inputs
1075      `(("lilv" ,lilv)
1076        ("lv2" ,lv2)
1077        ("jalv" ,jalv)
1078        ("gtkmm" ,gtkmm-2)))
1079     (native-inputs
1080      `(("pkg-config" ,pkg-config)))
1081     (home-page "https://github.com/brummer10/jalv_select")
1082     (synopsis "GUI to select LV2 plugins and run them with jalv")
1083     (description
1084      "The jalv.select package provides a graphical user interface allowing
1085 users to select LV2 plugins and run them with jalv.")
1086     (license license:public-domain)))
1087
1088 (define-public synthv1
1089   (package
1090     (name "synthv1")
1091     (version "0.8.4")
1092     (source (origin
1093               (method url-fetch)
1094               (uri
1095                (string-append "mirror://sourceforge/synthv1/synthv1/" version
1096                               "/synthv1-" version ".tar.gz"))
1097               (sha256
1098                (base32
1099                 "0awk2zx0xa6vl6ah24zz0k2mwsx50hh5g1rh32mp790fp4x7l5s8"))))
1100     (build-system gnu-build-system)
1101     (arguments
1102      `(#:tests? #f ; There are no tests.
1103        #:configure-flags
1104        '("CXXFLAGS=-std=gnu++11")))
1105     (inputs
1106      `(("jack" ,jack-1)
1107        ("lv2" ,lv2)
1108        ("alsa-lib" ,alsa-lib)
1109        ("non-session-manager" ,non-session-manager)
1110        ("liblo" ,liblo)
1111        ("qtbase" ,qtbase)
1112        ("qttools" ,qttools)))
1113     (native-inputs
1114      `(("pkg-config" ,pkg-config)))
1115     (home-page "http://synthv1.sourceforge.net")
1116     (synopsis "Polyphonic subtractive synthesizer")
1117     (description
1118      "Synthv1 is an old-school subtractive polyphonic synthesizer with four
1119 oscillators and stereo effects.")
1120     (license license:gpl2+)))
1121
1122 (define-public drumkv1
1123   (package
1124     (name "drumkv1")
1125     (version "0.8.4")
1126     (source (origin
1127               (method url-fetch)
1128               (uri
1129                (string-append "mirror://sourceforge/drumkv1/drumkv1/" version
1130                               "/drumkv1-" version ".tar.gz"))
1131               (sha256
1132                (base32
1133                 "0qqpklzy4wgw9jy0v2810j06712q90bwc69fp7da82536ba058a9"))))
1134     (build-system gnu-build-system)
1135     (arguments
1136      `(#:tests? #f ; There are no tests.
1137        #:configure-flags
1138        '("CXXFLAGS=-std=gnu++11")))
1139     (inputs
1140      `(("jack" ,jack-1)
1141        ("lv2" ,lv2)
1142        ("libsndfile" ,libsndfile)
1143        ("alsa-lib" ,alsa-lib)
1144        ("non-session-manager" ,non-session-manager)
1145        ("liblo" ,liblo)
1146        ("qtbase" ,qtbase)))
1147     (native-inputs
1148      `(("pkg-config" ,pkg-config)
1149        ("qttools" ,qttools)))
1150     (home-page "http://drumkv1.sourceforge.net")
1151     (synopsis "Drum-kit sampler synthesizer with stereo effects")
1152     (description
1153      "Drumkv1 is an old-school drum-kit sampler synthesizer with stereo
1154 effects.")
1155     (license license:gpl2+)))
1156
1157 (define-public samplv1
1158   (package
1159     (name "samplv1")
1160     (version "0.8.4")
1161     (source (origin
1162               (method url-fetch)
1163               (uri
1164                (string-append "mirror://sourceforge/samplv1/samplv1/" version
1165                               "/samplv1-" version ".tar.gz"))
1166               (sha256
1167                (base32
1168                 "107p2xsj066q2bil0xcgqrrn7lawp02wzf7qmlajcbnd79jhsi6i"))))
1169     (build-system gnu-build-system)
1170     (arguments
1171      `(#:tests? #f ; There are no tests.
1172        #:configure-flags
1173        '("CXXFLAGS=-std=gnu++11")))
1174     (inputs
1175      `(("jack" ,jack-1)
1176        ("lv2" ,lv2)
1177        ("libsndfile" ,libsndfile)
1178        ("alsa-lib" ,alsa-lib)
1179        ("non-session-manager" ,non-session-manager)
1180        ("liblo" ,liblo)
1181        ("qtbase" ,qtbase)))
1182     (native-inputs
1183      `(("pkg-config" ,pkg-config)
1184        ("qttools" ,qttools)))
1185     (home-page "http://samplv1.sourceforge.net")
1186     (synopsis "Polyphonic sampler synthesizer with stereo effects")
1187     (description
1188      "Samplv1 is an old-school polyphonic sampler synthesizer with stereo
1189 effects.")
1190     (license license:gpl2+)))
1191
1192 (define-public amsynth
1193   (package
1194     (name "amsynth")
1195     (version "1.7.1")
1196     (source
1197      (origin
1198        (method url-fetch)
1199        (uri (string-append "https://github.com/amsynth/amsynth/releases/"
1200                            "download/release-" version
1201                            "/amsynth-" version ".tar.bz2"))
1202        (sha256
1203         (base32
1204          "1882pfcmf3rqg3vd4qflzkppcv158d748i603spqjbxqi8z7x7w0"))))
1205     (build-system gnu-build-system)
1206     (arguments
1207      `(#:phases
1208        (modify-phases %standard-phases
1209          (add-before 'configure 'set-flags
1210            (lambda _
1211              ;; Compile with C++11, required by gtkmm.
1212              (setenv "CXXFLAGS" "-std=c++11")
1213              #t)))))
1214     (inputs
1215      `(("alsa-lib" ,alsa-lib)
1216        ("jack" ,jack-1)
1217        ("lv2" ,lv2)
1218        ("lash" ,lash)
1219        ("libsndfile" ,libsndfile)
1220        ("gtk+" ,gtk+-2)
1221        ("gtkmm" ,gtkmm-2)))
1222     (native-inputs
1223      `(("pkg-config" ,pkg-config)
1224        ("intltool" ,intltool)))
1225     (home-page "http://amsynth.github.io")
1226     (synopsis "Analog modeling synthesizer")
1227     (description
1228      "amsynth is an easy-to-use software synthesizer with a classic
1229 subtractive synthesizer topology.  Its features include: dual
1230 oscillators (sine, saw, square, noise) with hard sync; 12 and 24 dB/oct
1231 resonant filters (low-pass, high-pass, band-pass, notch); mono, poly, legato
1232 keyboard modes; dual ADSR envelope generators for filter and amplitude; LFO
1233 which can modulate the oscillators, filter, and amplitude; distortion and
1234 reverb effects.")
1235     (license license:gpl2+)))
1236
1237 (define-public setbfree
1238   (package
1239     (name "setbfree")
1240     (version "0.8.4")
1241     (source (origin
1242               (method url-fetch)
1243               (uri
1244                (string-append "https://github.com/pantherb/setBfree/archive/v"
1245                               version ".tar.gz"))
1246               (file-name (string-append name "-" version ".tar.gz"))
1247               (sha256
1248                (base32
1249                 "1g4s1920kb2q5gpp82l2vxia29qa8g8zvdjgrca8ypynvxpzn65f"))))
1250     (build-system gnu-build-system)
1251     (arguments
1252      `(#:tests? #f ; no "check" target
1253        #:make-flags
1254        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1255              (string-append "FONTFILE="
1256                             (assoc-ref %build-inputs "font-bitstream-vera")
1257                             "/share/fonts/truetype/VeraBd.ttf")
1258              ;; Disable unsupported optimization flags on non-x86
1259              ,@(let ((system (or (%current-target-system)
1260                                  (%current-system))))
1261                  (if (or (string-prefix? "x86_64" system)
1262                          (string-prefix? "i686" system))
1263                      '()
1264                      '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
1265        #:phases
1266        (modify-phases %standard-phases
1267          (add-before 'build 'set-CC-variable
1268                      (lambda _ (setenv "CC" "gcc") #t))
1269          (delete 'configure))))
1270     (inputs
1271      `(("jack" ,jack-1)
1272        ("lv2" ,lv2)
1273        ("zita-convolver" ,zita-convolver)
1274        ("glu" ,glu)
1275        ("ftgl" ,ftgl)
1276        ("font-bitstream-vera" ,font-bitstream-vera)))
1277     (native-inputs
1278      `(("help2man" ,help2man)
1279        ("pkg-config" ,pkg-config)))
1280     (home-page "http://setbfree.org")
1281     (synopsis "Tonewheel organ")
1282     (description
1283      "setBfree is a MIDI-controlled, software synthesizer designed to imitate
1284 the sound and properties of the electromechanical organs and sound
1285 modification devices that brought world-wide fame to the names and products of
1286 Laurens Hammond and Don Leslie.")
1287     (license license:gpl2+)))
1288
1289 (define-public beast
1290   (package
1291     (name "beast")
1292     (version "0.10.0")
1293     (source (origin
1294               (method url-fetch)
1295               (uri (string-append "https://testbit.eu/pub/dists/beast/beast-"
1296                                   version ".tar.xz"))
1297               (sha256
1298                (base32
1299                 "1jzzmfwssklzw8fvvil04n8csc0zm99fnd9p2xa7c0xchg37lvhn"))))
1300     (build-system gnu-build-system)
1301     (arguments
1302      '(#:parallel-build? #f)) ; Race conditions cause build failures
1303     (inputs
1304      `(("rapicorn" ,rapicorn)
1305        ("guile" ,guile-1.8)
1306        ("python" ,python-2)
1307        ("libgnomecanvas" ,libgnomecanvas)
1308        ("libogg" ,libogg)
1309        ("libmad" ,libmad)
1310        ("flac" ,flac)
1311        ("alsa-lib" ,alsa-lib)
1312        ("libvorbis" ,libvorbis)
1313        ("gettext" ,gettext-minimal)))
1314     (native-inputs
1315      `(("pkg-config" ,pkg-config)
1316        ("glib:bin" ,glib "bin")
1317        ("cython" ,python2-cython)
1318        ("perl" ,perl)
1319        ("perl-xml-parser" ,perl-xml-parser)))
1320     (home-page "https://testbit.eu/wiki/Beast_Home")
1321     (synopsis "Music composition and modular synthesis environment")
1322     (description
1323      "Beast is a music composition and modular synthesis application.  It
1324 supports a wide range of standards in the field, such as MIDI, various audio
1325 file formats and LADSPA modules.  It allows for multitrack editing, real-time
1326 synthesis, 32bit audio rendering, precise timing down to sample granularity,
1327 on-demand and partial loading of wave files, on the fly decoding, stereo
1328 mixing, FFT scopes, MIDI automation and full scriptability in Scheme.")
1329     (license license:gpl3+)))
1330
1331 (define-public bristol
1332   (package
1333     (name "bristol")
1334     (version "0.60.11")
1335     (source (origin
1336               (method url-fetch)
1337               (uri (string-append "mirror://sourceforge/bristol/bristol/"
1338                                   (version-major+minor version)
1339                                   "/bristol-" version ".tar.gz"))
1340               (sha256
1341                (base32
1342                 "1fi2m4gmvxdi260821y09lxsimq82yv4k5bbgk3kyc3x1nyhn7vx"))))
1343     (build-system gnu-build-system)
1344     (arguments
1345      `(#:phases
1346        (modify-phases %standard-phases
1347          (add-after 'unpack 'remove-sse-flags
1348            (lambda* (#:key system #:allow-other-keys)
1349              (when (not (or (string-prefix? "x86_64" system)
1350                             (string-prefix? "i686" system)))
1351                (substitute* "bristol/Makefile.in"
1352                  (("-msse -mfpmath=sse") "")))
1353              #t))
1354          ;; alsa-lib 1.1.x no longer provides iatomic.h.  That's okay because
1355          ;; bristol actually doesn't use it.
1356          (add-after 'unpack 'do-not-use-alsa-iatomic
1357            (lambda _
1358              (substitute* "libbristolaudio/audioEngineJack.c"
1359                (("#include <alsa/iatomic.h>") ""))
1360              #t))
1361          ;; We know that Bristol has been linked with JACK and we don't have
1362          ;; ldd, so we can just skip this check.
1363          (add-after 'unpack 'do-not-grep-for-jack
1364            (lambda _
1365              (substitute* "bin/startBristol.in"
1366                (("ldd `which bristol` | grep jack") "echo guix"))
1367              #t)))))
1368     (inputs
1369      `(("alsa-lib" ,alsa-lib)
1370        ("jack" ,jack-1)
1371        ("liblo" ,liblo)
1372        ("libx11" ,libx11)))
1373     (native-inputs
1374      `(("pkg-config" ,pkg-config)))
1375     (home-page "http://bristol.sourceforge.net/")
1376     (synopsis "Synthesizer emulator")
1377     (description
1378      "Bristol is an emulation package for a number of different 'classic'
1379 synthesizers including additive and subtractive and a few organs.  The
1380 application consists of the engine, which is called bristol, and its own GUI
1381 library called brighton that represents all the emulations.  There are
1382 currently more than twenty different emulations; each does sound different
1383 although the author maintains that the quality and accuracy of each emulation
1384 is subjective.")
1385     (license license:gpl3+)))
1386
1387 (define-public tuxguitar
1388   (package
1389     (name "tuxguitar")
1390     (version "1.4")
1391     (source (origin
1392               (method url-fetch)
1393               (uri (string-append
1394                     "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
1395                     version "/tuxguitar-" version "-src.tar.gz"))
1396               (sha256
1397                (base32
1398                 "041275vwfr82kass7wiq9g2y82w9qrbzfinzcvfij2f2q45njwmc"))
1399               (modules '((guix build utils)))
1400               (snippet
1401                '(begin
1402                   ;; Delete pre-built classes
1403                   (delete-file-recursively "TuxGuitar-android-gdrive/bin")
1404                   (delete-file-recursively "TuxGuitar-android-gdrive-gdaa/bin")
1405                   #t))))
1406     (build-system ant-build-system)
1407     (arguments
1408      `(#:build-target "build"
1409        #:tests? #f ; no tests
1410        #:phases
1411        (modify-phases %standard-phases
1412          (add-after 'unpack 'enter-dir
1413            (lambda _ (chdir "TuxGuitar-lib") #t))
1414          (add-after 'build 'build-libraries
1415            (lambda* (#:key inputs outputs #:allow-other-keys)
1416              (let* ((initial-classpath (getenv "CLASSPATH"))
1417                     (build-dir (lambda (dir)
1418                                  (chdir "..")
1419                                  (setenv "CLASSPATH"
1420                                          (string-join (cons initial-classpath
1421                                                             (find-files (getcwd) "\\.jar$"))
1422                                                       ":"))
1423                                  (chdir dir)
1424                                  (if (file-exists? "build.xml")
1425                                      ((assoc-ref %standard-phases 'build)
1426                                       #:build-target "build")
1427                                      (begin
1428                                        ;; Generate default build.xml
1429                                        ((@@ (guix build ant-build-system) default-build.xml)
1430                                         (string-append (string-downcase dir) ".jar")
1431                                         (string-append (assoc-ref outputs "out")
1432                                                        "/share/java"))
1433                                        ((assoc-ref %standard-phases 'build)))))))
1434                (map build-dir '("TuxGuitar-editor-utils"
1435                                 "TuxGuitar-ui-toolkit"
1436                                 "TuxGuitar-ui-toolkit-swt"
1437                                 "TuxGuitar-awt-graphics")))))
1438          (add-after 'build-libraries 'build-application
1439            (lambda _
1440              (chdir "../TuxGuitar")
1441              ((assoc-ref %standard-phases 'build)
1442               #:build-target "build")))
1443          (replace 'install
1444            (lambda* (#:key inputs outputs #:allow-other-keys)
1445              (let* ((out   (assoc-ref outputs "out"))
1446                     (bin   (string-append out "/bin"))
1447                     (share (string-append out "/share"))
1448                     (lib   (string-append share "/java"))
1449                     (swt   (assoc-ref inputs "java-swt")))
1450                (mkdir-p bin)
1451                ;; install all jars
1452                (for-each (lambda (file)
1453                            (install-file file lib))
1454                          (find-files ".." "\\.jar$"))
1455
1456                ;; install all resources
1457                (copy-recursively "share" share)
1458
1459                ;; create wrapper
1460                (call-with-output-file (string-append bin "/tuxguitar")
1461                  (lambda (port)
1462                    (let ((classpath (string-join (append (find-files lib "\\.jar$")
1463                                                          (find-files swt "\\.jar$"))
1464                                                  ":")))
1465                      (format
1466                       port
1467                       (string-append "#!/bin/sh\n"
1468                                      (which "java")
1469                                      " -cp " classpath
1470                                      " -Dtuxguitar.home.path=" out
1471                                      " -Dtuxguitar.share.path=" out "/share"
1472                                      " -Dswt.library.path=" swt "/lib"
1473                                      " org.herac.tuxguitar.app.TGMainSingleton"
1474                                      " \"$1\" \"$2\"")))))
1475                (chmod (string-append bin "/tuxguitar") #o555)
1476                #t))))))
1477     (inputs
1478      `(("java-swt" ,java-swt)))
1479     (home-page "http://tuxguitar.pw")
1480     (synopsis "Multitrack tablature editor and player")
1481     (description
1482      "TuxGuitar is a guitar tablature editor with player support through midi.
1483 It can display scores and multitrack tabs.  TuxGuitar provides various
1484 additional features, including autoscrolling while playing, note duration
1485 management, bend/slide/vibrato/hammer-on/pull-off effects, support for
1486 tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
1487 export.")
1488     (license license:lgpl2.1+)))
1489
1490 (define-public pd
1491   (package
1492     (name "pd")
1493     (version "0.47-1")
1494     (source (origin
1495               (method url-fetch)
1496               (uri
1497                (string-append "http://msp.ucsd.edu/Software/pd-"
1498                               version ".src.tar.gz"))
1499               (sha256
1500                (base32
1501                 "0k5s949kqd7yw97h3m8z81bjz32bis9m4ih8df1z0ymipnafca67"))))
1502     (build-system gnu-build-system)
1503     (arguments
1504      `(#:tests? #f ; no "check" target
1505        #:phases
1506        (modify-phases %standard-phases
1507          (add-before 'configure 'fix-wish-path
1508            (lambda _
1509              (substitute* "src/s_inter.c"
1510                (("  wish ") (string-append "  " (which "wish8.6") " ")))
1511              (substitute* "tcl/pd-gui.tcl"
1512                (("exec wish ") (string-append "exec " (which "wish8.6") " ")))
1513              #t))
1514          (add-after 'unpack 'autoconf
1515            (lambda _ (zero? (system* "bash" "./autogen.sh")))))))
1516     (native-inputs
1517      `(("autoconf" ,autoconf)
1518        ("automake" ,automake)
1519        ("libtool" ,libtool)
1520        ("gettext" ,gettext-minimal)
1521        ("pkg-config" ,pkg-config)))
1522     (inputs
1523      `(("tk" ,tk)
1524        ("alsa-lib" ,alsa-lib)
1525        ("jack" ,jack-1)))
1526     (home-page "http://puredata.info")
1527     (synopsis "Visual programming language for artistic performances")
1528     (description
1529      "Pure Data (aka Pd) is a visual programming language.  Pd enables
1530 musicians, visual artists, performers, researchers, and developers to create
1531 software graphically, without writing lines of code.  Pd is used to process
1532 and generate sound, video, 2D/3D graphics, and interface sensors, input
1533 devices, and MIDI.  Pd can easily work over local and remote networks to
1534 integrate wearable technology, motor systems, lighting rigs, and other
1535 equipment.  Pd is suitable for learning basic multimedia processing and visual
1536 programming methods as well as for realizing complex systems for large-scale
1537 projects.")
1538     (license license:bsd-3)))
1539
1540 (define-public portmidi
1541   (package
1542     (name "portmidi")
1543     (version "217")
1544     (source (origin
1545               (method url-fetch)
1546               (uri (string-append "mirror://sourceforge/portmedia/portmidi/"
1547                                   version "/portmidi-src-" version ".zip"))
1548               (sha256
1549                (base32
1550                 "03rfsk7z6rdahq2ihy5k13qjzgx757f75yqka88v3gc0pn9ais88"))
1551               (patches (list (search-patch "portmidi-modular-build.patch")))))
1552     (build-system cmake-build-system)
1553     (arguments
1554      `(#:tests? #f ; tests cannot be linked
1555        #:configure-flags
1556        (list "-DPORTMIDI_ENABLE_JAVA=Off"
1557              "-DCMAKE_BUILD_TYPE=Release"    ; needed to have PMALSA set
1558              "-DPORTMIDI_ENABLE_TEST=Off"))) ; tests fail linking
1559     (inputs
1560      `(("alsa-lib" ,alsa-lib)))
1561     (native-inputs
1562      `(("unzip" ,unzip)))
1563     (home-page "http://portmedia.sourceforge.net/portmidi/")
1564     (synopsis "Library for MIDI I/O")
1565     (description
1566      "PortMidi is a library supporting real-time input and output of MIDI data
1567 using a system-independent interface.")
1568     (license license:expat)))
1569
1570 (define-public portmidi-for-extempore
1571   (package (inherit portmidi)
1572     (name "portmidi-for-extempore")
1573     (version "217")
1574     (source (origin
1575               (method url-fetch)
1576               (uri (string-append "https://github.com/extemporelang/portmidi/"
1577                                   "archive/" version ".tar.gz"))
1578               (file-name (string-append name "-" version ".tar.gz"))
1579               (sha256
1580                (base32
1581                 "0gjikwciyr8kk4y3qiv1pcq58xpgw38ql1m2gs6g0qc1s8sx4235"))))
1582     (build-system cmake-build-system)
1583     (arguments `(#:tests? #f)) ; no tests
1584     (native-inputs '())
1585     ;; Extempore refuses to build on architectures other than x86_64
1586     (supported-systems '("x86_64-linux"))
1587     (home-page "https://github.com/extemporelang/portmidi/")))
1588
1589 (define-public python-pyportmidi
1590   (package
1591     (name "python-pyportmidi")
1592     (version (package-version portmidi))
1593     (source (package-source portmidi))
1594     (build-system python-build-system)
1595     (arguments
1596      `(#:tests? #f ; no tests included
1597        #:phases
1598        (modify-phases %standard-phases
1599          (add-after 'unpack 'enter-dir
1600            (lambda _ (chdir "pm_python") #t))
1601          (add-after 'enter-dir 'fix-setup.py
1602            (lambda _
1603              (substitute* "setup.py"
1604                ;; Use Python 3 syntax
1605                (("print (\".*\")" _ text)
1606                 (string-append "print(" text ")\n"))
1607                ;; TODO.txt and CHANGES.txt don't exist
1608                (("CHANGES =.*") "CHANGES = \"\"\n")
1609                (("TODO =.*") "TODO = \"\"\n"))
1610              #t)))))
1611     (inputs
1612      `(("portmidi" ,portmidi)
1613        ("alsa-lib" ,alsa-lib)))
1614     (native-inputs
1615      `(("python-cython" ,python-cython)
1616        ("unzip" ,unzip)))
1617     (home-page "http://portmedia.sourceforge.net/portmidi/")
1618     (synopsis "Python bindings to PortMidi")
1619     (description
1620      "This package provides Python bindings to the PortMidi library.")
1621     (license license:expat)))
1622
1623 (define-public frescobaldi
1624   (package
1625     (name "frescobaldi")
1626     (version "3.0.0")
1627     (source (origin
1628               (method url-fetch)
1629               (uri (string-append
1630                     "https://github.com/wbsoft/frescobaldi/releases/download/v"
1631                     version "/frescobaldi-" version ".tar.gz"))
1632               (sha256
1633                (base32
1634                 "15cqhbjbjikr7ljgiq56bz2gxrr38j8p0f78p2vhyzydaviy9a2z"))))
1635     (build-system python-build-system)
1636     (arguments `(#:tests? #f)) ; no tests included
1637     (inputs
1638      `(("lilypond" ,lilypond)
1639        ("portmidi" ,portmidi)
1640        ("python-pyqt" ,python-pyqt)
1641        ("python-ly" ,python-ly)
1642        ("python-pyportmidi" ,python-pyportmidi)
1643        ("poppler" ,poppler)
1644        ("python-poppler-qt5" ,python-poppler-qt5)
1645        ("python-sip" ,python-sip)))
1646     (home-page "http://www.frescobaldi.org/")
1647     (synopsis "LilyPond sheet music text editor")
1648     (description
1649      "Frescobaldi is a LilyPond sheet music text editor with syntax
1650 highlighting and automatic completion.  Among other things, it can render
1651 scores next to the source, can capture input from MIDI or read MusicXML and
1652 ABC files, has a MIDI player for proof-listening, and includes a documentation
1653 browser.")
1654     (license license:gpl2+)))
1655
1656 (define-public drumstick
1657   (package
1658     (name "drumstick")
1659     (version "1.1.0")
1660     (source (origin
1661               (method url-fetch)
1662               (uri (string-append "mirror://sourceforge/drumstick/"
1663                                   version "/drumstick-" version ".tar.bz2"))
1664               (sha256
1665                (base32
1666                 "13pkfqrav30bbcddgf1imd7jk6lpqbxkz1qv31718pdl446jq7df"))))
1667     (build-system cmake-build-system)
1668     (arguments
1669      `(#:tests? #f  ; no test target
1670        #:configure-flags '("-DLIB_SUFFIX=")
1671        #:phases
1672        (modify-phases %standard-phases
1673          (add-before 'configure 'fix-docbook
1674            (lambda* (#:key inputs #:allow-other-keys)
1675              (substitute* "cmake_admin/CreateManpages.cmake"
1676                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
1677                 (string-append (assoc-ref inputs "docbook-xsl")
1678                                "/xml/xsl/docbook-xsl-"
1679                                ,(package-version docbook-xsl)
1680                                "/manpages/docbook.xsl")))
1681              #t)))))
1682     (inputs
1683      `(("qtbase" ,qtbase)
1684        ("qtsvg" ,qtsvg)
1685        ("alsa-lib" ,alsa-lib)
1686        ("fluidsynth" ,fluidsynth)))
1687     (native-inputs
1688      `(("pkg-config" ,pkg-config)
1689        ("libxslt" ,libxslt) ;for xsltproc
1690        ("docbook-xsl" ,docbook-xsl)
1691        ("doxygen" ,doxygen)))
1692     (home-page "http://drumstick.sourceforge.net/")
1693     (synopsis "C++ MIDI library")
1694     (description
1695      "Drumstick is a set of MIDI libraries using C++/Qt5 idioms and style.  It
1696 includes a C++ wrapper around the ALSA library sequencer interface.  A
1697 complementary library provides classes for processing SMF (Standard MIDI
1698 files: .MID/.KAR), Cakewalk (.WRK), and Overture (.OVE) file formats.  A
1699 multiplatform realtime MIDI I/O library is also provided with various output
1700 backends, including ALSA, OSS, Network and FluidSynth.")
1701     (license license:gpl2+)))
1702
1703 (define-public zynaddsubfx
1704   (package
1705     (name "zynaddsubfx")
1706     (version "3.0.2")
1707     (source (origin
1708               (method url-fetch)
1709               (uri (string-append
1710                     "mirror://sourceforge/zynaddsubfx/zynaddsubfx/"
1711                     version "/zynaddsubfx-" version ".tar.bz2"))
1712               (sha256
1713                (base32
1714                 "09mr23lqc51r7gskry5b7hk84pghdpgn1s4vnrzvx7xpa21gvplm"))))
1715     (build-system cmake-build-system)
1716     (arguments
1717      `(#:phases
1718        (modify-phases %standard-phases
1719          ;; Move SSE compiler optimization flags from generic target to
1720          ;; athlon64 and core2 targets, because otherwise the build would fail
1721          ;; on non-Intel machines.
1722          (add-after 'unpack 'remove-sse-flags-from-generic-target
1723           (lambda _
1724             (substitute* "src/CMakeLists.txt"
1725               (("-msse -msse2 -mfpmath=sse") "")
1726               (("-march=(athlon64|core2)" flag)
1727                (string-append flag " -msse -msse2 -mfpmath=sse")))
1728             #t)))))
1729     (inputs
1730      `(("liblo" ,liblo)
1731        ("ntk" ,ntk)
1732        ("mesa" ,mesa)
1733        ("alsa-lib" ,alsa-lib)
1734        ("jack" ,jack-1)
1735        ("fftw" ,fftw)
1736        ("minixml" ,minixml)
1737        ("libxpm" ,libxpm)
1738        ("zlib" ,zlib)))
1739     (native-inputs
1740      `(("pkg-config" ,pkg-config)))
1741     (home-page "http://zynaddsubfx.sf.net/")
1742     (synopsis "Software synthesizer")
1743     (description
1744      "ZynAddSubFX is a feature heavy realtime software synthesizer.  It offers
1745 three synthesizer engines, multitimbral and polyphonic synths, microtonal
1746 capabilities, custom envelopes, effects, etc.")
1747     (license license:gpl2)))
1748
1749 (define-public yoshimi
1750   (package
1751     (name "yoshimi")
1752     (version "1.5.3")
1753     (source (origin
1754               (method url-fetch)
1755               (uri (string-append "mirror://sourceforge/yoshimi/"
1756                                   (version-major+minor version)
1757                                   "/yoshimi-" version ".tar.bz2"))
1758               (sha256
1759                (base32
1760                 "0sns35pyw2f74xrv1fxiyf9g9415kvh2rrbdjd60hsiv584nlari"))))
1761     (build-system cmake-build-system)
1762     (arguments
1763      `(#:tests? #f ; there are no tests
1764        #:configure-flags
1765        (list (string-append "-DCMAKE_INSTALL_DATAROOTDIR="
1766                             (assoc-ref %outputs "out") "/share"))
1767        #:phases
1768        (modify-phases %standard-phases
1769          (add-before 'configure 'enter-dir
1770            (lambda _ (chdir "src") #t))
1771          ;; Move SSE compiler optimization flags from generic target to
1772          ;; athlon64 and core2 targets, because otherwise the build would fail
1773          ;; on non-Intel machines.
1774          (add-after 'unpack 'remove-sse-flags-from-generic-target
1775           (lambda _
1776             (substitute* "src/CMakeLists.txt"
1777               (("-msse -msse2 -mfpmath=sse") "")
1778               (("-march=(athlon64|core2)" flag)
1779                (string-append flag " -msse -msse2 -mfpmath=sse")))
1780             #t))
1781          ;; Yoshimi tries to find ncurses with pkg-config, but our ncurses
1782          ;; package does not install .pc files.
1783          (add-after 'unpack 'find-ncurses
1784            (lambda _
1785              (substitute* "src/CMakeLists.txt"
1786                (("LIBNCURSES REQUIRED") "LIBNCURSES")
1787                (("NCURSES REQUIRED") "NCURSES")
1788                (("FATAL_ERROR \"libncurses") "STATUS \"libncurses")
1789                (("\\$\\{NCURSES_LIBRARIES\\}") "ncurses"))
1790              #t)))))
1791     (inputs
1792      `(("boost" ,boost)
1793        ("fftwf" ,fftwf)
1794        ("alsa-lib" ,alsa-lib)
1795        ("jack" ,jack-1)
1796        ("fontconfig" ,fontconfig)
1797        ("minixml" ,minixml)
1798        ("mesa" ,mesa)
1799        ("fltk" ,fltk)
1800        ("lv2" ,lv2)
1801        ("readline" ,readline)
1802        ("ncurses" ,ncurses)
1803        ("cairo" ,cairo)
1804        ("zlib" ,zlib)))
1805     (native-inputs
1806      `(("pkg-config" ,pkg-config)))
1807     (home-page "http://yoshimi.sourceforge.net/")
1808     (synopsis "Multi-paradigm software synthesizer")
1809     (description
1810      "Yoshimi is a fork of ZynAddSubFX, a feature heavy realtime software
1811 synthesizer.  It offers three synthesizer engines, multitimbral and polyphonic
1812 synths, microtonal capabilities, custom envelopes, effects, etc.  Yoshimi
1813 improves on support for JACK features, such as JACK MIDI.")
1814     (license license:gpl2)))
1815
1816 (define-public libgig
1817   (package
1818     (name "libgig")
1819     (version "4.0.0")
1820     (source (origin
1821               (method url-fetch)
1822               (uri (string-append "http://download.linuxsampler.org/packages/"
1823                                   "libgig-" version ".tar.bz2"))
1824               (sha256
1825                (base32
1826                 "1wr8mwjmqpnyz6bx9757lspiii1zzn8zfbqsvn2ipzpgqkxv6kaz"))))
1827     (build-system gnu-build-system)
1828     (inputs
1829      `(("libuuid" ,util-linux)
1830        ("libsndfile" ,libsndfile)))
1831     (native-inputs
1832      `(("pkg-config" ,pkg-config)))
1833     (home-page "http://linuxsampler.org/libgig/")
1834     (synopsis "C++ library for working with Gigasampler (.gig) files")
1835     (description
1836      "Libgig is a C++ library for loading, modifying existing and creating new
1837 Gigasampler (.gig) files and DLS (Downloadable Sounds) Level 1/2 files, KORG
1838 sample based instruments (.KSF and .KMP files), SoundFont v2 (.sf2) files and
1839 AKAI sampler data.  The package includes a couple of command line tools based
1840 on the library.")
1841     ;; The library and tools are released under the GPL, except the AKAI
1842     ;; classes which are released under the LGPL.
1843     (license (list license:gpl2+ license:lgpl2.1+))))
1844
1845 (define-public jack-keyboard
1846   (package
1847     (name "jack-keyboard")
1848     (version "2.5")
1849     (source
1850      (origin
1851        (method url-fetch)
1852        (uri (string-append "mirror://sourceforge/jack-keyboard/jack-keyboard/"
1853                            version "/jack-keyboard-" version ".tar.gz"))
1854        (sha256
1855         (base32
1856          "0mzmg8aavybcfdlq2yd9d0vscqd6is5p6jzrgfpfm5j3xdcvh2s3"))))
1857     (build-system gnu-build-system)
1858     (inputs
1859      `(("jack" ,jack-1)
1860        ("lash" ,lash)
1861        ("gtk+" ,gtk+-2)))
1862     (native-inputs
1863      `(("pkg-config" ,pkg-config)))
1864     (home-page "http://jack-keyboard.sourceforge.net/")
1865     (synopsis "Virtual MIDI keyboard")
1866     (description "Jack-keyboard is a virtual MIDI keyboard, a program that
1867 allows you to send JACK MIDI events (i.e. play) using your PC keyboard.")
1868     (license license:bsd-2)))
1869
1870 (define-public cursynth
1871   (package
1872     (name "cursynth")
1873     (version "1.5")
1874     (source
1875      (origin
1876       (method url-fetch)
1877       (uri (string-append "mirror://gnu/cursynth/cursynth-"
1878                           version ".tar.gz"))
1879       (sha256
1880        (base32 "1dhphsya41rv8z6yqcv9l6fwbslsds4zh1y56zizi39nd996d40v"))
1881       (patches (search-patches "cursynth-wave-rand.patch"))))
1882     (build-system gnu-build-system)
1883     (native-inputs `(("pkg-config" ,pkg-config)))
1884     ;; TODO: See https://github.com/iyoko/cursynth/issues/4 which currently
1885     ;; prevents us from using pulseaudio
1886     (inputs `(("ncurses" ,ncurses)
1887               ("alsa" ,alsa-lib)))
1888     (home-page "https://www.gnu.org/software/cursynth/")
1889     (synopsis "Polyphonic and MIDI subtractive music synthesizer using curses")
1890     (description "GNU cursynth is a polyphonic synthesizer that runs
1891 graphically in the terminal.  It is built on a full-featured subtractive
1892 synthesis engine.  Notes and parameter changes may be entered via MIDI or the
1893 computer's keyboard.")
1894     (license license:gpl3+)))
1895
1896 (define-public qtractor
1897   (package
1898     (name "qtractor")
1899     (version "0.8.4")
1900     (source (origin
1901               (method url-fetch)
1902               (uri (string-append "http://downloads.sourceforge.net/qtractor/"
1903                                   "qtractor-" version ".tar.gz"))
1904               (sha256
1905                (base32
1906                 "17bbjfn94843g5q1h7xh23fwyazpfgg4fw6drrn5wgk2vx7qpkis"))))
1907     (build-system gnu-build-system)
1908     (arguments `(#:tests? #f)) ; no "check" target
1909     (inputs
1910      `(("qt" ,qtbase)
1911        ("qtx11extras" ,qtx11extras)
1912        ("alsa-lib" ,alsa-lib)
1913        ("jack" ,jack-1)
1914        ("libsndfile" ,libsndfile)
1915        ("ladspa" ,ladspa)
1916        ("lv2" ,lv2)
1917        ("lilv" ,lilv)
1918        ("suil" ,suil)
1919        ("libsamplerate" ,libsamplerate)
1920        ("libvorbis" ,libvorbis)
1921        ("libmad" ,libmad)
1922        ("rubberband" ,rubberband)
1923        ("liblo" ,liblo)
1924        ("zlib" ,zlib)))
1925     (native-inputs
1926      `(("pkg-config" ,pkg-config)
1927        ("qttools" ,qttools)))
1928     (home-page "http://qtractor.org/")
1929     (synopsis "Audio/MIDI multi-track sequencer")
1930     (description
1931      "Qtractor is an Audio/MIDI multi-track sequencer application.  It uses
1932 JACK for audio and ALSA sequencer for MIDI as multimedia infrastructures and
1933 follows a traditional multi-track tape recorder control paradigm.")
1934     (license license:gpl2+)))
1935
1936 (define-public ams-lv2
1937   (package
1938     (name "ams-lv2")
1939     (version "1.2.1")
1940     (source
1941      (origin
1942        (method url-fetch)
1943        (uri (string-append "https://github.com/blablack/ams-lv2/"
1944                            "archive/" version ".tar.gz"))
1945        (file-name (string-append name "-" version ".tar.gz"))
1946        (sha256
1947         (base32
1948          "1xacxyzqcj83g9c1gwfn36gg1c6yi15v7km4vidfidrjzb4x27fq"))))
1949     (build-system waf-build-system)
1950     (arguments
1951      `(#:phases
1952        (modify-phases %standard-phases
1953          (add-after 'unpack 'remove-sse-flags
1954            (lambda* (#:key system #:allow-other-keys)
1955              (when (not (or (string-prefix? "x86_64" system)
1956                             (string-prefix? "i686" system)))
1957                (substitute* "wscript"
1958                  (("'-msse', '-mfpmath=sse', ") ""))
1959              #t))))
1960        #:tests? #f)) ; no tests
1961     (inputs
1962      `(("lv2" ,lv2)
1963        ("lvtk" ,lvtk)
1964        ("gtkmm" ,gtkmm-2)
1965        ("gtk" ,gtk+-2)
1966        ("cairo" ,cairo)
1967        ("fftw" ,fftw)))
1968     (native-inputs
1969      `(("pkg-config" ,pkg-config)))
1970     (home-page "https://objectivewave.wordpress.com/ams-lv2/")
1971     (synopsis "Port of Alsa Modular Synth internal modules into LV2")
1972     (description "This set of LV2 plugins is a port of the internal modules
1973 found in Alsa Modular Synth.  These plugins are used to create modular
1974 synthesizers and contain: VCO, VCF, VCA, LFO, slew limiter, envelopes, sample
1975 and hold, etc.")
1976     (license license:gpl2)))
1977
1978 (define-public gxtuner
1979   (package
1980     (name "gxtuner")
1981     (version "2.4")
1982     (source (origin
1983               (method url-fetch)
1984               (uri (string-append "https://github.com/brummer10/gxtuner/"
1985                                   "archive/v" version ".tar.gz"))
1986               (file-name (string-append name "-" version ".tar.gz"))
1987               (sha256
1988                (base32
1989                 "1hn5qjac7qd00v0sp7ijhhc3sb26ks9bni06nngivva21h61xrjr"))))
1990     (build-system gnu-build-system)
1991     (arguments
1992      `(#:make-flags
1993        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1994              (string-append "INCLUDE_L_DIR="
1995                             (assoc-ref %build-inputs "zita-resampler")
1996                             "/include/"))
1997        #:phases
1998        (modify-phases %standard-phases
1999          (delete 'configure))))
2000     (inputs
2001      `(("gtk+" ,gtk+)
2002        ("jack" ,jack-1)
2003        ("fftwf" ,fftwf)
2004        ("cairo" ,cairo)
2005        ("zita-resampler" ,zita-resampler)))
2006     (native-inputs
2007      `(("pkg-config" ,pkg-config)))
2008     (home-page "https://github.com/brummer10/gxtuner")
2009     (synopsis "Guitar tuner")
2010     (description "GXtuner is a simple guitar tuner for JACK with an
2011 analogue-like user interface.")
2012     (license license:gpl2+)))
2013
2014 (define-public mod-host
2015   ;; The last release was in 2014 but since then more than 140 commits have
2016   ;; been made.
2017   (let ((commit "299a3977476e8eb0285837fbd7522cec506a11de")
2018         (revision "2"))
2019     (package
2020       (name "mod-host")
2021       (version (string-append "0.10.6-" revision "." (string-take commit 9)))
2022       (source (origin
2023                 (method git-fetch)
2024                 (uri (git-reference
2025                       (url "https://github.com/moddevices/mod-host")
2026                       (commit commit)))
2027                 (sha256
2028                  (base32
2029                   "128q7p5mph086v954rqnafalfbkyvhgwclaq6ks6swrhj45wnag6"))
2030                 (file-name (string-append name "-" version "-checkout"))))
2031       (build-system gnu-build-system)
2032       (arguments
2033        `(#:tests? #f ; no tests included
2034          #:make-flags
2035          (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2036                "CC=gcc")
2037          #:phases
2038          (modify-phases %standard-phases
2039            (delete 'configure)
2040            (add-after 'unpack 'fix-jack-installation-directory
2041              (lambda _
2042                ;; Do not attempt to install files to output of "jack" package.
2043                (substitute* "Makefile"
2044                  (("\\$\\(shell pkg-config --variable=libdir jack\\)")
2045                   "lib"))
2046                #t)))))
2047       (inputs
2048        `(("lilv" ,lilv)
2049          ("fftw" ,fftw)
2050          ("fftwf" ,fftwf)
2051          ("lv2" ,lv2)
2052          ("jack" ,jack-1)
2053          ("readline" ,readline)))
2054       (native-inputs
2055        `(("pkg-config" ,pkg-config)
2056          ("python" ,python-2)))
2057       (home-page "https://github.com/moddevices/mod-host")
2058       (synopsis "LV2 host for Jack controllable via socket or command line")
2059       (description "mod-host is an LV2 plugin host for JACK, controllable via
2060 socket or command line.")
2061       (license license:gpl3+))))
2062
2063 (define-public pianobar
2064   (package
2065     (name "pianobar")
2066     (version "2016.06.02")
2067     (source (origin
2068               (method url-fetch)
2069               (uri (string-append "https://github.com/PromyLOPh/"
2070                                   name "/archive/" version ".tar.gz"))
2071               (file-name (string-append name "-" version ".tar.gz"))
2072               (sha256
2073                (base32
2074                 "1hi5rr6jcr0kwf4xfz007ndwkjkp287lhwlsgfz6iryqa5n6jzcp"))))
2075     (build-system gnu-build-system)
2076     (arguments
2077      `(#:tests? #f ; no tests
2078        #:make-flags (list "CC=gcc" "CFLAGS=-std=c99"
2079                           (string-append "PREFIX=" %output))
2080        #:phases (modify-phases %standard-phases
2081                   (delete 'configure))))
2082     (inputs
2083      `(("ao" ,ao)
2084        ("curl" ,curl)
2085        ("libgcrypt" ,libgcrypt)
2086        ("json-c" ,json-c)
2087        ("ffmpeg" ,ffmpeg)))
2088     (native-inputs
2089      `(("pkg-config" ,pkg-config)))
2090     (home-page "http://6xq.net/projects/pianobar/")
2091     (synopsis "Console-based pandora.com player")
2092     (description "pianobar is a console-based music player for the
2093 personalized online radio pandora.com.  It has configurable keys for playing
2094 and managing stations, can be controlled remotely via fifo, and can run
2095 event-based scripts for scrobbling, notifications, etc.")
2096     (license license:expat)))
2097
2098 (define-public python-mutagen
2099   (package
2100     (name "python-mutagen")
2101     (version "1.38")
2102     (source (origin
2103               (method url-fetch)
2104               (uri (pypi-uri "mutagen" version))
2105               (sha256
2106                (base32
2107                 "0rl7sxn1rcjl48fwga3dqf9f6pzspsny4ngxyf6pp337mrq0z693"))))
2108     (build-system python-build-system)
2109     (native-inputs
2110      `(("python-pytest" ,python-pytest)))
2111     (home-page "https://bitbucket.org/lazka/mutagen")
2112     (synopsis "Read and write audio tags")
2113     (description "Mutagen is a Python module to handle audio metadata.  It
2114 supports ASF, FLAC, M4A, Monkey’s Audio, MP3, Musepack, Ogg FLAC, Ogg Speex, Ogg
2115 Theora, Ogg Vorbis, True Audio, WavPack and OptimFROG audio files.  All versions
2116 of ID3v2 are supported, and all standard ID3v2.4 frames are parsed.  It can read
2117 Xing headers to accurately calculate the bitrate and length of MP3s.  ID3 and
2118 APEv2 tags can be edited regardless of audio format.  It can also manipulate Ogg
2119 streams on an individual packet/page level.")
2120     (license license:gpl2))) ; "later version" never mentioned
2121
2122 (define-public python2-mutagen
2123   (package-with-python2 python-mutagen))
2124
2125 (define-public python-musicbrainzngs
2126   (package
2127     (name "python-musicbrainzngs")
2128     (version "0.6")
2129     (source (origin
2130               (method url-fetch)
2131               (uri (pypi-uri "musicbrainzngs" version))
2132               (sha256
2133                (base32
2134                 "1dddarpjawryll2wss65xq3v9q8ln8dan7984l5dxzqx88d2dvr8"))))
2135     (build-system python-build-system)
2136     (arguments
2137      '(;; The tests fail suffer from race conditions:
2138        ;; https://github.com/alastair/python-musicbrainzngs/issues/211
2139        #:tests? #f))
2140     (home-page "https://python-musicbrainzngs.readthedocs.org/")
2141     (synopsis "Python bindings for MusicBrainz NGS webservice")
2142     (description "Musicbrainzngs implements Python bindings of the MusicBrainz
2143 web service.  This library can be used to retrieve music metadata from the
2144 MusicBrainz database.")
2145     ;; 'musicbrainzngs/compat.py' is ISC licensed.
2146     (license (list license:bsd-2 license:isc))))
2147
2148 (define-public python2-musicbrainzngs
2149   (package-with-python2 python-musicbrainzngs))
2150
2151 (define-public python2-pyechonest
2152   (package
2153     (name "python2-pyechonest")
2154     (version "9.0.0")
2155     (source (origin
2156               (method url-fetch)
2157               (uri (pypi-uri "pyechonest" version))
2158               (sha256
2159                (base32
2160                 "1584nira3rkiman9dm81kdshihmkj21s8navndz2l8spnjwb790x"))))
2161     (build-system python-build-system)
2162     (arguments
2163      `(;; Python 3 is not supported:
2164        ;; https://github.com/echonest/pyechonest/issues/42
2165        #:python ,python-2))
2166     (home-page "https://github.com/echonest/pyechonest")
2167     (synopsis "Python interface to The Echo Nest APIs")
2168     (description "Pyechonest is a Python library for the Echo Nest API.  With
2169 Pyechonest you have Python access to the entire set of API methods including:
2170
2171 @enumerate
2172 @item artist - search for artists by name, description, or attribute, and get
2173 back detailed information about any artist including audio, similar artists,
2174 blogs, familiarity, hotttnesss, news, reviews, urls and video.
2175 @item song - search songs by artist, title, description, or attribute (tempo,
2176 duration, etc) and get detailed information back about each song, such as
2177 hotttnesss, audio_summary, or tracks.
2178 @item track - upload a track to the Echo Nest and receive summary information
2179 about the track including key, duration, mode, tempo, time signature along with
2180 detailed track info including timbre, pitch, rhythm and loudness information.
2181 @end enumerate\n")
2182     (license license:bsd-3)))
2183
2184 (define-public python-pylast
2185   (package
2186     (name "python-pylast")
2187     (version "1.9.0")
2188     (source (origin
2189               (method url-fetch)
2190               (uri (pypi-uri "pylast" version))
2191               (sha256
2192                (base32
2193                 "190c6sicc80v21wbbwbq771nqmxw4r6aqmxs22ndj177rc2l275f"))))
2194     (build-system python-build-system)
2195     (arguments
2196      '(#:tests? #f)) ; FIXME: Requires unpackaged python-flaky.
2197     (native-inputs
2198      `(("python-coverage" ,python-coverage)
2199        ("python-mock" ,python-mock)
2200        ("python-pep8" ,python-pep8)
2201        ("python-pytest" ,python-pytest)
2202        ("python-pyflakes" ,python-pyflakes)
2203        ("python-pyyaml" ,python-pyyaml)))
2204     (propagated-inputs
2205      `(("python-six" ,python-six)))
2206     (home-page "https://github.com/pylast/pylast")
2207     (synopsis "Python interface to Last.fm and Libre.fm")
2208     (description "A Python interface to Last.fm and other API-compatible
2209 websites such as Libre.fm.")
2210     (license license:asl2.0)))
2211
2212 (define-public python2-pylast
2213   (package-with-python2 python-pylast))
2214
2215 (define-public beets
2216   (package
2217     (name "beets")
2218     (version "1.4.5")
2219     (source (origin
2220               (method url-fetch)
2221               (uri (pypi-uri "beets" version))
2222               (sha256
2223                (base32
2224                 "1z02j871gc8l9mnd344qy9z8akigikgmc22r15ns6driqb2qishv"))))
2225     (build-system python-build-system)
2226     (arguments
2227      `(#:phases
2228        (modify-phases %standard-phases
2229          (add-after 'unpack 'set-HOME
2230            (lambda _ (setenv "HOME" (string-append (getcwd) "/tmp"))))
2231          (replace 'check
2232            (lambda _ (zero? (system* "nosetests" "-v")))))))
2233     (native-inputs
2234      `(("python-beautifulsoup4" ,python-beautifulsoup4)
2235        ("python-flask" ,python-flask)
2236        ("python-mock" ,python-mock)
2237        ("python-mpd2" ,python-mpd2)
2238        ("python-nose" ,python-nose)
2239        ("python-pathlib" ,python-pathlib)
2240        ("python-pyxdg" ,python-pyxdg)
2241        ("python-pylast" ,python-pylast)
2242        ("python-rarfile" ,python-rarfile)
2243        ("python-responses" ,python-responses)))
2244     ;; TODO: Install optional plugins and dependencies.
2245     (inputs
2246      `(("python-discogs-client" ,python-discogs-client)
2247        ("python-jellyfish" ,python-jellyfish)
2248        ("python-munkres" ,python-munkres)
2249        ("python-musicbrainzngs" ,python-musicbrainzngs)
2250        ("python-mutagen" ,python-mutagen)
2251        ("python-pyyaml" ,python-pyyaml)
2252        ("python-unidecode" ,python-unidecode)))
2253     (home-page "http://beets.io")
2254     (synopsis "Music organizer")
2255     (description "The purpose of beets is to get your music collection right
2256 once and for all.  It catalogs your collection, automatically improving its
2257 metadata as it goes using the MusicBrainz database.  Then it provides a variety
2258 of tools for manipulating and accessing your music.")
2259     (license license:expat)))
2260
2261 (define-public milkytracker
2262   (package
2263     (name "milkytracker")
2264     (version "1.01.00")
2265     (source (origin
2266               (method url-fetch)
2267               (uri (string-append "https://github.com/milkytracker/"
2268                                   "MilkyTracker/archive/v"
2269                                   version ".tar.gz"))
2270               (file-name (string-append name "-" version ".tar.gz"))
2271               (sha256
2272                (base32
2273                 "1dvnddsnn9c83lz4dlm0cfjpc0m524amfkbalxbswdy0qc8cj1wv"))
2274               (modules '((guix build utils)))
2275               ;; Remove non-FSDG compliant sample songs.
2276               (snippet
2277                '(begin
2278                   (delete-file-recursively "resources/music")
2279                   (substitute* "CMakeLists.txt"
2280                     (("add_subdirectory\\(resources/music\\)") ""))))))
2281     (build-system cmake-build-system)
2282     (arguments
2283      '(#:tests? #f)) ; no check target
2284     (inputs
2285      `(("alsa-lib" ,alsa-lib)
2286        ("jack" ,jack-1)
2287        ("sdl" ,sdl2)
2288        ("zlib" ,zlib)))
2289     (native-inputs
2290      `(("pkg-config" ,pkg-config)))
2291     (synopsis "Music tracker for working with .MOD/.XM module files")
2292     (description "MilkyTracker is a music application for creating .MOD and .XM
2293 module files.  It attempts to recreate the module replay and user experience of
2294 the popular DOS program Fasttracker II, with special playback modes available
2295 for improved Amiga ProTracker 2/3 compatibility.")
2296     (home-page "http://milkytracker.titandemo.org/")
2297     ;; 'src/milkyplay' is under Modified BSD, the rest is under GPL3 or later.
2298     (license (list license:bsd-3 license:gpl3+))))
2299
2300 (define-public schismtracker
2301   (package
2302     (name "schismtracker")
2303     (version "20170420")
2304     (source (origin
2305               (method url-fetch)
2306               (uri (string-append
2307                     "https://github.com/" name "/" name "/archive/"
2308                     version ".tar.gz"))
2309               (file-name (string-append name "-" version ".tar.gz"))
2310               (sha256
2311                (base32
2312                 "0k06vri29ayaq7mzsik3yywh6zdar2nfpkav2sp6g2rjl6k6vi5z"))
2313               (modules '((guix build utils)))
2314               (snippet
2315                ;; Remove use of __DATE__ and __TIME__ for reproducibility.
2316                `(substitute* "schism/version.c"
2317                   (("Schism Tracker built %s %s.*$")
2318                    (string-append "Schism Tracker version " ,version "\");"))))))
2319     (build-system gnu-build-system)
2320     (arguments
2321      `(#:phases
2322        (modify-phases %standard-phases
2323          (add-after 'unpack 'autoconf
2324            (lambda _ (zero? (system* "autoreconf" "-vfi"))))
2325          (add-before 'configure 'link-libm
2326            (lambda _ (setenv "LIBS" "-lm") #t)))))
2327     (native-inputs
2328      `(("autoconf" ,autoconf)
2329        ("automake" ,automake)
2330        ("python" ,python)))
2331     (inputs
2332      `(("alsa-lib" ,alsa-lib) ; for asound dependency
2333        ("libx11" ,libx11)
2334        ("libxext" ,libxext)
2335        ("sdl" ,sdl)))
2336     (home-page "http://schismtracker.org")
2337     (synopsis "Oldschool sample-based music composition tool")
2338     (description
2339      "Schism Tracker is a reimplementation of Impulse Tracker, a program used to
2340 create high quality music without the requirements of specialized, expensive
2341 equipment, and with a unique \"finger feel\" that is difficult to replicate in
2342 part.  The player is based on a highly modified version of the ModPlug engine,
2343 with a number of bugfixes and changes to improve IT playback.")
2344     (license license:gpl2+)))
2345
2346 (define-public sooperlooper
2347   (package
2348     (name "sooperlooper")
2349     (version "1.7.3")
2350     (source (origin
2351               (method url-fetch)
2352               (uri (string-append "http://essej.net/sooperlooper/sooperlooper-"
2353                                   version ".tar.gz"))
2354               (sha256
2355                (base32
2356                 "0n2gdxw1fx8nxxnpzf4sj0kp6k6zi1yq59cbz6qqzcnsnpnvszbs"))
2357               (patches (search-patches "sooperlooper-build-with-wx-30.patch"))))
2358     (build-system gnu-build-system)
2359     (arguments
2360      `(#:make-flags (list "CXXFLAGS=-std=gnu++11")
2361        #:phases
2362        (modify-phases %standard-phases
2363          (add-after 'unpack 'add-sigc++-includes
2364            (lambda* (#:key inputs #:allow-other-keys)
2365              (let ((sig (assoc-ref inputs "libsigc++"))
2366                    (xml (assoc-ref inputs "libxml2"))
2367                    (cwd (getcwd)))
2368                (setenv "CPATH"
2369                        (string-append sig "/include/sigc++-2.0:"
2370                                       sig "/lib/sigc++-2.0/include:"
2371                                       xml "/include/libxml2/:"
2372                                       cwd "/libs/pbd:"
2373                                       cwd "/libs/midi++")))
2374              (substitute* '("src/control_osc.hpp"
2375                             "src/gui/app_frame.hpp"
2376                             "src/gui/config_panel.hpp"
2377                             "src/gui/keys_panel.hpp"
2378                             "src/gui/latency_panel.hpp"
2379                             "src/gui/main_panel.hpp"
2380                             "src/gui/midi_bind_panel.hpp"
2381                             "src/gui/prefs_dialog.hpp")
2382                (("sigc\\+\\+/object.h")
2383                 "sigc++/sigc++.h"))
2384              (substitute* '("src/engine.cpp"
2385                             "src/gui/latency_panel.cpp"
2386                             "src/gui/looper_panel.cpp"
2387                             "src/gui/main_panel.cpp")
2388                (("(\\(| )bind " _ pre)
2389                 (string-append pre "sigc::bind ")))
2390              #t))
2391          (add-after 'unpack 'fix-xpm-warnings
2392            (lambda _
2393              (substitute* (find-files "." "\\.xpm$")
2394                (("static char") "static const char"))
2395              #t)))))
2396     (inputs
2397      `(("jack" ,jack-1)
2398        ("alsa-lib" ,alsa-lib)
2399        ("wxwidgets" ,wxwidgets-gtk2)
2400        ("libsndfile" ,libsndfile)
2401        ("libsamplerate" ,libsamplerate)
2402        ("liblo" ,liblo)
2403        ("rubberband" ,rubberband)
2404        ("libxml2" ,libxml2)
2405        ("libsigc++" ,libsigc++)
2406        ("ncurses" ,ncurses)))
2407     (native-inputs
2408      `(("pkg-config" ,pkg-config)))
2409     (home-page "http://essej.net/sooperlooper/")
2410     (synopsis "Live looping sampler")
2411     (description
2412      "SooperLooper is a live looping sampler capable of immediate loop
2413 recording, overdubbing, multiplying, reversing and more. It allows for
2414 multiple simultaneous multi-channel loops limited only by your computer's
2415 available memory.")
2416     (license license:gpl2+)))
2417
2418 (define-public moc
2419   (package
2420     (name "moc")
2421     (version "2.5.2")
2422     (source (origin
2423               (method url-fetch)
2424               (uri (string-append "http://ftp.daper.net/pub/soft/"
2425                                   name "/stable/"
2426                                   name "-" version ".tar.bz2"))
2427               (sha256
2428                (base32
2429                 "026v977kwb0wbmlmf6mnik328plxg8wykfx9ryvqhirac0aq39pk"))
2430               (modules '((guix build utils)))
2431               (snippet
2432                ;; Remove use of __DATE__ and __TIME__ for reproducibility.
2433                '(substitute* "main.c"
2434                   (("printf \\(\"            Built : %s\", __DATE__\\);") "")
2435                   (("printf \\(\" %s\", __TIME__\\);") "")))))
2436     (build-system gnu-build-system)
2437     (inputs
2438      `(("alsa-lib" ,alsa-lib)
2439        ("curl" ,curl)
2440        ("faad2" ,faad2)
2441        ("ffmpeg" ,ffmpeg)
2442        ("file" ,file)
2443        ("jack" ,jack-1)
2444        ("libid3tag" ,libid3tag)
2445        ("libltdl" ,libltdl)
2446        ("libmodplug" ,libmodplug)
2447        ("libmpcdec" ,libmpcdec)
2448        ("libmad" ,libmad)
2449        ("libogg" ,libogg)
2450        ("libvorbis" ,libvorbis)
2451        ("ncurses" ,ncurses)
2452        ("openssl" ,openssl)
2453        ("sasl" ,cyrus-sasl)
2454        ("speex" ,speex)
2455        ("taglib" ,taglib)
2456        ("wavpack" ,wavpack)
2457        ("zlib" ,zlib)))
2458     (native-inputs
2459      `(("pkg-config" ,pkg-config)))
2460     (synopsis "Console audio player designed to be powerful and easy to use")
2461     (description
2462      "Music on Console is a console audio player that supports many file
2463 formats, including most audio formats recognized by FFMpeg.")
2464     (home-page "http://moc.daper.net")
2465     (license license:gpl2+)))
2466
2467 (define-public midicsv
2468   (package
2469     (name "midicsv")
2470     (version "1.1")
2471     (source (origin
2472               (method url-fetch)
2473               (uri (string-append "http://www.fourmilab.ch/webtools/midicsv/"
2474                                   name "-" version ".tar.gz"))
2475               (sha256
2476                (base32
2477                 "1vvhk2nf9ilfw0wchmxy8l13hbw9cnpz079nsx5srsy4nnd78nkw"))))
2478     (build-system gnu-build-system)
2479     (arguments
2480      `(#:phases (modify-phases %standard-phases (delete 'configure))
2481        #:make-flags (list "CC=gcc" (string-append "INSTALL_DEST=" %output))))
2482     (synopsis "Convert MIDI files to and from CSV")
2483     (description
2484      "Midicsv reads a standard MIDI file and decodes it into a comma-separated
2485 value file (CSV), which preserves all the information in the MIDI file.  The
2486 ASCII CSV file may be loaded into a spreadsheet or database application, or
2487 processed by a program to transform the MIDI data (for example, to key
2488 transpose a composition or extract a track from a multi-track sequence).  A
2489 CSV file in the format created by midicsv may be converted back into a
2490 standard MIDI file with the csvmidi program.")
2491     (home-page "http://www.fourmilab.ch/webtools/midicsv/")
2492     (license license:public-domain)))
2493
2494 (define-public gx-guvnor-lv2
2495   (package
2496     (name "gx-guvnor-lv2")
2497     (version "0.1")
2498     (source (origin
2499               (method url-fetch)
2500               (uri (string-append "https://github.com/brummer10/GxGuvnor.lv2/"
2501                                   "archive/v" version ".tar.gz"))
2502               (file-name (string-append name "-" version ".tar.gz"))
2503               (sha256
2504                (base32
2505                 "0rnfvrvs8qmmldyfmx4llyly33zp68448gx40ywdwj42x0mam92p"))))
2506     (build-system gnu-build-system)
2507     (arguments
2508      `(;; The check target is used only to output a warning.
2509        #:tests? #f
2510        #:make-flags
2511        (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
2512        #:phases
2513        (modify-phases %standard-phases
2514          (replace 'configure
2515            (lambda _
2516              (substitute* "Makefile"
2517                (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n"))
2518              #t)))))
2519     (inputs
2520      `(("lv2" ,lv2)))
2521     (home-page "https://github.com/brummer10/GxGuvnor.lv2")
2522     (synopsis "Overdrive/distortion pedal simulation")
2523     (description "This package provides the LV2 plugin \"GxGuvnor\", a
2524 simulation of an overdrive or distortion pedal for guitars.")
2525     ;; The LICENSE file says GPLv3 but the license headers in the files say
2526     ;; GPLv2 or later.
2527     (license license:gpl2+)))
2528
2529 (define-public gx-vbass-preamp-lv2
2530   (let ((commit "0e599abab10c7669dd444e5d06f671c2fc1b9c6c")
2531         (revision "1"))
2532     (package (inherit gx-guvnor-lv2)
2533       (name "gx-vbass-preamp-lv2")
2534       (version (string-append "0-" revision "." (string-take commit 9)))
2535       (source (origin
2536                 (method git-fetch)
2537                 (uri (git-reference
2538                       (url "https://github.com/brummer10/GxVBassPreAmp.lv2")
2539                       (commit commit)))
2540                 (sha256
2541                  (base32
2542                   "1dzksdfrva666gpi62fd2ni9rhf18sl917f1894qr0b17pbdh9k1"))
2543                 (file-name (string-append name "-" version "-checkout"))))
2544       (arguments
2545        (substitute-keyword-arguments (package-arguments gx-guvnor-lv2)
2546          ((#:phases phases)
2547           `(modify-phases ,phases
2548              (replace 'configure
2549                (lambda _
2550                  (substitute* "Makefile"
2551                    (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n")
2552                    (("install : all") "install :"))
2553                  #t))))))
2554       (home-page "https://github.com/brummer10/GxVBassPreAmp.lv2")
2555       (synopsis "Simulation of the Vox Venue Bass 100 Pre Amp Section")
2556       (description "This package provides the LV2 plugin \"GxVBassPreAmp\", a
2557 pre-amplifier simulation modelled after the 1984 Vox Venue Bass 100 Pre Amp
2558 Section."))))
2559
2560 (define-public gx-overdriver-lv2
2561   (let ((commit "ed71801987449414bf3adaa0dbfac68e8775f1ce")
2562         (revision "1"))
2563     (package (inherit gx-vbass-preamp-lv2)
2564       (name "gx-overdriver-lv2")
2565       (version (string-append "0-" revision "." (string-take commit 9)))
2566       (source (origin
2567                 (method git-fetch)
2568                 (uri (git-reference
2569                       (url "https://github.com/brummer10/GxOverDriver.lv2")
2570                       (commit commit)))
2571                 (sha256
2572                  (base32
2573                   "13j614jh525fbkby79nnzwj0z1ac0c9wclyn5pfqvkmx6a7j24r8"))
2574                 (file-name (string-append name "-" version "-checkout"))))
2575       (home-page "https://github.com/brummer10/GxOverDriver.lv2")
2576       (synopsis "Overdrive effect with level and tone control")
2577       (description "This package provides the LV2 plugin \"GxOverDriver\", an
2578 overdrive effect."))))
2579
2580 (define-public gx-tone-mender-lv2
2581   (let ((commit "b6780b4a3e4782b3ed0e5882d6788f178aed138f")
2582         (revision "1"))
2583     (package (inherit gx-vbass-preamp-lv2)
2584       (name "gx-tone-mender-lv2")
2585       (version (string-append "0-" revision "." (string-take commit 9)))
2586       (source (origin
2587                 (method git-fetch)
2588                 (uri (git-reference
2589                       (url "https://github.com/brummer10/GxToneMender.lv2")
2590                       (commit commit)))
2591                 (sha256
2592                  (base32
2593                   "07qdcfsvv2vdnfnjh91pfgvjdcs5y91nvwfm8c0z8fp6b4bk7a9q"))
2594                 (file-name (string-append name "-" version "-checkout"))))
2595       (home-page "https://github.com/brummer10/GxToneMender.lv2")
2596       (synopsis "Clean boost with a 3-knob tonestack")
2597       (description "This package provides the LV2 plugin \"GxToneMender\", a
2598 clean boost effect with a 3-knob tonestack."))))
2599
2600 (define-public gx-push-pull-lv2
2601   (let ((commit "7f76ae2068498643ac8671ee0930b13ee3fd8eb5")
2602         (revision "1"))
2603     (package (inherit gx-vbass-preamp-lv2)
2604       (name "gx-push-pull-lv2")
2605       (version (string-append "0-" revision "." (string-take commit 9)))
2606       (source (origin
2607                 (method git-fetch)
2608                 (uri (git-reference
2609                       (url "https://github.com/brummer10/GxPushPull.lv2")
2610                       (commit commit)))
2611                 (sha256
2612                  (base32
2613                   "12f5hwck2irph0gjbj8xy8jqcqdwb8l1hlwf29k0clz52h1jhb5q"))
2614                 (file-name (string-append name "-" version "-checkout"))))
2615       (home-page "https://github.com/brummer10/GxPushPull.lv2")
2616       (synopsis "Octave up push pull transistor fuzz simulation")
2617       (description "This package provides the LV2 plugin \"GxPushPull\", a
2618 simulation of a push pull transistor fuzz effect with added high octave."))))
2619
2620 (define-public gx-suppa-tone-bender-lv2
2621   (package (inherit gx-guvnor-lv2)
2622     (name "gx-suppa-tone-bender-lv2")
2623     (version "0.1")
2624     (source (origin
2625               (method url-fetch)
2626               (uri (string-append "https://github.com/brummer10/"
2627                                   "GxSuppaToneBender.lv2/archive/v"
2628                                   version ".tar.gz"))
2629               (sha256
2630                (base32
2631                 "1j90fns87035sfr6bxs4cvqxbyy3pqjhihx1nis8xajn202nl1hx"))
2632               (file-name (string-append name "-" version ".tar.gz"))))
2633     (home-page "https://github.com/brummer10/GxSuppaToneBender.lv2")
2634     (synopsis "Simulation of the Vox Suppa Tone Bender pedal")
2635     (description "This package provides the LV2 plugin
2636 \"GxSuppaToneBender\", a simulation modelled after the Vox Suppa Tone Bender
2637 pedal.")))
2638
2639 (define-public gx-saturator-lv2
2640   (let ((commit "0b581ac85c515325b9f16e51937cae6e1bf81a0a")
2641         (revision "2"))
2642     (package (inherit gx-vbass-preamp-lv2)
2643       (name "gx-saturator-lv2")
2644       (version (string-append "0-" revision "." (string-take commit 9)))
2645       (source (origin
2646                 (method git-fetch)
2647                 (uri (git-reference
2648                       (url "https://github.com/brummer10/GxSaturator.lv2")
2649                       (commit commit)))
2650                 (sha256
2651                  (base32
2652                   "1cl785pzq8zk55m1rnhfd6qsabci6kpf4pf002gwr91vagyq246z"))
2653                 (file-name (string-append name "-" version "-checkout"))))
2654       (home-page "https://github.com/brummer10/GxSaturator.lv2")
2655       (synopsis "Saturation effect")
2656       (description "This package provides the LV2 plugin \"GxSaturator\", a
2657 saturation effect."))))
2658
2659 (define-public gx-hyperion-lv2
2660   (package (inherit gx-guvnor-lv2)
2661     (name "gx-hyperion-lv2")
2662     (version "0.1")
2663     (source (origin
2664               (method url-fetch)
2665               (uri (string-append "https://github.com/brummer10/"
2666                                   "GxHyperion.lv2/archive/v"
2667                                   version ".tar.gz"))
2668               (sha256
2669                (base32
2670                 "1pd7l33a14kq73wavgqq7csw4n3mwjz9d5rxaj0jgsyxd3llp3wh"))
2671               (file-name (string-append name "-" version ".tar.gz"))))
2672     (home-page "https://github.com/brummer10/GxHyperion.lv2")
2673     (synopsis "Simulation of the Hyperion Fuzz pedal")
2674     (description "This package provides the LV2 plugin \"GxHyperion\", a
2675 simulation of the Hyperion Fuzz pedal.")))
2676
2677 (define-public gx-voodoo-fuzz-lv2
2678   (package (inherit gx-guvnor-lv2)
2679     (name "gx-voodoo-fuzz-lv2")
2680     (version "0.1")
2681     (source (origin
2682               (method url-fetch)
2683               (uri (string-append "https://github.com/brummer10/"
2684                                   "GxVoodoFuzz.lv2/archive/v"
2685                                   version ".tar.gz"))
2686               (sha256
2687                (base32
2688                 "0cc8sg7q493bs6pcq4ipqp6czpxv04nh9yvn8kq2x65ni2208n2f"))
2689               (file-name (string-append name "-" version ".tar.gz"))))
2690     (home-page "https://github.com/brummer10/GxVoodoFuzz.lv2")
2691     (synopsis "Fuzz effect modelled after the Voodoo Lab SuperFuzz")
2692     (description "This package provides the LV2 plugin \"GxVoodooFuzz\", a
2693 simulation modelled after the Voodoo Lab SuperFuzz pedal.  It's basically a
2694 Bosstone circuit, followed by the tone control of the FoxToneMachine in
2695 parallel with a DarkBooster, followed by a volume control.")))
2696
2697 (define-public gx-super-fuzz-lv2
2698   (package (inherit gx-guvnor-lv2)
2699     (name "gx-super-fuzz-lv2")
2700     (version "0.1")
2701     (source (origin
2702               (method url-fetch)
2703               (uri (string-append "https://github.com/brummer10/"
2704                                   "GxSuperFuzz.lv2/archive/v"
2705                                   version ".tar.gz"))
2706               (sha256
2707                (base32
2708                 "0pnivq05f1kji8c5jxsqdzhdfk3xn422v2d1x20x3jfsxnaf115x"))
2709               (file-name (string-append name "-" version ".tar.gz"))))
2710     (home-page "https://github.com/brummer10/GxSuperFuzz.lv2")
2711     (synopsis "Fuzz effect modelled after the UniVox SuperFuzz")
2712     (description "This package provides the LV2 plugin \"GxSuperFuzz\", an
2713 analog simulation of the UniVox SuperFuzz pedal.  In this simulation the trim
2714 pot, which is usually in the housing, is exposed as a control parameter.  It
2715 adjusts the amount of harmonics.")))
2716
2717 (define-public gx-vintage-fuzz-master-lv2
2718   (package (inherit gx-guvnor-lv2)
2719     (name "gx-vintage-fuzz-master-lv2")
2720     (version "0.1")
2721     (source (origin
2722               (method url-fetch)
2723               (uri (string-append "https://github.com/brummer10/"
2724                                   "GxVintageFuzzMaster.lv2/archive/v"
2725                                   version ".tar.gz"))
2726               (sha256
2727                (base32
2728                 "0bdkfj6xi2g4izfw3pmr4i0nqzg8jnkdwc23x9ifxwc6p1kbayzk"))
2729               (file-name (string-append name "-" version ".tar.gz"))))
2730     (home-page "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
2731     (synopsis "Fuzz effect simulation of the vintage Fuzz Master")
2732     (description "This package provides the LV2 plugin
2733 \"GxVintageFuzzMaster\", a simulation of the vintage Fuzz Master pedal.")))
2734
2735 (define-public gx-slow-gear-lv2
2736   (let ((commit "cb852e0426f4e6fe077e7f1ede73a4da335cfc5e")
2737         (revision "2"))
2738     (package (inherit gx-vbass-preamp-lv2)
2739       (name "gx-slow-gear-lv2")
2740       (version (string-append "0-" revision "." (string-take commit 9)))
2741       (source (origin
2742                 (method git-fetch)
2743                 (uri (git-reference
2744                       (url "https://github.com/brummer10/GxSlowGear.lv2")
2745                       (commit commit)))
2746                 (sha256
2747                  (base32
2748                   "0dp7afi1r3kzciiyn1hrkz6arsq47ys9sx5g4b7xa9k1dv92ishp"))
2749                 (file-name (string-append name "-" version "-checkout"))))
2750       (home-page "https://github.com/brummer10/GxSlowGear.lv2")
2751       (synopsis "Slow gear audio effect")
2752       (description "This package provides the LV2 plugin \"GxSlowGear\", a
2753 slow gear audio effect to produce volume swells."))))
2754
2755 (define-public gx-switchless-wah-lv2
2756   (let ((commit "7b08691203314612999f0ce2328cdc1161cd6665")
2757         (revision "2"))
2758     (package (inherit gx-vbass-preamp-lv2)
2759       (name "gx-switchless-wah-lv2")
2760       (version (string-append "0-" revision "." (string-take commit 9)))
2761       (source (origin
2762                 (method git-fetch)
2763                 (uri (git-reference
2764                       (url "https://github.com/brummer10/GxSwitchlessWah.lv2")
2765                       (commit commit)))
2766                 (sha256
2767                  (base32
2768                   "04jqfpncmrrqn34p21w4v9m2x5a5wsqwbm4f3byxvq4vcibwxzk2"))
2769                 (file-name (string-append name "-" version "-checkout"))))
2770       (home-page "https://github.com/brummer10/GxSwitchlessWah.lv2")
2771       (synopsis "Wah emulation with switchless activation")
2772       (description "This package provides the LV2 plugin \"GxSwitchlessWah\",
2773 a simulation of an analog Wah pedal with switchless activation."))))
2774
2775 (define-public mod-utilities
2776   (let ((commit "7cdeeac26ae682730740105ece121d4dddb8ba3f")
2777         (revision "1"))
2778     (package
2779       (name "mod-utilities")
2780       (version (string-append "0-" revision "." (string-take commit 9)))
2781       (source (origin
2782                 (method git-fetch)
2783                 (uri (git-reference
2784                       (url "https://github.com/moddevices/mod-utilities.git")
2785                       (commit commit)))
2786                 (sha256
2787                  (base32
2788                   "1ilnkbrmwrszxvc21qlb86h29yz7cnc6rcp0jmna1y693ny2qhf4"))
2789                 (file-name (string-append name "-" version "-checkout"))))
2790       (build-system gnu-build-system)
2791       (arguments
2792        `(#:tests? #f ; there are no tests
2793          #:make-flags
2794          (list (string-append "INSTALL_PATH="
2795                               (assoc-ref %outputs "out")
2796                               "/lib/lv2"))
2797          #:phases
2798          (modify-phases %standard-phases
2799            (delete 'configure))))
2800       (inputs
2801        `(("lv2" ,lv2)))
2802       (home-page "https://github.com/moddevices/mod-utilities")
2803       (synopsis "LV2 utility plugins")
2804       (description "This package provides LV2 audio utility plugins, such as
2805 filters, crossovers, simple gain plugins without zipper noise, switch box
2806 plugins, a switch trigger, a toggle switch, and a peakmeter.")
2807       (license license:gpl2+))))
2808
2809 (define-public ingen
2810   (let ((commit "fd147d0b888090bfb897505852c1f25dbdf77e18")
2811         (revision "1"))
2812     (package
2813       (name "ingen")
2814       (version (string-append "0.0.0-" revision "."
2815                               (string-take commit 9)))
2816       (source
2817        (origin
2818          (method git-fetch)
2819          (uri (git-reference
2820                (url "http://git.drobilla.net/ingen.git")
2821                (commit commit)))
2822          (file-name (string-append name "-" version "-checkout"))
2823          (sha256
2824           (base32
2825            "1qmg79962my82c43vyrv5sxbqci9c7gc2s9bwaaqd0fcf08xcz1z"))))
2826       (build-system waf-build-system)
2827       (arguments
2828        `(#:tests? #f ; no "check" target
2829          #:configure-flags (list "--no-webkit")
2830          #:phases
2831          (modify-phases %standard-phases
2832            (add-after 'unpack 'patch-wscript
2833              (lambda* (#:key outputs #:allow-other-keys)
2834                (let ((out (assoc-ref outputs "out")))
2835                  (substitute* "wscript"
2836                    ;; FIXME: Our version of lv2specgen.py does not behave as
2837                    ;; expected.  Maybe this requires a development version of
2838                    ;; LV2.
2839                    (("lv2specgen.py") "touch ingen.lv2/ingen.html; echo")
2840                    ;; Add libraries to RUNPATH.
2841                    (("^(.+)target.*= 'src/ingen/ingen'," line prefix)
2842                     (string-append prefix
2843                                    "linkflags=[\"-Wl,-rpath="
2844                                    out "/lib" "\"]," line)))
2845                  (substitute* '("src/wscript"
2846                                 "src/server/wscript")
2847                    ;; Add libraries to RUNPATH.
2848                    (("bld.env.PTHREAD_LINKFLAGS" line)
2849                     (string-append line
2850                                    " + [\"-Wl,-rpath=" out "/lib" "\"]")))
2851                  (substitute* "src/client/wscript"
2852                    ;; Add libraries to RUNPATH.
2853                    (("^(.+)target.*= 'ingen_client'," line prefix)
2854                     (string-append prefix
2855                                    "linkflags=[\"-Wl,-rpath="
2856                                    out "/lib" "\"]," line)))
2857                  (substitute* "src/gui/wscript"
2858                    ;; Add libraries to RUNPATH.
2859                    (("^(.+)target.* = 'ingen_gui.*" line prefix)
2860                     (string-append prefix
2861                                    "linkflags=[\"-Wl,-rpath="
2862                                    out "/lib" "\"]," line))))
2863                #t)))))
2864       (inputs
2865        `(("boost" ,boost)
2866          ("python-rdflib" ,python-rdflib)
2867          ("python" ,python)
2868          ("jack" ,jack-1)
2869          ("lv2" ,lv2)
2870          ("lilv" ,lilv)
2871          ("raul" ,raul-devel)
2872          ("ganv" ,ganv-devel)
2873          ("suil" ,suil)
2874          ("serd" ,serd)
2875          ("sord" ,sord)
2876          ("sratom" ,sratom)
2877          ("gtkmm" ,gtkmm-2)))
2878       (native-inputs
2879        `(("pkg-config" ,pkg-config)
2880          ("python-pygments" ,python-pygments)))
2881       (home-page "http://drobilla.net/software/ingen")
2882       (synopsis "Modular audio processing system")
2883       (description "Ingen is a modular audio processing system for JACK and
2884 LV2 based systems.  Ingen is built around LV2 technology and a strict
2885 separation of engine from user interface.  The engine is controlled
2886 exclusively through a protocol, and can execute as a headless process, with an
2887 in-process GUI, or as an LV2 plugin.  The GUI can run as a program which
2888 communicates over a Unix or TCP/IP socket, or as an embeddable LV2 GUI which
2889 communicates via LV2 ports.  Any saved Ingen graph can be loaded as an LV2
2890 plugin on any system where Ingen is installed.  This allows users to visually
2891 develop custom plugins for use in other applications without programming.")
2892       (license license:agpl3+))))
2893
2894 (define-public qmidiarp
2895   (package
2896     (name "qmidiarp")
2897     (version "0.6.4")
2898     (source (origin
2899               (method url-fetch)
2900               (uri (string-append "mirror://sourceforge/qmidiarp/qmidiarp/"
2901                                   version "/qmidiarp-" version ".tar.bz2"))
2902               (sha256
2903                (base32
2904                 "1gkfv8ajgf86kbn6j5ilfc1zlz17gdi9yxzywqd6jwff4xlm75hx"))))
2905     (build-system gnu-build-system)
2906     (arguments
2907      `(#:configure-flags
2908        (list "--enable-qt5"
2909              "CXXFLAGS=-std=gnu++11")))
2910     (inputs
2911      `(("qtbase" ,qtbase)
2912        ("alsa-lib" ,alsa-lib)
2913        ("jack" ,jack-1)
2914        ("liblo" ,liblo)
2915        ("lv2" ,lv2)))
2916     (native-inputs
2917      `(("pkg-config" ,pkg-config)
2918        ("qttools" ,qttools)))
2919     (home-page "http://qmidiarp.sourceforge.net/")
2920     (synopsis "MIDI arpeggiator")
2921     (description "QMidiArp is an advanced MIDI arpeggiator, programmable step
2922 sequencer and LFO.  It can hold any number of arpeggiator, sequencer, or LFO
2923 modules running in parallel.")
2924     (license license:gpl2+)))
2925
2926 (define-public seq24
2927   (package
2928     (name "seq24")
2929     (version "0.9.3")
2930     (source (origin
2931               (method url-fetch)
2932               (uri (string-append "https://launchpad.net/seq24/trunk/"
2933                                   version "/+download/seq24-"
2934                                   version ".tar.bz2"))
2935               (sha256
2936                (base32
2937                 "12dphdhnvfk1k0vmagi1v2lhyxjyj1j3cz6ksjw0ydcvid1x8ap2"))
2938               (patches (search-patches "seq24-rename-mutex.patch"))))
2939     (build-system gnu-build-system)
2940     (arguments
2941      `(#:configure-flags
2942        (list "CXXFLAGS=-std=gnu++11")))
2943     (inputs
2944      `(("gtkmm" ,gtkmm-2)
2945        ("alsa-lib" ,alsa-lib)
2946        ("jack" ,jack-1)
2947        ("lash" ,lash)))
2948     (native-inputs
2949      `(("pkg-config" ,pkg-config)))
2950     (home-page "https://edge.launchpad.net/seq24/")
2951     (synopsis "Real-time MIDI sequencer")
2952     (description "Seq24 is a real-time MIDI sequencer.  It was created to
2953 provide a very simple interface for editing and playing MIDI loops.")
2954     (license license:gpl2+)))
2955
2956 (define-public python-discogs-client
2957   (package
2958     (name "python-discogs-client")
2959     (version "2.2.1")
2960     (source (origin
2961               (method url-fetch)
2962               (uri (pypi-uri "discogs-client" version))
2963               (sha256
2964                (base32
2965                 "053ld2psh0yj3z0kg6z5bn4y3cr562m727494n0ayhgzbkjbacly"))))
2966     (build-system python-build-system)
2967     (propagated-inputs
2968      `(("python-oauthlib" ,python-oauthlib)
2969        ("python-requests" ,python-requests)))
2970     (native-inputs
2971      `(("python-six" ,python-six)))
2972     (home-page "https://github.com/discogs/discogs_client")
2973     (synopsis "Official Python client for the Discogs API")
2974     (description "This is the official Discogs API client for Python. It enables
2975 you to query the Discogs database for information on artists, releases, labels,
2976 users, Marketplace listings, and more.  It also supports OAuth 1.0a
2977 authorization, which allows you to change user data such as profile information,
2978 collections and wantlists, inventory, and orders.")
2979     (license license:bsd-2)))
2980
2981 (define-public python2-discogs-client
2982   (package-with-python2 python-discogs-client))
2983
2984 (define-public libsmf
2985   (package
2986     (name "libsmf")
2987     (version "1.3")
2988     (source
2989      (origin
2990        (method url-fetch)
2991        ;; SF download page says development moved, but the link it points to
2992        ;; is gone (https://github.com/nilsgey/libsmf).  Someone else adopted
2993        ;; it but made no release so far (https://github.com/stump/libsmf).
2994        (uri (string-append "mirror://sourceforge/libsmf/libsmf/"
2995                            version "/libsmf-" version ".tar.gz"))
2996        (sha256
2997         (base32
2998          "16c0n40h0r56gzbh5ypxa4dwp296dan3jminml2qkb4lvqarym6k"))))
2999     (build-system gnu-build-system)
3000     (outputs '("out"
3001                "static")) ; 88KiB of .a files
3002     (arguments
3003      `(#:phases
3004        (modify-phases %standard-phases
3005          (add-after 'install 'move-static-libraries
3006            (lambda* (#:key outputs #:allow-other-keys)
3007              ;; Move static libraries to the "static" output.
3008              (let* ((out    (assoc-ref outputs "out"))
3009                     (lib    (string-append out "/lib"))
3010                     (static (assoc-ref outputs "static"))
3011                     (slib   (string-append static "/lib")))
3012                (mkdir-p slib)
3013                (for-each (lambda (file)
3014                            (install-file file slib)
3015                            (delete-file file))
3016                          (find-files lib "\\.a$"))
3017                #t))))))
3018     (inputs
3019      `(("readline" ,readline)
3020        ("glib" ,glib)))
3021     (native-inputs
3022      `(("doxygen" ,doxygen)
3023        ("pkg-config" ,pkg-config)))
3024     (home-page "http://libsmf.sourceforge.net/")
3025     (synopsis "Standard MIDI File format library")
3026     (description
3027      "LibSMF is a C library for handling SMF (\"*.mid\") files.  It transparently handles
3028 conversions between time and pulses, tempo map handling and more.  The only dependencies
3029 are a C compiler and glib.  Full API documentation and examples are included.")
3030     (license license:bsd-2)))
3031
3032 (define-public lmms
3033   (package
3034     (name "lmms")
3035     (version "1.1.3")
3036     (source
3037      (origin
3038        (method url-fetch)
3039        (uri (string-append "https://github.com/LMMS/lmms/archive/v"
3040                            version ".tar.gz"))
3041        (file-name (string-append name "-" version ".tar.gz"))
3042        (sha256
3043         (base32
3044          "1g76z7ha3hd53vbqaq9n1qg6s3lw8zzaw51iny6y2bz0j1xqwcsr"))))
3045     (build-system cmake-build-system)
3046     (arguments
3047      `(#:tests? #f ; no tests
3048        #:phases
3049        (modify-phases %standard-phases
3050          (add-before
3051           'configure 'set-ldflags
3052           (lambda* (#:key outputs #:allow-other-keys)
3053             (setenv "LDFLAGS"
3054                     (string-append
3055                      "-Wl,-rpath=\""
3056                      (assoc-ref outputs "out") "/lib/lmms"
3057                      ":"
3058                      (assoc-ref outputs "out") "/lib/lmms/ladspa"
3059                      "\"")))))))
3060     (native-inputs
3061      `(("pkg-config" ,pkg-config)))
3062     (inputs
3063      `(("sdl" ,sdl)
3064        ("qt" ,qt-4)
3065        ("fltk" ,fltk)
3066        ("libogg" ,libogg)
3067        ("libsamplerate" ,libsamplerate)
3068        ("fluidsynth" ,fluidsynth)
3069        ("libvorbis" ,libvorbis)
3070        ("alsa-lib" ,alsa-lib)
3071        ("portaudio" ,portaudio)
3072        ("ladspa" ,ladspa)
3073        ("libsndfile1" ,libsndfile)
3074        ("libxft" ,libxft)
3075        ("freetype2" ,freetype)
3076        ("fftw3f" ,fftwf)))
3077     (home-page "https://lmms.io/")
3078     (synopsis "Music composition tool")
3079     (description "LMMS is a digital audio workstation.  It includes tools for sequencing
3080 melodies and beats and for mixing and arranging songs.  LMMS includes instruments based on
3081 audio samples and various soft sythesizers.  It can receive input from a MIDI keyboard.")
3082     (license license:gpl2+)))
3083
3084 (define-public musescore
3085   (package
3086     (name "musescore")
3087     (version "2.1.0")
3088     (source (origin
3089               (method url-fetch)
3090               (uri (string-append
3091                     "https://github.com/musescore/MuseScore/archive/"
3092                     "v" version ".tar.gz"))
3093               (file-name (string-append name "-" version ".tar.gz"))
3094               (sha256
3095                (base32
3096                 "0irwsq6ihfz3y3b943cwqy29g3si7gqbgxdscgw53vwv9vfvi085"))
3097               (modules '((guix build utils)))
3098               (snippet
3099                ;; Un-bundle OpenSSL and remove unused libraries.
3100                '(begin
3101                   (substitute* "thirdparty/kQOAuth/CMakeLists.txt"
3102                     (("-I \\$\\{PROJECT_SOURCE_DIR\\}/thirdparty/openssl/include ")
3103                      ""))
3104                   (substitute* "thirdparty/kQOAuth/kqoauthutils.cpp"
3105                     (("#include <openssl/.*") ""))
3106                   (for-each delete-file-recursively
3107                             '("thirdparty/freetype"
3108                               "thirdparty/openssl"
3109                               "thirdparty/portmidi"))
3110                   #t))))
3111     (build-system gnu-build-system)
3112     (arguments
3113      `(#:make-flags
3114        `(,(string-append "PREFIX=" (assoc-ref %outputs "out")))
3115        ;; There are tests, but no simple target to run.  The command
3116        ;; used to run them is:
3117        ;;
3118        ;;   make debug && sudo make installdebug && cd \
3119        ;;   build.debug/mtest && make && ctest
3120        ;;
3121        ;; Basically, it requires to start a whole new build process.
3122        ;; So we simply skip them.
3123        #:tests? #f
3124        #:phases
3125        (modify-phases %standard-phases
3126          (delete 'configure)
3127          (add-after 'unpack 'use-system-freetype
3128            (lambda _
3129              ;; XXX: For the time being, we grossly insert the CMake
3130              ;; option needed to ignore bundled freetype.  However,
3131              ;; there's a pending PR to have it as a regular make
3132              ;; option, in a future release.
3133              (substitute* "Makefile"
3134                (("cmake -DCMAKE") "cmake -DUSE_SYSTEM_FREETYPE=ON -DCMAKE"))
3135              #t)))))
3136     (inputs
3137      `(("alsa-lib" ,alsa-lib)
3138        ("freetype" ,freetype)
3139        ("gtk+-bin" ,gtk+ "bin")         ;for gtk-update-icon-cache
3140        ("jack" ,jack-1)
3141        ("lame" ,lame)
3142        ("libogg" ,libogg)
3143        ("libsndfile" ,libsndfile)
3144        ("libvorbis" ,libvorbis)
3145        ("portaudio" ,portaudio)
3146        ("pulseaudio" ,pulseaudio)
3147        ("qtbase" ,qtbase)
3148        ("qtdeclarative" ,qtdeclarative)
3149        ("qtscript" ,qtscript)
3150        ("qtsvg" ,qtsvg)
3151        ("qtwebkit" ,qtwebkit)
3152        ("qtxmlpatterns" ,qtxmlpatterns)))
3153     (native-inputs
3154      `(("cmake" ,cmake)
3155        ("pkg-config" ,pkg-config)
3156        ("qttools" ,qttools)))
3157     (synopsis "Music composition and notation software")
3158     (description "MuseScore is a music score typesetter.  Its main purpose is
3159 the creation of high-quality engraved musical scores in a WYSIWYG environment.
3160
3161 It supports unlimited staves, linked parts and part extraction, tablature,
3162 MIDI input, percussion notation, cross-staff beaming, automatic transposition,
3163 lyrics (multiple verses), fretboard diagrams, and in general everything
3164 commonly used in sheet music.  Style options and style sheets to change the
3165 appearance and layout are provided.
3166
3167 MuseScore can also play back scores through the built-in sequencer and SoundFont
3168 sample library.")
3169     (home-page "https://musescore.org")
3170     (license license:gpl2)))
3171
3172 (define-public dssi
3173   (package
3174     (name "dssi")
3175     (version "1.1.1")
3176     (source (origin
3177               (method url-fetch)
3178               (uri (string-append
3179                     "mirror://sourceforge/dssi/dssi/" version
3180                     "/dssi-" version ".tar.gz"))
3181               (sha256
3182                (base32
3183                 "0kl1hzhb7cykzkrqcqgq1dk4xcgrcxv0jja251aq4z4l783jpj7j"))))
3184     (build-system gnu-build-system)
3185     (inputs
3186      `(("alsa-lib" ,alsa-lib)
3187        ("jack-2" ,jack-2)
3188        ("ladspa" ,ladspa)
3189        ("libsamplerate" ,libsamplerate)
3190        ("libsndfile" ,libsndfile)
3191        ("liblo" ,liblo)))
3192     (native-inputs
3193      `(("pkg-config" ,pkg-config)))
3194     (synopsis "Audio plugin API for soft synths and effects")
3195     (description "DSSI is a plugin API for software instruments with user
3196 interfaces, permitting them to be hosted in-process by audio applications.
3197 It is intended to be simple, GUI-toolkit-agnostic, and slightly biased
3198 towards familiarity with MIDI.  The DSSI distribution package contains
3199 a JACK/ALSA-sequencer reference host and some plugins as well as the
3200 specification and header.")
3201     (home-page "http://dssi.sourceforge.net/")
3202     ;; The DSSI interface is LGPL2.1+, some tests and examples are GPL2+.
3203     ;; The vast majority of examples are in the public domain.
3204     (license (list license:lgpl2.1+ license:gpl2+))))
3205
3206 (define-public rosegarden
3207   (package
3208     (name "rosegarden")
3209     (version "17.04")
3210     (source (origin
3211               (method url-fetch)
3212               (uri (string-append
3213                     "mirror://sourceforge/rosegarden/rosegarden/"
3214                     version "/rosegarden-" version ".tar.bz2"))
3215               (sha256
3216                (base32
3217                 "1khfcj22asdhjh0jvhkqsz200wgmigkhsrcz09ffia5hqm0n32lq"))))
3218     (build-system cmake-build-system)
3219     (arguments
3220      `(#:configure-flags '("-DUSE_QT5=1") ; "-DCMAKE_BUILD_TYPE=Release"
3221        #:phases
3222        (modify-phases %standard-phases
3223          (add-after 'unpack 'patch-tests
3224            (lambda _
3225              (substitute* "CMakeLists.txt"
3226                (("BUILD_TESTING OFF") "BUILD_TESTING ON")
3227                ;; Make tests work.
3228                ((" -fvisibility=hidden") ""))
3229              #t))
3230          (add-after 'unpack 'fix-references
3231            (lambda* (#:key inputs #:allow-other-keys)
3232              (substitute* "src/gui/general/ProjectPackager.cpp"
3233                (("\"flac\\>")
3234                 (string-append "\"" (assoc-ref inputs "flac") "/bin/flac"))
3235                (("\"wavpack\\>")
3236                 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wavpack"))
3237                (("\"wvunpack\\>")
3238                 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wvunpack"))
3239                (("\"bash\\>")
3240                 (string-append "\"" (assoc-ref inputs "bash") "/bin/bash"))
3241                (("\"tar\\>")
3242                 (string-append "\"" (assoc-ref inputs "tar") "/bin/tar")))
3243              (substitute* "src/gui/general/LilyPondProcessor.cpp"
3244                (("\"convert-ly\\>")
3245                 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/convert-ly"))
3246                (("\"lilypond\\>")
3247                 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/lilypond")))
3248              #t))
3249          (add-after 'unpack 'make-reproducible
3250            (lambda _
3251              ;; Prevent Last-Modified from being written.
3252              ;; The "*.qm" files that are used in locale.qrc would have a new
3253              ;; mtime otherwise that is written into qrc_locale.cpp in the
3254              ;; end - except when we disable it.
3255              (substitute* "src/CMakeLists.txt"
3256                (("COMMAND [$][{]QT_RCC_EXECUTABLE[}]")
3257                 "COMMAND ${QT_RCC_EXECUTABLE} --format-version 1")
3258                ;; Extraneous.
3259                ;(("qt5_add_resources[(]rg_SOURCES ../data/data.qrc[)]")
3260                ; "qt5_add_resources(rg_SOURCES ../data/data.qrc OPTIONS --format-version 1)")
3261                 )
3262              ;; Make hashtable traversal order predicable.
3263              (setenv "QT_RCC_TEST" "1") ; important
3264              #t))
3265          (add-before 'check 'prepare-check
3266            (lambda _
3267              (setenv "QT_QPA_PLATFORM" "offscreen")
3268              ;; Tests create files in $HOME/.local/share/rosegarden .
3269              (mkdir-p "/tmp/foo")
3270              (setenv "HOME" "/tmp/foo")
3271              #t)))))
3272     (inputs
3273      `(("alsa-lib" ,alsa-lib)
3274        ("bash" ,bash)
3275        ("dssi" ,dssi)
3276        ("flac" ,flac)
3277        ("fftwf" ,fftwf)
3278        ("jack-2" ,jack-2)
3279        ("ladspa" ,ladspa)
3280        ("liblo" ,liblo)
3281        ("libsamplerate" ,libsamplerate)
3282        ("lilypond" ,lilypond)
3283        ("lrdf" ,lrdf)
3284        ("qtbase" ,qtbase)
3285        ("tar" ,tar)
3286        ("lirc" ,lirc)
3287        ("wavpack" ,wavpack)
3288        ("zlib" ,zlib)))
3289     (native-inputs
3290      `(("pkg-config" ,pkg-config)
3291        ("qtlinguist" ,qttools)))
3292     (synopsis "Music composition and editing environment based around a MIDI
3293 sequencer")
3294     (description "Rosegarden is a music composition and editing environment
3295 based around a MIDI sequencer that features a rich understanding of music
3296 notation and includes basic support for digital audio.")
3297     (home-page "http://www.rosegardenmusic.com/")
3298     (license license:gpl2)))