gnu/packages/music.scm

   1 ;;; GNU Guix --- Functional package management for GNU
   2 ;;; Copyright © 2014, 2019 Eric Bavier <bavier@member.fsf.org>
   3 ;;; Copyright © 2015, 2016, 2017, 2018, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
   4 ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
   5 ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
   6 ;;; Copyright © 2016, 2017, 2019 Efraim Flashner <efraim@flashner.co.il>
   7 ;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name>
   8 ;;; Copyright © 2016, 2017, 2019 Kei Kebreau <kkebreau@posteo.net>
   9 ;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net>
  10 ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com>
  11 ;;; Copyright © 2017 ng0 <ng0@n0.is>
  12 ;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org>
  13 ;;; Copyright © 2017, 2018, 2019, 2020 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  14 ;;; Copyright © 2017, 2018, 2019 Pierre Langlois <pierre.langlois@gmx.com>
  15 ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
  16 ;;; Copyright © 2017, 2018, 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
  17 ;;; Copyright © 2018 nee <nee.git@hidamari.blue>
  18 ;;; Copyright © 2018 Stefan Reichör <stefan@xsteve.at>
  19 ;;; Copyright © 2018 Pierre Neidhardt <mail@ambrevar.xyz>
  20 ;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org>
  21 ;;; Copyright © 2018 Björn Höfling <bjoern.hoefling@bjoernhoefling.de>
  22 ;;; Copyright © 2019 Gabriel Hondet <gabrielhondet@gmail.com>
  23 ;;; Copyright © 2019 Timotej Lazar <timotej.lazar@araneo.si>
  24 ;;; Copyright © 2019 Jakob L. Kreuze <zerodaysfordays@sdf.org>
  25 ;;; Copyright © 2019 raingloom <raingloom@protonmail.com>
  26 ;;; Copyright © 2019 David Wilson <david@daviwil.com>
  27 ;;; Copyright © 2019, 2020 Alexandros Theodotou <alex@zrythm.org>
  28 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
  29 ;;;
  30 ;;; This file is part of GNU Guix.
  31 ;;;
  32 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  33 ;;; under the terms of the GNU General Public License as published by
  34 ;;; the Free Software Foundation; either version 3 of the License, or (at
  35 ;;; your option) any later version.
  36 ;;;
  37 ;;; GNU Guix is distributed in the hope that it will be useful, but
  38 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  39 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  40 ;;; GNU General Public License for more details.
  41 ;;;
  42 ;;; You should have received a copy of the GNU General Public License
  43 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  44
  45 (define-module (gnu packages music)
  46   #:use-module (guix utils)
  47   #:use-module (guix packages)
  48   #:use-module (guix download)
  49   #:use-module (guix git-download)
  50   #:use-module ((guix licenses) #:prefix license:)
  51   #:use-module (guix build-system gnu)
  52   #:use-module (guix build-system ant)
  53   #:use-module (guix build-system cmake)
  54   #:use-module (guix build-system meson)
  55   #:use-module (guix build-system perl)
  56   #:use-module (guix build-system python)
  57   #:use-module (guix build-system scons)
  58   #:use-module (guix build-system glib-or-gtk)
  59   #:use-module (guix build-system waf)
  60   #:use-module (guix build-system trivial)
  61   #:use-module (guix build-system go)
  62   #:use-module (gnu packages)
  63   #:use-module (gnu packages admin)
  64   #:use-module (gnu packages algebra)
  65   #:use-module (gnu packages apr)
  66   #:use-module (gnu packages audio)
  67   #:use-module (gnu packages autotools)
  68   #:use-module (gnu packages backup)
  69   #:use-module (gnu packages base) ;libbdf
  70   #:use-module (gnu packages bash)
  71   #:use-module (gnu packages bison)
  72   #:use-module (gnu packages boost)
  73   #:use-module (gnu packages cdrom)
  74   #:use-module (gnu packages code)
  75   #:use-module (gnu packages check)
  76   #:use-module (gnu packages cmake)
  77   #:use-module (gnu packages compression)
  78   #:use-module (gnu packages crypto)
  79   #:use-module (gnu packages curl)
  80   #:use-module (gnu packages cyrus-sasl)
  81   #:use-module (gnu packages datastructures)
  82   #:use-module (gnu packages docbook)
  83   #:use-module (gnu packages documentation)
  84   #:use-module (gnu packages emacs)
  85   #:use-module (gnu packages file)
  86   #:use-module (gnu packages flex)
  87   #:use-module (gnu packages fltk)
  88   #:use-module (gnu packages fonts)
  89   #:use-module (gnu packages fontutils)
  90   #:use-module (gnu packages freedesktop)
  91   #:use-module (gnu packages game-development)
  92   #:use-module (gnu packages gcc)
  93   #:use-module (gnu packages gnupg)
  94   #:use-module (gnu packages gettext)
  95   #:use-module (gnu packages ghostscript)
  96   #:use-module (gnu packages gl)
  97   #:use-module (gnu packages glib)
  98   #:use-module (gnu packages gnome)
  99   #:use-module (gnu packages gpodder)
 100   #:use-module (gnu packages graphics)
 101   #:use-module (gnu packages gstreamer)
 102   #:use-module (gnu packages gtk)
 103   #:use-module (gnu packages guile)
 104   #:use-module (gnu packages haskell)
 105   #:use-module (gnu packages image)
 106   #:use-module (gnu packages imagemagick)
 107   #:use-module (gnu packages java)
 108   #:use-module (gnu packages libffi)
 109   #:use-module (gnu packages libusb)
 110   #:use-module (gnu packages linux) ; for alsa-utils
 111   #:use-module (gnu packages lirc)
 112   #:use-module (gnu packages llvm)
 113   #:use-module (gnu packages man)
 114   #:use-module (gnu packages mp3)
 115   #:use-module (gnu packages mpd)
 116   #:use-module (gnu packages ncurses)
 117   #:use-module (gnu packages netpbm)
 118   #:use-module (gnu packages pcre)
 119   #:use-module (gnu packages pdf)
 120   #:use-module (gnu packages perl)
 121   #:use-module (gnu packages perl-web)
 122   #:use-module (gnu packages pkg-config)
 123   #:use-module (gnu packages protobuf)
 124   #:use-module (gnu packages pulseaudio) ;libsndfile
 125   #:use-module (gnu packages python)
 126   #:use-module (gnu packages python-web)
 127   #:use-module (gnu packages python-xyz)
 128   #:use-module (gnu packages qt)
 129   #:use-module (gnu packages rdf)
 130   #:use-module (gnu packages readline)
 131   #:use-module (gnu packages rsync)
 132   #:use-module (gnu packages sdl)
 133   #:use-module (gnu packages sqlite)
 134   #:use-module (gnu packages tcl)
 135   #:use-module (gnu packages texinfo)
 136   #:use-module (gnu packages tex)
 137   #:use-module (gnu packages time)
 138   #:use-module (gnu packages tls)
 139   #:use-module (gnu packages version-control)
 140   #:use-module (gnu packages video)
 141   #:use-module (gnu packages web)
 142   #:use-module (gnu packages wxwidgets)
 143   #:use-module (gnu packages xml)
 144   #:use-module (gnu packages xorg)
 145   #:use-module (gnu packages xiph)
 146   #:use-module (gnu packages golang)
 147   #:use-module (gnu packages lua)
 148   #:use-module ((srfi srfi-1) #:select (last)))
 149
 150 (define-public aria-maestosa
 151   (package
 152     (name "aria-maestosa")
 153     (version "1.4.13")
 154     (source (origin
 155               (method url-fetch)
 156               (uri (string-append "mirror://sourceforge/ariamaestosa/ariamaestosa/"
 157                                   version "/AriaSrc-" version ".tar.bz2"))
 158               (sha256
 159                (base32
 160                 "1cs3z6frx2ch7rm5ammx9p0rxcjrbj1vq14hvcbimpaw39rdsn3d"))))
 161     (build-system scons-build-system)
 162     (arguments
 163      `(#:tests? #f  ;no tests
 164        #:scons-flags
 165        (list (string-append "prefix=" (assoc-ref %outputs "out")))
 166        #:scons ,scons-python2
 167        #:phases
 168        (modify-phases %standard-phases
 169          (delete 'configure)
 170          (add-after 'unpack 'scons-propagate-environment
 171            (lambda _
 172              ;; By design, SCons does not, by default, propagate
 173              ;; environment variables to subprocesses.  See:
 174              ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
 175              ;; Here, we modify the SConstruct file to arrange for
 176              ;; environment variables to be propagated.
 177              (substitute* "SConstruct"
 178                (("env = Environment\\(\\)")
 179                 "env = Environment(ENV=os.environ)")
 180                ;; Scons errors out when copying subdirectories from Resources,
 181                ;; so we move them instead.
 182                (("Copy") "Move")
 183                ;; We move the "score" and "Documentation" directories at once,
 184                ;; so we have to ignore files contained therein.
 185                (("if \".svn\" in file" line)
 186                 (string-append line
 187                                " or \"score/\" in file"
 188                                " or \"Documentation/\" in file")))
 189              #t))
 190          (add-after 'install 'fix-directory-permissions
 191            (lambda* (#:key outputs #:allow-other-keys)
 192              (let ((out (assoc-ref outputs "out")))
 193                (chmod (string-append out "/share/Aria/Documentation") #o555)
 194                (chmod (string-append out "/share/Aria/score") #o555)
 195                #t))))))
 196     (inputs
 197      `(("wxwidgets" ,wxwidgets)
 198        ("glib" ,glib)
 199        ("alsa-lib" ,alsa-lib)))
 200     (native-inputs
 201      `(("pkg-config" ,pkg-config)))
 202     (home-page "http://ariamaestosa.sourceforge.net/")
 203     (synopsis "MIDI sequencer and editor")
 204     (description
 205      "Aria Maestosa is a MIDI sequencer and editor.  It lets you compose, edit
 206 and play MIDI files with a few clicks in a user-friendly interface offering
 207 score, keyboard, guitar, drum and controller views.")
 208     (license license:gpl3+)))
 209
 210 ;; We don't use the latest release because it depends on Qt4.  Instead we
 211 ;; download the sources from the tip of the "qt5" branch.
 212 (define-public clementine
 213   (let ((commit "4619a4c1ab3b17b13d4b2327ad477912917eaf36")
 214         (revision "2"))
 215     (package
 216       (name "clementine")
 217       (version (git-version "1.3.1" revision commit))
 218       (source (origin
 219                 (method git-fetch)
 220                 (uri (git-reference
 221                       (url "https://github.com/clementine-player/Clementine.git")
 222                       (commit commit)))
 223                 (file-name (git-file-name name version))
 224                 (sha256
 225                  (base32
 226                   "1hximk3q0p8nw8is5w7215xgkb7k4flnfyr0pdz9svfwvcm05w1i"))
 227                 (modules '((guix build utils)))
 228                 (snippet
 229                  '(begin
 230                     (for-each
 231                      (lambda (dir)
 232                        (delete-file-recursively
 233                         (string-append "3rdparty/" dir)))
 234                      (list
 235                       ;; TODO: The following dependencies are still bundled:
 236                       ;; - "qxt": Appears to be unmaintained upstream.
 237                       ;; - "qsqlite"
 238                       ;; - "qtsingleapplication"
 239                       ;; - "qocoa"
 240                       ;; - "qtiocompressor"
 241                       ;; - "gmock": The tests crash when using our googletest
 242                       ;;   package instead of the bundled gmock.
 243                       "SPMediaKeyTap"
 244                       "fancytabwidget"
 245                       "google-breakpad"
 246                       "libmygpo-qt"
 247                       "libmygpo-qt5"
 248                       "libprojectm"
 249                       "qtwin"
 250                       "sha2" ;; Replaced by openssl.
 251                       "taglib"
 252                       "tinysvcmdns"))
 253                     #t))
 254                 (patches (search-patches "clementine-use-openssl.patch"
 255                                          "clementine-remove-crypto++-dependency.patch"
 256                                          "clementine-fix-sqlite.patch"))))
 257       (build-system cmake-build-system)
 258       (arguments
 259        '(#:test-target "clementine_test"
 260          #:configure-flags
 261          (list ;; Requires unpackaged "projectm"
 262                "-DENABLE_VISUALISATIONS=OFF"
 263                ;; Otherwise it may try to download a non-free library at run-time.
 264                ;; TODO In an origin snippet, remove the code that performs the
 265                ;; download.
 266                "-DHAVE_SPOTIFY_DOWNLOADER=FALSE"
 267                "-DUSE_SYSTEM_SHA2=TRUE")
 268          #:phases
 269          (modify-phases %standard-phases
 270            (add-after 'install 'wrap-program
 271              (lambda* (#:key inputs outputs #:allow-other-keys)
 272                (let ((out             (assoc-ref outputs "out"))
 273                      (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
 274                  (wrap-program (string-append out "/bin/clementine")
 275                    `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
 276                  #t))))))
 277       (native-inputs
 278        `(("gettext" ,gettext-minimal)
 279          ("pkg-config" ,pkg-config)
 280          ("qtlinguist" ,qttools)))
 281       (inputs
 282        `(("boost" ,boost)
 283          ("chromaprint" ,chromaprint)
 284          ("fftw" ,fftw)
 285          ("glib" ,glib)
 286          ("glu" ,glu)
 287          ("gstreamer" ,gstreamer)
 288          ("gst-plugins-base" ,gst-plugins-base)
 289          ("gst-plugins-good" ,gst-plugins-good)
 290          ("gst-libav" ,gst-libav)
 291          ("libcdio" ,libcdio)
 292          ("libmygpo-qt" ,libmygpo-qt)
 293          ;; TODO: Package libgpod.
 294          ("libmtp" ,libmtp)
 295          ("libxml2" ,libxml2)
 296          ("openssl" ,openssl)
 297          ("protobuf" ,protobuf)
 298          ("pulseaudio" ,pulseaudio)
 299          ("qtbase" ,qtbase)
 300          ("qtx11extras" ,qtx11extras)
 301          ("sqlite" ,sqlite-with-column-metadata)
 302          ("sparsehash" ,sparsehash)
 303          ("taglib" ,taglib)))
 304       (home-page "https://clementine-player.org")
 305       (synopsis "Music player and library organizer")
 306       (description "Clementine is a multiplatform music player.  It is inspired
 307 by Amarok 1.4, focusing on a fast and easy-to-use interface for searching and
 308 playing your music.")
 309       (license (list
 310                  ;; clementine and qtiocompressor are under GPLv3.
 311                  license:gpl3+
 312                  ;; gmock is under BSD-3.
 313                  license:bsd-3
 314                  ;; qxt is under CPL1.0.
 315                  license:cpl1.0
 316                  ;; qsqlite and qtsingleapplication are under LGPL2.1+.
 317                  license:lgpl2.1+
 318                  ;; qocoa is under MIT and CC by-sa for the icons.
 319                  license:cc-by-sa3.0)))))
 320
 321 (define-public cmus
 322   (package
 323     (name "cmus")
 324     (version "2.8.0")
 325     (source (origin
 326               (method git-fetch)
 327               (uri (git-reference
 328                     (url "https://github.com/cmus/cmus.git")
 329                     (commit (string-append "v" version))))
 330               (file-name (git-file-name name version))
 331               (sha256
 332                (base32
 333                 "1ydnvq13ay8b8mfmmgwi5qsgyf220yi1d01acbnxqn775dghmwar"))))
 334     (build-system gnu-build-system)
 335     (arguments
 336      `(#:tests? #f ; cmus does not include tests
 337        #:phases
 338        (modify-phases %standard-phases
 339          (replace 'configure
 340            (lambda* (#:key outputs #:allow-other-keys)
 341              (let ((out (assoc-ref outputs "out")))
 342                ;; It's an idiosyncratic configure script that doesn't
 343                ;; understand --prefix=..; it wants prefix=.. instead.
 344                (invoke "./configure"
 345                        (string-append "prefix=" out))
 346                #t))))))
 347     ;; TODO: cmus optionally supports the following formats, which haven't yet
 348     ;; been added to Guix:
 349     ;;
 350     ;; - Roar, libroar
 351     ;;
 352     ;; - DISCID_LIBS, apparently different from cd-discid which is included in
 353     ;;   Guix.  See <http://sourceforge.net/projects/discid/>
 354     (native-inputs
 355      `(("pkg-config" ,pkg-config)))
 356     (inputs
 357      `(("alsa-lib" ,alsa-lib)
 358        ("ao" ,ao)
 359        ("faad2" ,faad2)
 360        ("ffmpeg" ,ffmpeg)
 361        ("flac" ,flac)
 362        ("jack" ,jack-1)
 363        ("libcddb" ,libcddb)
 364        ("libcdio-paranoia" ,libcdio-paranoia)
 365        ("libcue" ,libcue)
 366        ("libmad" ,libmad)
 367        ("libmodplug" ,libmodplug)
 368        ("libmpcdec" ,libmpcdec)
 369        ("libsamplerate" ,libsamplerate)
 370        ("libvorbis" ,libvorbis)
 371        ("ncurses" ,ncurses)
 372        ("opusfile" ,opusfile)
 373        ("pulseaudio" ,pulseaudio)
 374        ("wavpack" ,wavpack)))
 375      (home-page "https://cmus.github.io/")
 376      (synopsis "Small console music player")
 377      (description "Cmus is a small and fast console music player.  It supports
 378 many input formats and provides a customisable Vi-style user interface.")
 379      (license license:gpl2+)))
 380
 381 (define-public denemo
 382   (package
 383     (name "denemo")
 384     (version "2.3.0")
 385     (source
 386      (origin
 387        (method url-fetch)
 388        (uri (string-append "mirror://gnu/denemo/"
 389                            "denemo-" version ".tar.gz"))
 390        (sha256
 391         (base32 "1blkcl3slbsq9jlhwcf2m9v9g38a0sjfhh9advgi2qr1gxri08by"))))
 392     (build-system gnu-build-system)
 393     (arguments
 394      `(#:phases
 395        (modify-phases %standard-phases
 396          (replace 'check
 397            (lambda* (#:key inputs #:allow-other-keys)
 398              ;; Tests require to write $HOME.
 399              (setenv "HOME" (getcwd))
 400              ;; Replace hard-coded diff file name.
 401              (substitute* "tests/integration.c"
 402                (("/usr/bin/diff")
 403                 (string-append (assoc-ref inputs "diffutils") "/bin/diff")))
 404              ;; Denemo's documentation says to use this command to run its
 405              ;; test suite.
 406              (invoke "make" "-C" "tests" "check")))
 407          (add-before 'build 'set-lilypond
 408            ;; This phase sets the default path for lilypond to its current
 409            ;; location in the store.
 410            (lambda* (#:key inputs #:allow-other-keys)
 411              (let* ((lilypond (string-append (assoc-ref inputs "lilypond")
 412                                              "/bin/lilypond")))
 413                (substitute* "src/core/prefops.c"
 414                  (("g_string_new \\(\"lilypond\"\\);")
 415                   (string-append "g_string_new (\""
 416                                  lilypond
 417                                  "\");"))))
 418              #t)))))
 419     (native-inputs
 420      `(("diffutils" ,diffutils)
 421        ("glib:bin" ,glib "bin")         ; for gtester
 422        ("gtk-doc" ,gtk-doc)
 423        ("intltool" ,intltool)
 424        ("libtool" ,libtool)
 425        ("pkg-config" ,pkg-config)))
 426     (inputs
 427      `(("alsa-lib" ,alsa-lib)
 428        ("aubio" ,aubio)
 429        ("evince" ,evince)
 430        ("fftw" ,fftw)
 431        ("fluidsynth" ,fluidsynth)
 432        ("glib" ,glib)
 433        ("gtk+" ,gtk+)
 434        ("gtksourceview" ,gtksourceview-3)
 435        ("guile" ,guile-2.0)
 436        ("librsvg" ,librsvg)
 437        ("libsndfile" ,libsndfile)
 438        ("libxml2" ,libxml2)
 439        ("lilypond" ,lilypond)
 440        ("portaudio" ,portaudio)
 441        ("portmidi" ,portmidi)
 442        ("rubberband" ,rubberband)))
 443     (synopsis "Graphical music notation, front-end to GNU Lilypond")
 444     (description
 445      "GNU Denemo is a music notation editor that provides a convenient
 446 interface to the powerful music engraving program Lilypond.  Music can be
 447 typed in using the computer keyboard, played in using a MIDI keyboard, or
 448 even input via a microphone connected to the sound card.  The final product
 449 is publication-quality music notation that is continuously generated in the
 450 background while you work.")
 451     (home-page "http://www.denemo.org")
 452     (license license:gpl3+)))
 453
 454 (define-public dumb
 455   (package
 456     (name "dumb")
 457     (version "2.0.3")
 458     (source
 459      (origin
 460        (method git-fetch)
 461        (uri (git-reference
 462              (url "https://github.com/kode54/dumb.git")
 463              (commit version)))
 464        (sha256
 465         (base32 "1cnq6rb14d4yllr0yi32p9jmcig8avs3f43bvdjrx4r1mpawspi6"))
 466        (file-name (git-file-name name version))))
 467     (build-system cmake-build-system)
 468     (arguments
 469      '(#:tests? #f ; no check target
 470        #:configure-flags
 471        (list "-DBUILD_SHARED_LIBS=ON"
 472              "-DBUILD_EXAMPLES=OFF")))
 473     (home-page "https://github.com/kode54/dumb")
 474     (synopsis "Module audio renderer library")
 475     (description
 476      "DUMB is a tracker library with support for IT, XM, S3M and MOD files.  It
 477 targets maximum accuracy to the original formats, with low-pass resonant filters
 478 for the IT files, accurate timing and pitching, and three resampling quality
 479 settings (aliasing, linear interpolation and cubic interpolation).")
 480     ;; The DUMB license is a bit peculiar.
 481     ;; Clause 8 states that clauses 4, 5 and 6 are null and void, leaving only
 482     ;; the first three clauses for genuine consideration.
 483     ;; Clauses 1, 2 and 3 are analogous to clauses 1, 2 and 3 of the zlib
 484     ;; license, a known free software license.
 485     ;; Therefore, the DUMB license may be considered a free software license.
 486     (license (license:fsf-free "file://LICENSE"))))
 487
 488 (define-public dumb-allegro4
 489   (package
 490     (inherit dumb)
 491     (name "dumb-allegro4")
 492     (arguments
 493      (substitute-keyword-arguments (package-arguments dumb)
 494        ((#:configure-flags flags)
 495         `(cons "-DBUILD_ALLEGRO4=ON" ,flags))))
 496     (inputs
 497      `(("allegro" ,allegro-4)))))
 498
 499 (define-public hydrogen
 500   (package
 501     (name "hydrogen")
 502     (version "1.0.0-beta2")
 503     (source
 504      (origin
 505        (method git-fetch)
 506        (uri (git-reference
 507              (url "https://github.com/hydrogen-music/hydrogen.git")
 508              (commit version)))
 509        (file-name (git-file-name name version))
 510        (sha256
 511         (base32 "1s3jrdyjpm92flw9mkkxchnj0wz8nn1y1kifii8ws252iiqjya4a"))))
 512     (build-system cmake-build-system)
 513     (arguments
 514      `(#:test-target "tests"
 515        #:phases
 516        (modify-phases %standard-phases
 517          (add-after 'unpack 'fix-data-directory
 518            (lambda* (#:key outputs #:allow-other-keys)
 519              (substitute* "CMakeLists.txt"
 520                (("/usr/share/pixmaps")
 521                 (string-append (assoc-ref outputs "out")
 522                                "/share/pixmaps")))
 523              #t)))))
 524     (native-inputs
 525      `(("cppunit" ,cppunit)
 526        ("pkg-config" ,pkg-config)
 527        ("qtlinguist" ,qttools)))
 528     (inputs
 529      `(("alsa-lib" ,alsa-lib)
 530        ("jack" ,jack-1)
 531        ;; ("ladspa" ,ladspa) ; require LADSPA_PATH to be set
 532        ("lash" ,lash)
 533        ("libarchive" ,libarchive)
 534        ("liblo" ,liblo)
 535        ("libsndfile" ,libsndfile)
 536        ("lrdf" ,lrdf)
 537        ("pulseaudio" ,pulseaudio)
 538        ("qtbase" ,qtbase)
 539        ("qtxmlpatterns" ,qtxmlpatterns)
 540        ("zlib" ,zlib)))
 541     (home-page "http://www.hydrogen-music.org")
 542     (synopsis "Drum machine")
 543     (description
 544      "Hydrogen is an advanced drum machine for GNU/Linux.  Its main goal is to
 545 enable professional yet simple and intuitive pattern-based drum programming.")
 546     (license license:gpl2+)))
 547
 548 (define-public easytag
 549   (package
 550     (name "easytag")
 551     (version "2.4.3")
 552     (source (origin
 553              (method url-fetch)
 554               (uri (string-append "mirror://gnome/sources/easytag/2.4/easytag-"
 555                      version ".tar.xz"))
 556              (sha256
 557               (base32
 558                "1mbxnqrw1fwcgraa1bgik25vdzvf97vma5pzknbwbqq5ly9fwlgw"))))
 559     (build-system glib-or-gtk-build-system)
 560     (native-inputs
 561      `(("desktop-file-utils" ,desktop-file-utils)
 562        ("glib" ,glib "bin")
 563        ("intltool" ,intltool)
 564        ("itstool" ,itstool)
 565        ("pkg-config" ,pkg-config)
 566        ("xmllint" ,libxml2)))
 567     (inputs
 568      `(("flac" ,flac)
 569        ("gtk+" ,gtk+)
 570        ("id3lib" ,id3lib)
 571        ("libid3tag" ,libid3tag)
 572        ("libvorbis" ,libvorbis)
 573        ("opusfile" ,opusfile)
 574        ("speex" ,speex)
 575        ("taglib" ,taglib)
 576        ("wavpack" ,wavpack)
 577        ("yelp" ,yelp)))
 578     (arguments
 579      '(#:phases
 580        (modify-phases %standard-phases
 581          (add-before 'configure 'configure-libid3tag
 582            (lambda* (#:key inputs #:allow-other-keys)
 583              ;; libid3tag does not provide a .pc file and EasyTAG's configure
 584              ;; script healivy relies on pkg-config.  Providing a temporary
 585              ;; local .pc file is easier than patching the configure script.
 586              (let* ((libid3tag (assoc-ref inputs "libid3tag")))
 587                (mkdir-p "pkgconfig")
 588                (with-output-to-file
 589                  "pkgconfig/id3tag.pc"
 590                  (lambda _
 591                    (format #t
 592                      "prefix=~@*~a~@
 593                       libdir=${prefix}/lib~@
 594                       includedir=${prefix}/include~@
 595
 596                       Name: libid3tag~@
 597                       Description:~@
 598                       Version:~@
 599                       Libs: -L${libdir} -lid3tag -lz~@
 600                       Cflags: -I${includedir}~%"
 601                      libid3tag)))
 602                (setenv "PKG_CONFIG_PATH"
 603                  (string-append (getenv "PKG_CONFIG_PATH")
 604                    ":" (getcwd) "/pkgconfig"))
 605                #t)))
 606          (add-after 'unpack 'patch-makefile
 607            (lambda _
 608              (substitute* "Makefile.in"
 609                ;; The Makefile generates a test-desktop-file-validate.sh
 610                ;; script with /bin/sh hard-coded.
 611                (("/bin/sh") (which "sh"))
 612                ;; Don't create 'icon-theme.cache'.
 613                (("gtk-update-icon-cache") "true"))
 614              #t)))))
 615     (home-page "https://wiki.gnome.org/Apps/EasyTAG")
 616     (synopsis "Simple application for viewing and editing tags in audio files")
 617     (description
 618       "EasyTAG is an application for viewing and editing tags in audio files.
 619 It supports MP3, MP2, MP4/AAC, FLAC, Ogg Opus, Ogg Speex, Ogg Vorbis,
 620 MusePack, Monkey's Audio, and WavPack files.")
 621     (license license:gpl2+)))
 622
 623 (define-public extempore
 624   (package
 625     (name "extempore")
 626     (version "0.7.0")
 627     (source (origin
 628               (method git-fetch)
 629               (uri (git-reference
 630                     (url "https://github.com/digego/extempore.git")
 631                     (commit version)))
 632               (sha256
 633                (base32
 634                 "12fsp7zkfxb9kykwq46l88kcbbici9arczrrsl4qn87m6vm5349l"))
 635               (file-name (string-append name "-" version "-checkout"))))
 636     (build-system cmake-build-system)
 637     (arguments
 638      `(;; The default target also includes ahead-of-time compilation of the
 639        ;; standard libraries.  However, during the "install" phase this would
 640        ;; happen *again* for unknown reasons.  Hence we only build the
 641        ;; extempore executable during the build phase.
 642        #:make-flags '("extempore")
 643        #:configure-flags '("-DJACK=ON"
 644                            ;; We want to distribute.
 645                            "-DIN_TREE=OFF"
 646                            ;; Don't download any dependencies.
 647                            "-DBUILD_DEPS=OFF")
 648        #:modules ((ice-9 match)
 649                   (guix build cmake-build-system)
 650                   (guix build utils))
 651        #:phases
 652        (modify-phases %standard-phases
 653          (add-after 'unpack 'patch-directories
 654            (lambda* (#:key outputs #:allow-other-keys)
 655              ;; Rewrite default path to runtime directory
 656              (substitute* "src/Extempore.cpp"
 657                (("runtimedir \\+= \"runtime\"")
 658                 (string-append "runtimedir = \""
 659                                (assoc-ref outputs "out")
 660                                "/lib/extempore/runtime\"")))
 661              (substitute* "extras/extempore.el"
 662                (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
 663                 (string-append "(runtime-directory \""
 664                                (assoc-ref outputs "out")
 665                                "/lib/extempore/runtime"
 666                                "\")")))
 667              #t))
 668          (add-after 'unpack 'link-with-additional-libs
 669            (lambda _
 670              ;; The executable must be linked with libffi and zlib.
 671              (substitute* "CMakeLists.txt"
 672                (("add_dependencies\\(aot_extended extended_deps\\)") "")
 673                (("target_link_libraries\\(extempore PRIVATE dl" line)
 674                 (string-append line " ffi z")))
 675              #t))
 676          ;; FIXME: AOT compilation of the nanovg bindings fail with the error:
 677          ;; "Compiler Error  could not bind _nvgLinearGradient"
 678          (add-after 'unpack 'disable-nanovg
 679            (lambda _
 680              (substitute* "CMakeLists.txt"
 681                (("aotcompile_lib\\(libs/external/nanovg.xtm.*") ""))
 682              #t))
 683          ;; FIXME: All examples that are used as tests segfault for some
 684          ;; unknown reason.
 685          (add-after 'unpack 'disable-broken-tests
 686            (lambda _
 687              (substitute* "CMakeLists.txt"
 688                (("extempore_add_example_as_test\\(.*") ""))
 689              #t))
 690          (add-after 'unpack 'hardcode-external-lib-paths
 691            (lambda* (#:key inputs #:allow-other-keys)
 692              (use-modules (ice-9 match))
 693              (for-each
 694               (match-lambda
 695                 ((file-name lib pkg-name)
 696                  (substitute* (string-append "libs/external/" file-name ".xtm")
 697                    ((lib) (string-append (assoc-ref inputs pkg-name)
 698                                          "/lib/" lib)))))
 699               '(("assimp"    "libassimp.so"    "assimp")
 700                 ("portmidi"  "libportmidi.so"  "portmidi")
 701                 ("sndfile"   "libsndfile.so"   "libsndfile")
 702                 ("fft"       "libkiss_fft.so"  "kiss-fft")
 703                 ("stb_image" "libstb_image.so" "stb-image")
 704                 ("nanovg"    "libnanovg.so"    "nanovg")
 705                 ("glext"     "libGL.so"        "mesa")
 706                 ("glfw3"     "libglfw.so"      "glfw")
 707                 ("gl/glcore-directbind"   "libGL.so" "mesa")
 708                 ("gl/glcompat-directbind" "libGL.so" "mesa")))
 709              #t))
 710          (add-after 'unpack 'use-own-llvm
 711           (lambda* (#:key inputs #:allow-other-keys)
 712             (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
 713             ;; Our LLVM builds shared libraries, so Extempore should use
 714             ;; those.
 715             (substitute* "CMakeLists.txt"
 716               (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
 717             #t))
 718          (add-after 'unpack 'fix-aot-compilation
 719            (lambda* (#:key outputs #:allow-other-keys)
 720              (substitute* "CMakeLists.txt"
 721                ;; EXT_SHARE_DIR does not exist before installation, so the
 722                ;; working directory should be the source directory instead.
 723                (("WORKING_DIRECTORY \\$\\{EXT_SHARE_DIR\\}")
 724                 "WORKING_DIRECTORY ${CMAKE_SOURCE_DIR}")
 725                ;; Extempore needs to be told where the runtime is to be found.
 726                ;; While we're at it we disable automatic tuning for a specific
 727                ;; CPU to make binary substitution possible.
 728                (("COMMAND extempore" prefix)
 729                 (string-append prefix " --sharedir " (getcwd)
 730                                " --mcpu=generic --attr=none")))
 731              #t)))))
 732     (inputs
 733      `(("llvm" ,llvm-for-extempore)
 734        ("libffi" ,libffi)
 735        ("jack" ,jack-1)
 736        ("libsndfile" ,libsndfile)
 737        ("glfw" ,glfw)
 738        ("apr" ,apr)
 739        ("stb-image" ,stb-image-for-extempore)
 740        ("kiss-fft" ,kiss-fft-for-extempore)
 741        ("nanovg" ,nanovg-for-extempore)
 742        ("portmidi" ,portmidi-for-extempore)
 743        ("assimp" ,assimp)
 744        ("alsa-lib" ,alsa-lib)
 745        ("portaudio" ,portaudio)
 746        ("mesa" ,mesa)
 747        ("pcre" ,pcre)
 748        ("zlib" ,zlib)))
 749     (native-inputs
 750      `(("perl" ,perl)
 751        ("emacs" ,emacs-no-x)))
 752     ;; Extempore refuses to build on architectures other than x86_64
 753     (supported-systems '("x86_64-linux"))
 754     (home-page "https://digego.github.io/extempore/")
 755     (synopsis "Programming environment for live coding of multimedia")
 756     (description
 757      "Extempore is a programming language and runtime environment designed
 758 with live programming in mind.  It supports interactive programming in a REPL
 759 style, compiling and binding code just-in-time.  Although Extempore has its
 760 roots in 'live coding' of audiovisual media art, it is suitable for any task
 761 domain where dynamic run-time modifiability and good numerical performance are
 762 required.  Extempore also has strong timing and concurrency semantics, which
 763 are helpful when working in problem spaces where timing is important (such as
 764 audio and video).")
 765     (license license:bsd-2)))
 766
 767 (define-public klick
 768   (package
 769     (name "klick")
 770     (version "0.12.2")
 771     (source (origin
 772               (method url-fetch)
 773               (uri (string-append "http://das.nasophon.de/download/klick-"
 774                                   version ".tar.gz"))
 775               (sha256
 776                (base32
 777                 "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
 778     (build-system scons-build-system)
 779     (arguments
 780      `(#:scons-flags (list (string-append "PREFIX=" %output))
 781        #:scons ,scons-python2
 782        #:tests? #f ; no "check" target
 783        #:phases
 784        (modify-phases %standard-phases
 785          (add-after 'unpack 'be-permissive
 786            (lambda _
 787              (substitute* "SConstruct"
 788                (("'-Wall'") "'-Wall', '-fpermissive'"))
 789              #t))
 790          (add-after 'unpack 'replace-removed-scons-syntax
 791            (lambda _
 792              (substitute* "SConstruct"
 793                (("BoolOption") "BoolVariable")
 794                (("PathOption") "PathVariable")
 795                (("Options") "Variables"))
 796              #t)))))
 797     (inputs
 798      `(("boost" ,boost)
 799        ("jack" ,jack-1)
 800        ("libsndfile" ,libsndfile)
 801        ("libsamplerate" ,libsamplerate)
 802        ("liblo" ,liblo)
 803        ("rubberband" ,rubberband)))
 804     (native-inputs
 805      `(("pkg-config" ,pkg-config)))
 806     (home-page "http://das.nasophon.de/klick/")
 807     (synopsis "Metronome for JACK")
 808     (description
 809      "klick is an advanced command-line based metronome for JACK.  It allows
 810 you to define complex tempo maps for entire songs or performances.")
 811     (license license:gpl2+)))
 812
 813 (define-public gtklick
 814   (package
 815     (name "gtklick")
 816     (version "0.6.4")
 817     (source (origin
 818               (method url-fetch)
 819               (uri (string-append "http://das.nasophon.de/download/gtklick-"
 820                                   version ".tar.gz"))
 821               (sha256
 822                (base32
 823                 "0dq1km6njnzsqdqyf6wzir9g733z0mc9vmxfg2383k3c2a2di6bp"))))
 824     (build-system python-build-system)
 825     (arguments
 826      `(#:tests? #f ; no tests
 827        #:python ,python-2
 828        #:phases
 829        (modify-phases %standard-phases
 830          (add-before 'build 'add-sitedirs
 831            ;; .pth files are not automatically interpreted unless the
 832            ;; directories containing them are added as "sites".  The directories
 833            ;; are then added to those in the PYTHONPATH.  This is required for
 834            ;; the operation of pygtk.
 835            (lambda _
 836              (substitute* "gtklick/gtklick.py"
 837                (("import pygtk")
 838                 "import pygtk, site, sys
 839 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))))
 840          (add-after 'unpack 'inject-store-path-to-klick
 841            (lambda* (#:key inputs #:allow-other-keys)
 842              (substitute* "gtklick/klick_backend.py"
 843                (("KLICK_PATH = 'klick'")
 844                 (string-append "KLICK_PATH = '"
 845                                (assoc-ref inputs "klick")
 846                                "/bin/klick'")))
 847              #t)))))
 848     (inputs
 849      `(("klick" ,klick)
 850        ("python2-pyliblo" ,python2-pyliblo)
 851        ("python2-pygtk" ,python2-pygtk)))
 852     (native-inputs
 853      `(("gettext" ,gettext-minimal)))
 854     (home-page "http://das.nasophon.de/gtklick/")
 855     (synopsis "Simple metronome with an easy-to-use graphical interface")
 856     (description
 857      "Gtklick is a simple metronome with an easy-to-use graphical user
 858 interface.  It is implemented as a frontend to @code{klick}.")
 859     (license license:gpl2+)))
 860
 861 (define-public libgme
 862   (package
 863     (name "libgme")
 864     (version "0.6.3")
 865     (source (origin
 866               (method url-fetch)
 867               (uri (string-append "https://bitbucket.org/mpyne/game-music-emu/"
 868                                   "downloads/game-music-emu-" version
 869                                   ".tar.xz"))
 870               (sha256
 871                (base32
 872                 "07857vdkak306d9s5g6fhmjyxk7vijzjhkmqb15s7ihfxx9lx8xb"))))
 873     (build-system cmake-build-system)
 874     (arguments
 875      '(#:tests? #f))                    ; no check target
 876     (home-page "https://bitbucket.org/mpyne/game-music-emu")
 877     (synopsis "Video game music file playback library")
 878     (description
 879      "Game-music-emu is a collection of video game music file emulators that
 880 support the following formats and systems:
 881 @table @code
 882 @item AY
 883 ZX Spectrum/Asmtrad CPC
 884 @item GBS
 885 Nintendo Game Boy
 886 @item GYM
 887 Sega Genesis/Mega Drive
 888 @item HES
 889 NEC TurboGrafx-16/PC Engine
 890 @item KSS
 891 MSX Home Computer/other Z80 systems (doesn't support FM sound)
 892 @item NSF/NSFE
 893 Nintendo NES/Famicom (with VRC 6, Namco 106, and FME-7 sound)
 894 @item SAP
 895 Atari systems using POKEY sound chip
 896 @item SPC
 897 Super Nintendo/Super Famicom
 898 @item VGM/VGZ
 899 Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC Micro
 900 @end table")
 901     (license (list license:lgpl2.1+
 902                    ;; demo and player directories are under the Expat license
 903                    license:expat))))
 904
 905 (define-public lilypond
 906   (package
 907     (name "lilypond")
 908     (version "2.20.0")
 909     (source
 910      (origin
 911        (method url-fetch)
 912        (uri (string-append "http://lilypond.org/download/sources/"
 913                            "v" (version-major+minor version) "/"
 914                            "lilypond-" version ".tar.gz"))
 915        (sha256
 916         (base32 "0qd6pd4siss016ffmcyw5qc6pr2wihnvrgd4kh1x725w7wr02nar"))))
 917     (build-system gnu-build-system)
 918     (arguments
 919      `(#:tests? #f                      ;out-test/collated-files.html fails
 920        #:out-of-source? #t
 921        #:make-flags '("conf=www")       ;to generate images for info manuals
 922        #:configure-flags
 923        (list "CONFIGURATION=www"
 924              (string-append "--with-texgyre-dir="
 925                             (assoc-ref %build-inputs "font-tex-gyre")
 926                             "/share/fonts/opentype/"))
 927        #:phases
 928        (modify-phases %standard-phases
 929          (add-after 'unpack 'use-texlive-union
 930            (lambda _
 931              ;; FIXME: fonts are not found and have to be generated in HOME.
 932              (setenv "HOME" "/tmp")
 933              ;; The test for the "lh" package fails, even though it is among
 934              ;; the inputs.
 935              (substitute* "configure"
 936                (("TEX_FIKPARM=.*") "TEX_FIKPARM=found\n"))
 937              #t))
 938          (add-after 'unpack 'fix-path-references
 939            (lambda _
 940              (substitute* "scm/backend-library.scm"
 941                (("\\(search-executable '\\(\"gs\"\\)\\)")
 942                 (string-append "\"" (which "gs") "\""))
 943                (("\"/bin/sh\"")
 944                 (string-append "\"" (which "sh") "\"")))
 945              #t))
 946          (add-before 'configure 'prepare-configuration
 947            (lambda _
 948              (substitute* "configure"
 949                (("SHELL=/bin/sh") "SHELL=sh")
 950                ;; When checking the fontforge version do not consider the
 951                ;; version string that's part of the directory.
 952                (("head -n") "tail -n")
 953                ;; Also allow for SOURCE_DATE_EPOCH = 0 in fontforge.
 954                (("20110222") "19700101"))
 955              (setenv "out" "www")
 956              (setenv "conf" "www")
 957              #t))
 958          (add-after 'install 'install-info
 959            (lambda _
 960              (invoke "make"
 961                      "-j" (number->string (parallel-job-count))
 962                      "conf=www" "install-info")
 963              #t)))))
 964     (inputs
 965      `(("guile" ,guile-1.8)
 966        ("font-dejavu" ,font-dejavu)
 967        ("font-tex-gyre" ,font-tex-gyre)
 968        ("fontconfig" ,fontconfig)
 969        ("freetype" ,freetype)
 970        ("ghostscript" ,ghostscript)
 971        ("pango" ,pango)
 972        ("python" ,python-2)))
 973     (native-inputs
 974      `(("bison" ,bison)
 975        ("perl" ,perl)
 976        ("flex" ,flex)
 977        ("fontforge" ,fontforge)
 978        ("dblatex" ,dblatex)
 979        ("gettext" ,gettext-minimal)
 980        ("imagemagick" ,imagemagick)
 981        ("netpbm" ,netpbm)               ;for pngtopnm
 982        ("texlive" ,(texlive-union (list texlive-metapost
 983                                         texlive-generic-epsf
 984                                         texlive-latex-lh
 985                                         texlive-latex-cyrillic)))
 986        ("texinfo" ,texinfo)
 987        ("texi2html" ,texi2html-1.82)
 988        ("rsync" ,rsync)
 989        ("pkg-config" ,pkg-config)
 990        ("zip" ,zip)))
 991     (home-page "http://www.lilypond.org/")
 992     (synopsis "Music typesetting")
 993     (description
 994      "GNU LilyPond is a music typesetter, which produces high-quality sheet
 995 music.  Music is input in a text file containing control sequences which are
 996 interpreted by LilyPond to produce the final document.  It is extendable with
 997 Guile.")
 998     (license license:gpl3+)
 999
1000     ;; On armhf and mips64el, building the documentation sometimes leads to
1001     ;; more than an hour of silence, so double the max silent time.
1002     (properties `((max-silent-time . 7200)))))
1003
1004 (define-public non-sequencer
1005   ;; The latest tagged release is three years old and uses a custom build
1006   ;; system, so we take the last commit.
1007   (let ((commit "5ae43bb27c42387052a73e5ffc5d33efb9d946a9")
1008         (revision "4"))
1009     (package
1010       (name "non-sequencer")
1011       (version (string-append "1.9.5-" revision "." (string-take commit 7)))
1012       (source (origin
1013                 (method git-fetch)
1014                 (uri (git-reference
1015                       (url "git://git.tuxfamily.org/gitroot/non/non.git")
1016                       (commit commit)))
1017                 (sha256
1018                  (base32
1019                   "1cljkkyi9dxqpqhx8y6l2ja4zjmlya26m26kqxml8gx08vyvddhx"))
1020                 (file-name (string-append name "-" version "-checkout"))))
1021       (build-system waf-build-system)
1022       (arguments
1023        `(#:tests? #f ;no "check" target
1024          #:configure-flags
1025          (list "--project=sequencer"
1026                ;; Disable the use of SSE unless on x86_64.
1027                ,@(if (not (string-prefix? "x86_64" (or (%current-target-system)
1028                                                        (%current-system))))
1029                      '("--disable-sse")
1030                      '()))
1031          #:python ,python-2))
1032       (inputs
1033        `(("jack" ,jack-1)
1034          ("libsigc++" ,libsigc++)
1035          ("liblo" ,liblo)
1036          ("ntk" ,ntk)))
1037       (native-inputs
1038        `(("pkg-config" ,pkg-config)))
1039       (home-page "https://non.tuxfamily.org/wiki/Non%20Sequencer")
1040       (synopsis "Pattern-based MIDI sequencer")
1041       (description
1042        "The Non Sequencer is a powerful, lightweight, real-time,
1043 pattern-based MIDI sequencer.  It utilizes the JACK Audio Connection Kit for
1044 MIDI I/O and the NTK GUI toolkit for its user interface.  Everything in Non
1045 Sequencer happens on-line, in real-time.  Music can be composed live, while the
1046 transport is rolling.")
1047       (license license:gpl2+))))
1048
1049 (define-public non-session-manager
1050   (package (inherit non-sequencer)
1051     (name "non-session-manager")
1052     (arguments
1053      (substitute-keyword-arguments (package-arguments non-sequencer)
1054        ((#:configure-flags flags)
1055         `(cons "--project=session-manager"
1056                (delete "--project=sequencer" ,flags)))))
1057     (inputs
1058      `(("jack" ,jack-1)
1059        ("liblo" ,liblo)
1060        ("ntk" ,ntk)))
1061     (native-inputs
1062      `(("pkg-config" ,pkg-config)))
1063     (home-page "https://non.tuxfamily.org/nsm/")
1064     (synopsis "Audio session management")
1065     (description
1066      "The Non Session Manager is an API and an implementation for audio
1067 session management.  NSM clients use a well-specified OSC protocol to
1068 communicate with the session management daemon.")
1069     (license license:gpl2+)))
1070
1071 (define-public non-mixer
1072   (package (inherit non-sequencer)
1073     (name "non-mixer")
1074     (arguments
1075      (substitute-keyword-arguments (package-arguments non-sequencer)
1076        ((#:configure-flags flags)
1077         `(cons "--project=mixer"
1078                (delete "--project=sequencer" ,flags)))))
1079     (inputs
1080      `(("jack" ,jack-1)
1081        ("liblo" ,liblo)
1082        ("ladspa" ,ladspa)
1083        ("lrdf" ,lrdf)
1084        ("ntk" ,ntk)))
1085     (native-inputs
1086      `(("pkg-config" ,pkg-config)))
1087     (home-page "https://non.tuxfamily.org/wiki/Non%20Mixer")
1088     (synopsis "Modular digital audio mixer")
1089     (description
1090      "The Non Mixer is a powerful, reliable and fast modular digital audio
1091 mixer.  It utilizes JACK for inter-application audio I/O and the NTK GUI
1092 toolkit for a fast and lightweight user interface.  Non Mixer can be used
1093 alone or in concert with Non Timeline and Non Sequencer to form a complete
1094 studio.")
1095     (license license:gpl2+)))
1096
1097 (define-public non-timeline
1098   (package (inherit non-sequencer)
1099     (name "non-timeline")
1100     (arguments
1101      (substitute-keyword-arguments (package-arguments non-sequencer)
1102        ((#:configure-flags flags)
1103         `(cons "--project=timeline"
1104                (delete "--project=sequencer" ,flags)))))
1105     (inputs
1106      `(("jack" ,jack-1)
1107        ("liblo" ,liblo)
1108        ("libsndfile" ,libsndfile)
1109        ("ntk" ,ntk)))
1110     (native-inputs
1111      `(("pkg-config" ,pkg-config)))
1112     (home-page "https://non.tuxfamily.org/wiki/Non%20Timeline")
1113     (synopsis "Modular digital audio timeline arranger")
1114     (description
1115      "The Non Timeline is a powerful, reliable and fast modular digital audio
1116 timeline arranger.  It utilizes JACK for inter-application audio I/O and the
1117 NTK GUI toolkit for a fast and lightweight user interface.  Non Timeline can
1118 be used alone or in concert with Non Mixer and Non Sequencer to form a
1119 complete studio.")
1120     (license license:gpl2+)))
1121
1122 (define-public bsequencer
1123   (package
1124     (name "bsequencer")
1125     (version "1.2.0")
1126     (source (origin
1127               (method git-fetch)
1128               (uri (git-reference
1129                     (url "https://github.com/sjaehn/BSEQuencer.git")
1130                     (commit version)))
1131               (file-name (git-file-name name version))
1132               (sha256
1133                (base32
1134                 "08xwz5v8wrar0rx7qdr9pkpjz2k9sw6bn5glhpn6sp6453fabf8q"))))
1135     (build-system gnu-build-system)
1136     (arguments
1137      `(#:make-flags
1138        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1139        #:tests? #f ; there are none
1140        #:phases
1141        (modify-phases %standard-phases
1142          (delete 'configure))))
1143     (inputs
1144      `(("cairo" ,cairo)
1145        ("lv2" ,lv2)
1146        ("libx11" ,libx11)))
1147     (native-inputs
1148      `(("pkg-config" ,pkg-config)))
1149     (home-page "https://github.com/sjaehn/BSEQuencer")
1150     (synopsis "Multi-channel MIDI step sequencer LV2 plugin")
1151     (description
1152      "This package provides a multi-channel MIDI step sequencer LV2 plugin
1153 with a selectable pattern matrix size.")
1154     (license license:gpl3+)))
1155
1156 (define-public solfege
1157   (package
1158     (name "solfege")
1159     (version "3.22.2")
1160     (source (origin
1161               (method url-fetch)
1162               (uri (string-append
1163                     "mirror://gnu/solfege/solfege-"
1164                     version ".tar.xz"))
1165               (sha256
1166                (base32
1167                 "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
1168     (build-system gnu-build-system)
1169     (arguments
1170      `(#:tests? #f ; xmllint attempts to download DTD
1171        #:test-target "test"
1172        #:phases
1173        (modify-phases %standard-phases
1174          (add-after 'unpack 'fix-configuration
1175            (lambda* (#:key inputs #:allow-other-keys)
1176              (substitute* "default.config"
1177                (("/usr/bin/aplay") "aplay")
1178                (("/usr/bin/timidity") "timidity")
1179                (("/usr/bin/mpg123") "mpg123")
1180                (("/usr/bin/ogg123") "ogg123"))
1181              #t))
1182          (add-before 'build 'patch-python-shebangs
1183            (lambda _
1184              ;; Two python scripts begin with a Unicode BOM, so patch-shebang
1185              ;; has no effect.
1186              (substitute* '("solfege/parsetree.py"
1187                             "solfege/presetup.py")
1188                (("#!/usr/bin/python") (string-append "#!" (which "python"))))
1189              #t))
1190          (add-before 'build 'add-sitedirs
1191            ;; .pth files are not automatically interpreted unless the
1192            ;; directories containing them are added as "sites".  The directories
1193            ;; are then added to those in the PYTHONPATH.  This is required for
1194            ;; the operation of pygtk and pygobject.
1195            (lambda _
1196              (substitute* "run-solfege.py"
1197                (("import os")
1198                 "import os, site
1199 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))
1200              #t))
1201          (add-before 'build 'adjust-config-file-prefix
1202            (lambda* (#:key outputs #:allow-other-keys)
1203              (substitute* "run-solfege.py"
1204                (("prefix = os.path.*$")
1205                 (string-append "prefix = " (assoc-ref outputs "out"))))
1206              #t))
1207          (add-after 'install 'wrap-program
1208            (lambda* (#:key inputs outputs #:allow-other-keys)
1209              ;; Make sure 'solfege' runs with the correct PYTHONPATH.
1210              (let* ((out (assoc-ref outputs "out"))
1211                     (path (getenv "PYTHONPATH")))
1212                (wrap-program (string-append out "/bin/solfege")
1213                  `("PYTHONPATH" ":" prefix (,path))))
1214              #t)))))
1215     (inputs
1216      `(("python" ,python-2)
1217        ("pygtk" ,python2-pygtk)
1218        ("gettext" ,gettext-minimal)
1219        ("gtk" ,gtk+)
1220        ("lilypond" ,lilypond)))
1221     (native-inputs
1222      `(("pkg-config" ,pkg-config)
1223        ("txt2man" ,txt2man)
1224        ("libxml2" ,libxml2) ; for tests
1225        ("ghostscript" ,ghostscript)
1226        ("texinfo" ,texinfo)))
1227     (home-page "https://www.gnu.org/software/solfege/")
1228     (synopsis "Ear training")
1229     (description
1230      "GNU Solfege is a program for practicing musical ear-training.  With it,
1231 you can practice your recognition of various musical intervals and chords.  It
1232 features a statistics overview so you can monitor your progress across several
1233 sessions.  Solfege is also designed to be extensible so you can easily write
1234 your own lessons.")
1235     (license license:gpl3+)))
1236
1237 (define-public powertabeditor
1238   (package
1239     (name "powertabeditor")
1240     (version "2.0.0-alpha10")
1241     (source (origin
1242               (method git-fetch)
1243               (uri (git-reference
1244                     (url "https://github.com/powertab/powertabeditor.git")
1245                     (commit version)))
1246               (file-name (git-file-name name version))
1247               (sha256
1248                (base32
1249                 "1z4fhdp71ck9synr12rg1p6365xnypd8ih40c5icj4si36khvksk"))
1250               (modules '((guix build utils)))
1251               (snippet
1252                '(begin
1253                   ;; Remove bundled sources for external libraries
1254                   (delete-file-recursively "external")
1255                   ;; Use only system libraries
1256                   (substitute* "CMakeLists.txt"
1257                     (("include\\( PTE_ThirdParty \\)")
1258                      "\
1259 include(third_party/Qt)
1260 include(third_party/boost)
1261 add_library( Catch INTERFACE IMPORTED )
1262 add_library( rapidjson INTERFACE IMPORTED )"))
1263                   #t))))
1264     (build-system cmake-build-system)
1265     (arguments
1266      `(#:modules ((guix build cmake-build-system)
1267                   (guix build utils)
1268                   (ice-9 match))
1269        #:configure-flags
1270        ;; CMake appears to lose the RUNPATH for some reason, so it has to be
1271        ;; explicitly set with CMAKE_INSTALL_RPATH.
1272        (list "-DCMAKE_BUILD_WITH_INSTALL_RPATH=TRUE"
1273              (string-append "-DCMAKE_INSTALL_RPATH="
1274                             (string-join (map (match-lambda
1275                                                 ((name . directory)
1276                                                  (string-append directory "/lib")))
1277                                               %build-inputs) ";"))
1278              "-DPTE_DATA_DIR=share/powertabeditor")
1279        #:phases
1280        (modify-phases %standard-phases
1281          (replace 'check
1282            (lambda _
1283              (invoke "bin/pte_tests"
1284                      ;; FIXME: these tests fail
1285                      "exclude:Actions/EditStaff"
1286                      "exclude:Formats/PowerTabOldImport/MergeMultiBarRests"
1287                      "exclude:Score/ViewFilter/FilterRule"
1288                      "exclude:Score/ViewFilter/ViewFilter"
1289                      "exclude:Formats/PowerTabOldImport/Directions")
1290              #t))
1291          ;; FIXME: This bug has been fixed upstream, but no release has been
1292          ;; made yet.  See https://github.com/powertab/powertabeditor/issues/257
1293          (add-after 'unpack 'fix-boost-bug
1294            (lambda _
1295              (substitute* "source/score/voiceutils.cpp"
1296                (("boost::rational<int> duration\\(4, pos.getDurationType\\(\\)\\);")
1297                 "boost::rational<int> duration(4, static_cast<int>(pos.getDurationType()));"))
1298              #t))
1299          ;; Fix build with Qt 5.11.
1300          (add-after 'unpack 'add-missing-headers
1301            (lambda _
1302              (substitute* (find-files "source/dialogs/" "\\.h$")
1303                (("#include <QDialog>" m)
1304                 (string-append m "\n#include <QButtonGroup>")))
1305              (substitute* "source/widgets/mixer/mixeritem.h"
1306                (("#include <QWidget>" m)
1307                 (string-append m "\n#include <QStyle>")))
1308              (substitute* "source/widgets/playback/playbackwidget.h"
1309                (("#include <QWidget>" m)
1310                 (string-append m "\n#include <QButtonGroup>\n#include <QAction>")))
1311              #t))
1312          ;; FIXME: Finding RtMidi was fixed upstream so we should be able to
1313          ;; remove this hack when a release is made.
1314          ;; See https://github.com/powertab/powertabeditor/issues/255
1315          (add-after 'unpack 'fix-rtmidi-header
1316            (lambda _
1317              (substitute* "source/audio/midioutputdevice.cpp"
1318                (("#include <RtMidi.h>") "#include <rtmidi/RtMidi.h>"))
1319              #t))
1320          (add-before 'configure 'remove-third-party-libs
1321            (lambda* (#:key inputs #:allow-other-keys)
1322              ;; Link with required static libraries, because we're not
1323              ;; using the bundled version of withershins.
1324              ;; Also add pthread for fixing a linker error.
1325              (substitute* "source/build/CMakeLists.txt"
1326                (("withershins" line)
1327                 (string-append line "\n"
1328                                (assoc-ref inputs "binutils")
1329                                "/lib/libbfd.a\n"
1330                                (assoc-ref inputs "libiberty")
1331                                "/lib/libiberty.a\n"
1332                                "dl\n"
1333                                "pthread\n"
1334                                "z\n")))
1335              #t)))))
1336     (inputs
1337      `(("boost" ,boost)
1338        ("alsa-lib" ,alsa-lib)
1339        ("qtbase" ,qtbase)
1340        ("withershins" ,withershins)
1341        ("libiberty" ,libiberty) ;for withershins
1342        ("binutils" ,binutils) ;for -lbfd and -liberty (for withershins)
1343        ("timidity" ,timidity++)
1344        ("pugixml" ,pugixml)
1345        ("rtmidi" ,rtmidi)
1346        ("rapidjson" ,rapidjson)
1347        ("zlib" ,zlib)))
1348     (native-inputs
1349      `(("catch" ,catch-framework)
1350        ("pkg-config" ,pkg-config)))
1351     (home-page "http://powertabs.net")
1352     (synopsis "Guitar tablature editor")
1353     (description
1354      "Power Tab Editor 2.0 is the successor to the famous original Power Tab
1355 Editor.  It is compatible with Power Tab Editor 1.7 and Guitar Pro.")
1356     (license license:gpl3+)))
1357
1358 (define-public jalv-select
1359   (package
1360     (name "jalv-select")
1361     (version "1.3")
1362     (source (origin
1363               (method git-fetch)
1364               (uri (git-reference
1365                     (url "https://github.com/brummer10/jalv_select.git")
1366                     (commit (string-append "v" version))))
1367               (file-name (git-file-name name version))
1368               (sha256
1369                (base32
1370                 "15yanq1wra0hyh6x72ji7pk562iddg476g3vksj495x91zhnl6vm"))))
1371     (build-system gnu-build-system)
1372     (arguments
1373      `(#:make-flags
1374        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1375        #:phases
1376        (modify-phases %standard-phases
1377          (delete 'configure)
1378          (add-after 'unpack 'ignore-PATH
1379            (lambda* (#:key inputs #:allow-other-keys)
1380              (substitute* "jalv.select.cpp"
1381                (("echo \\$PATH.*tr ':'.*xargs ls")
1382                 (string-append "ls -1 " (assoc-ref inputs "jalv") "/bin")))
1383              #t))
1384          (add-before 'reset-gzip-timestamps 'make-manpages-writable
1385            (lambda* (#:key outputs #:allow-other-keys)
1386              (for-each make-file-writable
1387                        (find-files (string-append (assoc-ref outputs "out")
1388                                                   "/share/man")
1389                                    ".*\\.gz$"))
1390              #t)))))
1391     (inputs
1392      `(("lilv" ,lilv)
1393        ("lv2" ,lv2)
1394        ("jalv" ,jalv)
1395        ("gtkmm" ,gtkmm-2)))
1396     (native-inputs
1397      `(("pkg-config" ,pkg-config)))
1398     (home-page "https://github.com/brummer10/jalv_select")
1399     (synopsis "GUI to select LV2 plugins and run them with jalv")
1400     (description
1401      "The jalv.select package provides a graphical user interface allowing
1402 users to select LV2 plugins and run them with jalv.")
1403     (license license:public-domain)))
1404
1405 (define-public synthv1
1406   (package
1407     (name "synthv1")
1408     (version "0.9.13")
1409     (source (origin
1410               (method url-fetch)
1411               (uri
1412                (string-append "mirror://sourceforge/synthv1/synthv1/" version
1413                               "/synthv1-" version ".tar.gz"))
1414               (sha256
1415                (base32
1416                 "0bb48myvgvqcibwm68qhd4852pjr2g19rasf059a799d1hzgfq3l"))))
1417     (build-system gnu-build-system)
1418     (arguments
1419      `(#:tests? #f))                    ; there are no tests
1420     (inputs
1421      `(("jack" ,jack-1)
1422        ("lv2" ,lv2)
1423        ("alsa-lib" ,alsa-lib)
1424        ("non-session-manager" ,non-session-manager)
1425        ("liblo" ,liblo)
1426        ("qtbase" ,qtbase)))
1427     (native-inputs
1428      `(("pkg-config" ,pkg-config)
1429        ("qttools" ,qttools)))
1430     (home-page "https://synthv1.sourceforge.io")
1431     (synopsis "Polyphonic subtractive synthesizer")
1432     (description
1433      "Synthv1 is an old-school subtractive polyphonic synthesizer with four
1434 oscillators and stereo effects.")
1435     (license license:gpl2+)))
1436
1437 (define-public drumkv1
1438   (package
1439     (name "drumkv1")
1440     (version "0.9.13")
1441     (source (origin
1442               (method url-fetch)
1443               (uri
1444                (string-append "mirror://sourceforge/drumkv1/drumkv1/" version
1445                               "/drumkv1-" version ".tar.gz"))
1446               (sha256
1447                (base32
1448                 "1h88sakxs0b20k8v2sh14y05fin1zqmhnid6h9mk9c37ixxg58ia"))))
1449     (build-system gnu-build-system)
1450     (arguments
1451      `(#:tests? #f))                    ; there are no tests
1452     (inputs
1453      `(("jack" ,jack-1)
1454        ("lv2" ,lv2)
1455        ("libsndfile" ,libsndfile)
1456        ("alsa-lib" ,alsa-lib)
1457        ("non-session-manager" ,non-session-manager)
1458        ("liblo" ,liblo)
1459        ("qtbase" ,qtbase)))
1460     (native-inputs
1461      `(("pkg-config" ,pkg-config)
1462        ("qttools" ,qttools)))
1463     (home-page "https://drumkv1.sourceforge.io")
1464     (synopsis "Drum-kit sampler synthesizer with stereo effects")
1465     (description
1466      "Drumkv1 is an old-school drum-kit sampler synthesizer with stereo
1467 effects.")
1468     (license license:gpl2+)))
1469
1470 (define-public samplv1
1471   (package
1472     (name "samplv1")
1473     (version "0.9.13")
1474     (source (origin
1475               (method url-fetch)
1476               (uri
1477                (string-append "mirror://sourceforge/samplv1/samplv1/" version
1478                               "/samplv1-" version ".tar.gz"))
1479               (sha256
1480                (base32
1481                 "0clsp6s5qfnh0xaxbd35vq2ppi72q9dfayrzlgl73800a8p7gh9m"))))
1482     (build-system gnu-build-system)
1483     (arguments
1484      `(#:tests? #f))                    ; there are no tests
1485     (inputs
1486      `(("jack" ,jack-1)
1487        ("lv2" ,lv2)
1488        ("libsndfile" ,libsndfile)
1489        ("alsa-lib" ,alsa-lib)
1490        ("non-session-manager" ,non-session-manager)
1491        ("liblo" ,liblo)
1492        ("qtbase" ,qtbase)))
1493     (native-inputs
1494      `(("pkg-config" ,pkg-config)
1495        ("qttools" ,qttools)))
1496     (home-page "https://samplv1.sourceforge.io")
1497     (synopsis "Polyphonic sampler synthesizer with stereo effects")
1498     (description
1499      "Samplv1 is an old-school polyphonic sampler synthesizer with stereo
1500 effects.")
1501     (license license:gpl2+)))
1502
1503 (define-public padthv1
1504   (package
1505     (name "padthv1")
1506     (version "0.9.13")
1507     (source (origin
1508               (method url-fetch)
1509               (uri
1510                (string-append "mirror://sourceforge/padthv1/padthv1/" version
1511                               "/padthv1-" version ".tar.gz"))
1512               (sha256
1513                (base32
1514                 "1c1zllph86qswcxddz4vpsj6r9w21hbv4gkba0pyd3q7pbfqr7nz"))))
1515     (build-system gnu-build-system)
1516     (arguments
1517      `(#:tests? #f))                    ; there are no tests
1518     (inputs
1519      `(("jack" ,jack-1)
1520        ("lv2" ,lv2)
1521        ("alsa-lib" ,alsa-lib)
1522        ("non-session-manager" ,non-session-manager)
1523        ("liblo" ,liblo)
1524        ("fftw" ,fftw)
1525        ("qtbase" ,qtbase)))
1526     (native-inputs
1527      `(("pkg-config" ,pkg-config)
1528        ("qttools" ,qttools)))
1529     (home-page "https://padthv1.sourceforge.io")
1530     (synopsis "Polyphonic additive synthesizer")
1531     (description
1532      "Padthv1 is an old-school polyphonic additive synthesizer with stereo
1533 effects.  Padthv1 is based on the PADsynth algorithm by Paul Nasca, as a
1534 special variant of additive synthesis.")
1535     (license license:gpl2+)))
1536
1537 (define-public amsynth
1538   (package
1539     (name "amsynth")
1540     (version "1.7.1")
1541     (source
1542      (origin
1543        (method url-fetch)
1544        (uri (string-append "https://github.com/amsynth/amsynth/releases/"
1545                            "download/release-" version
1546                            "/amsynth-" version ".tar.bz2"))
1547        (sha256
1548         (base32
1549          "1882pfcmf3rqg3vd4qflzkppcv158d748i603spqjbxqi8z7x7w0"))))
1550     (build-system gnu-build-system)
1551     (inputs
1552      `(("alsa-lib" ,alsa-lib)
1553        ("jack" ,jack-1)
1554        ("lv2" ,lv2)
1555        ("lash" ,lash)
1556        ("libsndfile" ,libsndfile)
1557        ("gtk+" ,gtk+-2)
1558        ("gtkmm" ,gtkmm-2)))
1559     (native-inputs
1560      `(("pkg-config" ,pkg-config)
1561        ("intltool" ,intltool)))
1562     (home-page "https://amsynth.github.io")
1563     (synopsis "Analog modeling synthesizer")
1564     (description
1565      "amsynth is an easy-to-use software synthesizer with a classic
1566 subtractive synthesizer topology.  Its features include: dual
1567 oscillators (sine, saw, square, noise) with hard sync; 12 and 24 dB/oct
1568 resonant filters (low-pass, high-pass, band-pass, notch); mono, poly, legato
1569 keyboard modes; dual ADSR envelope generators for filter and amplitude; LFO
1570 which can modulate the oscillators, filter, and amplitude; distortion and
1571 reverb effects.")
1572     (license license:gpl2+)))
1573
1574 (define-public setbfree
1575   (package
1576     (name "setbfree")
1577     (version "0.8.11")
1578     (source (origin
1579               (method git-fetch)
1580               (uri (git-reference
1581                     (url "https://github.com/pantherb/setBfree")
1582                     (commit (string-append "v" version))))
1583               (file-name (git-file-name name version))
1584               (sha256
1585                (base32
1586                 "1s3ps3cjwlm63ml4izb7mizy8ci5pl9a19lvz62xf0br089h3afc"))))
1587     (build-system gnu-build-system)
1588     (arguments
1589      `(#:tests? #f                      ; no "check" target
1590        #:make-flags
1591        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1592              (string-append "FONTFILE="
1593                             (assoc-ref %build-inputs "font-bitstream-vera")
1594                             "/share/fonts/truetype/VeraBd.ttf")
1595              ;; Disable unsupported optimization flags on non-x86
1596              ,@(let ((system (or (%current-target-system)
1597                                  (%current-system))))
1598                  (if (or (string-prefix? "x86_64" system)
1599                          (string-prefix? "i686" system))
1600                      '()
1601                      '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
1602        #:phases
1603        (modify-phases %standard-phases
1604          (add-before 'build 'set-CC-variable
1605            (lambda _ (setenv "CC" "gcc") #t))
1606          (delete 'configure))))
1607     (inputs
1608      `(("jack" ,jack-1)
1609        ("lv2" ,lv2)
1610        ("zita-convolver" ,zita-convolver)
1611        ("glu" ,glu)
1612        ("ftgl" ,ftgl)
1613        ("font-bitstream-vera" ,font-bitstream-vera)))
1614     (native-inputs
1615      `(("help2man" ,help2man)
1616        ("pkg-config" ,pkg-config)))
1617     (home-page "http://setbfree.org")
1618     (synopsis "Tonewheel organ")
1619     (description
1620      "setBfree is a MIDI-controlled, software synthesizer designed to imitate
1621 the sound and properties of the electromechanical organs and sound
1622 modification devices that brought world-wide fame to the names and products of
1623 Laurens Hammond and Don Leslie.")
1624     (license license:gpl2+)))
1625
1626 (define-public beast
1627   (package
1628     (name "beast")
1629     (version "0.10.0")
1630     (source (origin
1631               (method url-fetch)
1632               (uri (string-append "https://testbit.eu/pub/dists/beast/beast-"
1633                                   version ".tar.xz"))
1634               (sha256
1635                (base32
1636                 "1jzzmfwssklzw8fvvil04n8csc0zm99fnd9p2xa7c0xchg37lvhn"))))
1637     (build-system gnu-build-system)
1638     (arguments
1639      '(#:parallel-build? #f)) ; Race conditions cause build failures
1640     (inputs
1641      `(("rapicorn" ,rapicorn)
1642        ("guile" ,guile-1.8)
1643        ("python" ,python-2)
1644        ("libgnomecanvas" ,libgnomecanvas)
1645        ("libogg" ,libogg)
1646        ("libmad" ,libmad)
1647        ("flac" ,flac)
1648        ("alsa-lib" ,alsa-lib)
1649        ("libvorbis" ,libvorbis)
1650        ("gettext" ,gettext-minimal)))
1651     (native-inputs
1652      `(("pkg-config" ,pkg-config)
1653        ("glib:bin" ,glib "bin")
1654        ("cython" ,python2-cython)
1655        ("perl" ,perl)
1656        ("perl-xml-parser" ,perl-xml-parser)))
1657     (home-page "https://testbit.eu/wiki/Beast_Home")
1658     (synopsis "Music composition and modular synthesis environment")
1659     (description
1660      "Beast is a music composition and modular synthesis application.  It
1661 supports a wide range of standards in the field, such as MIDI, various audio
1662 file formats and LADSPA modules.  It allows for multitrack editing, real-time
1663 synthesis, 32bit audio rendering, precise timing down to sample granularity,
1664 on-demand and partial loading of wave files, on the fly decoding, stereo
1665 mixing, FFT scopes, MIDI automation and full scriptability in Scheme.")
1666     (license license:gpl3+)))
1667
1668 (define-public bristol
1669   (package
1670     (name "bristol")
1671     (version "0.60.11")
1672     (source (origin
1673               (method url-fetch)
1674               (uri (string-append "mirror://sourceforge/bristol/bristol/"
1675                                   (version-major+minor version)
1676                                   "/bristol-" version ".tar.gz"))
1677               (sha256
1678                (base32
1679                 "1fi2m4gmvxdi260821y09lxsimq82yv4k5bbgk3kyc3x1nyhn7vx"))))
1680     (build-system gnu-build-system)
1681     (arguments
1682      `(#:phases
1683        (modify-phases %standard-phases
1684          (add-after 'unpack 'remove-sse-flags
1685            (lambda* (#:key system #:allow-other-keys)
1686              (when (not (or (string-prefix? "x86_64" system)
1687                             (string-prefix? "i686" system)))
1688                (substitute* "bristol/Makefile.in"
1689                  (("-msse -mfpmath=sse") "")))
1690              #t))
1691          ;; alsa-lib 1.1.x no longer provides iatomic.h.  That's okay because
1692          ;; bristol actually doesn't use it.
1693          (add-after 'unpack 'do-not-use-alsa-iatomic
1694            (lambda _
1695              (substitute* "libbristolaudio/audioEngineJack.c"
1696                (("#include <alsa/iatomic.h>") ""))
1697              #t))
1698          ;; We know that Bristol has been linked with JACK and we don't have
1699          ;; ldd, so we can just skip this check.
1700          (add-after 'unpack 'do-not-grep-for-jack
1701            (lambda _
1702              (substitute* "bin/startBristol.in"
1703                (("ldd `which bristol` | grep jack") "echo guix"))
1704              #t)))))
1705     (inputs
1706      `(("alsa-lib" ,alsa-lib)
1707        ("jack" ,jack-1)
1708        ("liblo" ,liblo)
1709        ("libx11" ,libx11)))
1710     (native-inputs
1711      `(("pkg-config" ,pkg-config)))
1712     (home-page "http://bristol.sourceforge.net/")
1713     (synopsis "Synthesizer emulator")
1714     (description
1715      "Bristol is an emulation package for a number of different @code{classic}
1716 synthesizers including additive and subtractive and a few organs.  The
1717 application consists of the engine, which is called bristol, and its own GUI
1718 library called brighton that represents all the emulations.  There are
1719 currently more than twenty different emulations; each does sound different
1720 although the author maintains that the quality and accuracy of each emulation
1721 is subjective.")
1722     (license license:gpl3+)))
1723
1724 (define-public tuxguitar
1725   (package
1726     (name "tuxguitar")
1727     (version "1.5.3")
1728     (source (origin
1729               (method url-fetch)
1730               (uri (string-append
1731                     "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
1732                     version "/tuxguitar-" version "-src.tar.gz"))
1733               (sha256
1734                (base32
1735                 "1qy5kjcsl3c86kdlyvsf6dsfmfl1mv8zg0ln6g3qg3i8f35vlpp6"))))
1736     (build-system ant-build-system)
1737     (arguments
1738      `(#:build-target "build"
1739        #:jdk ,icedtea-8
1740        #:tests? #f                      ; no tests
1741        #:phases
1742        (modify-phases %standard-phases
1743          (replace 'build
1744            (lambda* (#:key inputs outputs #:allow-other-keys)
1745              (let* ((initial-classpath (getenv "CLASSPATH"))
1746                     (build-dir (lambda (dir)
1747                                  (setenv
1748                                   "CLASSPATH"
1749                                   (string-join (cons initial-classpath
1750                                                      (find-files (getcwd) "\\.jar$"))
1751                                                ":"))
1752                                  (with-directory-excursion dir
1753                                    (if (file-exists? "build.xml")
1754                                        ((assoc-ref %standard-phases 'build)
1755                                         #:build-target "build")
1756                                        (begin
1757                                          ;; Generate default build.xml.
1758                                          ((@@ (guix build ant-build-system)
1759                                               default-build.xml)
1760                                           (string-append (string-downcase dir) ".jar")
1761                                           (string-append (assoc-ref outputs "out")
1762                                                          "/share/java"))
1763                                          ((assoc-ref %standard-phases 'build))))))))
1764                (map build-dir '("TuxGuitar-lib"
1765                                 "TuxGuitar-editor-utils"
1766                                 "TuxGuitar-ui-toolkit"
1767                                 "TuxGuitar-ui-toolkit-swt"
1768                                 "TuxGuitar-viewer"
1769                                 "TuxGuitar"
1770                                 "TuxGuitar-gm-utils"
1771                                 "TuxGuitar-alsa"
1772                                 "TuxGuitar-midi"
1773                                 "TuxGuitar-midi-ui"))
1774                #t)))
1775          (add-after 'build 'build-jni
1776            (lambda _
1777              (setenv "CC" "gcc")
1778              (setenv "CFLAGS" (string-append
1779                                "-fpic -I"
1780                                (getcwd)
1781                                "/build-scripts/native-modules/common-include"))
1782              (invoke "make" "-C" "./TuxGuitar-alsa/jni" "-f" "GNUmakefile")))
1783          (replace 'install
1784            (lambda* (#:key inputs outputs #:allow-other-keys)
1785              (let* ((out   (assoc-ref outputs "out"))
1786                     (bin   (string-append out "/bin"))
1787                     (share (string-append out "/share"))
1788                     (jni-lib (string-append out "/lib"))
1789                     (lib   (string-append share "/java"))
1790                     (swt   (assoc-ref inputs "java-swt"))
1791                     (mime  (string-append share "/mime/packages"))
1792                     (app   (string-append share "/applications"))
1793                     (man   (string-append share "/man/man1")))
1794
1795                (mkdir-p bin)
1796                ;; Install all jars.
1797                (for-each (lambda (file)
1798                            (install-file file lib))
1799                          (find-files "." "\\.jar$"))
1800
1801                ;; Install jni libraries
1802                (for-each (lambda (file)
1803                            (install-file file jni-lib))
1804                          (find-files "." "\\-jni.so$"))
1805
1806                ;; Install all resources.
1807                (copy-recursively "./TuxGuitar/share" share)
1808
1809                ;; Install desktop and mime files
1810                (install-file "./misc/tuxguitar.xml" mime)
1811                (install-file "./misc/tuxguitar.desktop" app)
1812
1813                ;; Install manaual
1814                (install-file "./misc/tuxguitar.1" man)
1815
1816                ;; Create wrapper.
1817                (call-with-output-file (string-append bin "/tuxguitar")
1818                  (lambda (port)
1819                    (let ((classpath (string-join (append  (find-files lib "\\.jar$")
1820                                                           (find-files swt "\\.jar$"))
1821                                                  ":")))
1822                      (format
1823                       port
1824                       (string-append "#!/bin/sh\n"
1825                                      (which "java")
1826                                      " -cp " classpath
1827                                      " -Dtuxguitar.home.path=" out
1828                                      " -Dtuxguitar.share.path=" out "/share"
1829                                      " -Dswt.library.path=" swt "/lib"
1830                                      " -Djava.library.path=" out "/lib"
1831                                      " org.herac.tuxguitar.app.TGMainSingleton"
1832                                      " \"$1\" \"$2\"")))))
1833                (chmod (string-append bin "/tuxguitar") #o555)
1834                #t))))))
1835     (inputs
1836      `(("alsa-lib" ,alsa-lib)
1837        ("java-swt" ,java-swt)))
1838     (home-page "http://tuxguitar.com.ar/")
1839     (synopsis "Multitrack tablature editor and player")
1840     (description
1841      "TuxGuitar is a guitar tablature editor with player support through midi.
1842 It can display scores and multitrack tabs.  TuxGuitar provides various
1843 additional features, including autoscrolling while playing, note duration
1844 management, bend/slide/vibrato/hammer-on/pull-off effects, support for
1845 tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
1846 export.")
1847     (license license:lgpl2.1+)))
1848
1849 (define-public pd
1850   (package
1851     (name "pd")
1852     (version "0.50-2")
1853     (source (origin
1854               (method url-fetch)
1855               (uri
1856                (string-append "http://msp.ucsd.edu/Software/pd-"
1857                               version ".src.tar.gz"))
1858               (sha256
1859                (base32
1860                 "0dz6r6jy0zfs1xy1xspnrxxks8kddi9c7pxz4vpg2ygwv83ghpg5"))))
1861     (build-system gnu-build-system)
1862     (arguments
1863      `(#:tests? #f                      ; no "check" target
1864        #:configure-flags
1865        (list
1866         "--enable-jack"
1867         (string-append "--with-wish=" (string-append
1868                                        (assoc-ref %build-inputs "tk")
1869                                        "/bin/wish8.6")))
1870        #:phases
1871        (modify-phases %standard-phases
1872          (add-before 'configure 'fix-with-path
1873            (lambda _
1874              (substitute* "tcl/pd-gui.tcl"
1875                (("exec wish ") (string-append "exec " (which "wish8.6") " ")))
1876              #t)))))
1877     (native-inputs
1878      `(("autoconf" ,autoconf)
1879        ("automake" ,automake)
1880        ("libtool" ,libtool)
1881        ("gettext" ,gettext-minimal)
1882        ("pkg-config" ,pkg-config)))
1883     (inputs
1884      `(("tk" ,tk)
1885        ("alsa-lib" ,alsa-lib)
1886        ("jack" ,jack-1)))
1887     (home-page "http://puredata.info")
1888     (synopsis "Visual programming language for artistic performances")
1889     (description
1890      "Pure Data (aka Pd) is a visual programming language.  Pd enables
1891 musicians, visual artists, performers, researchers, and developers to create
1892 software graphically, without writing lines of code.  Pd is used to process
1893 and generate sound, video, 2D/3D graphics, and interface sensors, input
1894 devices, and MIDI.  Pd can easily work over local and remote networks to
1895 integrate wearable technology, motor systems, lighting rigs, and other
1896 equipment.  Pd is suitable for learning basic multimedia processing and visual
1897 programming methods as well as for realizing complex systems for large-scale
1898 projects.")
1899     (license license:bsd-3)))
1900
1901 (define-public libpd
1902   (package
1903     (name "libpd")
1904     (version "0.11.0")
1905     (source (origin
1906               (method git-fetch)
1907               (uri (git-reference
1908                     (url "https://github.com/libpd/libpd.git")
1909                     (commit version)
1910                     (recursive? #t)))   ; for the 'pure-data' submodule
1911               (file-name (string-append name "-" version "-checkout"))
1912               (sha256
1913                (base32
1914                 "1bcg1d9iyf9n37hwwphmih0c8rd1xcqykil5z1cax6xfs76552nk"))))
1915     (build-system gnu-build-system)
1916     (arguments
1917      '(#:tests? #f                      ; no tests
1918        #:make-flags '("CC=gcc")
1919        #:phases
1920        (modify-phases %standard-phases
1921          (delete 'configure)            ; no configure script
1922          (replace 'install
1923            (lambda* (#:key outputs #:allow-other-keys)
1924              (let ((out (assoc-ref outputs "out")))
1925                (invoke "make" "install"
1926                        (string-append "prefix=" out)
1927                        ;; XXX: Fix the last 2 lines of 'install' target.
1928                        "LIBPD_IMPLIB=NO"
1929                        "LIBPD_DEF=NO")))))))
1930     (home-page "http://libpd.cc/")
1931     (synopsis "Pure Data as an embeddable audio synthesis library")
1932     (description
1933      "Libpd provides Pure Data as an embeddable audio synthesis library.  Its
1934 main purpose is to liberate raw audio rendering from audio and MIDI drivers.")
1935     (license license:bsd-3)))
1936
1937 (define-public portmidi
1938   (package
1939     (name "portmidi")
1940     (version "217")
1941     (source (origin
1942               (method url-fetch)
1943               (uri (string-append "mirror://sourceforge/portmedia/portmidi/"
1944                                   version "/portmidi-src-" version ".zip"))
1945               (sha256
1946                (base32
1947                 "03rfsk7z6rdahq2ihy5k13qjzgx757f75yqka88v3gc0pn9ais88"))
1948               (patches (list (search-patch "portmidi-modular-build.patch")))))
1949     (build-system cmake-build-system)
1950     (arguments
1951      `(#:tests? #f                      ; tests cannot be linked
1952        #:build-type "Release"           ; needed to have PMALSA set
1953        #:configure-flags
1954        (list "-DPORTMIDI_ENABLE_JAVA=Off"
1955              "-DPORTMIDI_ENABLE_TEST=Off") ; tests fail linking
1956        #:phases
1957        (modify-phases %standard-phases
1958          ;; Some packages, e.g., MuseScore, expect "libporttime.so" instead of
1959          ;; "libportmidi.so".  Distributions get away with it by creating an
1960          ;; appropriate symlink.
1961          (add-after 'install 'add-porttime
1962            (lambda* (#:key outputs #:allow-other-keys)
1963              (let* ((out (assoc-ref outputs "out"))
1964                     (lib (string-append out "/lib")))
1965                (with-directory-excursion lib
1966                  (symlink "libportmidi.so" "libporttime.so")))
1967              #t)))))
1968     (inputs
1969      `(("alsa-lib" ,alsa-lib)))
1970     (native-inputs
1971      `(("unzip" ,unzip)))
1972     (home-page "http://portmedia.sourceforge.net/portmidi/")
1973     (synopsis "Library for MIDI I/O")
1974     (description
1975      "PortMidi is a library supporting real-time input and output of MIDI data
1976 using a system-independent interface.")
1977     (license license:expat)))
1978
1979 (define-public portmidi-for-extempore
1980   (package (inherit portmidi)
1981     (name "portmidi-for-extempore")
1982     (version "217")
1983     (source (origin
1984               (method git-fetch)
1985               (uri (git-reference
1986                     (url "https://github.com/extemporelang/portmidi.git")
1987                     (commit version)))
1988               (file-name (git-file-name name version))
1989               (sha256
1990                (base32
1991                 "1inriyrjf7xx2b7r54x0vmf9ngyqgr7g5060c22bwkbsgg53apzv"))))
1992     (build-system cmake-build-system)
1993     (arguments `(#:tests? #f)) ; no tests
1994     (native-inputs '())
1995     ;; Extempore refuses to build on architectures other than x86_64
1996     (supported-systems '("x86_64-linux"))
1997     (home-page "https://github.com/extemporelang/portmidi/")))
1998
1999 (define-public python-pyportmidi
2000   (package
2001     (name "python-pyportmidi")
2002     (version (package-version portmidi))
2003     (source (package-source portmidi))
2004     (build-system python-build-system)
2005     (arguments
2006      `(#:tests? #f ; no tests included
2007        #:phases
2008        (modify-phases %standard-phases
2009          (add-after 'unpack 'enter-dir
2010            (lambda _ (chdir "pm_python") #t))
2011          (add-after 'enter-dir 'fix-setup.py
2012            (lambda _
2013              (substitute* "setup.py"
2014                ;; Use Python 3 syntax
2015                (("print (\".*\")" _ text)
2016                 (string-append "print(" text ")\n"))
2017                ;; TODO.txt and CHANGES.txt don't exist
2018                (("CHANGES =.*") "CHANGES = \"\"\n")
2019                (("TODO =.*") "TODO = \"\"\n"))
2020              #t)))))
2021     (inputs
2022      `(("portmidi" ,portmidi)
2023        ("alsa-lib" ,alsa-lib)))
2024     (native-inputs
2025      `(("python-cython" ,python-cython)
2026        ("unzip" ,unzip)))
2027     (home-page "http://portmedia.sourceforge.net/portmidi/")
2028     (synopsis "Python bindings to PortMidi")
2029     (description
2030      "This package provides Python bindings to the PortMidi library.")
2031     (license license:expat)))
2032
2033 (define-public frescobaldi
2034   (package
2035     (name "frescobaldi")
2036     (version "3.1.1")
2037     (source
2038      (origin
2039        (method url-fetch)
2040        (uri (string-append
2041              "https://github.com/wbsoft/frescobaldi/releases/download/v"
2042              version "/frescobaldi-" version ".tar.gz"))
2043        (sha256
2044         (base32 "0kfwvgygx2ds01w8g7vzykfrajglmr2brchk9d67ahzijpgvfkj5"))))
2045     (build-system python-build-system)
2046     (arguments
2047      `(#:tests? #f))                    ;no tests included
2048     (inputs
2049      `(("lilypond" ,lilypond)
2050        ("poppler" ,poppler)
2051        ("portmidi" ,portmidi)
2052        ("python-ly" ,python-ly)
2053        ("python-poppler-qt5" ,python-poppler-qt5)
2054        ("python-pyportmidi" ,python-pyportmidi)
2055        ("python-pyqt" ,python-pyqt)
2056        ("python-sip" ,python-sip)))
2057     (home-page "http://www.frescobaldi.org/")
2058     (synopsis "LilyPond sheet music text editor")
2059     (description
2060      "Frescobaldi is a LilyPond sheet music text editor with syntax
2061 highlighting and automatic completion.  Among other things, it can render
2062 scores next to the source, can capture input from MIDI or read MusicXML and
2063 ABC files, has a MIDI player for proof-listening, and includes a documentation
2064 browser.")
2065     (license license:gpl2+)))
2066
2067 (define-public drumstick
2068   (package
2069     (name "drumstick")
2070     (version "1.1.3")
2071     (source (origin
2072               (method url-fetch)
2073               (uri (string-append "mirror://sourceforge/drumstick/"
2074                                   version "/drumstick-" version ".tar.bz2"))
2075               (sha256
2076                (base32
2077                 "1n9wvg79yvkygrkc8xd8pgrd3d7hqmr7gh24dccf0px23lla9b3m"))))
2078     (build-system cmake-build-system)
2079     (arguments
2080      `(#:tests? #f                      ; no test target
2081        #:configure-flags '("-DLIB_SUFFIX=")
2082        #:phases
2083        (modify-phases %standard-phases
2084          (add-before 'configure 'fix-docbook
2085            (lambda* (#:key inputs #:allow-other-keys)
2086              (substitute* "cmake_admin/CreateManpages.cmake"
2087                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2088                 (string-append (assoc-ref inputs "docbook-xsl")
2089                                "/xml/xsl/docbook-xsl-"
2090                                ,(package-version docbook-xsl)
2091                                "/manpages/docbook.xsl")))
2092              #t)))))
2093     (inputs
2094      `(("qtbase" ,qtbase)
2095        ("qtsvg" ,qtsvg)
2096        ("alsa-lib" ,alsa-lib)))
2097     (native-inputs
2098      `(("pkg-config" ,pkg-config)
2099        ("libxslt" ,libxslt)             ; for xsltproc
2100        ("docbook-xsl" ,docbook-xsl)
2101        ("doxygen" ,doxygen)))
2102     (home-page "http://drumstick.sourceforge.net/")
2103     (synopsis "C++ MIDI library")
2104     (description
2105      "Drumstick is a set of MIDI libraries using C++/Qt5 idioms and style.  It
2106 includes a C++ wrapper around the ALSA library sequencer interface.  A
2107 complementary library provides classes for processing SMF (Standard MIDI
2108 files: .MID/.KAR), Cakewalk (.WRK), and Overture (.OVE) file formats.  A
2109 multiplatform realtime MIDI I/O library is also provided with various output
2110 backends, including ALSA, OSS, Network and FluidSynth.")
2111     (license license:gpl2+)))
2112
2113 (define-public vmpk
2114   (package
2115     (name "vmpk")
2116     (version "0.7.2")
2117     (source (origin
2118               (method url-fetch)
2119               (uri (string-append "mirror://sourceforge/vmpk/vmpk/"
2120                                   version "/vmpk-" version ".tar.bz2"))
2121               (sha256
2122                (base32
2123                 "1i3hnvdgz46n4k5v0q4jhgh7nkh0s390ix4nqr69z0q3026yp0p6"))))
2124     (build-system cmake-build-system)
2125     (arguments
2126      `(#:tests? #f  ; no test target
2127        #:phases
2128        (modify-phases %standard-phases
2129          (add-before 'configure 'fix-docbook
2130            (lambda* (#:key inputs #:allow-other-keys)
2131              (substitute* "cmake_admin/CreateManpages.cmake"
2132                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2133                 (string-append (assoc-ref inputs "docbook-xsl")
2134                                "/xml/xsl/docbook-xsl-"
2135                                ,(package-version docbook-xsl)
2136                                "/manpages/docbook.xsl")))
2137              #t)))))
2138     (inputs
2139      `(("drumstick" ,drumstick)
2140        ("qtbase" ,qtbase)
2141        ("qtsvg" ,qtsvg)
2142        ("qtx11extras" ,qtx11extras)))
2143     (native-inputs
2144      `(("libxslt" ,libxslt) ;for xsltproc
2145        ("docbook-xsl" ,docbook-xsl)
2146        ("qttools" ,qttools)
2147        ("pkg-config" ,pkg-config)))
2148     (home-page "http://vmpk.sourceforge.net")
2149     (synopsis "Virtual MIDI piano keyboard")
2150     (description
2151      "Virtual MIDI Piano Keyboard is a MIDI events generator and receiver.  It
2152 doesn't produce any sound by itself, but can be used to drive a MIDI
2153 synthesizer (either hardware or software, internal or external).  You can use
2154 the computer's keyboard to play MIDI notes, and also the mouse.  You can use
2155 the Virtual MIDI Piano Keyboard to display the played MIDI notes from another
2156 instrument or MIDI file player.")
2157     (license license:gpl3+)))
2158
2159 (define-public zynaddsubfx
2160   (package
2161     (name "zynaddsubfx")
2162     (version "3.0.5")
2163     (source (origin
2164               (method url-fetch)
2165               (uri (string-append
2166                     "mirror://sourceforge/zynaddsubfx/zynaddsubfx/"
2167                     version "/zynaddsubfx-" version ".tar.bz2"))
2168               (sha256
2169                (base32
2170                 "0qwzg14h043rmyf9jqdylxhyfy4sl0vsr0gjql51wjhid0i34ivl"))))
2171     (build-system cmake-build-system)
2172     (arguments
2173      `(#:phases
2174        (modify-phases %standard-phases
2175          ;; Move SSE compiler optimization flags from generic target to
2176          ;; athlon64 and core2 targets, because otherwise the build would fail
2177          ;; on non-Intel machines.
2178          (add-after 'unpack 'remove-sse-flags-from-generic-target
2179           (lambda _
2180             (substitute* "src/CMakeLists.txt"
2181               (("-msse -msse2 -mfpmath=sse") "")
2182               (("-march=(athlon64|core2)" flag)
2183                (string-append flag " -msse -msse2 -mfpmath=sse")))
2184             #t)))))
2185     (inputs
2186      `(("liblo" ,liblo)
2187        ("ntk" ,ntk)
2188        ("mesa" ,mesa)
2189        ("alsa-lib" ,alsa-lib)
2190        ("jack" ,jack-1)
2191        ("fftw" ,fftw)
2192        ("minixml" ,minixml)
2193        ("libxpm" ,libxpm)
2194        ("zlib" ,zlib)))
2195     (native-inputs
2196      `(("pkg-config" ,pkg-config)))
2197     (home-page "http://zynaddsubfx.sf.net/")
2198     (synopsis "Software synthesizer")
2199     (description
2200      "ZynAddSubFX is a feature heavy realtime software synthesizer.  It offers
2201 three synthesizer engines, multitimbral and polyphonic synths, microtonal
2202 capabilities, custom envelopes, effects, etc.")
2203     (license license:gpl2)))
2204
2205 (define-public yoshimi
2206   (package
2207     (name "yoshimi")
2208     (version "1.7.0.1")
2209     (source (origin
2210               (method url-fetch)
2211               (uri (string-append "mirror://sourceforge/yoshimi/"
2212                                   (version-major+minor version)
2213                                   "/yoshimi-" version ".tar.bz2"))
2214               (sha256
2215                (base32
2216                 "1pkqrrr51vlxh96vy0c0rf5ijjvymys4brsw9rv1bdp1bb8izw6c"))))
2217     (build-system cmake-build-system)
2218     (arguments
2219      `(#:tests? #f                      ; there are no tests
2220        #:configure-flags
2221        (list (string-append "-DCMAKE_INSTALL_DATAROOTDIR="
2222                             (assoc-ref %outputs "out") "/share"))
2223        #:phases
2224        (modify-phases %standard-phases
2225          (add-before 'configure 'enter-dir
2226            (lambda _ (chdir "src") #t))
2227          ;; Move SSE compiler optimization flags from generic target to
2228          ;; athlon64 and core2 targets, because otherwise the build would fail
2229          ;; on non-Intel machines.
2230          (add-after 'unpack 'remove-sse-flags-from-generic-target
2231           (lambda _
2232             (substitute* "src/CMakeLists.txt"
2233               (("-msse -msse2 -mfpmath=sse") "")
2234               (("-march=(athlon64|core2)" flag)
2235                (string-append flag " -msse -msse2 -mfpmath=sse")))
2236             #t)))))
2237     (inputs
2238      `(("boost" ,boost)
2239        ("fftwf" ,fftwf)
2240        ("alsa-lib" ,alsa-lib)
2241        ("jack" ,jack-1)
2242        ("fontconfig" ,fontconfig)
2243        ("minixml" ,minixml)
2244        ("mesa" ,mesa)
2245        ("fltk" ,fltk)
2246        ("lv2" ,lv2)
2247        ("readline" ,readline)
2248        ("ncurses" ,ncurses)
2249        ("cairo" ,cairo)
2250        ("zlib" ,zlib)))
2251     (native-inputs
2252      `(("pkg-config" ,pkg-config)))
2253     (home-page "http://yoshimi.sourceforge.net/")
2254     (synopsis "Multi-paradigm software synthesizer")
2255     (description
2256      "Yoshimi is a fork of ZynAddSubFX, a feature-heavy real-time software
2257 synthesizer.  It offers three synthesizer engines, multitimbral and polyphonic
2258 synths, microtonal capabilities, custom envelopes, effects, etc.  Yoshimi
2259 improves on support for JACK features, such as JACK MIDI.")
2260     (license license:gpl2)))
2261
2262 (define-public libgig
2263   (package
2264     (name "libgig")
2265     (version "4.2.0")
2266     (source (origin
2267               (method url-fetch)
2268               (uri (string-append "http://download.linuxsampler.org/packages/"
2269                                   "libgig-" version ".tar.bz2"))
2270               (sha256
2271                (base32
2272                 "1zs5yy124bymfyapsnljr6rv2lnn5inwchm0xnwiw44b2d39l8hn"))))
2273     (build-system gnu-build-system)
2274     (inputs
2275      `(("libuuid" ,util-linux)
2276        ("libsndfile" ,libsndfile)))
2277     (native-inputs
2278      `(("pkg-config" ,pkg-config)))
2279     (home-page "https://linuxsampler.org/libgig/")
2280     (synopsis "C++ library for working with Gigasampler (.gig) files")
2281     (description
2282      "Libgig is a C++ library for loading, modifying existing and creating new
2283 Gigasampler (.gig) files and DLS (Downloadable Sounds) Level 1/2 files, KORG
2284 sample based instruments (.KSF and .KMP files), SoundFont v2 (.sf2) files and
2285 AKAI sampler data.  The package includes a couple of command line tools based
2286 on the library.")
2287     ;; The library and tools are released under the GPL, except the AKAI
2288     ;; classes which are released under the LGPL.
2289     (license (list license:gpl2+ license:lgpl2.1+))))
2290
2291 (define-public jack-keyboard
2292   (package
2293     (name "jack-keyboard")
2294     (version "2.5")
2295     (source
2296      (origin
2297        (method url-fetch)
2298        (uri (string-append "mirror://sourceforge/jack-keyboard/jack-keyboard/"
2299                            version "/jack-keyboard-" version ".tar.gz"))
2300        (sha256
2301         (base32
2302          "0mzmg8aavybcfdlq2yd9d0vscqd6is5p6jzrgfpfm5j3xdcvh2s3"))))
2303     (build-system gnu-build-system)
2304     (inputs
2305      `(("jack" ,jack-1)
2306        ("lash" ,lash)
2307        ("gtk+" ,gtk+-2)))
2308     (native-inputs
2309      `(("pkg-config" ,pkg-config)))
2310     (home-page "http://jack-keyboard.sourceforge.net/")
2311     (synopsis "Virtual MIDI keyboard")
2312     (description "Jack-keyboard is a virtual MIDI keyboard, a program that
2313 allows you to send JACK MIDI events (i.e. play) using your PC keyboard.")
2314     (license license:bsd-2)))
2315
2316 (define-public jack-capture
2317   (package
2318     (name "jack-capture")
2319     (version "0.9.73")
2320     (source (origin
2321               (method git-fetch)
2322               (uri (git-reference
2323                     (url "https://github.com/kmatheussen/jack_capture.git")
2324                     (commit version)))
2325               (file-name (string-append name "-" version "-checkout"))
2326               (sha256
2327                (base32
2328                 "0jcqky96q8xgya6wqv1p8pj9fkf2wh7ynl67ah7x5bn3basgfclf"))))
2329     (build-system gnu-build-system)
2330     (arguments
2331      `(#:make-flags
2332        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2333        #:tests? #f ; there are none
2334        #:phases
2335        (modify-phases %standard-phases
2336          (delete 'configure))))
2337     (native-inputs
2338      `(("pkg-config" ,pkg-config)
2339        ("which" ,which)))
2340     (inputs
2341      `(("gtk+" ,gtk+-2)
2342        ("jack" ,jack-1)
2343        ("libogg" ,libogg)
2344        ("liblo" ,liblo)
2345        ("lame" ,lame)
2346        ("libsndfile" ,libsndfile)))
2347     (home-page "https://github.com/kmatheussen/jack_capture")
2348     (synopsis "Program for recording sound files with JACK")
2349     (description "This is a program for recording sound files with JACK.  It
2350 can connect to any JACK port and record the output into a stereo WAV file.")
2351     (license license:gpl2+)))
2352
2353 (define-public jack-select
2354   (package
2355     (name "jack-select")
2356     (version "1.5.0")
2357     (source (origin
2358               (method url-fetch)
2359               (uri (pypi-uri "jack-select" version))
2360               (sha256
2361                (base32
2362                 "1zijk9ly2fczxsnnrqr8s0ajmlyx1j1vd8gk0rm5dj5zyhhmia7f"))))
2363     (build-system gnu-build-system)
2364     (arguments
2365      `(#:modules ((guix build gnu-build-system)
2366                   ((guix build python-build-system) #:prefix python:)
2367                   (guix build utils))
2368        #:imported-modules (,@%gnu-build-system-modules
2369                            (guix build python-build-system))
2370        #:make-flags
2371        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2372        #:tests? #f                      ; there are none
2373        #:phases
2374        (modify-phases %standard-phases
2375          (replace 'configure
2376            (lambda* (#:key inputs #:allow-other-keys)
2377              ;; python-dbus cannot be found but it's really there.  See
2378              ;; https://github.com/SpotlightKid/jack-select/issues/2
2379              (substitute* "setup.py"
2380                (("'dbus-python',") ""))
2381              ;; Fix reference to dlopened libraries.
2382              (substitute* "jackselect/alsainfo.py"
2383                (("libasound.so.2")
2384                 (string-append (assoc-ref inputs "alsa-lib")
2385                                "/lib/libasound.so.2")))
2386              #t))
2387          (replace 'build
2388            (assoc-ref python:%standard-phases 'build))
2389          (add-after 'install 'wrap
2390            (assoc-ref python:%standard-phases 'wrap)))))
2391     (native-inputs
2392      `(("pkg-config" ,pkg-config)))
2393     (inputs
2394      `(("alsa-lib" ,alsa-lib)
2395        ("python" ,python-wrapper)
2396        ("python-pyudev" ,python-pyudev)
2397        ("python-pyxdg" ,python-pyxdg)
2398        ("python-dbus" ,python-dbus)
2399        ("python-pygobject" ,python-pygobject)))
2400     (home-page "https://github.com/SpotlightKid/jack-select")
2401     (synopsis "Systray application to quickly change the JACK-DBus configuration")
2402     (description "This application displays an icon in the system tray (also
2403 known as notification area) of your desktop, which shows the status of the
2404 JACK audio server and when you click on it, a menu pops up, which lets you
2405 quickly select from the JACK configuration presets you created with QjackCtl.
2406 When you select a preset, its JACK engine and driver configuration settings
2407 are loaded via DBus into JACK and then the server is restarted.  This allows
2408 you to switch between different audio setups with just two mouse clicks.")
2409     (license license:expat)))
2410
2411 (define-public cursynth
2412   (package
2413     (name "cursynth")
2414     (version "1.5")
2415     (source
2416      (origin
2417       (method url-fetch)
2418       (uri (string-append "mirror://gnu/cursynth/cursynth-"
2419                           version ".tar.gz"))
2420       (sha256
2421        (base32 "1dhphsya41rv8z6yqcv9l6fwbslsds4zh1y56zizi39nd996d40v"))
2422       (patches (search-patches "cursynth-wave-rand.patch"))))
2423     (build-system gnu-build-system)
2424     (native-inputs `(("pkg-config" ,pkg-config)))
2425     ;; TODO: See https://github.com/iyoko/cursynth/issues/4 which currently
2426     ;; prevents us from using pulseaudio
2427     (inputs `(("ncurses" ,ncurses)
2428               ("alsa" ,alsa-lib)))
2429     (home-page "https://www.gnu.org/software/cursynth/")
2430     (synopsis "Polyphonic and MIDI subtractive music synthesizer using curses")
2431     (description "GNU cursynth is a polyphonic synthesizer that runs
2432 graphically in the terminal.  It is built on a full-featured subtractive
2433 synthesis engine.  Notes and parameter changes may be entered via MIDI or the
2434 computer's keyboard.")
2435     (license license:gpl3+)))
2436
2437 (define-public aj-snapshot
2438   (package
2439     (name "aj-snapshot")
2440     (version "0.9.9")
2441     (source (origin
2442               (method url-fetch)
2443               (uri (string-append "mirror://sourceforge/aj-snapshot/"
2444                                   "aj-snapshot-" version ".tar.bz2"))
2445               (sha256
2446                (base32
2447                 "0z8wd5yvxdmw1h1rj6km9h01xd4xmp4d86gczlix7hsc7zrf0wil"))))
2448     (build-system gnu-build-system)
2449     (inputs
2450      `(("minixml" ,minixml)
2451        ("jack" ,jack-1)
2452        ("alsa-lib" ,alsa-lib)))
2453     (native-inputs
2454      `(("pkg-config" ,pkg-config)))
2455     (home-page "http://aj-snapshot.sourceforge.net/")
2456     (synopsis "Snapshot connections between ALSA and JACK clients")
2457     (description "Aj-snapshot is a small program that can be used to make
2458 snapshots of the connections made between JACK and/or ALSA clients.  Because
2459 JACK can provide both audio and MIDI support to programs, aj-snapshot can
2460 store both types of connections for JACK.  ALSA, on the other hand, only
2461 provides routing facilities for MIDI clients.  Aj-snapshot is meant to be used
2462 from the command line.")
2463     (license license:gpl3+)))
2464
2465 (define-public qtractor
2466   (package
2467     (name "qtractor")
2468     (version "0.9.12")
2469     (source (origin
2470               (method url-fetch)
2471               (uri (string-append "http://downloads.sourceforge.net/qtractor/"
2472                                   "qtractor-" version ".tar.gz"))
2473               (sha256
2474                (base32
2475                 "06493sf4hr178jkvric3rmc2phh1ph2jlyh8kl9z248amq3zfnhy"))))
2476     (build-system gnu-build-system)
2477     (arguments
2478      `(#:tests? #f))                    ; no "check" target
2479     (inputs
2480      `(("qt" ,qtbase)
2481        ("qtx11extras" ,qtx11extras)
2482        ("alsa-lib" ,alsa-lib)
2483        ("jack" ,jack-1)
2484        ("libsndfile" ,libsndfile)
2485        ("ladspa" ,ladspa)
2486        ("lv2" ,lv2)
2487        ("lilv" ,lilv)
2488        ("suil" ,suil)
2489        ("libsamplerate" ,libsamplerate)
2490        ("libvorbis" ,libvorbis)
2491        ("libmad" ,libmad)
2492        ("rubberband" ,rubberband)
2493        ("liblo" ,liblo)
2494        ("zlib" ,zlib)))
2495     (native-inputs
2496      `(("pkg-config" ,pkg-config)
2497        ("qttools" ,qttools)))
2498     (home-page "http://qtractor.org/")
2499     (synopsis "Audio/MIDI multi-track sequencer")
2500     (description
2501      "Qtractor is an Audio/MIDI multi-track sequencer application.  It uses
2502 JACK for audio and ALSA sequencer for MIDI as multimedia infrastructures and
2503 follows a traditional multi-track tape recorder control paradigm.")
2504     (license license:gpl2+)))
2505
2506 (define-public ams-lv2
2507   (package
2508     (name "ams-lv2")
2509     (version "1.2.2")
2510     (source
2511      (origin
2512        (method git-fetch)
2513        (uri (git-reference
2514              (url "https://github.com/blablack/ams-lv2.git")
2515              (commit (string-append "v" version))))
2516        (file-name (git-file-name name version))
2517        (sha256
2518         (base32 "1lz2mvk4gqsyf92yxd3aaldx0d0qi28h4rnnvsaz4ls0ccqm80nk"))))
2519     (build-system waf-build-system)
2520     (arguments
2521      `(#:phases
2522        (modify-phases %standard-phases
2523          (add-after 'unpack 'remove-sse-flags
2524            (lambda* (#:key system #:allow-other-keys)
2525              (unless (or (string-prefix? "x86_64" system)
2526                          (string-prefix? "i686" system))
2527                (substitute* "wscript"
2528                  (("'-msse', '-mfpmath=sse', ") "")))
2529              #t)))
2530        #:tests? #f))                    ; no tests
2531     (inputs
2532      `(("cairo" ,cairo)
2533        ("fftw" ,fftw)
2534        ("gtk" ,gtk+-2)
2535        ("gtkmm" ,gtkmm-2)
2536        ("lv2" ,lv2)
2537        ("lvtk" ,lvtk)))
2538     (native-inputs
2539      `(("pkg-config" ,pkg-config)))
2540     (home-page "https://github.com/blablack/ams-lv2")
2541     (synopsis "Port of Alsa Modular Synth internal modules into LV2")
2542     (description "This set of LV2 plugins is a port of the internal modules
2543 found in Alsa Modular Synth.  These plugins are used to create modular
2544 synthesizers and contain: VCO, VCF, VCA, LFO, slew limiter, envelopes, sample
2545 and hold, etc.")
2546     (license license:gpl2)))
2547
2548 (define-public gxtuner
2549   (package
2550     (name "gxtuner")
2551     (version "2.4")
2552     (source (origin
2553               (method git-fetch)
2554               (uri (git-reference
2555                     (url "https://github.com/brummer10/gxtuner.git")
2556                     (commit (string-append "v" version))))
2557               (file-name (git-file-name name version))
2558               (sha256
2559                (base32
2560                 "1fxd2akan2njlr7fpkh84830783qhh1gg7yakswqk5dd466dcn96"))))
2561     (build-system gnu-build-system)
2562     (arguments
2563      `(#:make-flags
2564        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2565              (string-append "INCLUDE_L_DIR="
2566                             (assoc-ref %build-inputs "zita-resampler")
2567                             "/include/"))
2568        #:phases
2569        (modify-phases %standard-phases
2570          (delete 'configure))))
2571     (inputs
2572      `(("gtk+" ,gtk+)
2573        ("jack" ,jack-1)
2574        ("fftwf" ,fftwf)
2575        ("cairo" ,cairo)
2576        ("zita-resampler" ,zita-resampler)))
2577     (native-inputs
2578      `(("pkg-config" ,pkg-config)))
2579     (home-page "https://github.com/brummer10/gxtuner")
2580     (synopsis "Guitar tuner")
2581     (description "GXtuner is a simple guitar tuner for JACK with an
2582 analogue-like user interface.")
2583     (license license:gpl2+)))
2584
2585 (define-public mod-host
2586   ;; The last release was in 2014 but since then hundreds of commits have
2587   ;; been made.
2588   (let ((commit "1726ad06b11323da7e1aaed690ff8aef91f702b5")
2589         (revision "3"))
2590     (package
2591       (name "mod-host")
2592       (version (string-append "0.10.6-" revision "." (string-take commit 9)))
2593       (source (origin
2594                 (method git-fetch)
2595                 (uri (git-reference
2596                       (url "https://github.com/moddevices/mod-host")
2597                       (commit commit)))
2598                 (sha256
2599                  (base32
2600                   "1nrd37c35w6z6ldczgrwmmd9hx1n3zyvcjcgb3mi4cygqdanvspv"))
2601                 (file-name (string-append name "-" version "-checkout"))))
2602       (build-system gnu-build-system)
2603       (arguments
2604        `(#:tests? #f ; no tests included
2605          #:make-flags
2606          (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2607                "CC=gcc")
2608          #:phases
2609          (modify-phases %standard-phases
2610            (delete 'configure)
2611            (add-after 'unpack 'fix-jack-installation-directory
2612              (lambda _
2613                ;; Do not attempt to install files to output of "jack" package.
2614                (substitute* "Makefile"
2615                  (("\\$\\(shell pkg-config --variable=libdir jack\\)")
2616                   "lib"))
2617                #t)))))
2618       (inputs
2619        `(("lilv" ,lilv)
2620          ("fftw" ,fftw)
2621          ("fftwf" ,fftwf)
2622          ("lv2" ,lv2)
2623          ("jack" ,jack-1)
2624          ("readline" ,readline)))
2625       (native-inputs
2626        `(("pkg-config" ,pkg-config)
2627          ("python" ,python-2)))
2628       (home-page "https://github.com/moddevices/mod-host")
2629       (synopsis "LV2 host for Jack controllable via socket or command line")
2630       (description "mod-host is an LV2 plugin host for JACK, controllable via
2631 socket or command line.")
2632       (license license:gpl3+))))
2633
2634 (define-public curseradio
2635   (let ((commit "1bd4bd0faeec675e0647bac9a100b526cba19f8d")
2636         (revision "1"))
2637     (package
2638       (name "curseradio")
2639       (version (git-version "0" revision commit))
2640       (source (origin
2641                 (method git-fetch)
2642                 (uri (git-reference
2643                       (url "https://github.com/chronitis/curseradio.git")
2644                       (commit commit)))
2645                 (file-name (git-file-name name version))
2646                 (sha256
2647                  (base32
2648                   "11bf0jnj8h2fxhpdp498189r4s6b47vy4wripv0z4nx7lxajl88i"))))
2649     (build-system python-build-system)
2650     (arguments
2651      `(#:phases
2652        (modify-phases %standard-phases
2653          (add-after 'unpack 'link-to-mpv
2654            (lambda* (#:key inputs #:allow-other-keys)
2655              (substitute* "curseradio/curseradio.py"
2656                (("/usr/bin/mpv")
2657                 (string-append (assoc-ref inputs "mpv") "/bin/mpv")))
2658              #t)))))
2659     (propagated-inputs
2660      `(("python-lxml" ,python-lxml)
2661        ("python-requests" ,python-requests)
2662        ("python-pyxdg" ,python-pyxdg)))
2663     (inputs
2664      `(("mpv" ,mpv)))
2665     (home-page "https://github.com/chronitis/curseradio")
2666     (synopsis "Command-line Internet radio player")
2667     (description "Curseradio is a Curses-based radio player that uses a
2668 tune-in sender list from @url{http://opml.radiotime.com}.")
2669     (license license:expat))))
2670
2671 (define-public pianobar
2672   (package
2673     (name "pianobar")
2674     (version "2019.02.14")
2675     (source (origin
2676               (method git-fetch)
2677               (uri (git-reference
2678                     (url "https://github.com/PromyLOPh/pianobar.git")
2679                     (commit version)))
2680               (file-name (git-file-name name version))
2681               (sha256
2682                (base32
2683                 "1bfabkj3m9kmhxl64w4azmi0xf7w52fmqfbw2ag28hbb5yy01k1m"))))
2684     (build-system gnu-build-system)
2685     (arguments
2686      `(#:tests? #f                      ; no tests
2687        #:make-flags (list "CC=gcc" "CFLAGS=-std=c99"
2688                           (string-append "PREFIX=" %output))
2689        #:phases (modify-phases %standard-phases
2690                   (delete 'configure))))
2691     (inputs
2692      `(("ao" ,ao)
2693        ("curl" ,curl)
2694        ("libgcrypt" ,libgcrypt)
2695        ("json-c" ,json-c)
2696        ("ffmpeg" ,ffmpeg)))
2697     (native-inputs
2698      `(("pkg-config" ,pkg-config)))
2699     (home-page "https://6xq.net/pianobar/")
2700     (synopsis "Console-based pandora.com player")
2701     (description "pianobar is a console-based music player for the
2702 personalized online radio pandora.com.  It has configurable keys for playing
2703 and managing stations, can be controlled remotely via fifo, and can run
2704 event-based scripts for scrobbling, notifications, etc.")
2705     (license license:expat)))
2706
2707 (define-public picard
2708   (package
2709     (name "picard")
2710     (version "2.1.3")
2711     (source (origin
2712               (method url-fetch)
2713               (uri (string-append
2714                     "https://musicbrainz.osuosl.org/pub/musicbrainz/"
2715                     "picard/picard-" version ".tar.gz"))
2716               (sha256
2717                (base32
2718                 "19w5k3bf4886gdycxjds9nkjvir0gwy2r5cqkz0lbls4ikk4y14f"))))
2719     (build-system python-build-system)
2720     (arguments
2721      '(#:use-setuptools? #f
2722        #:configure-flags
2723        (list "--root=/"
2724              ;; Don't phone home or show ‘Check for Update…’ in the Help menu.
2725              "--disable-autoupdate")
2726        #:phases
2727        (modify-phases %standard-phases
2728          (add-after 'unpack 'patch-source
2729            (lambda* (#:key inputs #:allow-other-keys)
2730              (substitute* "picard/const/__init__.py"
2731                (("pyfpcalc")
2732                 (string-append
2733                  "pyfpcalc', '"
2734                  (assoc-ref inputs "chromaprint") "/bin/fpcalc")))
2735              #t)))))
2736     (native-inputs
2737      `(("gettext" ,gettext-minimal)))
2738     (inputs
2739      `(("chromaprint" ,chromaprint)
2740        ("python-discid" ,python-discid)
2741        ("python-pyqt" ,python-pyqt)
2742        ("python-mutagen" ,python-mutagen)))
2743     (home-page "https://picard.musicbrainz.org/")
2744     (synopsis "Graphical music tagging application")
2745     (description
2746      "MusicBrainz Picard is a music tagging application, supporting multiple
2747 formats, looking up tracks through metadata and audio fingerprints.")
2748     (license license:gpl2+)))
2749
2750 (define-public python-mutagen
2751   (package
2752     (name "python-mutagen")
2753     (version "1.38")
2754     (source (origin
2755               (method url-fetch)
2756               (uri (pypi-uri "mutagen" version))
2757               (sha256
2758                (base32
2759                 "0rl7sxn1rcjl48fwga3dqf9f6pzspsny4ngxyf6pp337mrq0z693"))))
2760     (build-system python-build-system)
2761     (native-inputs
2762      `(("python-pytest" ,python-pytest)))
2763     (home-page "https://bitbucket.org/lazka/mutagen")
2764     (synopsis "Read and write audio tags")
2765     (description "Mutagen is a Python module to handle audio metadata.  It
2766 supports ASF, FLAC, M4A, Monkey’s Audio, MP3, Musepack, Ogg FLAC, Ogg Speex, Ogg
2767 Theora, Ogg Vorbis, True Audio, WavPack and OptimFROG audio files.  All versions
2768 of ID3v2 are supported, and all standard ID3v2.4 frames are parsed.  It can read
2769 Xing headers to accurately calculate the bitrate and length of MP3s.  ID3 and
2770 APEv2 tags can be edited regardless of audio format.  It can also manipulate Ogg
2771 streams on an individual packet/page level.")
2772     (license license:gpl2))) ; "later version" never mentioned
2773
2774 (define-public python2-mutagen
2775   (package-with-python2 python-mutagen))
2776
2777 (define-public python-musicbrainzngs
2778   (package
2779     (name "python-musicbrainzngs")
2780     (version "0.6")
2781     (source (origin
2782               (method url-fetch)
2783               (uri (pypi-uri "musicbrainzngs" version))
2784               (sha256
2785                (base32
2786                 "1dddarpjawryll2wss65xq3v9q8ln8dan7984l5dxzqx88d2dvr8"))))
2787     (build-system python-build-system)
2788     (arguments
2789      '(;; The tests fail suffer from race conditions:
2790        ;; https://github.com/alastair/python-musicbrainzngs/issues/211
2791        #:tests? #f))
2792     (home-page "https://python-musicbrainzngs.readthedocs.org/")
2793     (synopsis "Python bindings for MusicBrainz NGS webservice")
2794     (description "Musicbrainzngs implements Python bindings of the MusicBrainz
2795 web service.  This library can be used to retrieve music metadata from the
2796 MusicBrainz database.")
2797     ;; 'musicbrainzngs/compat.py' is ISC licensed.
2798     (license (list license:bsd-2 license:isc))))
2799
2800 (define-public python2-musicbrainzngs
2801   (package-with-python2 python-musicbrainzngs))
2802
2803 (define-public python-isrcsubmit
2804   (package
2805     (name "python-isrcsubmit")
2806     (version "2.0.1")
2807     (source
2808      (origin
2809        (method url-fetch)
2810        (uri (pypi-uri "isrcsubmit" version))
2811        (sha256
2812         (base32
2813          "0jh4cni8qhri6dh83cmp0i0m0384vv0vznlygv49wj9xzh1d99qv"))))
2814     (build-system python-build-system)
2815     (propagated-inputs
2816      `(("python-discid" ,python-discid)
2817        ("python-musicbrainzngs" ,python-musicbrainzngs)))
2818     (home-page "https://github.com/JonnyJD/musicbrainz-isrcsubmit")
2819     (synopsis "Submit ISRCs from CDs to MusicBrainz")
2820     (description "@code{isrcsubmit} is a tool to extract @dfn{International
2821 Standard Recording Code} (ISRCs) from audio CDs and submit them to
2822 @url{https://musicbrainz.org/, MusicBrainz}.")
2823     (license license:gpl3+)))
2824
2825 (define-public python2-pyechonest
2826   (package
2827     (name "python2-pyechonest")
2828     (version "9.0.0")
2829     (source (origin
2830               (method url-fetch)
2831               (uri (pypi-uri "pyechonest" version))
2832               (sha256
2833                (base32
2834                 "1584nira3rkiman9dm81kdshihmkj21s8navndz2l8spnjwb790x"))))
2835     (build-system python-build-system)
2836     (arguments
2837      `(;; Python 3 is not supported:
2838        ;; https://github.com/echonest/pyechonest/issues/42
2839        #:python ,python-2))
2840     (home-page "https://github.com/echonest/pyechonest")
2841     (synopsis "Python interface to The Echo Nest APIs")
2842     (description "Pyechonest is a Python library for the Echo Nest API.  With
2843 Pyechonest you have Python access to the entire set of API methods including:
2844
2845 @enumerate
2846 @item artist - search for artists by name, description, or attribute, and get
2847 back detailed information about any artist including audio, similar artists,
2848 blogs, familiarity, hotttnesss, news, reviews, urls and video.
2849 @item song - search songs by artist, title, description, or attribute (tempo,
2850 duration, etc) and get detailed information back about each song, such as
2851 hotttnesss, audio_summary, or tracks.
2852 @item track - upload a track to the Echo Nest and receive summary information
2853 about the track including key, duration, mode, tempo, time signature along with
2854 detailed track info including timbre, pitch, rhythm and loudness information.
2855 @end enumerate\n")
2856     (license license:bsd-3)))
2857
2858 (define-public python-pylast
2859   (package
2860     (name "python-pylast")
2861     (version "2.0.0")
2862     (source (origin
2863               (method url-fetch)
2864               (uri (pypi-uri "pylast" version))
2865               (sha256
2866                (base32
2867                 "0r9h7g8i8l2mgqjwkda3v6prfbkb2im5kap1az9ppmhjm9i4jkcf"))))
2868     (build-system python-build-system)
2869     ;; Tests require network access.  See
2870     ;; https://github.com/pylast/pylast/issues/105
2871     (arguments '(#:tests? #f))
2872     (native-inputs
2873      `(("python-coverage" ,python-coverage)
2874        ("python-pycodestyle" ,python-pycodestyle)
2875        ("python-mock" ,python-mock)
2876        ("python-pep8" ,python-pep8)
2877        ("python-pytest" ,python-pytest)
2878        ("python-flaky" ,python-flaky)
2879        ("python-pyflakes" ,python-pyflakes)
2880        ("python-pyyaml" ,python-pyyaml)))
2881     (propagated-inputs
2882      `(("python-six" ,python-six)))
2883     (home-page "https://github.com/pylast/pylast")
2884     (synopsis "Python interface to Last.fm and Libre.fm")
2885     (description "A Python interface to Last.fm and other API-compatible
2886 websites such as Libre.fm.")
2887     (license license:asl2.0)))
2888
2889 (define-public python2-pylast
2890   (package-with-python2 python-pylast))
2891
2892 (define-public instantmusic
2893   (let ((commit "300891d09c703525215fa5a116b9294af1c923c8")
2894         (revision "1"))
2895     (package
2896       (name "instantmusic")
2897       (version (git-version "1.0" revision commit))
2898       (source (origin
2899                 (method git-fetch)
2900                 (uri (git-reference
2901                       (url "https://github.com/yask123/Instant-Music-Downloader.git")
2902                       (commit commit)))
2903                 (file-name (git-file-name name version))
2904                 (sha256
2905                  (base32
2906                   "0j7qivaa04bpdz3anmgci5833dgiyfqqwq9fdrpl9m68b34gl773"))))
2907     (build-system python-build-system)
2908     (propagated-inputs
2909      `(("python-requests" ,python-requests)
2910        ("eyed3" ,eyed3)
2911        ("python-beautifulsoup4" ,python-beautifulsoup4)
2912        ("youtube-dl" ,youtube-dl)))
2913     (arguments
2914      '(#:modules ((guix build python-build-system)
2915                   (guix build utils)
2916                   (srfi srfi-26))
2917        #:phases (modify-phases %standard-phases
2918                   (add-before 'build 'change-directory
2919                     (lambda _
2920                       (chdir "instantmusic-0.1") #t))
2921                   (add-before 'install 'fix-file-permissions
2922                     (lambda _
2923                       ;; Fix some read-only files that would cause a build failure
2924                       (for-each (cut chmod <> #o644)
2925                                 (find-files "instantmusic.egg-info"
2926                                             "PKG-INFO|.*\\.txt"))
2927                       #t)))))
2928     (home-page "https://github.com/yask123/Instant-Music-Downloader")
2929     (synopsis "Command-line program to download a song from YouTube")
2930     (description "InstantMusic downloads a song from YouTube in MP3 format.
2931 Songs can be searched by artist, name or even by a part of the song text.")
2932     (license license:expat))))
2933
2934 (define-public beets
2935   (package
2936     (name "beets")
2937     (version "1.4.9")
2938     (source (origin
2939               (method url-fetch)
2940               (uri (pypi-uri "beets" version))
2941               (patches (search-patches "beets-werkzeug-compat.patch"))
2942               (sha256
2943                (base32
2944                 "0m40rjimvfgy1dv04p8f8d5dvi2855v4ix99a9xr900cmcn476yj"))))
2945     (build-system python-build-system)
2946     (arguments
2947      `(#:phases
2948        (modify-phases %standard-phases
2949          (add-after 'unpack 'set-HOME
2950            (lambda _
2951              (setenv "HOME" (string-append (getcwd) "/tmp"))
2952              #t))
2953          (replace 'check
2954            (lambda _
2955              (invoke "nosetests" "-v"))))))
2956     (native-inputs
2957      `(("python-beautifulsoup4" ,python-beautifulsoup4)
2958        ("python-flask" ,python-flask)
2959        ("python-mock" ,python-mock)
2960        ("python-mpd2" ,python-mpd2)
2961        ("python-nose" ,python-nose)
2962        ("python-pathlib" ,python-pathlib)
2963        ("python-pyxdg" ,python-pyxdg)
2964        ("python-pylast" ,python-pylast)
2965        ("python-rarfile" ,python-rarfile)
2966        ("python-responses" ,python-responses)))
2967     ;; TODO: Install optional plugins and dependencies.
2968     (inputs
2969      `(("python-discogs-client" ,python-discogs-client)
2970        ("python-jellyfish" ,python-jellyfish)
2971        ("python-munkres" ,python-munkres)
2972        ("python-musicbrainzngs" ,python-musicbrainzngs)
2973        ("python-mutagen" ,python-mutagen)
2974        ("python-pyacoustid" ,python-pyacoustid)
2975        ("python-pyyaml" ,python-pyyaml)
2976        ("python-unidecode" ,python-unidecode)))
2977     (home-page "https://beets.io")
2978     (synopsis "Music organizer")
2979     (description "The purpose of beets is to get your music collection right
2980 once and for all.  It catalogs your collection, automatically improving its
2981 metadata as it goes using the MusicBrainz database.  Then it provides a variety
2982 of tools for manipulating and accessing your music.")
2983     (license license:expat)))
2984
2985 (define-public beets-bandcamp
2986   (package
2987     (name "beets-bandcamp")
2988     (version "0.1.3")
2989     (source (origin
2990               (method url-fetch)
2991               (uri (pypi-uri "beets-bandcamp" version))
2992               (sha256
2993                (base32
2994                 "04awg0zdhhg5h510fc1p3qkvr2l1qm6nf85hlr9z8im8a7xlka0i"))))
2995     (build-system python-build-system)
2996     (arguments '(#:tests? #f))          ; there are no tests
2997     (propagated-inputs
2998      `(("beets" ,beets)
2999        ("python-isodate" ,python-isodate)))
3000     (inputs
3001      `(("python-beautifulsoup4" ,python-beautifulsoup4)
3002        ("python-requests" ,python-requests)
3003        ("python-six" ,python-six)))
3004     (home-page "https://github.com/unrblt/beets-bandcamp")
3005     (synopsis "Bandcamp plugin for beets")
3006     (description
3007      "This plugin for beets automatically obtains tag data from @uref{Bandcamp,
3008 https://bandcamp.com/}.  It's also capable of getting song lyrics and album art
3009 using the beets FetchArt plugin.")
3010     (license license:gpl2)))
3011
3012 (define-public milkytracker
3013   (package
3014     (name "milkytracker")
3015     (version "1.02.00")
3016     (source (origin
3017               (method git-fetch)
3018               (uri (git-reference
3019                     (url "https://github.com/milkytracker/MilkyTracker.git")
3020                     (commit (string-append "v" version))))
3021               (file-name (git-file-name name version))
3022               (sha256
3023                (base32
3024                 "05a6d7l98k9i82dwrgi855dnccm3f2lkb144gi244vhk1156n0ca"))
3025               (modules '((guix build utils)))
3026               ;; Remove non-FSDG compliant sample songs.
3027               (snippet
3028                '(begin
3029                   (delete-file-recursively "resources/music")
3030                   (substitute* "CMakeLists.txt"
3031                     (("add_subdirectory\\(resources/music\\)") ""))
3032                   #t))))
3033     (build-system cmake-build-system)
3034     (arguments
3035      '(#:tests? #f ; no check target
3036        ;; This flag ensures that MilkyTracker links with the JACK library.
3037        #:configure-flags '("-DCMAKE_CXX_FLAGS=-ljack")))
3038     (inputs
3039      `(("alsa-lib" ,alsa-lib)
3040        ("lhasa" ,lhasa)
3041        ("jack" ,jack-1)
3042        ("rtmidi" ,rtmidi)
3043        ("sdl" ,sdl2)
3044        ("zlib" ,zlib)
3045        ("zziplib" ,zziplib)))
3046     (native-inputs
3047      `(("pkg-config" ,pkg-config)))
3048     (synopsis "Music tracker for working with .MOD/.XM module files")
3049     (description "MilkyTracker is a music application for creating .MOD and .XM
3050 module files.  It attempts to recreate the module replay and user experience of
3051 the popular DOS program Fasttracker II, with special playback modes available
3052 for improved Amiga ProTracker 2/3 compatibility.")
3053     (home-page "https://milkytracker.titandemo.org/")
3054     ;; 'src/milkyplay' is under Modified BSD, the rest is under GPL3 or later.
3055     (license (list license:bsd-3 license:gpl3+))))
3056
3057 (define-public schismtracker
3058   (package
3059     (name "schismtracker")
3060     (version "20190805")
3061     (source (origin
3062               (method git-fetch)
3063               (uri (git-reference
3064                     (url "https://github.com/schismtracker/schismtracker.git")
3065                     (commit version)))
3066               (file-name (git-file-name name version))
3067               (sha256
3068                (base32
3069                 "0qqps20vvn3rgpg8174bjrrm38gqcci2z5z4c1r1vhbccclahgsd"))
3070               (modules '((guix build utils)))
3071               (snippet
3072                ;; Remove use of __DATE__ and __TIME__ for reproducibility.
3073                `(begin
3074                   (substitute* "schism/version.c"
3075                     (("Schism Tracker built %s %s.*$")
3076                      (string-append "Schism Tracker version " ,version "\");")))
3077                   #t))))
3078     (build-system gnu-build-system)
3079     (arguments
3080      `(#:phases
3081        (modify-phases %standard-phases
3082          (add-before 'configure 'link-libm
3083            (lambda _ (setenv "LIBS" "-lm") #t)))))
3084     (native-inputs
3085      `(("autoconf" ,autoconf)
3086        ("automake" ,automake)
3087        ("python" ,python)))
3088     (inputs
3089      `(("alsa-lib" ,alsa-lib)           ; for asound dependency
3090        ("libx11" ,libx11)
3091        ("libxext" ,libxext)
3092        ("sdl" ,sdl)))
3093     (home-page "http://schismtracker.org")
3094     (synopsis "Oldschool sample-based music composition tool")
3095     (description
3096      "Schism Tracker is a reimplementation of Impulse Tracker, a program used to
3097 create high quality music without the requirements of specialized, expensive
3098 equipment, and with a unique \"finger feel\" that is difficult to replicate in
3099 part.  The player is based on a highly modified version of the ModPlug engine,
3100 with a number of bugfixes and changes to improve IT playback.")
3101     (license license:gpl2+)))
3102
3103 (define-public sooperlooper
3104   (package
3105     (name "sooperlooper")
3106     (version "1.7.3")
3107     (source (origin
3108               (method url-fetch)
3109               (uri (string-append "http://essej.net/sooperlooper/sooperlooper-"
3110                                   version ".tar.gz"))
3111               (sha256
3112                (base32
3113                 "0n2gdxw1fx8nxxnpzf4sj0kp6k6zi1yq59cbz6qqzcnsnpnvszbs"))
3114               (patches (search-patches "sooperlooper-build-with-wx-30.patch"))))
3115     (build-system gnu-build-system)
3116     (arguments
3117      `(#:phases
3118        (modify-phases %standard-phases
3119          (add-after 'unpack 'add-sigc++-includes
3120            (lambda* (#:key inputs #:allow-other-keys)
3121              (let ((sig (assoc-ref inputs "libsigc++"))
3122                    (xml (assoc-ref inputs "libxml2"))
3123                    (cwd (getcwd)))
3124                (setenv "CPATH"
3125                        (string-append sig "/include/sigc++-2.0:"
3126                                       sig "/lib/sigc++-2.0/include:"
3127                                       xml "/include/libxml2/:"
3128                                       cwd "/libs/pbd:"
3129                                       cwd "/libs/midi++:"
3130                                       (or (getenv "CPATH") ""))))
3131              (substitute* '("src/control_osc.hpp"
3132                             "src/gui/app_frame.hpp"
3133                             "src/gui/config_panel.hpp"
3134                             "src/gui/keys_panel.hpp"
3135                             "src/gui/latency_panel.hpp"
3136                             "src/gui/main_panel.hpp"
3137                             "src/gui/midi_bind_panel.hpp"
3138                             "src/gui/prefs_dialog.hpp")
3139                (("sigc\\+\\+/object.h")
3140                 "sigc++/sigc++.h"))
3141              (substitute* '("src/engine.cpp"
3142                             "src/gui/latency_panel.cpp"
3143                             "src/gui/looper_panel.cpp"
3144                             "src/gui/main_panel.cpp")
3145                (("(\\(| )bind " _ pre)
3146                 (string-append pre "sigc::bind ")))
3147              #t))
3148          (add-after 'unpack 'fix-xpm-warnings
3149            (lambda _
3150              (substitute* (find-files "." "\\.xpm$")
3151                (("static char") "static const char"))
3152              #t)))))
3153     (inputs
3154      `(("jack" ,jack-1)
3155        ("alsa-lib" ,alsa-lib)
3156        ("wxwidgets" ,wxwidgets-gtk2)
3157        ("libsndfile" ,libsndfile)
3158        ("libsamplerate" ,libsamplerate)
3159        ("liblo" ,liblo)
3160        ("rubberband" ,rubberband)
3161        ("libxml2" ,libxml2)
3162        ("libsigc++" ,libsigc++)
3163        ("ncurses" ,ncurses)))
3164     (native-inputs
3165      `(("pkg-config" ,pkg-config)))
3166     (home-page "http://essej.net/sooperlooper/")
3167     (synopsis "Live looping sampler")
3168     (description
3169      "SooperLooper is a live looping sampler capable of immediate loop
3170 recording, overdubbing, multiplying, reversing and more. It allows for
3171 multiple simultaneous multi-channel loops limited only by your computer's
3172 available memory.")
3173     (license license:gpl2+)))
3174
3175 (define-public moc
3176   (package
3177     (name "moc")
3178     (version "2.5.2")
3179     (source (origin
3180               (method url-fetch)
3181               (uri (string-append "http://ftp.daper.net/pub/soft/"
3182                                   name "/stable/"
3183                                   name "-" version ".tar.bz2"))
3184               (sha256
3185                (base32
3186                 "026v977kwb0wbmlmf6mnik328plxg8wykfx9ryvqhirac0aq39pk"))))
3187     (build-system gnu-build-system)
3188     (inputs
3189      `(("alsa-lib" ,alsa-lib)
3190        ("curl" ,curl)
3191        ("faad2" ,faad2)
3192        ("ffmpeg" ,ffmpeg-3.4)
3193        ("file" ,file)
3194        ("jack" ,jack-1)
3195        ("libid3tag" ,libid3tag)
3196        ("libltdl" ,libltdl)
3197        ("libmodplug" ,libmodplug)
3198        ("libmpcdec" ,libmpcdec)
3199        ("libmad" ,libmad)
3200        ("libogg" ,libogg)
3201        ("libvorbis" ,libvorbis)
3202        ("ncurses" ,ncurses)
3203        ("openssl" ,openssl)
3204        ("sasl" ,cyrus-sasl)
3205        ("speex" ,speex)
3206        ("taglib" ,taglib)
3207        ("wavpack" ,wavpack)
3208        ("zlib" ,zlib)))
3209     (native-inputs
3210      `(("pkg-config" ,pkg-config)))
3211     (synopsis "Console audio player designed to be powerful and easy to use")
3212     (description
3213      "Music on Console is a console audio player that supports many file
3214 formats, including most audio formats recognized by FFMpeg.")
3215     (home-page "http://moc.daper.net")
3216     (license license:gpl2+)))
3217
3218 (define-public midicsv
3219   (package
3220     (name "midicsv")
3221     (version "1.1")
3222     (source (origin
3223               (method url-fetch)
3224               (uri (string-append "http://www.fourmilab.ch/webtools/midicsv/"
3225                                   name "-" version ".tar.gz"))
3226               (sha256
3227                (base32
3228                 "1vvhk2nf9ilfw0wchmxy8l13hbw9cnpz079nsx5srsy4nnd78nkw"))))
3229     (build-system gnu-build-system)
3230     (arguments
3231      `(#:phases (modify-phases %standard-phases (delete 'configure))
3232        #:make-flags (list "CC=gcc" (string-append "INSTALL_DEST=" %output))))
3233     (synopsis "Convert MIDI files to and from CSV")
3234     (description
3235      "Midicsv reads a standard MIDI file and decodes it into a comma-separated
3236 value file (CSV), which preserves all the information in the MIDI file.  The
3237 ASCII CSV file may be loaded into a spreadsheet or database application, or
3238 processed by a program to transform the MIDI data (for example, to key
3239 transpose a composition or extract a track from a multi-track sequence).  A
3240 CSV file in the format created by midicsv may be converted back into a
3241 standard MIDI file with the csvmidi program.")
3242     (home-page "http://www.fourmilab.ch/webtools/midicsv/")
3243     (license license:public-domain)))
3244
3245 (define-public gx-guvnor-lv2
3246   (package
3247     (name "gx-guvnor-lv2")
3248     (version "0.1")
3249     (source (origin
3250               (method git-fetch)
3251               (uri (git-reference
3252                     (url "https://github.com/brummer10/GxGuvnor.lv2.git")
3253                     (commit (string-append "v" version))))
3254               (file-name (string-append name "-" version "-checkout"))
3255               (sha256
3256                (base32
3257                 "1wa5070j40p7f0b3kr259pzm99xb6cf2badr2capayjvgayd6gnm"))))
3258     (build-system gnu-build-system)
3259     (arguments
3260      `(;; The check target is used only to output a warning.
3261        #:tests? #f
3262        #:make-flags
3263        (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
3264        #:phases
3265        (modify-phases %standard-phases
3266          (replace 'configure
3267            (lambda _
3268              (substitute* "Makefile"
3269                (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n")
3270                (("install : all") "install :"))
3271              #t)))))
3272     (inputs
3273      `(("lv2" ,lv2)))
3274     (home-page "https://github.com/brummer10/GxGuvnor.lv2")
3275     (synopsis "Overdrive/distortion pedal simulation")
3276     (description "This package provides the LV2 plugin \"GxGuvnor\", a
3277 simulation of an overdrive or distortion pedal for guitars.")
3278     ;; The LICENSE file says GPLv3 but the license headers in the files say
3279     ;; GPLv2 or later.  The whole project is released under GPLv3 or later
3280     ;; according to https://github.com/brummer10/GxGuvnor.lv2/issues/1
3281     (license license:gpl3+)))
3282
3283 (define-public gx-vbass-preamp-lv2
3284   (let ((commit "eb999b0ca0ef4da40a59e458a9ab6e7042b96c99")
3285         (revision "2"))
3286     (package (inherit gx-guvnor-lv2)
3287       (name "gx-vbass-preamp-lv2")
3288       (version (string-append "0-" revision "." (string-take commit 9)))
3289       (source (origin
3290                 (method git-fetch)
3291                 (uri (git-reference
3292                       (url "https://github.com/brummer10/GxVBassPreAmp.lv2")
3293                       (commit commit)))
3294                 (sha256
3295                  (base32
3296                   "0firap073ldw4nrykkd7jvyyj0jbl1nslxyzjj4kswazp99x7d9h"))
3297                 (file-name (string-append name "-" version "-checkout"))))
3298       (inputs
3299        `(("lv2" ,lv2)
3300          ("gtk+" ,gtk+-2)))
3301       (native-inputs
3302        `(("pkg-config" ,pkg-config)))
3303       (home-page "https://github.com/brummer10/GxVBassPreAmp.lv2")
3304       (synopsis "Simulation of the Vox Venue Bass 100 Pre Amp Section")
3305       (description "This package provides the LV2 plugin \"GxVBassPreAmp\", a
3306 pre-amplifier simulation modelled after the 1984 Vox Venue Bass 100 Pre Amp
3307 Section."))))
3308
3309 (define-public gx-overdriver-lv2
3310   (let ((commit "ed71801987449414bf3adaa0dbfac68e8775f1ce")
3311         (revision "1"))
3312     (package (inherit gx-guvnor-lv2)
3313       (name "gx-overdriver-lv2")
3314       (version (string-append "0-" revision "." (string-take commit 9)))
3315       (source (origin
3316                 (method git-fetch)
3317                 (uri (git-reference
3318                       (url "https://github.com/brummer10/GxOverDriver.lv2")
3319                       (commit commit)))
3320                 (sha256
3321                  (base32
3322                   "13j614jh525fbkby79nnzwj0z1ac0c9wclyn5pfqvkmx6a7j24r8"))
3323                 (file-name (string-append name "-" version "-checkout"))))
3324       (home-page "https://github.com/brummer10/GxOverDriver.lv2")
3325       (synopsis "Overdrive effect with level and tone control")
3326       (description "This package provides the LV2 plugin \"GxOverDriver\", an
3327 overdrive effect."))))
3328
3329 (define-public gx-tone-mender-lv2
3330   (let ((commit "b6780b4a3e4782b3ed0e5882d6788f178aed138f")
3331         (revision "1"))
3332     (package (inherit gx-guvnor-lv2)
3333       (name "gx-tone-mender-lv2")
3334       (version (string-append "0-" revision "." (string-take commit 9)))
3335       (source (origin
3336                 (method git-fetch)
3337                 (uri (git-reference
3338                       (url "https://github.com/brummer10/GxToneMender.lv2")
3339                       (commit commit)))
3340                 (sha256
3341                  (base32
3342                   "07qdcfsvv2vdnfnjh91pfgvjdcs5y91nvwfm8c0z8fp6b4bk7a9q"))
3343                 (file-name (string-append name "-" version "-checkout"))))
3344       (home-page "https://github.com/brummer10/GxToneMender.lv2")
3345       (synopsis "Clean boost with a 3-knob tonestack")
3346       (description "This package provides the LV2 plugin \"GxToneMender\", a
3347 clean boost effect with a 3-knob tonestack."))))
3348
3349 (define-public gx-push-pull-lv2
3350   (let ((commit "7f76ae2068498643ac8671ee0930b13ee3fd8eb5")
3351         (revision "1"))
3352     (package (inherit gx-guvnor-lv2)
3353       (name "gx-push-pull-lv2")
3354       (version (string-append "0-" revision "." (string-take commit 9)))
3355       (source (origin
3356                 (method git-fetch)
3357                 (uri (git-reference
3358                       (url "https://github.com/brummer10/GxPushPull.lv2")
3359                       (commit commit)))
3360                 (sha256
3361                  (base32
3362                   "12f5hwck2irph0gjbj8xy8jqcqdwb8l1hlwf29k0clz52h1jhb5q"))
3363                 (file-name (string-append name "-" version "-checkout"))))
3364       (home-page "https://github.com/brummer10/GxPushPull.lv2")
3365       (synopsis "Octave up push pull transistor fuzz simulation")
3366       (description "This package provides the LV2 plugin \"GxPushPull\", a
3367 simulation of a push pull transistor fuzz effect with added high octave."))))
3368
3369 (define-public gx-suppa-tone-bender-lv2
3370   (package (inherit gx-guvnor-lv2)
3371     (name "gx-suppa-tone-bender-lv2")
3372     (version "0.1")
3373     (source (origin
3374               (method git-fetch)
3375               (uri (git-reference
3376                     (url "https://github.com/brummer10/GxSuppaToneBender.lv2.git")
3377                     (commit (string-append "v" version))))
3378               (file-name (string-append name "-" version "-checkout"))
3379               (sha256
3380                (base32
3381                 "01x6bjmllkmvxfzc5xwdix7w021j26js71awv728cxsmkxgqw0zy"))))
3382     (home-page "https://github.com/brummer10/GxSuppaToneBender.lv2")
3383     (synopsis "Simulation of the Vox Suppa Tone Bender pedal")
3384     (description "This package provides the LV2 plugin
3385 \"GxSuppaToneBender\", a simulation modelled after the Vox Suppa Tone Bender
3386 pedal.")))
3387
3388 (define-public gx-saturator-lv2
3389   (let ((commit "605330f432c94b6eb3f8203cbe472befae959532")
3390         (revision "3"))
3391     (package (inherit gx-vbass-preamp-lv2)
3392       (name "gx-saturator-lv2")
3393       (version (string-append "0-" revision "." (string-take commit 9)))
3394       (source (origin
3395                 (method git-fetch)
3396                 (uri (git-reference
3397                       (url "https://github.com/brummer10/GxSaturator.lv2")
3398                       (commit commit)))
3399                 (sha256
3400                  (base32
3401                   "1w4nvh0rmxrv3s3hmh4fs74f3hc0jn31v00j769j7v68mqr7kawy"))
3402                 (file-name (string-append name "-" version "-checkout"))))
3403       (home-page "https://github.com/brummer10/GxSaturator.lv2")
3404       (synopsis "Saturation effect")
3405       (description "This package provides the LV2 plugin \"GxSaturator\", a
3406 saturation effect."))))
3407
3408 (define-public gx-hyperion-lv2
3409   (package (inherit gx-guvnor-lv2)
3410     (name "gx-hyperion-lv2")
3411     (version "0.1")
3412     (source (origin
3413               (method git-fetch)
3414               (uri (git-reference
3415                     (url "https://github.com/brummer10/GxHyperion.lv2.git")
3416                     (commit (string-append "v" version))))
3417               (file-name (string-append name "-" version "-checkout"))
3418               (sha256
3419                (base32
3420                 "1vx79s6s9if117y2g0ppdja2sv2wcny6xcfl3j1z4cipahnildxf"))))
3421     (home-page "https://github.com/brummer10/GxHyperion.lv2")
3422     (synopsis "Simulation of the Hyperion Fuzz pedal")
3423     (description "This package provides the LV2 plugin \"GxHyperion\", a
3424 simulation of the Hyperion Fuzz pedal.")))
3425
3426 (define-public gx-voodoo-fuzz-lv2
3427   (package (inherit gx-guvnor-lv2)
3428     (name "gx-voodoo-fuzz-lv2")
3429     (version "0.1")
3430     (source (origin
3431               (method git-fetch)
3432               (uri (git-reference
3433                     (url "https://github.com/brummer10/GxVoodoFuzz.lv2.git")
3434                     (commit (string-append "v" version))))
3435               (file-name (string-append name "-" version "-checkout"))
3436               (sha256
3437                (base32
3438                 "1v0scphivri1fk4hl20j13f92i48mnx1zsil4hgnadsmm4nsfw43"))))
3439     (home-page "https://github.com/brummer10/GxVoodoFuzz.lv2")
3440     (synopsis "Fuzz effect modelled after the Voodoo Lab SuperFuzz")
3441     (description "This package provides the LV2 plugin \"GxVoodooFuzz\", a
3442 simulation modelled after the Voodoo Lab SuperFuzz pedal.  It's basically a
3443 Bosstone circuit, followed by the tone control of the FoxToneMachine in
3444 parallel with a DarkBooster, followed by a volume control.")))
3445
3446 (define-public gx-super-fuzz-lv2
3447   (package (inherit gx-guvnor-lv2)
3448     (name "gx-super-fuzz-lv2")
3449     (version "0.1")
3450     (source (origin
3451               (method git-fetch)
3452               (uri (git-reference
3453                     (url "https://github.com/brummer10/GxSuperFuzz.lv2.git")
3454                     (commit (string-append "v" version))))
3455               (file-name (string-append name "-" version "-checkout"))
3456               (sha256
3457                (base32
3458                 "1jlljd9hlgfflbiizq47lv1xbbgjyx3v835mf24zmh1q5zsw4np4"))))
3459     (home-page "https://github.com/brummer10/GxSuperFuzz.lv2")
3460     (synopsis "Fuzz effect modelled after the UniVox SuperFuzz")
3461     (description "This package provides the LV2 plugin \"GxSuperFuzz\", an
3462 analog simulation of the UniVox SuperFuzz pedal.  In this simulation the trim
3463 pot, which is usually in the housing, is exposed as a control parameter.  It
3464 adjusts the amount of harmonics.")))
3465
3466 (define-public gx-vintage-fuzz-master-lv2
3467   (package (inherit gx-guvnor-lv2)
3468     (name "gx-vintage-fuzz-master-lv2")
3469     (version "0.1")
3470     (source (origin
3471               (method git-fetch)
3472               (uri (git-reference
3473                     (url "https://github.com/brummer10/GxVintageFuzzMaster.lv2.git")
3474                     (commit (string-append "v" version))))
3475               (file-name (string-append name "-" version "-checkout"))
3476               (sha256
3477                (base32
3478                 "02jb211z8rw2qr5r1z5mdxlqgiw6cbc319xpqplvn6k21c59mskv"))))
3479     (home-page "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
3480     (synopsis "Fuzz effect simulation of the vintage Fuzz Master")
3481     (description "This package provides the LV2 plugin
3482 \"GxVintageFuzzMaster\", a simulation of the vintage Fuzz Master pedal.")))
3483
3484 (define-public gx-slow-gear-lv2
3485   (let ((commit "5d37e775b0feef1d82feee94e2a7a2d7e57efe2d")
3486         (revision "3"))
3487     (package (inherit gx-vbass-preamp-lv2)
3488       (name "gx-slow-gear-lv2")
3489       (version (string-append "0-" revision "." (string-take commit 9)))
3490       (source (origin
3491                 (method git-fetch)
3492                 (uri (git-reference
3493                       (url "https://github.com/brummer10/GxSlowGear.lv2")
3494                       (commit commit)))
3495                 (sha256
3496                  (base32
3497                   "141mz69zkhk3lm54bb6wgpnghb92zm1ig7fv07240cmhydqji1q1"))
3498                 (file-name (string-append name "-" version "-checkout"))))
3499       (home-page "https://github.com/brummer10/GxSlowGear.lv2")
3500       (synopsis "Slow gear audio effect")
3501       (description "This package provides the LV2 plugin \"GxSlowGear\", a
3502 slow gear audio effect to produce volume swells."))))
3503
3504 (define-public gx-switchless-wah-lv2
3505   (let ((commit "7b08691203314612999f0ce2328cdc1161cd6665")
3506         (revision "2"))
3507     (package (inherit gx-guvnor-lv2)
3508       (name "gx-switchless-wah-lv2")
3509       (version (string-append "0-" revision "." (string-take commit 9)))
3510       (source (origin
3511                 (method git-fetch)
3512                 (uri (git-reference
3513                       (url "https://github.com/brummer10/GxSwitchlessWah.lv2")
3514                       (commit commit)))
3515                 (sha256
3516                  (base32
3517                   "04jqfpncmrrqn34p21w4v9m2x5a5wsqwbm4f3byxvq4vcibwxzk2"))
3518                 (file-name (string-append name "-" version "-checkout"))))
3519       (home-page "https://github.com/brummer10/GxSwitchlessWah.lv2")
3520       (synopsis "Wah emulation with switchless activation")
3521       (description "This package provides the LV2 plugin \"GxSwitchlessWah\",
3522 a simulation of an analog Wah pedal with switchless activation."))))
3523
3524 (define-public rkrlv2
3525   ;; This commit corresponds to the beta_3 tag
3526   (let ((commit "7edcb4e29a358623bfd57fa2c27e5da60adfcec3")
3527         (revision "2"))
3528     (package
3529       (name "rkrlv2")
3530       (version (git-version "0" revision commit))
3531       (source (origin
3532                 (method git-fetch)
3533                 (uri (git-reference
3534                       (url "https://github.com/ssj71/rkrlv2.git")
3535                       (commit commit)))
3536                 (sha256
3537                  (base32
3538                   "16i4ajrib7kb0abdcn4901g8a4lkwkp2fyqyms38dhqq84slyfjs"))
3539                 (file-name (git-file-name name version))))
3540       (build-system cmake-build-system)
3541       (arguments '(#:tests? #f)) ; there are no tests
3542       (inputs
3543        `(("fftw" ,fftw)
3544          ("libsamplerate" ,libsamplerate)
3545          ("lv2" ,lv2)))
3546       (native-inputs
3547        `(("pkg-config" ,pkg-config)))
3548       (home-page "https://github.com/ssj71/rkrlv2")
3549       (synopsis "Rakarrack effects ported to LV2 plugins")
3550       (description "This package provides the Rakarrack effects as LV2
3551 plugins.  The ports are done such that hopefully when Rakarrack gets an active
3552 maintainer these will get merged into the original project.")
3553       (license license:gpl2))))
3554
3555 (define-public mod-utilities
3556   (let ((commit "80ea3ea9f52fab7f191671f4810bf90fc955a046")
3557         (revision "2"))
3558     (package
3559       (name "mod-utilities")
3560       (version (string-append "0-" revision "." (string-take commit 9)))
3561       (source (origin
3562                 (method git-fetch)
3563                 (uri (git-reference
3564                       (url "https://github.com/moddevices/mod-utilities.git")
3565                       (commit commit)))
3566                 (file-name (string-append name "-" version "-checkout"))
3567                 (sha256
3568                  (base32
3569                   "1v55zmzmlg0ka7341x5lsvb44amy17vk27s669ps1basd1bk5s5v"))))
3570       (build-system gnu-build-system)
3571       (arguments
3572        `(#:tests? #f ; there are no tests
3573          #:make-flags
3574          (list (string-append "INSTALL_PATH="
3575                               (assoc-ref %outputs "out")
3576                               "/lib/lv2")
3577                (string-append "PREFIX=" (assoc-ref %outputs "out"))
3578                "CC=gcc")
3579          #:phases
3580          (modify-phases %standard-phases
3581            (delete 'configure))))
3582       (inputs
3583        `(("lv2" ,lv2)))
3584       (home-page "https://github.com/moddevices/mod-utilities")
3585       (synopsis "LV2 utility plugins")
3586       (description "This package provides LV2 audio utility plugins, such as
3587 filters, crossovers, simple gain plugins without zipper noise, switch box
3588 plugins, a switch trigger, a toggle switch, and a peakmeter.")
3589       (license license:gpl2+))))
3590
3591 (define-public ingen
3592   (let ((commit "cc4a4db33f4d126a07a4a498e053c5fb9a883be3")
3593         (revision "2"))
3594     (package
3595       (name "ingen")
3596       (version (string-append "0.0.0-" revision "."
3597                               (string-take commit 9)))
3598       (source
3599        (origin
3600          (method git-fetch)
3601          (uri (git-reference
3602                (url "https://git.drobilla.net/ingen.git")
3603                (commit commit)))
3604          (file-name (string-append name "-" version "-checkout"))
3605          (sha256
3606           (base32
3607            "1wg47vjw9djn99gbnsl2bcwj4xhdid61m4wrbn2nlp797flj91ic"))))
3608       (build-system waf-build-system)
3609       (arguments
3610        `(#:python ,python-2
3611          #:tests? #f ; no "check" target
3612          #:configure-flags (list "--no-webkit")
3613          #:phases
3614          (modify-phases %standard-phases
3615            (add-after 'unpack 'patch-wscript
3616              (lambda* (#:key outputs #:allow-other-keys)
3617                (let ((out (assoc-ref outputs "out")))
3618                  (substitute* "wscript"
3619                    ;; FIXME: Our version of lv2specgen.py does not behave as
3620                    ;; expected.  Maybe this requires a development version of
3621                    ;; LV2.
3622                    (("lv2specgen.py") "touch ingen.lv2/ingen.html; echo")
3623                    ;; Add libraries to RUNPATH.
3624                    (("^(.+)target.*= 'src/ingen/ingen'," line prefix)
3625                     (string-append prefix
3626                                    "linkflags=[\"-Wl,-rpath="
3627                                    out "/lib" "\"]," line)))
3628                  (substitute* '("src/wscript"
3629                                 "src/server/wscript")
3630                    ;; Add libraries to RUNPATH.
3631                    (("bld.env.PTHREAD_LINKFLAGS" line)
3632                     (string-append line
3633                                    " + [\"-Wl,-rpath=" out "/lib" "\"]")))
3634                  (substitute* "src/client/wscript"
3635                    ;; Add libraries to RUNPATH.
3636                    (("^(.+)target.*= 'ingen_client'," line prefix)
3637                     (string-append prefix
3638                                    "linkflags=[\"-Wl,-rpath="
3639                                    out "/lib" "\"]," line)))
3640                  (substitute* "src/gui/wscript"
3641                    ;; Add libraries to RUNPATH.
3642                    (("^(.+)target.* = 'ingen_gui.*" line prefix)
3643                     (string-append prefix
3644                                    "linkflags=[\"-Wl,-rpath="
3645                                    out "/lib" "\"]," line))))
3646                #t)))))
3647       (inputs
3648        `(("boost" ,boost)
3649          ("python-rdflib" ,python-rdflib)
3650          ("python" ,python)
3651          ("jack" ,jack-1)
3652          ("lv2" ,lv2)
3653          ("lilv" ,lilv)
3654          ("raul" ,raul-devel)
3655          ("ganv" ,ganv-devel)
3656          ("suil" ,suil)
3657          ("serd" ,serd)
3658          ("sord" ,sord)
3659          ("sratom" ,sratom)
3660          ("gtkmm" ,gtkmm-2)))
3661       (native-inputs
3662        `(("pkg-config" ,pkg-config)
3663          ("python-pygments" ,python-pygments)))
3664       (home-page "https://drobilla.net/software/ingen")
3665       (synopsis "Modular audio processing system")
3666       (description "Ingen is a modular audio processing system for JACK and
3667 LV2 based systems.  Ingen is built around LV2 technology and a strict
3668 separation of engine from user interface.  The engine is controlled
3669 exclusively through a protocol, and can execute as a headless process, with an
3670 in-process GUI, or as an LV2 plugin.  The GUI can run as a program which
3671 communicates over a Unix or TCP/IP socket, or as an embeddable LV2 GUI which
3672 communicates via LV2 ports.  Any saved Ingen graph can be loaded as an LV2
3673 plugin on any system where Ingen is installed.  This allows users to visually
3674 develop custom plugins for use in other applications without programming.")
3675       (license license:agpl3+))))
3676
3677 (define-public qmidiarp
3678   (package
3679     (name "qmidiarp")
3680     (version "0.6.5")
3681     (source (origin
3682               (method url-fetch)
3683               (uri (string-append "mirror://sourceforge/qmidiarp/qmidiarp/"
3684                                   version "/qmidiarp-" version ".tar.bz2"))
3685               (sha256
3686                (base32
3687                 "043yh1p0rrbj1v840y27529m9260g55gvh1km8az4jxy7mns58r2"))))
3688     (build-system gnu-build-system)
3689     (arguments
3690      `(#:configure-flags
3691        (list "--enable-qt5")))
3692     (inputs
3693      `(("qtbase" ,qtbase)
3694        ("alsa-lib" ,alsa-lib)
3695        ("jack" ,jack-1)
3696        ("liblo" ,liblo)
3697        ("lv2" ,lv2)))
3698     (native-inputs
3699      `(("pkg-config" ,pkg-config)
3700        ("qttools" ,qttools)))
3701     (home-page "http://qmidiarp.sourceforge.net/")
3702     (synopsis "MIDI arpeggiator")
3703     (description "QMidiArp is an advanced MIDI arpeggiator, programmable step
3704 sequencer and LFO.  It can hold any number of arpeggiator, sequencer, or LFO
3705 modules running in parallel.")
3706     (license license:gpl2+)))
3707
3708 (define-public qmidiroute
3709   (package
3710     (name "qmidiroute")
3711     (version "0.4.0")
3712     (source (origin
3713               (method url-fetch)
3714               (uri (string-append "mirror://sourceforge/alsamodular/QMidiRoute/"
3715                                   version "/qmidiroute-" version ".tar.bz2"))
3716               (sha256
3717                (base32
3718                 "19v1ppbglgl3z9v7xdqc0k33w71cqq8a7d6ihvfs7iz77dygrih9"))))
3719     (build-system gnu-build-system)
3720     (arguments
3721      `(#:configure-flags
3722        (list "--enable-qt5")))
3723     (inputs
3724      `(("qtbase" ,qtbase)
3725        ("alsa-lib" ,alsa-lib)))
3726     (native-inputs
3727      `(("pkg-config" ,pkg-config)
3728        ("qttools" ,qttools)))
3729     (home-page "http://alsamodular.sourceforge.net/")
3730     (synopsis "MIDI event router and filter")
3731     (description "QMidiRoute is a MIDI event router and filter.  MIDI note,
3732 control change, program change and pitch bend events are logged, and can be
3733 filtered, redirected and transformed into other events according to MIDI maps
3734 defined as tabs in the main control surface.")
3735     (license license:gpl2+)))
3736
3737 (define-public seq24
3738   (package
3739     (name "seq24")
3740     (version "0.9.3")
3741     (source (origin
3742               (method url-fetch)
3743               (uri (string-append "https://launchpad.net/seq24/trunk/"
3744                                   version "/+download/seq24-"
3745                                   version ".tar.bz2"))
3746               (sha256
3747                (base32
3748                 "12dphdhnvfk1k0vmagi1v2lhyxjyj1j3cz6ksjw0ydcvid1x8ap2"))
3749               (patches (search-patches "seq24-rename-mutex.patch"))))
3750     (build-system gnu-build-system)
3751     (inputs
3752      `(("gtkmm" ,gtkmm-2)
3753        ("alsa-lib" ,alsa-lib)
3754        ("jack" ,jack-1)
3755        ("lash" ,lash)))
3756     (native-inputs
3757      `(("pkg-config" ,pkg-config)))
3758     (home-page "https://edge.launchpad.net/seq24/")
3759     (synopsis "Real-time MIDI sequencer")
3760     (description "Seq24 is a real-time MIDI sequencer.  It was created to
3761 provide a very simple interface for editing and playing MIDI loops.")
3762     (license license:gpl2+)))
3763
3764 (define-public python-discogs-client
3765   (package
3766     (name "python-discogs-client")
3767     (version "2.2.1")
3768     (source (origin
3769               (method url-fetch)
3770               (uri (pypi-uri "discogs-client" version))
3771               (sha256
3772                (base32
3773                 "053ld2psh0yj3z0kg6z5bn4y3cr562m727494n0ayhgzbkjbacly"))))
3774     (build-system python-build-system)
3775     (propagated-inputs
3776      `(("python-oauthlib" ,python-oauthlib)
3777        ("python-requests" ,python-requests)))
3778     (native-inputs
3779      `(("python-six" ,python-six)))
3780     (home-page "https://github.com/discogs/discogs_client")
3781     (synopsis "Official Python client for the Discogs API")
3782     (description "This is the official Discogs API client for Python. It enables
3783 you to query the Discogs database for information on artists, releases, labels,
3784 users, Marketplace listings, and more.  It also supports OAuth 1.0a
3785 authorization, which allows you to change user data such as profile information,
3786 collections and wantlists, inventory, and orders.")
3787     (license license:bsd-2)))
3788
3789 (define-public python2-discogs-client
3790   (package-with-python2 python-discogs-client))
3791
3792 (define-public libsmf
3793   (package
3794     (name "libsmf")
3795     (version "1.3")
3796     (source
3797      (origin
3798        (method url-fetch)
3799        ;; SF download page says development moved, but the link it points to
3800        ;; is gone (https://github.com/nilsgey/libsmf).  Someone else adopted
3801        ;; it but made no release so far (https://github.com/stump/libsmf).
3802        (uri (string-append "mirror://sourceforge/libsmf/libsmf/"
3803                            version "/libsmf-" version ".tar.gz"))
3804        (sha256
3805         (base32
3806          "16c0n40h0r56gzbh5ypxa4dwp296dan3jminml2qkb4lvqarym6k"))))
3807     (build-system gnu-build-system)
3808     (outputs '("out"
3809                "static")) ; 88KiB of .a files
3810     (arguments
3811      `(#:phases
3812        (modify-phases %standard-phases
3813          (add-after 'install 'move-static-libraries
3814            (lambda* (#:key outputs #:allow-other-keys)
3815              ;; Move static libraries to the "static" output.
3816              (let* ((out    (assoc-ref outputs "out"))
3817                     (lib    (string-append out "/lib"))
3818                     (static (assoc-ref outputs "static"))
3819                     (slib   (string-append static "/lib")))
3820                (mkdir-p slib)
3821                (for-each (lambda (file)
3822                            (install-file file slib)
3823                            (delete-file file))
3824                          (find-files lib "\\.a$"))
3825                #t))))))
3826     (inputs
3827      `(("readline" ,readline)
3828        ("glib" ,glib)))
3829     (native-inputs
3830      `(("doxygen" ,doxygen)
3831        ("pkg-config" ,pkg-config)))
3832     (home-page "http://libsmf.sourceforge.net/")
3833     (synopsis "Standard MIDI File format library")
3834     (description
3835      "LibSMF is a C library for handling SMF (\"*.mid\") files.  It transparently handles
3836 conversions between time and pulses, tempo map handling and more.  The only dependencies
3837 are a C compiler and glib.  Full API documentation and examples are included.")
3838     (license license:bsd-2)))
3839
3840 (define-public lmms
3841   (package
3842     (name "lmms")
3843     (version "1.2.1")
3844     (source
3845      (origin
3846        (method git-fetch)
3847        (uri (git-reference
3848              (url "https://github.com/LMMS/lmms.git")
3849              (commit (string-append "v" version))))
3850        (file-name (git-file-name name version))
3851        (sha256
3852         (base32
3853          "1gx730z361xx30iqbsm99aam1k2c8yf561gcay6sryyjksb4w1wy"))))
3854     (build-system cmake-build-system)
3855     (arguments
3856      `(#:tests? #f ; no tests
3857        ;; Qt 5 support must be explicitly enabled in the 1.2 stable versions of
3858        ;; LMMS, so try removing "-DWANT_QT5=ON" in later versions.
3859        ;; Also, explicitly disabling VST support gets rid of the in-tree
3860        ;; dependency on qt5-x11embed.
3861        #:configure-flags '("-DWANT_QT5=ON"
3862                            "-DWANT_VST=OFF")
3863        #:phases
3864        (modify-phases %standard-phases
3865          (add-after 'unpack 'unpack-rpmalloc
3866            (lambda* (#:key inputs #:allow-other-keys)
3867              (copy-recursively (assoc-ref inputs "rpmalloc")
3868                                "src/3rdparty/rpmalloc/rpmalloc")
3869              #t))
3870          (add-before 'configure 'set-ldflags
3871            (lambda* (#:key outputs #:allow-other-keys)
3872              (setenv "LDFLAGS"
3873                      (string-append
3874                       "-Wl,-rpath=\""
3875                       (assoc-ref outputs "out") "/lib/lmms"
3876                       ":"
3877                       (assoc-ref outputs "out") "/lib/lmms/ladspa"
3878                       "\""))
3879              #t))
3880          (add-before 'reset-gzip-timestamps 'make-manpages-writable
3881            (lambda* (#:key outputs #:allow-other-keys)
3882              (map (lambda (file)
3883                     (make-file-writable file))
3884                   (find-files (string-append (assoc-ref outputs "out")
3885                                              "/share/man")
3886                               ".*\\.gz$"))
3887              #t)))))
3888     (native-inputs
3889      `(("pkg-config" ,pkg-config)
3890        ("qttools" ,qttools)
3891        ;; rpmalloc is a public domain memory allocator. This version specified
3892        ;; below is the version required by LMMS.
3893        ;; To get the new commit of rpmalloc to use here, run
3894        ;;   `git submodule--helper list | grep rpmalloc | cut -f2 -d' '`
3895        ;; in the cloned LMMS repository.
3896        ("rpmalloc"
3897         ,(origin
3898            (method git-fetch)
3899            (uri (git-reference
3900                  (url "https://github.com/mjansson/rpmalloc.git")
3901                  (commit "b5bdc18051bb74a22f0bde4bcc90b01cf590b496")))
3902            (sha256
3903             (base32
3904              "0g9pls46iggg7rdm65vzfj8nyr3v2n5xkp54c4qbh9hhalpsw4ay"))))))
3905     (inputs
3906      `(("sdl" ,sdl)
3907        ("qtbase" ,qtbase)
3908        ("qtx11extras" ,qtx11extras)
3909        ("fltk" ,fltk)
3910        ("libogg" ,libogg)
3911        ("libsamplerate" ,libsamplerate)
3912        ("fluidsynth" ,fluidsynth)
3913        ("libvorbis" ,libvorbis)
3914        ("alsa-lib" ,alsa-lib)
3915        ("portaudio" ,portaudio)
3916        ("ladspa" ,ladspa)
3917        ("libsndfile1" ,libsndfile)
3918        ("libxft" ,libxft)
3919        ("freetype2" ,freetype)
3920        ("fftw3f" ,fftwf)
3921        ("jack" ,jack-1)))
3922     (home-page "https://lmms.io/")
3923     (synopsis "Music composition tool")
3924     (description "LMMS is a digital audio workstation.  It includes tools for sequencing
3925 melodies and beats and for mixing and arranging songs.  LMMS includes instruments based on
3926 audio samples and various soft sythesizers.  It can receive input from a MIDI keyboard.")
3927     (license license:gpl2+)))
3928
3929 (define-public musescore
3930   (package
3931     (name "musescore")
3932     (version "3.4.2")
3933     (source
3934      (origin
3935        (method git-fetch)
3936        (uri (git-reference
3937              (url "https://github.com/musescore/MuseScore.git")
3938              (commit (string-append "v" version))))
3939        (file-name (git-file-name name version))
3940        (sha256
3941         (base32 "14a9sg87nx7xca1qfbkplnpbx9pyg9k9vy87dq0g401ag6g6bi66"))
3942        (modules '((guix build utils)))
3943        (snippet
3944         ;; Un-bundle OpenSSL and remove unused libraries.
3945         '(begin
3946            (for-each delete-file-recursively
3947                      '("thirdparty/freetype"
3948                        "thirdparty/openssl"
3949                        "thirdparty/portmidi"))
3950            #t))))
3951     (build-system cmake-build-system)
3952     (arguments
3953      `(#:configure-flags
3954        `("-DBUILD_TELEMETRY_MODULE=OFF" ;don't phone home
3955          "-DBUILD_WEBENGINE=OFF"
3956          "-DDOWNLOAD_SOUNDFONT=OFF"
3957          "-DUSE_SYSTEM_FREETYPE=ON")
3958        ;; There are tests, but no simple target to run.  The command used to
3959        ;; run them is:
3960        ;;
3961        ;;   make debug && sudo make installdebug && cd \
3962        ;;   build.debug/mtest && make && ctest
3963        ;;
3964        ;; Basically, it requires to start a whole new build process.
3965        ;; So we simply skip them.
3966        #:tests? #f))
3967     (inputs
3968      `(("alsa-lib" ,alsa-lib)
3969        ("freetype" ,freetype)
3970        ("gtk+-bin" ,gtk+ "bin")         ;for gtk-update-icon-cache
3971        ("jack" ,jack-1)
3972        ("lame" ,lame)
3973        ("libogg" ,libogg)
3974        ("libsndfile" ,libsndfile)
3975        ("libvorbis" ,libvorbis)
3976        ("portaudio" ,portaudio)
3977        ("portmidi" ,portmidi)
3978        ("pulseaudio" ,pulseaudio)
3979        ("qtbase" ,qtbase)
3980        ("qtdeclarative" ,qtdeclarative)
3981        ("qtquickcontrols2" ,qtquickcontrols2)
3982        ("qtscript" ,qtscript)
3983        ("qtsvg" ,qtsvg)
3984        ("qtxmlpatterns" ,qtxmlpatterns)))
3985     (native-inputs
3986      `(("pkg-config" ,pkg-config)
3987        ("qttools" ,qttools)))
3988     (synopsis "Music composition and notation software")
3989     (description "MuseScore is a music score typesetter.  Its main purpose is
3990 the creation of high-quality engraved musical scores in a WYSIWYG environment.
3991
3992 It supports unlimited staves, linked parts and part extraction, tablature,
3993 MIDI input, percussion notation, cross-staff beaming, automatic transposition,
3994 lyrics (multiple verses), fretboard diagrams, and in general everything
3995 commonly used in sheet music.  Style options and style sheets to change the
3996 appearance and layout are provided.
3997
3998 MuseScore can also play back scores through the built-in sequencer and SoundFont
3999 sample library.")
4000     (home-page "https://musescore.org")
4001     (license license:gpl2)))
4002
4003 (define-public muse-sequencer
4004   (package
4005     (name "muse-sequencer")
4006     (version "3.0.0")
4007     (source (origin
4008               (method git-fetch)
4009               (uri (git-reference
4010                     (url "https://github.com/muse-sequencer/muse.git")
4011                     (commit (string-append "muse_"
4012                                            (string-map (lambda (c)
4013                                                          (if (char=? c #\.)
4014                                                              #\_ c)) version)))))
4015               (file-name (git-file-name name version))
4016               (sha256
4017                (base32
4018                 "1nninz8qyqlxxjdnrm79y3gr3056pga9l2fsqh674jd3cjvafya3"))))
4019     (build-system cmake-build-system)
4020     (arguments
4021      `(#:tests? #f ; there is no test target
4022        #:configure-flags
4023        (list "-DENABLE_LV2_SUPPLIED=OFF"
4024              "-DENABLE_RTAUDIO=OFF"    ; FIXME: not packaged
4025              "-DENABLE_INSTPATCH=OFF"  ; FIXME: not packaged
4026              "-DENABLE_VST_NATIVE=OFF")
4027        #:phases
4028        (modify-phases %standard-phases
4029          (add-after 'unpack 'chdir
4030            (lambda _ (chdir "muse3"))))))
4031     (inputs
4032      `(("alsa-lib" ,alsa-lib)
4033        ("lash" ,lash)
4034        ("jack" ,jack-1)
4035        ("liblo" ,liblo)
4036        ("dssi" ,dssi)
4037        ("ladspa" ,ladspa)
4038        ("lv2" ,lv2)
4039        ("lilv" ,lilv)
4040        ("sord" ,sord)
4041        ("libsndfile" ,libsndfile)
4042        ("libsamplerate" ,libsamplerate)
4043        ("fluidsynth" ,fluidsynth)
4044        ("pcre" ,pcre)
4045        ("qtbase" ,qtbase)
4046        ("qtsvg" ,qtsvg)))
4047     (native-inputs
4048      `(("pkg-config" ,pkg-config)
4049        ("qttools" ,qttools)))
4050     (home-page "https://muse-sequencer.github.io/")
4051     (synopsis "MIDI/Audio sequencer")
4052     (description "MusE is a MIDI/Audio sequencer with recording and editing
4053 capabilities.  Its audio sequencer supports the LADSPA, DSSI, and LV2 audio
4054 plugin formats; the MIDI sequencer provides a piano roll, a drum editor, a
4055 list view, and a score editor.  MusE aims to be a complete multitrack virtual
4056 studio.")
4057     (license license:gpl2+)))
4058
4059 (define-public dssi
4060   (package
4061     (name "dssi")
4062     (version "1.1.1")
4063     (source (origin
4064               (method url-fetch)
4065               (uri (string-append
4066                     "mirror://sourceforge/dssi/dssi/" version
4067                     "/dssi-" version ".tar.gz"))
4068               (sha256
4069                (base32
4070                 "0kl1hzhb7cykzkrqcqgq1dk4xcgrcxv0jja251aq4z4l783jpj7j"))))
4071     (build-system gnu-build-system)
4072     (inputs
4073      `(("alsa-lib" ,alsa-lib)
4074        ("jack" ,jack-1)
4075        ("ladspa" ,ladspa)
4076        ("libsamplerate" ,libsamplerate)
4077        ("libsndfile" ,libsndfile)
4078        ("liblo" ,liblo)))
4079     (native-inputs
4080      `(("pkg-config" ,pkg-config)))
4081     (synopsis "Audio plugin API for soft synths and effects")
4082     (description "DSSI is a plugin API for software instruments with user
4083 interfaces, permitting them to be hosted in-process by audio applications.
4084 It is intended to be simple, GUI-toolkit-agnostic, and slightly biased
4085 towards familiarity with MIDI.  The DSSI distribution package contains
4086 a JACK/ALSA-sequencer reference host and some plugins as well as the
4087 specification and header.")
4088     (home-page "http://dssi.sourceforge.net/")
4089     ;; The DSSI interface is LGPL2.1+, some tests and examples are GPL2+.
4090     ;; The vast majority of examples are in the public domain.
4091     (license (list license:lgpl2.1+ license:gpl2+))))
4092
4093 (define-public rosegarden
4094   (package
4095     (name "rosegarden")
4096     (version "19.12")
4097     (source
4098      (origin
4099        (method url-fetch)
4100        (uri (string-append "mirror://sourceforge/rosegarden/rosegarden/"
4101                            version "/rosegarden-" version ".tar.bz2"))
4102        (sha256
4103         (base32 "1qcaxc6hdzva7kwxxhgl95437fagjbxzv4mihsgpr7y9qk08ppw1"))))
4104     (build-system cmake-build-system)
4105     (arguments
4106      `(#:configure-flags '("-DCMAKE_BUILD_TYPE=Release")
4107        #:phases
4108        (modify-phases %standard-phases
4109          (add-after 'unpack 'patch-tests
4110            (lambda _
4111              (substitute* "CMakeLists.txt"
4112                (("BUILD_TESTING OFF") "BUILD_TESTING ON")
4113                ;; Make tests work.
4114                ((" -fvisibility=hidden") ""))
4115              #t))
4116          (add-after 'unpack 'fix-references
4117            (lambda* (#:key inputs #:allow-other-keys)
4118              (substitute* "src/gui/general/ProjectPackager.cpp"
4119                (("\"flac\\>")
4120                 (string-append "\"" (assoc-ref inputs "flac") "/bin/flac"))
4121                (("\"wavpack\\>")
4122                 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wavpack"))
4123                (("\"wvunpack\\>")
4124                 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wvunpack"))
4125                (("\"bash\\>")
4126                 (string-append "\"" (assoc-ref inputs "bash") "/bin/bash"))
4127                (("\"tar\\>")
4128                 (string-append "\"" (assoc-ref inputs "tar") "/bin/tar")))
4129              (substitute* "src/gui/general/LilyPondProcessor.cpp"
4130                (("\"convert-ly\\>")
4131                 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/convert-ly"))
4132                (("\"lilypond\\>")
4133                 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/lilypond")))
4134              #t))
4135          (add-after 'unpack 'make-reproducible
4136            (lambda _
4137              ;; Prevent Last-Modified from being written.
4138              ;; The "*.qm" files that are used in locale.qrc would have a new
4139              ;; mtime otherwise that is written into qrc_locale.cpp in the
4140              ;; end - except when we disable it.
4141              (substitute* "src/CMakeLists.txt"
4142                (("COMMAND [$][{]QT_RCC_EXECUTABLE[}]")
4143                 "COMMAND ${QT_RCC_EXECUTABLE} --format-version 1")
4144                ;; Extraneous.
4145                ;;(("qt5_add_resources[(]rg_SOURCES ../data/data.qrc[)]")
4146                ;; "qt5_add_resources(rg_SOURCES ../data/data.qrc OPTIONS --format-version 1)")
4147                )
4148              ;; Make hashtable traversal order predicable.
4149              (setenv "QT_RCC_TEST" "1") ; important
4150              #t))
4151          (add-before 'check 'prepare-check
4152            (lambda _
4153              (setenv "QT_QPA_PLATFORM" "offscreen")
4154              ;; Tests create files in $HOME/.local/share/rosegarden .
4155              (mkdir-p "/tmp/foo")
4156              (setenv "HOME" "/tmp/foo")
4157              (setenv "XDG_RUNTIME_DIR" "/tmp/foo")
4158              #t)))))
4159     (inputs
4160      `(("alsa-lib" ,alsa-lib)
4161        ("bash" ,bash)
4162        ("dssi" ,dssi)
4163        ("flac" ,flac)
4164        ("fftwf" ,fftwf)
4165        ("jack" ,jack-1)
4166        ("ladspa" ,ladspa)
4167        ("liblo" ,liblo)
4168        ("libsamplerate" ,libsamplerate)
4169        ("lilypond" ,lilypond)
4170        ("lrdf" ,lrdf)
4171        ("qtbase" ,qtbase)
4172        ("tar" ,tar)
4173        ("lirc" ,lirc)
4174        ("wavpack" ,wavpack)
4175        ("zlib" ,zlib)))
4176     (native-inputs
4177      `(("pkg-config" ,pkg-config)
4178        ("qtlinguist" ,qttools)))
4179     (synopsis "Music composition and editing environment based around a MIDI
4180 sequencer")
4181     (description "Rosegarden is a music composition and editing environment
4182 based around a MIDI sequencer that features a rich understanding of music
4183 notation and includes basic support for digital audio.")
4184     (home-page "https://www.rosegardenmusic.com/")
4185     (license license:gpl2)))
4186
4187 (define-public patchmatrix
4188   (package
4189     (name "patchmatrix")
4190     (version "0.16.0")
4191     (source (origin
4192               (method git-fetch)
4193               (uri (git-reference
4194                     (url "https://github.com/OpenMusicKontrollers/patchmatrix.git")
4195                     (commit version)))
4196               (file-name (git-file-name "patchmatrix" version))
4197               (sha256
4198                (base32
4199                 "020vp7zzxxzzjfic57vkpg68dm8hi98ilr1bj88xjsv6i47xmjbn"))))
4200     (build-system meson-build-system)
4201     (arguments '(#:tests? #f))          ; no test target
4202     (inputs
4203      `(("jack" ,jack-1)
4204        ("lv2" ,lv2)
4205        ("mesa" ,mesa)))
4206     (native-inputs
4207      `(("pkg-config" ,pkg-config)))
4208     (home-page "https://github.com/OpenMusicKontrollers/patchmatrix")
4209     (synopsis "Simple JACK patch bay")
4210     (description "PatchMatrix is a patch bay for the JACK audio connection
4211 kit.  It provides a patch bay in flow matrix style for audio, MIDI, CV, and
4212 OSC connections.")
4213     (license license:artistic2.0)))
4214
4215 (define-public sorcer
4216   (package
4217     (name "sorcer")
4218     (version "1.1.3")
4219     (source (origin
4220               (method url-fetch)
4221               (uri (string-append "https://github.com/openAVproductions/"
4222                                   "openAV-Sorcer/archive/release-"
4223                                   version ".tar.gz"))
4224               (file-name (string-append name "-" version ".tar.gz"))
4225               (sha256
4226                (base32
4227                 "07iyqj28wm0xc4arrq893bm12xjpz65db7ynrlmf6w8krg8wjmd0"))))
4228     (build-system cmake-build-system)
4229     (arguments
4230      `(#:tests? #f                      ; no tests included
4231        #:phases
4232        (modify-phases %standard-phases
4233          (add-after 'unpack 'remove-architecture-specific-flags
4234            (lambda _
4235              (substitute* "CMakeLists.txt"
4236                (("-msse2 -mfpmath=sse") ""))
4237              #t))
4238          (add-after 'unpack 'build-faust-sources
4239            (lambda* (#:key inputs #:allow-other-keys)
4240              (with-directory-excursion "faust"
4241                (delete-file "main.cpp")
4242                (invoke "faust" "-i"
4243                        "-a" "lv2synth.cpp"
4244                        "-o" "main.cpp" "main.dsp")))))))
4245     (inputs
4246      `(("boost" ,boost)
4247        ("lv2" ,lv2)
4248        ("ntk" ,ntk)))
4249     (native-inputs
4250      `(("faust" ,faust)
4251        ("pkg-config" ,pkg-config)))
4252     (home-page "http://openavproductions.com/sorcer/")
4253     (synopsis "Wavetable LV2 plugin synth")
4254     (description "Sorcer is a wavetable LV2 plugin synthesizer, targeted at
4255 the electronic or dubstep genre.")
4256     (license license:gpl3+)))
4257
4258 (define-public sonivox-eas
4259   (package
4260     (name "sonivox-eas")
4261     (version "1.1.0")
4262     (source (origin
4263               (method git-fetch)
4264               (uri (git-reference
4265                     (url "https://github.com/pedrolcl/Linux-SonivoxEas.git")
4266                     (commit (string-append "v" version))))
4267               (file-name (string-append name "-" version "-checkout"))
4268               (sha256
4269                (base32
4270                 "0l9gs00p5g4k4qy6i7nv1mfi2n2wnsycwjrgrh9hxzam4irf2mw2"))))
4271     (build-system cmake-build-system)
4272     (arguments '(#:tests? #f)) ; there are no tests
4273     (inputs
4274      `(("alsa-lib" ,alsa-lib)
4275        ("drumstick" ,drumstick)
4276        ("pulseaudio" ,pulseaudio)
4277        ("qtbase" ,qtbase)))
4278     (native-inputs
4279      `(("pkg-config" ,pkg-config)))
4280     (home-page "https://github.com/pedrolcl/Linux-SonivoxEas")
4281     (synopsis "MIDI synthesizer library")
4282     (description "This project is a real time General MIDI synthesizer based
4283 on the Sonivox EAS Synthesizer by Google.  It does not need external
4284 soundfonts, using embedded samples instead.")
4285     ;; Sonivox is released under the ASL2.0; the rest of the code is under
4286     ;; GPLv2+.
4287     (license (list license:gpl2+ license:asl2.0))))
4288
4289 (define-public whysynth
4290   (package
4291     (name "whysynth")
4292     (version "20170701")
4293     (source (origin
4294               (method url-fetch)
4295               (uri (string-append "http://smbolton.com/whysynth/whysynth-"
4296                                   version ".tar.bz2"))
4297               (sha256
4298                (base32
4299                 "02qbn0hbvn1iym4zxv35b201blg31yjpgh71h8db0j5zls2xc0m6"))))
4300     (build-system gnu-build-system)
4301     (inputs
4302      `(("dssi" ,dssi)
4303        ("liblo" ,liblo)
4304        ("fftwf" ,fftwf)
4305        ("gtk+" ,gtk+-2)
4306        ("ladspa" ,ladspa)
4307        ("alsa-lib" ,alsa-lib)))
4308     (native-inputs
4309      `(("pkg-config" ,pkg-config)))
4310     (home-page "http://smbolton.com/whysynth.html")
4311     (synopsis "DSSI software synthesizer")
4312     (description "WhySynth is a versatile softsynth which operates as a plugin
4313 for the DSSI Soft Synth Interface.  A brief list of features:
4314
4315 @enumerate
4316 @item 4 oscillators, 2 filters, 3 LFOs, and 5 envelope generators per voice.
4317 @item 11 oscillator modes: minBLEP, wavecycle, chorused wavecycle,
4318   asynchronous granular, three FM modes, waveshaper, noise, PADsynth, and phase
4319   distortion.
4320 @item 10 filter modes.
4321 @item flexible modulation and mixdown options, plus effects.
4322 @end enumerate
4323 ")
4324     (license license:gpl2+)))
4325
4326 (define-public libdiscid
4327   (package
4328     (name "libdiscid")
4329     (version "0.6.2")
4330     (source
4331      (origin
4332        (method url-fetch)
4333        (uri (string-append
4334              "http://ftp.musicbrainz.org/pub/musicbrainz/libdiscid/libdiscid-"
4335              version ".tar.gz"))
4336        (sha256
4337         (base32
4338          "1f9irlj3dpb5gyfdnb1m4skbjvx4d4hwiz2152f83m0d9jn47r7r"))))
4339     (arguments `(#:test-target "check"))
4340     (build-system cmake-build-system)
4341     (home-page "https://musicbrainz.org/doc/libdiscid")
4342     (synopsis "Disc id reader library")
4343     (description "libdiscid is a C library for creating MusicBrainz and freedb
4344 disc IDs from audio CDs.  It reads a CD's table of contents (TOC) and generates
4345 an identifier which can be used to lookup the CD at MusicBrainz.  Additionally,
4346 it provides a submission URL for adding the disc ID to the database and gathers
4347 ISRCs and the MCN (=UPC/EAN) from disc.")
4348     (license license:lgpl2.1+)))
4349
4350 (define-public python-discid
4351   (package
4352     (name "python-discid")
4353     (version "1.1.1")
4354     (source
4355      (origin
4356        (method url-fetch)
4357        (uri (pypi-uri "discid" version))
4358        (sha256
4359         (base32
4360          "1fgp67nhqlbvhhwrcxq5avil7alpzw4s4579hlyvxzbphdnbz8vq"))))
4361     (build-system python-build-system)
4362     (inputs
4363      `(("libdiscid" ,libdiscid)))
4364     (arguments
4365      `(#:phases
4366        (modify-phases %standard-phases
4367          (add-before 'build 'set-libdiscid
4368            ;; Set path of libdiscid
4369            (lambda* (#:key inputs #:allow-other-keys)
4370              (let ((discid (assoc-ref inputs "libdiscid")))
4371                (substitute* "discid/libdiscid.py"
4372                  (("lib_name = (.*)$" all name)
4373                   (string-append "lib_name = \"" discid
4374                                  "/lib/libdiscid.so.0\"\n")))
4375                #t))))))
4376     (home-page "https://python-discid.readthedocs.io/")
4377     (synopsis "Python bindings for Libdiscid")
4378     (description
4379      "This package provides Python bindings for the Libdiscid library.  The
4380 main purpose is the calculation of @url{https://musicbrainz.org/doc/Disc%20ID,
4381 Disc IDs} for use with the MusicBrainz database.  Additionally the disc
4382 @dfn{Media Catalog Number} (MCN) and track @dfn{International Standard
4383 Recording Code} (ISRC) can be extracted.}")
4384     (license license:lgpl3+)))
4385
4386 (define-public libmusicbrainz
4387   (package
4388     (name "libmusicbrainz")
4389     (version "5.1.0")
4390     (source
4391      (origin
4392        (method url-fetch)
4393        (uri (string-append
4394              "https://github.com/metabrainz/libmusicbrainz/releases/download/release-"
4395              version "/libmusicbrainz-" version ".tar.gz"))
4396        (sha256
4397         (base32
4398          "0ikb9igyyk28jm34raxfzkw2qyn4nzzwsymdyprp7cmvi6g2ajb7"))))
4399     (build-system cmake-build-system)
4400     (arguments
4401      `(#:phases
4402        (modify-phases %standard-phases
4403          (replace 'check
4404            (lambda _
4405              ;; requires network connections
4406              ;; (invoke "tests/mbtest")
4407              (invoke "tests/ctest")
4408              #t)))))
4409     (inputs `(("neon" ,neon)
4410               ("libxml2" ,libxml2)))
4411     (native-inputs `(("pkg-config" ,pkg-config)))
4412     (home-page "https://musicbrainz.org/doc/libmusicbrainz")
4413     (synopsis "MusicBrainz client library")
4414     (description "The MusicBrainz Client Library (libmusicbrainz), also known as
4415 mb_client, is a development library geared towards developers who wish to add
4416 MusicBrainz lookup capabilities to their applications.")
4417     (license license:lgpl2.1+)))
4418
4419 (define-public perl-musicbrainz-discid
4420   (package
4421     (name "perl-musicbrainz-discid")
4422     (version "0.04")
4423     (source (origin
4424               (method url-fetch)
4425               (uri (string-append
4426                     "mirror://cpan/authors/id/N/NJ/NJH/MusicBrainz-DiscID-"
4427                     version ".tar.gz"))
4428               (sha256
4429                (base32
4430                 "1i4qk1qfcmxdibqkyfjrrjdq2zk42vjcz590qgiyc47fi9p6xx1j"))))
4431     (build-system perl-build-system)
4432     (native-inputs `(("pkg-config" ,pkg-config)
4433                      ("which" ,which)))
4434     (inputs `(("libdiscid" ,libdiscid)))
4435     (home-page "https://metacpan.org/release/MusicBrainz-DiscID")
4436     (synopsis "Perl interface to the MusicBrainz libdiscid library")
4437     (description
4438      "The @code{MusicBrainz::DiscID} module is a Perl interface to the
4439 MusicBrainz libdiscid library, allowing you to manipulate digital audio
4440 compact disc (CDDA) identifiers.")
4441     (license license:gpl2)))
4442
4443 (define-public perl-webservice-musicbrainz
4444   (package
4445     (name "perl-webservice-musicbrainz")
4446     (version "1.0.5")
4447     (source (origin
4448               (method url-fetch)
4449               (uri (string-append
4450                     "mirror://cpan/authors/id/B/BF/BFAIST/WebService-MusicBrainz-"
4451                     version ".tar.gz"))
4452               (sha256
4453                (base32
4454                 "16chs1l58cf000d5kalkyph3p31ci73p1rlyx98mfv10d2cq6fsj"))))
4455     (build-system perl-build-system)
4456     (arguments
4457      ;; Tests try to connect to http://musicbrainz.org.
4458      '(#:tests? #f))
4459     (native-inputs
4460      `(("perl-module-build" ,perl-module-build)))
4461     (propagated-inputs
4462      `(("perl-mojolicious" ,perl-mojolicious)))
4463     (home-page "https://metacpan.org/release/WebService-MusicBrainz")
4464     (synopsis "Web service API to the MusicBrainz database")
4465     (description
4466      "This module searches the MusicBrainz database through their web service
4467 at @code{musicbrainz.org}.")
4468     (license license:perl-license)))
4469
4470 (define-public clyrics
4471   (package
4472     (name "clyrics")
4473     (version "0.12")
4474     (source
4475      (origin
4476        (method git-fetch)
4477        (uri (git-reference
4478              (url "https://github.com/trizen/clyrics.git")
4479              (commit version)))
4480        (file-name (git-file-name name version))
4481        (sha256
4482         (base32 "1l9iqz6vxrrxapv7s110g360bqxksir4dcqd8w0l4lhmnfmz3vnk"))))
4483     (build-system trivial-build-system)
4484     (inputs
4485      `(("bash" ,bash)                   ; for the wrapped program
4486        ("perl" ,perl)
4487        ("perl-www-mechanize" ,perl-www-mechanize)
4488        ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
4489        ;; Required or else LWP will fail with "GET https://www.google.com/ ==>
4490        ;; 500 Can't verify SSL peers without knowing which Certificate
4491        ;; Authorities to trust".
4492        ("perl-mozilla-ca" ,perl-mozilla-ca)))
4493     (arguments
4494      `(#:modules ((guix build utils))
4495        #:builder (begin
4496                    (use-modules (guix build utils)
4497                                 (ice-9 match)
4498                                 (srfi srfi-26))
4499                    (let* ((source (assoc-ref %build-inputs "source"))
4500                           (output (assoc-ref %outputs "out")))
4501                      (setenv "PATH"
4502                              (string-append
4503                               (assoc-ref %build-inputs "bash") "/bin" ":"
4504                               (assoc-ref %build-inputs "perl") "/bin" ":"))
4505                      (copy-recursively source (getcwd))
4506                      (patch-shebang "clyrics")
4507                      (substitute* "clyrics"
4508                        (("/usr/share") output))
4509                      (install-file "clyrics" (string-append output "/bin"))
4510                      (wrap-program (string-append output "/bin/clyrics")
4511                        `("PERL5LIB" ":" =
4512                          ,(delete
4513                            ""
4514                            (map (match-lambda
4515                                  (((?  (cut string-prefix? "perl-" <>) name) . dir)
4516                                   (string-append dir "/lib/perl5/site_perl"))
4517                                  (_ ""))
4518                                 %build-inputs))))
4519                      (copy-recursively "plugins" (string-append output "/clyrics"))
4520                      #t))))
4521     (home-page "https://github.com/trizen/clyrics")
4522     (synopsis "Extensible lyrics fetcher")
4523     (description
4524      "Clyrics is an extensible command-line tool to fetch the lyrics of songs.
4525 It can be used in daemon mode along with the Music-on-Console (MOC) and cmus
4526 console music players.")
4527     (license license:gpl3+)))
4528
4529 (define-public demlo
4530   (let ((commit "fe9ec4c8ac2fa995ec18e6ac86d50d46df06ec01")
4531         (revision "0"))
4532     (package
4533       (name "demlo")
4534       (version (git-version "3.8" revision commit))
4535       (source
4536        (origin
4537          (method git-fetch)
4538          (uri (git-reference
4539                (url
4540                 "https://gitlab.com/ambrevar/demlo")
4541                (commit commit)))
4542          (file-name (git-file-name name version))
4543          (sha256
4544           (base32
4545            "1afkbqhzn6da7zaf5ab7dvyqj1izqhzprwfb4hw448fllda9bdvk"))))
4546       (build-system go-build-system)
4547       (native-inputs
4548        `(("lua" ,lua)
4549          ("go-github-com-mattn-go-isatty" ,go-github-com-mattn-go-isatty)
4550          ("go-github-com-mattn-go-colorable" ,go-github-com-mattn-go-colorable)
4551          ("go-github-com-aarzilli-golua" ,go-github-com-aarzilli-golua)
4552          ("go-gitlab-com-ambrevar-damerau" ,go-gitlab-com-ambrevar-damerau)
4553          ("go-gitlab-com-ambrevar-golua-unicode" ,go-gitlab-com-ambrevar-golua-unicode)
4554          ("go-github-com-mgutz-ansi" ,go-github-com-mgutz-ansi)
4555          ("go-github-com-michiwend-gomusicbrainz" ,go-github-com-michiwend-gomusicbrainz)
4556          ("go-github-com-stevedonovan-luar" ,go-github-com-stevedonovan-luar)
4557          ("go-github-com-wtolson-go-taglib" ,go-github-com-wtolson-go-taglib)
4558          ("go-github-com-yookoala-realpath" ,go-github-com-yookoala-realpath)))
4559       (inputs
4560        `(("chromaprint" ,chromaprint)
4561          ("ffmpeg" ,ffmpeg)))
4562       (arguments
4563        `(#:import-path "gitlab.com/ambrevar/demlo"
4564          #:phases
4565          (modify-phases %standard-phases
4566            (add-after 'install 'wrap-program
4567              (lambda* (#:key inputs outputs #:allow-other-keys)
4568                (let ((out (assoc-ref outputs "out"))
4569                      (ffmpeg (assoc-ref inputs "ffmpeg"))
4570                      (chromaprint (assoc-ref inputs "chromaprint")))
4571                  (wrap-program (string-append out "/bin/demlo")
4572                    `("XDG_DATA_DIRS" ":" prefix (,out))
4573                    `("PATH" ":" prefix
4574                      ,(map (lambda (dir)
4575                              (string-append dir "/bin:"
4576                                             dir "/sbin"))
4577                            (list ffmpeg chromaprint))))
4578                  #t)))
4579            (add-after 'install 'install-scripts
4580              (lambda* (#:key outputs #:allow-other-keys)
4581                (let* ((out (assoc-ref outputs "out"))
4582                       (root (string-append out "/src/gitlab.com/ambrevar/demlo"))
4583                       (xdg-data-dirs (string-append out "/demlo")))
4584                  (copy-recursively (string-append root "/actions")
4585                                    (string-append xdg-data-dirs "/actions"))
4586                  (copy-recursively (string-append root "/scripts")
4587                                    (string-append xdg-data-dirs "/scripts"))
4588                  (install-file (string-append root "/config.lua") xdg-data-dirs)
4589                  ;; TODO: Test fish completion.
4590                  (install-file (string-append root "/completion/demlo.fish")
4591                                (string-append out "/share/fish/vendor_completions.d"))
4592                  #t))))))
4593       (home-page "https://gitlab.com/ambrevar/demlo")
4594       (synopsis "Dynamic and extensible music library organizer")
4595       (description "Demlo is a music library organizer.  It can encode, fix
4596 case, change folder hierarchy according to tags or file properties, tag from
4597 an online database, copy covers while ignoring duplicates or those below a
4598 quality threshold, and much more.  It makes it possible to manage your
4599 libraries uniformly and dynamically.  You can write your own rules to fit your
4600 needs best.
4601
4602 Demlo can address any of these recurring music library issues (and much more):
4603
4604 @itemize
4605 @item Fix the lack of folder structure.
4606 @item Normalize tags, fix their case, chose which tags to keep and which to
4607 discard.
4608 @item Handle lossy and lossless audio differently.
4609 @item Handle mp3 id3tags hell...
4610 @item Handle multiple covers, whether embedded and/or external, resize covers,
4611 discard bad quality ones.
4612 @end itemize\n")
4613       (license license:expat))))
4614
4615 (define-public fmit
4616   (package
4617     (name "fmit")
4618     (version "1.2.13")
4619     (source (origin
4620               (method git-fetch)
4621               (uri (git-reference
4622                     (url "https://github.com/gillesdegottex/fmit/")
4623                     (commit (string-append "v" version))))
4624               (file-name (git-file-name name version))
4625               (sha256
4626                (base32
4627                 "1qyskam053pvlap1av80rgp12pzhr92rs88vqs6s0ia3ypnixcc6"))))
4628     (build-system gnu-build-system)
4629     (arguments
4630      '(#:phases
4631        (modify-phases %standard-phases
4632          (delete 'configure)
4633          (add-before 'build 'qmake
4634            (lambda _
4635              (let ((out (assoc-ref %outputs "out")))
4636                (invoke "qmake"
4637                        "fmit.pro"
4638                        (string-append "PREFIX=" out)
4639                        (string-append "PREFIXSHORTCUT=" out)
4640                        "CONFIG+=acs_qt acs_alsa acs_jack acs_portaudio"))))
4641          (add-after 'install 'wrap-executable
4642            (lambda* (#:key inputs outputs #:allow-other-keys)
4643              (let ((out (assoc-ref outputs "out")))
4644                (wrap-program (string-append out "/bin/fmit")
4645                  `("QT_PLUGIN_PATH" ":" prefix
4646                    ,(map (lambda (label)
4647                            (string-append (assoc-ref inputs label)
4648                                           "/lib/qt5/plugins"))
4649                          '("qtbase" "qtmultimedia" "qtsvg")))
4650                  `("QML2_IMPORT_PATH" ":" prefix
4651                    ,(map (lambda (label)
4652                            (string-append (assoc-ref inputs label)
4653                                           "/lib/qt5/qml"))
4654                          '("qtmultimedia"))))
4655                #t))))))
4656     (inputs
4657      `(("alsa-lib" ,alsa-lib)
4658        ("fftw" ,fftw)
4659        ("jack" ,jack-1)
4660        ("portaudio" ,portaudio)
4661        ("qtbase" ,qtbase)
4662        ("qtmultimedia" ,qtmultimedia)
4663        ("qtsvg" ,qtsvg)))
4664     (native-inputs
4665      `(("gettext" ,gettext-minimal)
4666        ("hicolor-icon-theme" ,hicolor-icon-theme)
4667        ("itstool" ,itstool)
4668        ("qttools" ,qttools)))
4669     (synopsis "Musical instrument tuner")
4670     (description "FMIT is a graphical utility for tuning musical instruments,
4671 with error and volume history, and advanced features.")
4672     (home-page "https://gillesdegottex.github.io/fmit/")
4673     ;; Most of the code is under GPL2+, but some abstract or helper classes
4674     ;; are under LGPL2.1.
4675     (license (list license:gpl2+ license:lgpl2.1))))
4676
4677 (define-public mloop
4678   (let ((commit "adebff98b0b4dc5872a03acb82e89c77cb29c127")
4679         (revision "0"))
4680     (package
4681       (name "mloop")
4682       (version (git-version "0.0.1" revision commit))
4683       (source (origin
4684                 (method git-fetch)
4685                 (uri (git-reference
4686                       (url "http://git.fuzzle.org/mloop")
4687                       (commit commit)))
4688                 (file-name (git-file-name name version))
4689                 (sha256
4690                  (base32
4691                   "175gxvg5slq0bllcx1c381rjlq3xpxww8c3kpiw5i2kfr4m52myz"))))
4692       (build-system waf-build-system)
4693       (arguments
4694        `(#:python ,python-2
4695          #:tests? #f))                     ; no "check" target
4696       (inputs
4697        `(("jack" ,jack-1)
4698          ("ncurses" ,ncurses)))
4699       (native-inputs
4700        `(("pkg-config" ,pkg-config)))
4701       (home-page "https://fuzzle.org/~petern/mloop.html")
4702       (synopsis "Live MIDI looper")
4703       (description "mloop is a live MIDI looping system, using jack-midi.
4704 Loops are recorded, optionally with beat quantization, and can then be played
4705 back, either once or looping.  A 'note cache' system is implemented to
4706 remember which notes are pressed and their velocities.  This allows for a loop
4707 to start off with the currently pressed notes, making seamless loops much
4708 easier to perform.  Features include:
4709
4710 @itemize
4711 @item Quantisation; end a loop on a beat exactly.
4712 @item Delayed recording; wait for a MIDI event before starting a loop record.
4713 @item Adjust tempo; Playback speed of loops can be adjusted on the fly.
4714 @end itemize\n")
4715       (license license:gpl2))))
4716
4717 (define-public pragha
4718   (package
4719     (name "pragha")
4720     (version "1.3.4")
4721     (source (origin
4722               (method url-fetch)
4723               (uri (string-append "https://github.com/pragha-music-player/pragha/"
4724                                   "releases/download/v" version "/pragha-" version
4725                                   ".tar.bz2"))
4726               (sha256
4727                (base32
4728                 "19kbhq99bkimx3aqrdzln0vlr4slkpx6kq66j731jvqyq76nlkp5"))))
4729     (build-system glib-or-gtk-build-system)
4730     (native-inputs
4731      `(("intltool" ,intltool)
4732        ("pkg-config" ,pkg-config)))
4733     (inputs
4734      `(("glib" ,glib)
4735        ("grilo" ,grilo)
4736        ("gstreamer" ,gstreamer)
4737        ("gst-plugins-base" ,gst-plugins-base)
4738        ("gst-plugins-good" ,gst-plugins-good)
4739        ("gtk+" ,gtk+)
4740        ("libcddb" ,libcddb)
4741        ("libcdio" ,libcdio)
4742        ("libcdio-paranoia" ,libcdio-paranoia)
4743        ("libgudev" ,libgudev)
4744        ("libnotify" ,libnotify)
4745        ("libpeas" ,libpeas)
4746        ("libsoup" ,libsoup)
4747        ("sqlite" ,sqlite)
4748        ("taglib" ,taglib)))
4749     (arguments
4750      `(#:phases
4751        (modify-phases %standard-phases
4752          (add-after 'install 'wrap-program
4753            (lambda* (#:key inputs outputs #:allow-other-keys)
4754              (let ((out (assoc-ref outputs "out"))
4755                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
4756                (wrap-program (string-append out "/bin/pragha")
4757                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
4758                #t))))))
4759     (home-page "https://pragha-music-player.github.io")
4760     (synopsis "Music player")
4761     (description "Pragha is a lightweight music player based on Gtk and
4762 sqlite.  It is constructed to be fast, light, and simultaneously tries to be
4763 complete without obstructing your daily work.")
4764     (license license:gpl3+)))
4765
4766 (define-public playerctl
4767   (package
4768     (name "playerctl")
4769     (version "2.0.2")
4770     (source (origin
4771               (method git-fetch)
4772               (uri (git-reference
4773                     (url "https://github.com/altdesktop/playerctl.git")
4774                     (commit (string-append "v" version))))
4775               (file-name (git-file-name name version))
4776               (sha256
4777                (base32
4778                 "1f3njnpd52djx3dmhh9a8p5a67f0jmr1gbk98icflr2q91149gjz"))))
4779     (build-system meson-build-system)
4780     (arguments
4781      `(#:configure-flags '("-Dintrospection=false" "-Dgtk-doc=false")))
4782     (inputs `(("python-pygobject" ,python-pygobject)))
4783     (native-inputs
4784      `(("glib:bin" ,glib "bin")
4785        ("pkg-config" ,pkg-config)))
4786     (synopsis "Control MPRIS-supporting media player applications")
4787     (description
4788      "Playerctl is a command-line utility and library for controlling media
4789 players that implement the MPRIS D-Bus Interface Specification.  Playerctl
4790 makes it easy to bind player actions, such as play and pause, to media keys.
4791 You can also get metadata about the playing track such as the artist and title
4792 for integration into status line generators or other command-line tools.")
4793     (home-page "https://github.com/altdesktop/playerctl")
4794     (license license:lgpl3+)))
4795
4796 (define-public artyfx
4797   (package
4798     (name "artyfx")
4799     (version "1.3")
4800     (source (origin
4801               (method git-fetch)
4802               (uri (git-reference
4803                     (url
4804                      "https://github.com/openAVproductions/openAV-ArtyFX.git")
4805                     (commit (string-append "release-" version))))
4806               (file-name (git-file-name name version))
4807               (sha256
4808                (base32
4809                 "012hcy1mxl7gs2lipfcqp5x0xv1azb9hjrwf0h59yyxnzx96h7c9"))))
4810     (build-system cmake-build-system)
4811     (arguments
4812      `(#:tests? #f                                ; no tests included
4813        #:phases
4814        (modify-phases %standard-phases
4815          (add-after 'unpack 'remove-architecture-specific-flags
4816            (lambda _
4817              (substitute* "CMakeLists.txt"
4818                (("-msse2 -mfpmath=sse") ""))
4819              #t)))))
4820     (inputs
4821      `(("cairo" ,cairo)
4822        ("libsndfile" ,libsndfile)))
4823     (native-inputs
4824      `(("pkg-config" ,pkg-config)
4825        ("lv2" ,lv2)))
4826     (home-page "http://openavproductions.com/artyfx/")
4827     (synopsis "Audio effect LV2 plugin bundle")
4828     (description "ArtyFX is an LV2 plugin bundle of artistic real-time audio
4829 effects.  It contains a bitcrusher, delay, distortion, equalizer, compressor,
4830 and reverb.")
4831     (license license:gpl2+)))
4832
4833 (define-public sherlock-lv2
4834   (package
4835     (name "sherlock-lv2")
4836     (version "0.20.0")
4837     (source
4838      (origin
4839        (method url-fetch)
4840        (uri (string-append
4841              "https://git.open-music-kontrollers.ch/lv2/"
4842              "sherlock.lv2/snapshot/sherlock.lv2-"
4843              version ".tar.xz"))
4844        (sha256
4845         (base32
4846          "1c5xajpss9h8lbyx160bbzg8va50n2d74qwnxig9sf468rzmha1y"))))
4847     (build-system meson-build-system)
4848     (inputs
4849      `(("libx11" ,libx11)
4850        ("mesa" ,mesa)
4851        ("sratom" ,sratom)))
4852     (native-inputs
4853      `(("flex" ,flex)
4854        ("pkg-config" ,pkg-config)))
4855     (synopsis "Investigative LV2 plugin bundle")
4856     (description "The Sherlock plugin bundle contains LV2 plugins for
4857 visualizing LV2 atom, MIDI and OSC events.  They can be used for monitoring
4858 and debugging of event signal flows inside plugin graphs.")
4859     (home-page "https://open-music-kontrollers.ch/lv2/sherlock/")
4860     (license license:artistic2.0)))
4861
4862 (define-public x42-plugins
4863   (package
4864     (name "x42-plugins")
4865     (version "20191215")
4866     (source
4867      (origin
4868        (method url-fetch)
4869        (uri
4870         (string-append "http://gareus.org/misc/x42-plugins/x42-plugins-"
4871                        version ".tar.xz"))
4872        (sha256
4873         (base32 "1mwfvhsvc0qgjyiwd8pmmam1mav43lmv39fljhmj9yri558v5g1c"))))
4874     (build-system gnu-build-system)
4875     (arguments
4876      `(#:tests? #f                      ; no "check" target
4877        #:make-flags
4878        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
4879              "LIBZITACONVOLVER=-lzita-convolver"
4880              (string-append "FONTFILE="
4881                             (assoc-ref %build-inputs "font-dejavu")
4882                             "/share/fonts/truetype/DejaVuSans-Bold.ttf"))
4883        #:phases
4884        (modify-phases %standard-phases
4885          (add-before 'build 'set-CC-variable
4886            (lambda _
4887              (setenv "CC" "gcc")
4888              #t))
4889          (delete 'configure))))
4890     (inputs
4891      `(("cairo" ,cairo)
4892        ("fftwf" ,fftwf)
4893        ("ftgl" ,ftgl)
4894        ("glib" ,glib)
4895        ("glu" ,glu)
4896        ("hicolor-icon-theme" ,hicolor-icon-theme)
4897        ("jack" ,jack-1)
4898        ("libltc" ,libltc)
4899        ("libsamplerate" ,libsamplerate)
4900        ("libx11" ,libx11)
4901        ("pango" ,pango)
4902        ("zita-convolver" ,zita-convolver)))
4903     (native-inputs
4904      `(("help2man" ,help2man)
4905        ("liblo" ,liblo)
4906        ("lv2" ,lv2)
4907        ("font-dejavu" ,font-dejavu)
4908        ("pkg-config" ,pkg-config)))
4909     (synopsis "Collection of LV2/JACK audio/MIDI processing plugins")
4910     (description "x42-plugins is a collection of over 80 cross-platform LV2
4911 audio and MIDI plugins that can also run as standalone JACK applications.")
4912     (home-page "https://x42-plugins.com/x42/")
4913     (license license:gpl2+)))
4914
4915 (define-public zam-plugins
4916   (package
4917     (name "zam-plugins")
4918     (version "3.12")
4919     (source
4920      (origin
4921        (method git-fetch)
4922        (uri
4923         (git-reference
4924          (url "https://github.com/zamaudio/zam-plugins.git")
4925          (commit version)
4926          ;; Recursive to fetch the DISTRHO plugin framework. This
4927          ;; framework is intended to be included in the sources
4928          ;; and not to be used as a library.
4929          (recursive? #t)))
4930        (file-name (git-file-name name version))
4931        (sha256
4932         (base32 "0icsbarc9azcp0kjjydmiqn401v60jmf16zdcp4040q8g7bpfmfa"))))
4933     (build-system gnu-build-system)
4934     (arguments
4935      `(#:tests? #f                      ;no "check" target
4936        #:make-flags
4937        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
4938              "HAVE_ZITA_CONVOLVER=true")
4939        #:phases
4940        (modify-phases %standard-phases
4941          (add-before 'build 'set-CC-variable
4942            (lambda _
4943              (setenv "CC" "gcc") #t))
4944          (delete 'configure))))
4945     (inputs
4946      `(("fftwf" ,fftwf)
4947        ("jack" ,jack-1)                 ;for the standalone JACK application
4948        ("liblo" ,liblo)
4949        ("libsamplerate" ,libsamplerate)
4950        ("mesa" ,mesa)
4951        ("zita-convolver" ,zita-convolver)))
4952     (native-inputs
4953      `(("ladspa" ,ladspa)
4954        ("lv2" ,lv2)
4955        ("pkg-config" ,pkg-config)))
4956     (synopsis "Collection of audio processing plugins")
4957     (description
4958      "Zam plugins is a collection of audio processing plugins in the LADSPA,
4959 LV2 and VST2 formats, as well as standalone JACK versions.  The collection
4960 includes ZaMaximX2, ZamAutoSat, ZamComp, ZamCompX2, ZamEQ2, ZamGEQ31,
4961 ZamHeadX2, ZamPhono, ZamGate, ZamGateX2, ZamTube, ZamDelay, ZamDynamicEQ,
4962 ZaMultiComp, ZaMultiCompX2 and ZamSynth.")
4963     (home-page "http://www.zamaudio.com/?p=976")
4964     (license license:gpl2+)))
4965
4966 (define-public geonkick
4967   (package
4968     (name "geonkick")
4969     (version "1.10.0")
4970     (source
4971      (origin
4972        (method git-fetch)
4973        (uri (git-reference
4974              (url "https://gitlab.com/geontime/geonkick.git")
4975              (commit (string-append "v" version))))
4976        (file-name (git-file-name name version))
4977        (sha256
4978         (base32
4979          "1a59wnm4035kjhs66hihlkiv45p3ffb2yaj1awvyyi5f0lds5zvh"))))
4980     (build-system cmake-build-system)
4981     (arguments
4982      `(#:tests? #f                      ;no tests included
4983        #:configure-flags
4984        (list (string-append "-DGKICK_REDKITE_SDK_PATH="
4985                             (assoc-ref %build-inputs "redkite"))
4986              (string-append "-DCMAKE_INSTALL_PREFIX="
4987                             (assoc-ref %outputs "out")))))
4988     (inputs
4989      `(("cairo" ,cairo)
4990        ("hicolor-icon-theme" ,hicolor-icon-theme)
4991        ("jack" ,jack-1)                 ;for the standalone JACK application
4992        ("libsndfile" ,libsndfile)
4993        ("libx11" ,libx11)
4994        ("redkite" ,redkite)
4995        ("rapidjson" ,rapidjson)))
4996     (native-inputs
4997      `(("lv2" ,lv2)
4998        ("pkg-config" ,pkg-config)
4999        ("sord" ,sord)))
5000     (synopsis "Percussion synthesizer")
5001     (description "Geonkick is a synthesizer that can synthesize elements
5002 of percussion such as kicks, snares, hit-hats, shakers, claps and sticks.
5003 It can also play and mix samples.")
5004     (home-page "https://gitlab.com/geontime/geonkick")
5005     (license license:gpl3+)))
5006
5007 (define-public dpf-plugins
5008   (package
5009     (name "dpf-plugins")
5010     (version "1.3")
5011     (source
5012      (origin
5013        (method git-fetch)
5014        (uri
5015         (git-reference
5016          (url "https://github.com/DISTRHO/DPF-Plugins.git")
5017          (commit (string-append "v" version))))
5018        (file-name (git-file-name name version))
5019        (sha256
5020         (base32
5021          "1hsfmpv3kvpiwk8nfw9xpaipzy0n27i83y2v1yr93lznwm5rqrbs"))))
5022     (build-system gnu-build-system)
5023     (arguments
5024      `(#:tests? #f                      ; no "check" target
5025        #:make-flags
5026        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
5027        #:phases
5028        (modify-phases %standard-phases
5029          (add-before 'build 'set-CC-variable
5030            (lambda _ (setenv "CC" "gcc") #t))
5031          (delete 'configure))))
5032     (inputs
5033      `(("cairo" ,cairo)
5034        ("liblo" ,liblo)                 ; for dssi plugins
5035        ("jack" ,jack-1)                 ; for standalone applications
5036        ("mesa" ,mesa)))
5037     (native-inputs
5038      `(("pkg-config" ,pkg-config)
5039        ("dssi" ,dssi)
5040        ("lv2" ,lv2)))
5041     (home-page "https://github.com/DISTRHO/DPF-Plugins")
5042     (synopsis "Audio plugin collection")
5043     (description "Collection of audio plugins built with the DISTRHO Plugin
5044 Framework (DPF) available in LADSPA, DSSI, LV2 and VST2 formats.  This
5045 package includes the following plugins: glBars, Kars, Max-Gen examples
5046 (MaBitcrush, MaFreeverb, MaGigaverb, MaPitchshift), Mini-Series (3BandEQ,
5047 3BandSplitter, PingPongPan), ndc-Plugs (Amplitude Imposer, Cycle Shifter,
5048 Soul Force), MVerb, Nekobi, and ProM.")
5049     ;; This package consists of several plugins refactored to use the
5050     ;; DISTHRO Plugin Framework (DPF). Different copyrights and licenses
5051     ;; apply to different plugins. The root LICENSE file has a table with
5052     ;; license information for each plugin and paths to each license
5053     (license (list license:isc license:gpl3 license:lgpl3 license:expat license:gpl2))))
5054
5055 (define-public avldrums-lv2
5056   (package
5057     (name "avldrums-lv2")
5058     (version "0.4.1")
5059     (source
5060      (origin
5061        (method git-fetch)
5062        (uri (git-reference
5063              (url "https://github.com/x42/avldrums.lv2.git")
5064              (commit (string-append "v" version))
5065              ;; This plugin expects the robtk submodule's source files to be
5066              ;; there in order to build.
5067              (recursive? #t)))
5068        (file-name (git-file-name name version))
5069        (sha256
5070         (base32 "1vwdp3d8qzd493qa99ddya7iql67bbfxmbcl8hk96lxif2lhmyws"))))
5071     (build-system gnu-build-system)
5072     (arguments
5073      `(#:tests? #f                      ; no "check" target
5074        #:make-flags
5075        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
5076        #:phases
5077        (modify-phases %standard-phases
5078          (add-before 'build 'set-CC-variable
5079            (lambda _
5080              (setenv "CC" "gcc") #t))
5081          (delete 'configure))))
5082     (inputs
5083      `(("cairo" ,cairo)
5084        ("dssi" ,dssi)
5085        ("glu" ,glu)
5086        ("mesa" ,mesa)
5087        ("pango" ,pango)))
5088     (native-inputs
5089      `(("pkg-config" ,pkg-config)
5090        ("lv2" ,lv2)))
5091     (home-page "https://x42-plugins.com/x42/x42-avldrums")
5092     (synopsis "Drum sample player LV2 plugin dedicated to the AVLinux Drumkits")
5093     (description "AVLdrums is a drum sample player LV2 plugin dedicated to Glen
5094 MacArthur's AVLdrums.  This plugin provides a convenient way to sequence and mix
5095 MIDI drums and comes as two separate drumkits: Black Pearl and Red Zeppelin.")
5096     (license license:gpl2+)))
5097
5098 (define-public helm
5099   (package
5100     (name "helm")
5101     (version "0.9.0")
5102     (source
5103       (origin
5104         (method git-fetch)
5105         (uri
5106           (git-reference
5107             (url "https://github.com/mtytel/helm.git")
5108             (commit (string-append "v" version))))
5109         (file-name (git-file-name name version))
5110         (sha256
5111           (base32
5112             "17ys2vvhncx9i3ydg3xwgz1d3gqv4yr5mqi7vr0i0ca6nad6x3d4"))))
5113     (build-system gnu-build-system)
5114     (arguments
5115      `(#:tests? #f  ; no "check" target
5116        #:make-flags
5117        (list (string-append "DESTDIR=" (assoc-ref %outputs "out"))
5118              "lv2" "standalone")
5119        #:phases
5120        (modify-phases %standard-phases
5121          (add-after 'unpack 'include-pnglib-code-and-remove-usr-from-paths
5122            (lambda _
5123              (substitute* "standalone/builds/linux/Makefile"
5124                (("JUCE_INCLUDE_PNGLIB_CODE=0")
5125                 "JUCE_INCLUDE_PNGLIB_CODE=1"))
5126              (substitute* "builds/linux/LV2/Makefile"
5127                (("JUCE_INCLUDE_PNGLIB_CODE=0")
5128                 "JUCE_INCLUDE_PNGLIB_CODE=1"))
5129              (substitute* "Makefile"
5130                (("/usr") ""))
5131              #t))
5132          (add-before 'reset-gzip-timestamps 'make-gz-files-writable
5133            (lambda* (#:key outputs #:allow-other-keys)
5134              (for-each make-file-writable
5135                        (find-files (string-append (assoc-ref outputs "out"))
5136                                    ".*\\.gz$"))
5137              #t))
5138          (delete 'configure))))
5139     (inputs
5140      `(("alsa-lib" ,alsa-lib)
5141        ("curl" ,curl)
5142        ("freetype2" ,freetype)
5143        ("hicolor-icon-theme" ,hicolor-icon-theme)
5144        ("libxcursor" ,libxcursor)
5145        ("libxinerama", libxinerama)
5146        ("jack", jack-1)
5147        ("mesa" ,mesa)))
5148     (native-inputs
5149      `(("pkg-config" ,pkg-config)
5150        ("lv2", lv2)))
5151     (home-page "https://tytel.org/helm/")
5152     (synopsis "Polyphonic synth with lots of modulation")
5153     (description "Helm is a cross-platform polyphonic synthesizer available standalone
5154 and as an LV2 plugin.")
5155     (license license:gpl3+)))
5156
5157 (define-public zrythm
5158   (package
5159     (name "zrythm")
5160     (version "0.8.200")
5161     (source
5162       (origin
5163         (method url-fetch)
5164         (uri (string-append "https://www.zrythm.org/releases/zrythm-"
5165                             version ".tar.xz"))
5166         (sha256
5167           (base32
5168             "13ivxbrd44qnhyh46dcr94dvqxg8cn4bbd8xm77ljw0p9b4ks4zs"))))
5169    (build-system meson-build-system)
5170    (arguments
5171     `(#:glib-or-gtk? #t
5172       #:configure-flags
5173       `("-Denable_tests=true" "-Dmanpage=true"
5174         "-Dinstall_dseg_font=false" "-Denable_ffmpeg=true")
5175       #:phases
5176       (modify-phases %standard-phases
5177         (add-after 'unpack 'patch-xdg-open
5178           (lambda _
5179             (substitute* "src/utils/io.c"
5180                          (("OPEN_DIR_CMD")
5181                           (string-append "\"" (which "xdg-open") "\"")))
5182             #t)))))
5183    (inputs
5184     `(("alsa-lib" ,alsa-lib)
5185       ("jack" ,jack-1)
5186       ("font-dseg" ,font-dseg)
5187       ("ffmpeg" ,ffmpeg)
5188       ("fftw" ,fftw)
5189       ("fftwf" ,fftwf)
5190       ("gettext" ,gettext-minimal)
5191       ("glibc" ,glibc)
5192       ("gtk+" ,gtk+)
5193       ("guile" ,guile-2.2)
5194       ("libcyaml" ,libcyaml)
5195       ("libsamplerate" ,libsamplerate)
5196       ("libsndfile" ,libsndfile)
5197       ("libyaml" ,libyaml)
5198       ("lilv" ,lilv)
5199       ("xdg-utils" ,xdg-utils)
5200       ("rubberband" ,rubberband)))
5201    (native-inputs
5202      `(("pkg-config" ,pkg-config)
5203        ("help2man" ,help2man)
5204        ("libaudec" ,libaudec)
5205        ("lv2" ,lv2)
5206        ("glib" ,glib "bin"))) ;for 'glib-compile-resources'
5207    (synopsis "Digital audio workstation focusing on usability")
5208    (description "Zrythm is a digital audio workstation designed to be
5209 featureful and easy to use.  It offers unlimited automation options, LV2
5210 plugin support, JACK support and chord assistance.")
5211    (home-page "https://www.zrythm.org")
5212    (license license:agpl3+)))
5213
5214 (define-public dragonfly-reverb
5215   (package
5216     (name "dragonfly-reverb")
5217     (version "2.0.0")
5218     (source
5219      (origin
5220        (method git-fetch)
5221        (uri
5222         (git-reference
5223          (url "https://github.com/michaelwillis/dragonfly-reverb.git")
5224          (commit version)
5225          ;; Bundles a specific commit of the DISTRHO plugin framework.
5226          (recursive? #t)))
5227        (file-name (git-file-name name version))
5228        (sha256
5229         (base32 "1qrbv4kk5v6ynx424h1i54qj0w8v6vpw81b759jawxvzzprpgq72"))))
5230     (build-system gnu-build-system)
5231     (arguments
5232      `(#:tests? #f                      ; no check target
5233        #:make-flags (list "CC=gcc")
5234        #:phases
5235        (modify-phases %standard-phases
5236          (delete 'configure)            ;no configure target
5237          (replace 'install              ;no install target
5238            (lambda* (#:key outputs #:allow-other-keys)
5239              (let* ((out (assoc-ref outputs "out"))
5240                     (bin (string-append out "/bin"))
5241                     (lv2 (string-append out "/lib/lv2")))
5242                ;; Install LV2.
5243                (for-each
5244                 (lambda (file)
5245                   (copy-recursively file
5246                                     (string-append lv2 "/" (basename file))))
5247                 (find-files "bin" "\\.lv2$" #:directories? #t))
5248                ;; Install executables.
5249                (install-file "bin/DragonflyRoomReverb" bin)
5250                (install-file "bin/DragonflyHallReverb" bin)
5251                #t))))))
5252     (native-inputs
5253      `(("pkg-config" ,pkg-config)))
5254     (inputs
5255      `(("jack" ,jack-1)
5256        ("libx11" ,libx11)
5257        ("mesa" ,mesa)))
5258     (home-page "https://michaelwillis.github.io/dragonfly-reverb/")
5259     (synopsis "Concert hall reverb and room reverb effects")
5260     (description
5261      "Dragonfly Reverb is a bundle of two free audio effects: a concert
5262 hall reverb and a room reverb.  Both are available as LV2 plugins as well
5263 as JACK standalone applications.")
5264     (license license:gpl3+)))
5265
5266 (define-public zlfo
5267   (package
5268     (name "zlfo")
5269     (version "0.1.3")
5270     (source
5271      (origin
5272        (method git-fetch)
5273        (uri (git-reference
5274              (url "https://git.zrythm.org/git/ZLFO")
5275              (commit (string-append "v" version))))
5276        (file-name (git-file-name name version))
5277        (sha256
5278         (base32
5279          "0bm466ci5xyvxvq7l9p6xyh789lvk6i31b4zja1igqh13akbjnjz"))))
5280     (build-system meson-build-system)
5281     (inputs
5282      `(("librsvg" ,librsvg)
5283        ("lv2" ,lv2)
5284        ("ztoolkit-rsvg" ,ztoolkit-rsvg)))
5285     (native-inputs
5286      `(("pkg-config" ,pkg-config)))
5287     (synopsis "Low frequency oscillator plugin")
5288     (description "ZLFO is a fully featured
5289 @dfn{low frequency oscillator} (LFO) for @dfn{control voltage} (CV)-based
5290 automation that comes as an LV2 plugin bundle with a custom UI.")
5291     (home-page "https://git.zrythm.org/cgit/ZLFO/")
5292     (license license:agpl3+)))
5293
5294 (define-public vl1-emulator
5295   (package
5296     (name "vl1-emulator")
5297     (version "1.1.0.0")
5298     (source
5299      (origin
5300        (method git-fetch)
5301        (uri (git-reference
5302              (url "https://github.com/linuxmao-org/VL1-emulator.git")
5303              (commit (string-append "v" version))
5304              ;; bundles a specific commit of the DISTRHO plugin framework
5305              (recursive? #t)))
5306        (file-name (git-file-name name version))
5307        (sha256
5308         (base32
5309          "1npc86vqma8gk1hawa0lii0r2xmnv846plyl1ci3bdswyrdk5chm"))))
5310     (build-system gnu-build-system)
5311     (arguments
5312      `(#:tests? #f                      ;no check target
5313        #:make-flags
5314        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
5315              "CC=gcc")
5316        #:phases
5317        (modify-phases %standard-phases
5318          (delete 'configure))))         ;no configure target
5319     (inputs
5320      `(("cairo" ,cairo)
5321        ("jack" ,jack-1)
5322        ("mesa" ,mesa)))
5323     (native-inputs
5324      `(("pkg-config" ,pkg-config)))
5325     (home-page "https://github.com/linuxmao-org/VL1-emulator")
5326     (synopsis "Emulator of Casio VL-Tone VL1")
5327     (description "The VL1-Emulator is an emulator of Casio VL-Tone VL1,
5328 based on source code by PolyValens, offered as an LV2 plugin and a
5329 standalone JACK application.")
5330     ;; Expat or CC0
5331     (license (list license:expat license:cc0))))
5332
5333 (define-public regrader
5334   (package
5335     (inherit vl1-emulator)
5336     (name "regrader")
5337     (version "1.0.0")
5338     (source
5339      (origin
5340        (method git-fetch)
5341        (uri (git-reference
5342              (url "https://github.com/linuxmao-org/regrader.git")
5343              (commit (string-append "v" version))
5344              ;; bundles a specific commit of the DISTRHO plugin framework
5345              (recursive? #t)))
5346        (file-name (git-file-name name version))
5347        (sha256
5348         (base32
5349          "0gl4d5lf2afqknz22jz7hh7029sc9v1xrz6nbz9dlv42bwc0cvl0"))))
5350     (home-page "https://github.com/linuxmao-org/regrader")
5351     (synopsis "Delay effect plugin")
5352     (description
5353      "Regrader is a delay effect where the repeats degrade in resolution.
5354 This is an unofficial port of the Regrader plugin created by Igorski.  It
5355 is available as an LV2 plugin and a standalone JACK application.")
5356     (license license:expat)))
5357
5358 (define-public fogpad
5359   (package
5360     (inherit vl1-emulator)
5361     (name "fogpad")
5362     (version "1.0.0")
5363     (source
5364      (origin
5365        (method git-fetch)
5366        (uri (git-reference
5367              (url "https://github.com/linuxmao-org/fogpad")
5368              (commit (string-append "v" version))
5369              ;; bundles a specific commit of the DISTRHO plugin framework
5370              (recursive? #t)))
5371        (file-name (git-file-name name version))
5372        (sha256
5373         (base32
5374          "1j1hbya2dsqpf22zkpi4kwz3dram9g1ndxzmgfwpmf3i4jd3csgb"))))
5375     (home-page "https://github.com/linuxmao-org/fogpad")
5376     (synopsis "Reverb effect plugin")
5377     (description
5378      "Fogpad is a reverb effect in which the reflections can be frozen,
5379 filtered, pitch shifted and ultimately disintegrated.  This is an unofficial
5380 port of the Regrader plugin created by Igorski.  It is available as an LV2
5381 plugin and a standalone JACK application.")
5382     (license license:expat)))