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, 2021 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, 2021 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 nikita <nikita@n0.is>
  12 ;;; Copyright © 2017 Rodger Fox <thylakoid@openmailbox.org>
  13 ;;; Copyright © 2017, 2018, 2019, 2020, 2021 Nicolas Goaziou <mail@nicolasgoaziou.fr>
  14 ;;; Copyright © 2017, 2018, 2019, 2021 Pierre Langlois <pierre.langlois@gmx.com>
  15 ;;; Copyright © 2017 Arun Isaac <arunisaac@systemreboot.net>
  16 ;;; Copyright © 2017–2021 Tobias Geerinckx-Rice <me@tobias.gr>
  17 ;;; Copyright © 2018 nee <nee.git@hidamari.blue>
  18 ;;; Copyright © 2018, 2021 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, 2021 Alexandros Theodotou <alex@zrythm.org>
  28 ;;; Copyright © 2020 Vincent Legoll <vincent.legoll@gmail.com>
  29 ;;; Copyright © 2020 Lars-Dominik Braun <lars@6xq.net>
  30 ;;; Copyright © 2020 Giacomo Leidi <goodoldpaul@autistici.org>
  31 ;;; Copyright © 2020 Michael Rohleder <mike@rohleder.de>
  32 ;;; Copyright © 2020 Tanguy Le Carrour <tanguy@bioneland.org>
  33 ;;; Copyright © 2020 Marius Bakke <marius@gnu.org>
  34 ;;; Copyright © 2019 Riku Viitanen <riku.viitanen0@gmail.com>
  35 ;;; Copyright © 2020 Ryan Prior <rprior@protonmail.com>
  36 ;;; Copyright © 2021 Leo Prikler <leo.prikler@student.tugraz.at>
  37 ;;; Copyright © 2021 Vinicius Monego <monego@posteo.net>
  38 ;;; Copyright © 2021 Brendan Tildesley <mail@brendan.scot>
  39 ;;; Copyright © 2021 Bonface Munyoki Kilyungi <me@bonfacemunyoki.com>
  40 ;;; Copyright © 2021 Frank Pursel <frank.pursel@gmail.com>
  41 ;;; Copyright © 2021 Rovanion Luckey <rovanion.luckey@gmail.com>
  42 ;;; Copyright © 2021 Justin Veilleux <terramorpha@cock.li>
  43 ;;;
  44 ;;; This file is part of GNU Guix.
  45 ;;;
  46 ;;; GNU Guix is free software; you can redistribute it and/or modify it
  47 ;;; under the terms of the GNU General Public License as published by
  48 ;;; the Free Software Foundation; either version 3 of the License, or (at
  49 ;;; your option) any later version.
  50 ;;;
  51 ;;; GNU Guix is distributed in the hope that it will be useful, but
  52 ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  53 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  54 ;;; GNU General Public License for more details.
  55 ;;;
  56 ;;; You should have received a copy of the GNU General Public License
  57 ;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.
  58
  59 (define-module (gnu packages music)
  60   #:use-module (guix utils)
  61   #:use-module (guix packages)
  62   #:use-module (guix download)
  63   #:use-module (guix git-download)
  64   #:use-module ((guix licenses) #:prefix license:)
  65   #:use-module (guix build-system gnu)
  66   #:use-module (guix build-system ant)
  67   #:use-module (guix build-system cmake)
  68   #:use-module (guix build-system meson)
  69   #:use-module (guix build-system perl)
  70   #:use-module (guix build-system python)
  71   #:use-module (guix build-system scons)
  72   #:use-module (guix build-system glib-or-gtk)
  73   #:use-module (guix build-system qt)
  74   #:use-module (guix build-system waf)
  75   #:use-module (guix build-system trivial)
  76   #:use-module (guix build-system go)
  77   #:use-module (guix build-system qt)
  78   #:use-module (gnu packages)
  79   #:use-module (gnu packages admin)
  80   #:use-module (gnu packages algebra)
  81   #:use-module (gnu packages apr)
  82   #:use-module (gnu packages audio)
  83   #:use-module (gnu packages autotools)
  84   #:use-module (gnu packages backup)
  85   #:use-module (gnu packages base) ;libbdf
  86   #:use-module (gnu packages bash)
  87   #:use-module (gnu packages bison)
  88   #:use-module (gnu packages boost)
  89   #:use-module (gnu packages build-tools)
  90   #:use-module (gnu packages cdrom)
  91   #:use-module (gnu packages code)
  92   #:use-module (gnu packages check)
  93   #:use-module (gnu packages cmake)
  94   #:use-module (gnu packages compression)
  95   #:use-module (gnu packages cpp)
  96   #:use-module (gnu packages crypto)
  97   #:use-module (gnu packages curl)
  98   #:use-module (gnu packages cyrus-sasl)
  99   #:use-module (gnu packages datastructures)
 100   #:use-module (gnu packages docbook)
 101   #:use-module (gnu packages documentation)
 102   #:use-module (gnu packages emacs)
 103   #:use-module (gnu packages file)
 104   #:use-module (gnu packages flex)
 105   #:use-module (gnu packages fltk)
 106   #:use-module (gnu packages fonts)
 107   #:use-module (gnu packages fontutils)
 108   #:use-module (gnu packages freedesktop)
 109   #:use-module (gnu packages game-development)
 110   #:use-module (gnu packages gcc)
 111   #:use-module (gnu packages gnupg)
 112   #:use-module (gnu packages gettext)
 113   #:use-module (gnu packages ghostscript)
 114   #:use-module (gnu packages gl)
 115   #:use-module (gnu packages glib)
 116   #:use-module (gnu packages gnome)
 117   #:use-module (gnu packages gpodder)
 118   #:use-module (gnu packages graphics)
 119   #:use-module (gnu packages graphviz)
 120   #:use-module (gnu packages gstreamer)
 121   #:use-module (gnu packages gtk)
 122   #:use-module (gnu packages guile)
 123   #:use-module (gnu packages haskell)
 124   #:use-module (gnu packages image)
 125   #:use-module (gnu packages imagemagick)
 126   #:use-module (gnu packages java)
 127   #:use-module (gnu packages libffi)
 128   #:use-module (gnu packages libusb)
 129   #:use-module (gnu packages linux) ; for alsa-utils
 130   #:use-module (gnu packages lirc)
 131   #:use-module (gnu packages llvm)
 132   #:use-module (gnu packages man)
 133   #:use-module (gnu packages mp3)
 134   #:use-module (gnu packages mpd)
 135   #:use-module (gnu packages ncurses)
 136   #:use-module (gnu packages netpbm)
 137   #:use-module (gnu packages pcre)
 138   #:use-module (gnu packages pdf)
 139   #:use-module (gnu packages perl)
 140   #:use-module (gnu packages perl-web)
 141   #:use-module (gnu packages pkg-config)
 142   #:use-module (gnu packages protobuf)
 143   #:use-module (gnu packages pulseaudio) ;libsndfile
 144   #:use-module (gnu packages python)
 145   #:use-module (gnu packages python-check)
 146   #:use-module (gnu packages python-web)
 147   #:use-module (gnu packages python-xyz)
 148   #:use-module (gnu packages qt)
 149   #:use-module (gnu packages rdf)
 150   #:use-module (gnu packages readline)
 151   #:use-module (gnu packages rsync)
 152   #:use-module (gnu packages sdl)
 153   #:use-module (gnu packages sphinx)
 154   #:use-module (gnu packages sqlite)
 155   #:use-module (gnu packages stb)
 156   #:use-module (gnu packages tcl)
 157   #:use-module (gnu packages texinfo)
 158   #:use-module (gnu packages tex)
 159   #:use-module (gnu packages time)
 160   #:use-module (gnu packages tls)
 161   #:use-module (gnu packages version-control)
 162   #:use-module (gnu packages video)
 163   #:use-module (gnu packages vim)       ;for 'xxd'
 164   #:use-module (gnu packages web)
 165   #:use-module (gnu packages webkit)
 166   #:use-module (gnu packages wxwidgets)
 167   #:use-module (gnu packages xdisorg)
 168   #:use-module (gnu packages xml)
 169   #:use-module (gnu packages xorg)
 170   #:use-module (gnu packages xiph)
 171   #:use-module (gnu packages golang)
 172   #:use-module (gnu packages lua)
 173   #:use-module ((srfi srfi-1) #:select (last)))
 174
 175 (define-public audacious
 176   (package
 177     (name "audacious")
 178     (version "4.0.5")
 179     (source
 180      (origin
 181        (method url-fetch)
 182        (uri (string-append "https://distfiles.audacious-media-player.org/"
 183                            "audacious-" version ".tar.bz2"))
 184        (sha256
 185         (base32 "028zjgz0p7ys15lk2a30m5zcv9xrx3ga50wjsh4m4zxilgkakbji"))))
 186     (build-system gnu-build-system)
 187     (arguments
 188      `(#:configure-flags
 189        (list (string-append "LDFLAGS=-Wl,-rpath=" %output "/lib"))
 190        #:tests? #f                      ; no check target
 191        #:phases
 192        (modify-phases %standard-phases
 193          (add-after 'install 'unpack-plugins
 194            (lambda* (#:key inputs #:allow-other-keys)
 195              (let ((plugins (assoc-ref inputs "audacious-plugins")))
 196                (invoke "tar" "xvf" plugins)
 197                #t)))
 198          (add-after 'unpack-plugins 'configure-plugins
 199            (lambda* (#:key configure-flags outputs #:allow-other-keys)
 200              (let ((out (assoc-ref outputs "out")))
 201                (with-directory-excursion
 202                    (string-append "audacious-plugins-" ,version)
 203                  (substitute* "configure"
 204                    (("/bin/sh") (which "sh")))
 205                  (apply invoke "./configure"
 206                         (append configure-flags
 207                                 ;; audacious-plugins requires audacious to build.
 208                                 (list (string-append "PKG_CONFIG_PATH="
 209                                                      out "/lib/pkgconfig:"
 210                                                      (getenv "PKG_CONFIG_PATH"))
 211                                       (string-append "--prefix=" out))))))))
 212          (add-after 'configure-plugins 'build-plugins
 213            (lambda _
 214              (with-directory-excursion
 215                  (string-append "audacious-plugins-" ,version)
 216                (invoke "make" "-j" (number->string (parallel-job-count))))))
 217          (add-after 'build-plugins 'install-plugins
 218            (lambda _
 219              (with-directory-excursion
 220                  (string-append "audacious-plugins-" ,version)
 221                (invoke "make" "install")))))))
 222     (native-inputs
 223      `(("audacious-plugins"
 224         ,(origin
 225            (method url-fetch)
 226            (uri (string-append "https://distfiles.audacious-media-player.org/"
 227                                "audacious-plugins-" version ".tar.bz2"))
 228            (sha256
 229             (base32 "0ny5w1agr9jaz5w3wyyxf1ygmzmd1sivaf97lcm4z4w6529520lz"))))
 230        ("gettext" ,gettext-minimal)
 231        ("glib:bin" ,glib "bin")         ; for gdbus-codegen
 232        ("pkg-config" ,pkg-config)))
 233     (inputs
 234      `(("dbus" ,dbus)
 235        ("qtbase" ,qtbase-5)
 236        ("qtmultimedia" ,qtmultimedia)
 237        ;; Plugin dependencies
 238        ("alsa-lib" ,alsa-lib)
 239        ("curl" ,curl)
 240        ("faad2" ,faad2)
 241        ("ffmpeg" ,ffmpeg)
 242        ("flac" ,flac)
 243        ("fluidsynth" ,fluidsynth)
 244        ("lame" ,lame)
 245        ("libbs2b" ,libbs2b)
 246        ("libcddb" ,libcddb)
 247        ("libcdio-paranoia" ,libcdio-paranoia)
 248        ("libcue" ,libcue)
 249        ("libmodplug" ,libmodplug)
 250        ("libnotify" ,libnotify)
 251        ("libogg" ,libogg)
 252        ("libsamplerate" ,libsamplerate)
 253        ("libsndfile" ,libsndfile)
 254        ("libvorbis" ,libvorbis)
 255        ("libxcomposite" ,libxcomposite)
 256        ("libxml2" ,libxml2)
 257        ("libxrender" ,libxrender)
 258        ("lirc" ,lirc)
 259        ("jack" ,jack-1)
 260        ("mesa" ,mesa)
 261        ("mpg123" ,mpg123)
 262        ("neon" ,neon)
 263        ("pulseaudio" ,pulseaudio)
 264        ("sdl2" ,sdl2)
 265        ("soxr" ,soxr)
 266        ("wavpack" ,wavpack)))
 267     (home-page "https://audacious-media-player.org")
 268     (synopsis "Modular and skinnable audio player")
 269     (description
 270      "Audacious is an audio player descended from XMMS.  Drag and drop
 271 folders and individual song files, search for artists and albums in
 272 your entire music library, or create and edit your own custom
 273 playlists.  Listen to CD’s or stream music from the Internet.  Tweak
 274 the sound with the graphical equalizer or experiment with LADSPA
 275 effects.  Enjoy the modern GTK-themed interface or change things up
 276 with Winamp Classic skins.  Use the plugins included with Audacious to
 277 fetch lyrics for your music, to set an alarm in the morning, and
 278 more.")
 279     ;; According to COPYING, Audacious and its plugins are licensed
 280     ;; under the BSD 2-clause license and libguess is licensed under
 281     ;; the BSD 3-clause license.
 282     (license (list license:bsd-2
 283                    license:bsd-3
 284                    ;; Plugin licenses that aren't BSD 2- or 3-clause.
 285                    license:lgpl2.1
 286                    license:gpl2
 287                    license:gpl3
 288                    license:expat
 289                    license:isc
 290                    license:lgpl2.0))))
 291
 292 (define-public aria-maestosa
 293   (package
 294     (name "aria-maestosa")
 295     (version "1.4.13")
 296     (source (origin
 297               (method url-fetch)
 298               (uri (string-append "mirror://sourceforge/ariamaestosa/ariamaestosa/"
 299                                   version "/AriaSrc-" version ".tar.bz2"))
 300               (sha256
 301                (base32
 302                 "1cs3z6frx2ch7rm5ammx9p0rxcjrbj1vq14hvcbimpaw39rdsn3d"))))
 303     (build-system scons-build-system)
 304     (arguments
 305      `(#:tests? #f  ;no tests
 306        #:scons-flags
 307        (list (string-append "prefix=" (assoc-ref %outputs "out")))
 308        #:scons ,scons-python2
 309        #:phases
 310        (modify-phases %standard-phases
 311          (delete 'configure)
 312          (add-after 'unpack 'scons-propagate-environment
 313            (lambda _
 314              ;; By design, SCons does not, by default, propagate
 315              ;; environment variables to subprocesses.  See:
 316              ;; <http://comments.gmane.org/gmane.linux.distributions.nixos/4969>
 317              ;; Here, we modify the SConstruct file to arrange for
 318              ;; environment variables to be propagated.
 319              (substitute* "SConstruct"
 320                (("env = Environment\\(\\)")
 321                 "env = Environment(ENV=os.environ)")
 322                ;; Scons errors out when copying subdirectories from Resources,
 323                ;; so we move them instead.
 324                (("Copy") "Move")
 325                ;; We move the "score" and "Documentation" directories at once,
 326                ;; so we have to ignore files contained therein.
 327                (("if \".svn\" in file" line)
 328                 (string-append line
 329                                " or \"score/\" in file"
 330                                " or \"Documentation/\" in file")))
 331              #t))
 332          (add-after 'install 'fix-directory-permissions
 333            (lambda* (#:key outputs #:allow-other-keys)
 334              (let ((out (assoc-ref outputs "out")))
 335                (chmod (string-append out "/share/Aria/Documentation") #o555)
 336                (chmod (string-append out "/share/Aria/score") #o555)
 337                #t))))))
 338     (inputs
 339      `(("wxwidgets" ,wxwidgets)
 340        ("glib" ,glib)
 341        ("alsa-lib" ,alsa-lib)))
 342     (native-inputs
 343      `(("pkg-config" ,pkg-config)))
 344     (home-page "http://ariamaestosa.sourceforge.net/")
 345     (synopsis "MIDI sequencer and editor")
 346     (description
 347      "Aria Maestosa is a MIDI sequencer and editor.  It lets you compose, edit
 348 and play MIDI files with a few clicks in a user-friendly interface offering
 349 score, keyboard, guitar, drum and controller views.")
 350     (license license:gpl3+)))
 351
 352 (define-public clementine
 353   (package
 354     (name "clementine")
 355     (version "1.4.0rc1-450-g2725ef99d")
 356     (source (origin
 357               (method git-fetch)
 358               (uri (git-reference
 359                     (url "https://github.com/clementine-player/Clementine")
 360                     (commit version)))
 361               (file-name (git-file-name name version))
 362               (sha256
 363                (base32
 364                 "1pcwwi9b2qcfjn748577gqx6d1hgg7cisw2dn43npwafdvvkdb90"))
 365               (modules '((guix build utils)
 366                          (ice-9 regex)))
 367               (snippet
 368                '(begin
 369                   (use-modules ((ice-9 regex)))
 370                   (for-each
 371                    (lambda (dir)
 372                      ;; TODO: The following dependencies are still bundled:
 373                      ;; - "qxt": Appears to be unmaintained upstream.
 374                      ;; - "qsqlite"
 375                      ;; - "qtsingleapplication"
 376                      ;; - "qocoa"
 377                      ;; - "qtiocompressor"
 378                      (let ((bundled '("qsqlite"
 379                                       "qtsingleapplication"
 380                                       "qxt"
 381                                       "qocoa"
 382                                       "qtiocompressor")))
 383                        (if (not
 384                             (string-match
 385                               (string-append ".?*(" (string-join bundled "|") ")")
 386                               dir))
 387                            (delete-file-recursively dir))))
 388                    (find-files "3rdparty"
 389                                (lambda (file stat)
 390                                  (string-match "^3rdparty/[^/]*$" file))
 391                                #:directories? #t))
 392                   #t))))
 393     (build-system cmake-build-system)
 394     (arguments
 395      '(#:test-target "clementine_test"
 396        #:configure-flags
 397        (list ;; Requires unpackaged "projectm"
 398              "-DENABLE_VISUALISATIONS=OFF"
 399              ;; Otherwise it may try to download a non-free library at run-time.
 400              ;; TODO In an origin snippet, remove the code that performs the
 401              ;; download.
 402              "-DHAVE_SPOTIFY_DOWNLOADER=FALSE"
 403              ;; Clementine checks that the taglib version is higher than 1.11,
 404              ;; because of https://github.com/taglib/taglib/issues/864. Remove
 405              ;; this flag when 1.12 is released.
 406              "-DUSE_SYSTEM_TAGLIB=TRUE")
 407        #:phases
 408        (modify-phases %standard-phases
 409          (add-after 'install 'wrap-program
 410            (lambda* (#:key inputs outputs #:allow-other-keys)
 411              (let ((out             (assoc-ref outputs "out"))
 412                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
 413                (wrap-program (string-append out "/bin/clementine")
 414                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
 415                #t))))))
 416     (native-inputs
 417      `(("gettext" ,gettext-minimal)
 418        ("googletest" ,googletest)
 419        ("pkg-config" ,pkg-config)
 420        ("qtlinguist" ,qttools)))
 421     (inputs
 422      `(("boost" ,boost)
 423        ("chromaprint" ,chromaprint)
 424        ("fftw" ,fftw)
 425        ("glib" ,glib)
 426        ("glu" ,glu)
 427        ("gstreamer" ,gstreamer)
 428        ("gst-plugins-base" ,gst-plugins-base)
 429        ("gst-plugins-good" ,gst-plugins-good)
 430        ("gst-libav" ,gst-libav)
 431        ("libcdio" ,libcdio)
 432        ("libmygpo-qt" ,libmygpo-qt)
 433        ;; TODO: Package libgpod.
 434        ("libmtp" ,libmtp)
 435        ("libxml2" ,libxml2)
 436        ("protobuf" ,protobuf)
 437        ("pulseaudio" ,pulseaudio)
 438        ("qtbase" ,qtbase-5)
 439        ("qtx11extras" ,qtx11extras)
 440        ("sqlite" ,sqlite)
 441        ("sparsehash" ,sparsehash)
 442        ("taglib" ,taglib)))
 443     (home-page "https://clementine-player.org")
 444     (synopsis "Music player and library organizer")
 445     (description "Clementine is a multiplatform music player.  It is inspired
 446 by Amarok 1.4, focusing on a fast and easy-to-use interface for searching and
 447 playing your music.")
 448     (license (list
 449                ;; clementine and qtiocompressor are under GPLv3.
 450                license:gpl3+
 451                ;; qxt is under CPL1.0.
 452                license:cpl1.0
 453                ;; qsqlite and qtsingleapplication are under LGPL2.1+.
 454                license:lgpl2.1+
 455                ;; qocoa is under MIT and CC by-sa for the icons.
 456                license:cc-by-sa3.0))))
 457
 458 (define-public strawberry
 459   (package
 460     (name "strawberry")
 461     (version "0.9.3")
 462     (source (origin
 463               (method git-fetch)
 464               (uri (git-reference
 465                     (url "https://github.com/strawberrymusicplayer/strawberry")
 466                     (commit version)))
 467               (file-name (git-file-name name version))
 468               (sha256
 469                (base32
 470                 "0lby5zi66i08s0mcygja8l3rbd97inhaxqbhahj8lfxs52r4grrq"))
 471               (modules '((guix build utils)
 472                          (ice-9 regex)))
 473               (snippet
 474                '(begin
 475                   (use-modules ((ice-9 regex)))
 476                   (for-each
 477                    (lambda (dir)
 478                      ;; TODO: The following dependencies are still bundled:
 479                      ;; - "singleapplication"
 480                      (let ((bundled '("singleapplication")))
 481                        (if (not
 482                             (string-match
 483                               (string-append ".?*(" (string-join bundled "|") ")")
 484                               dir))
 485                            (delete-file-recursively dir))))
 486                    (find-files "3rdparty"
 487                                (lambda (file stat)
 488                                  (string-match "^3rdparty/[^/]*$" file))
 489                                #:directories? #t))
 490                   #t))))
 491     (build-system cmake-build-system)
 492     (arguments
 493      `(#:test-target "run_strawberry_tests"
 494        #:phases
 495        (modify-phases %standard-phases
 496          (add-after 'install 'wrap-program
 497            (lambda* (#:key inputs outputs #:allow-other-keys)
 498              (let ((out             (assoc-ref outputs "out"))
 499                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
 500                (wrap-program (string-append out "/bin/strawberry")
 501                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
 502                #t)))
 503          (add-before 'check 'pre-check
 504            (lambda* (#:key inputs #:allow-other-keys)
 505              (let ((xorg-server (assoc-ref inputs "xorg-server")))
 506                (system (format #f "~a/bin/Xvfb :1 &" xorg-server))
 507                (setenv "DISPLAY" ":1")
 508                (setenv "HOME" (getcwd))
 509                #t))))))
 510     (native-inputs
 511      `(("gettext" ,gettext-minimal)
 512        ("googletest" ,googletest)
 513        ("pkg-config" ,pkg-config)
 514        ("qtlinguist" ,qttools)
 515        ("xorg-server" ,xorg-server-for-tests)))
 516     (inputs
 517      `(("alsa-lib" ,alsa-lib)
 518        ("boost" ,boost)
 519        ("chromaprint" ,chromaprint)
 520        ("dbus" ,dbus)
 521        ("fftw" ,fftw)
 522        ("glib" ,glib)
 523        ("gnutls" ,gnutls)
 524        ("gstreamer" ,gstreamer)
 525        ("gst-plugins-base" ,gst-plugins-base)
 526        ("gst-plugins-good" ,gst-plugins-good)
 527        ("libcdio" ,libcdio)
 528        ("libmtp" ,libmtp)
 529        ("protobuf" ,protobuf)
 530        ("pulseaudio" ,pulseaudio)
 531        ("qtbase" ,qtbase-5)
 532        ("qtx11extras" ,qtx11extras)
 533        ("sqlite" ,sqlite)
 534        ("taglib" ,taglib)))
 535     (home-page "https://www.strawberrymusicplayer.org/")
 536     (synopsis "Music player and library organizer")
 537     (description "Strawberry is a music player and music collection organizer.
 538 It is a fork of Clementine aimed at music collectors and audiophiles.")
 539     (license (list
 540               ;; strawberry.
 541               license:gpl3+
 542               ;; singleapplication
 543               license:expat
 544               ;; icons.
 545               license:cc-by-sa3.0))))
 546
 547 (define-public cmus
 548   (package
 549     (name "cmus")
 550     (version "2.8.0")
 551     (source (origin
 552               (method git-fetch)
 553               (uri (git-reference
 554                     (url "https://github.com/cmus/cmus")
 555                     (commit (string-append "v" version))))
 556               (file-name (git-file-name name version))
 557               (sha256
 558                (base32
 559                 "1ydnvq13ay8b8mfmmgwi5qsgyf220yi1d01acbnxqn775dghmwar"))))
 560     (build-system gnu-build-system)
 561     (arguments
 562      `(#:tests? #f ; cmus does not include tests
 563        #:phases
 564        (modify-phases %standard-phases
 565          (replace 'configure
 566            (lambda* (#:key outputs #:allow-other-keys)
 567              (let ((out (assoc-ref outputs "out")))
 568                ;; It's an idiosyncratic configure script that doesn't
 569                ;; understand --prefix=..; it wants prefix=.. instead.
 570                (invoke "./configure"
 571                        (string-append "prefix=" out))
 572                #t))))))
 573     ;; TODO: cmus optionally supports the following formats, which haven't yet
 574     ;; been added to Guix:
 575     ;;
 576     ;; - Roar, libroar
 577     ;;
 578     ;; - DISCID_LIBS, apparently different from cd-discid which is included in
 579     ;;   Guix.  See <http://sourceforge.net/projects/discid/>
 580     (native-inputs
 581      `(("pkg-config" ,pkg-config)))
 582     (inputs
 583      `(("alsa-lib" ,alsa-lib)
 584        ("ao" ,ao)
 585        ("faad2" ,faad2)
 586        ("ffmpeg" ,ffmpeg)
 587        ("flac" ,flac)
 588        ("jack" ,jack-1)
 589        ("libcddb" ,libcddb)
 590        ("libcdio-paranoia" ,libcdio-paranoia)
 591        ("libcue" ,libcue)
 592        ("libmad" ,libmad)
 593        ("libmodplug" ,libmodplug)
 594        ("libmpcdec" ,libmpcdec)
 595        ("libsamplerate" ,libsamplerate)
 596        ("libvorbis" ,libvorbis)
 597        ("ncurses" ,ncurses)
 598        ("opusfile" ,opusfile)
 599        ("pulseaudio" ,pulseaudio)
 600        ("wavpack" ,wavpack)))
 601      (home-page "https://cmus.github.io/")
 602      (synopsis "Small console music player")
 603      (description "Cmus is a small and fast console music player.  It supports
 604 many input formats and provides a customisable Vi-style user interface.")
 605      (license license:gpl2+)))
 606
 607 (define-public denemo
 608   (package
 609     (name "denemo")
 610     (version "2.5.0")
 611     (source
 612      (origin
 613        (method url-fetch)
 614        (uri (string-append "mirror://gnu/denemo/denemo-" version ".tar.gz"))
 615        (sha256
 616         (base32 "05kwy8894hsxr6123hc854j2qq2sxyjw721zk4g3vzz8pw29p887"))))
 617     (build-system gnu-build-system)
 618     (arguments
 619      `(#:phases
 620        (modify-phases %standard-phases
 621          (replace 'check
 622            (lambda* (#:key inputs #:allow-other-keys)
 623              ;; Tests require to write $HOME.
 624              (setenv "HOME" (getcwd))
 625              ;; Replace hard-coded diff file name.
 626              (substitute* "tests/integration.c"
 627                (("/usr/bin/diff")
 628                 (string-append (assoc-ref inputs "diffutils") "/bin/diff")))
 629              ;; Denemo's documentation says to use this command to run its
 630              ;; test suite.
 631              (invoke "make" "-C" "tests" "check")))
 632          (add-before 'build 'set-lilypond
 633            ;; This phase sets the default path for lilypond to its current
 634            ;; location in the store.
 635            (lambda* (#:key inputs #:allow-other-keys)
 636              (let* ((lilypond (string-append (assoc-ref inputs "lilypond")
 637                                              "/bin/lilypond")))
 638                (substitute* "src/core/prefops.c"
 639                  (("g_string_new \\(\"lilypond\"\\);")
 640                   (string-append "g_string_new (\""
 641                                  lilypond
 642                                  "\");"))))
 643              #t)))))
 644     (native-inputs
 645      `(("diffutils" ,diffutils)
 646        ("glib:bin" ,glib "bin")         ; for gtester
 647        ("gtk-doc" ,gtk-doc)
 648        ("intltool" ,intltool)
 649        ("libtool" ,libtool)
 650        ("pkg-config" ,pkg-config)))
 651     (inputs
 652      `(("alsa-lib" ,alsa-lib)
 653        ("aubio" ,aubio)
 654        ("evince" ,evince)
 655        ("fftw" ,fftw)
 656        ("fluidsynth" ,fluidsynth)
 657        ("glib" ,glib)
 658        ("gtk+" ,gtk+)
 659        ("gtksourceview" ,gtksourceview-3)
 660        ("guile" ,guile-2.0)
 661        ("librsvg" ,librsvg)
 662        ("libsndfile" ,libsndfile)
 663        ("libxml2" ,libxml2)
 664        ("lilypond" ,lilypond)
 665        ("portaudio" ,portaudio)
 666        ("portmidi" ,portmidi)
 667        ("rubberband" ,rubberband)))
 668     (synopsis "Graphical music notation, front-end to GNU Lilypond")
 669     (description
 670      "GNU Denemo is a music notation editor that provides a convenient
 671 interface to the powerful music engraving program Lilypond.  Music can be
 672 typed in using the computer keyboard, played in using a MIDI keyboard, or
 673 even input via a microphone connected to the sound card.  The final product
 674 is publication-quality music notation that is continuously generated in the
 675 background while you work.")
 676     (home-page "http://www.denemo.org")
 677     (license license:gpl3+)))
 678
 679 (define-public dumb
 680   (package
 681     (name "dumb")
 682     (version "2.0.3")
 683     (source
 684      (origin
 685        (method git-fetch)
 686        (uri (git-reference
 687              (url "https://github.com/kode54/dumb")
 688              (commit version)))
 689        (sha256
 690         (base32 "1cnq6rb14d4yllr0yi32p9jmcig8avs3f43bvdjrx4r1mpawspi6"))
 691        (file-name (git-file-name name version))))
 692     (build-system cmake-build-system)
 693     (arguments
 694      '(#:tests? #f ; no check target
 695        #:configure-flags
 696        (list "-DBUILD_SHARED_LIBS=ON"
 697              "-DBUILD_EXAMPLES=OFF")))
 698     (home-page "https://github.com/kode54/dumb")
 699     (synopsis "Module audio renderer library")
 700     (description
 701      "DUMB is a tracker library with support for IT, XM, S3M and MOD files.  It
 702 targets maximum accuracy to the original formats, with low-pass resonant filters
 703 for the IT files, accurate timing and pitching, and three resampling quality
 704 settings (aliasing, linear interpolation and cubic interpolation).")
 705     ;; The DUMB license is a bit peculiar.
 706     ;; Clause 8 states that clauses 4, 5 and 6 are null and void, leaving only
 707     ;; the first three clauses for genuine consideration.
 708     ;; Clauses 1, 2 and 3 are analogous to clauses 1, 2 and 3 of the zlib
 709     ;; license, a known free software license.
 710     ;; Therefore, the DUMB license may be considered a free software license.
 711     (license (license:fsf-free "file://LICENSE"))))
 712
 713 (define-public dumb-allegro4
 714   (package
 715     (inherit dumb)
 716     (name "dumb-allegro4")
 717     (arguments
 718      (substitute-keyword-arguments (package-arguments dumb)
 719        ((#:configure-flags flags)
 720         `(cons "-DBUILD_ALLEGRO4=ON" ,flags))))
 721     (inputs
 722      `(("allegro" ,allegro-4)))))
 723
 724 (define-public hydrogen
 725   (package
 726     (name "hydrogen")
 727     (version "1.0.2")
 728     (source
 729      (origin
 730        (method git-fetch)
 731        (uri (git-reference
 732              (url "https://github.com/hydrogen-music/hydrogen")
 733              (commit version)))
 734        (file-name (git-file-name name version))
 735        (sha256
 736         (base32 "0nhn2njs8yyxcijxv5zgymf3211y6anzm0v9kn4vnd8kai7zwxxp"))))
 737     (build-system cmake-build-system)
 738     (arguments
 739      `(#:test-target "tests"
 740        #:phases
 741        (modify-phases %standard-phases
 742          (add-after 'unpack 'fix-data-directory
 743            (lambda* (#:key outputs #:allow-other-keys)
 744              (substitute* "CMakeLists.txt"
 745                (("/usr/share/pixmaps")
 746                 (string-append (assoc-ref outputs "out")
 747                                "/share/pixmaps")))
 748              #t)))))
 749     (native-inputs
 750      `(("cppunit" ,cppunit)
 751        ("pkg-config" ,pkg-config)
 752        ("qtlinguist" ,qttools)))
 753     (inputs
 754      `(("alsa-lib" ,alsa-lib)
 755        ("jack" ,jack-1)
 756        ;; ("ladspa" ,ladspa) ; require LADSPA_PATH to be set
 757        ("lash" ,lash)
 758        ("libarchive" ,libarchive)
 759        ("liblo" ,liblo)
 760        ("libsndfile" ,libsndfile)
 761        ("lrdf" ,lrdf)
 762        ("pulseaudio" ,pulseaudio)
 763        ("qtbase" ,qtbase-5)
 764        ("qtxmlpatterns" ,qtxmlpatterns)
 765        ("zlib" ,zlib)))
 766     (home-page "http://www.hydrogen-music.org")
 767     (synopsis "Drum machine")
 768     (description
 769      "Hydrogen is an advanced drum machine for GNU/Linux.  Its main goal is to
 770 enable professional yet simple and intuitive pattern-based drum programming.")
 771     (license license:gpl2+)))
 772
 773 (define-public easytag
 774   (package
 775     (name "easytag")
 776     (version "2.4.3")
 777     (source (origin
 778              (method url-fetch)
 779               (uri (string-append "mirror://gnome/sources/easytag/2.4/easytag-"
 780                      version ".tar.xz"))
 781              (sha256
 782               (base32
 783                "1mbxnqrw1fwcgraa1bgik25vdzvf97vma5pzknbwbqq5ly9fwlgw"))))
 784     (build-system glib-or-gtk-build-system)
 785     (native-inputs
 786      `(("desktop-file-utils" ,desktop-file-utils)
 787        ("glib" ,glib "bin")
 788        ("intltool" ,intltool)
 789        ("itstool" ,itstool)
 790        ("pkg-config" ,pkg-config)
 791        ("xmllint" ,libxml2)))
 792     (inputs
 793      `(("flac" ,flac)
 794        ("gtk+" ,gtk+)
 795        ("id3lib" ,id3lib)
 796        ("libid3tag" ,libid3tag)
 797        ("libvorbis" ,libvorbis)
 798        ("opusfile" ,opusfile)
 799        ("speex" ,speex)
 800        ("taglib" ,taglib)
 801        ("wavpack" ,wavpack)
 802        ("yelp" ,yelp)))
 803     (arguments
 804      '(#:phases
 805        (modify-phases %standard-phases
 806          (add-before 'configure 'configure-libid3tag
 807            (lambda* (#:key inputs #:allow-other-keys)
 808              ;; libid3tag does not provide a .pc file and EasyTAG's configure
 809              ;; script healivy relies on pkg-config.  Providing a temporary
 810              ;; local .pc file is easier than patching the configure script.
 811              (let* ((libid3tag (assoc-ref inputs "libid3tag")))
 812                (mkdir-p "pkgconfig")
 813                (with-output-to-file
 814                  "pkgconfig/id3tag.pc"
 815                  (lambda _
 816                    (format #t
 817                      "prefix=~@*~a~@
 818                       libdir=${prefix}/lib~@
 819                       includedir=${prefix}/include~@
 820
 821                       Name: libid3tag~@
 822                       Description:~@
 823                       Version:~@
 824                       Libs: -L${libdir} -lid3tag -lz~@
 825                       Cflags: -I${includedir}~%"
 826                      libid3tag)))
 827                (setenv "PKG_CONFIG_PATH"
 828                  (string-append (getenv "PKG_CONFIG_PATH")
 829                    ":" (getcwd) "/pkgconfig"))
 830                #t)))
 831          (add-after 'unpack 'patch-makefile
 832            (lambda _
 833              (substitute* "Makefile.in"
 834                ;; The Makefile generates a test-desktop-file-validate.sh
 835                ;; script with /bin/sh hard-coded.
 836                (("/bin/sh") (which "sh"))
 837                ;; Don't create 'icon-theme.cache'.
 838                (("gtk-update-icon-cache") "true"))
 839              #t)))))
 840     (home-page "https://wiki.gnome.org/Apps/EasyTAG")
 841     (synopsis "Simple application for viewing and editing tags in audio files")
 842     (description
 843       "EasyTAG is an application for viewing and editing tags in audio files.
 844 It supports MP3, MP2, MP4/AAC, FLAC, Ogg Opus, Ogg Speex, Ogg Vorbis,
 845 MusePack, Monkey's Audio, and WavPack files.")
 846     (license license:gpl2+)))
 847
 848 (define-public extempore
 849   (package
 850     (name "extempore")
 851     (version "0.8.6")
 852     (source (origin
 853               (method git-fetch)
 854               (uri (git-reference
 855                     (url "https://github.com/digego/extempore")
 856                     (commit (string-append "v" version))))
 857               (sha256
 858                (base32
 859                 "182jy23qv115dipny7kglwbn21z55dp253w1ykm0kh8n6vkgs7gp"))
 860               (file-name (git-file-name name version))
 861               (patches (search-patches
 862                         "extempore-unbundle-external-dependencies.patch"))
 863               (modules '((guix build utils)))
 864               (snippet
 865                '(begin
 866                   ;; Remove bundled sources.
 867                   (map delete-file-recursively
 868                        '("src/portaudio"
 869                          "src/pcre"))
 870                   #t))))
 871     (build-system cmake-build-system)
 872     (arguments
 873      `(#:configure-flags (list "-DJACK=ON"
 874                                "-DPACKAGE=ON"
 875                                "-DEXTERNAL_SHLIBS_AUDIO=OFF"
 876                                "-DEXTERNAL_SHLIBS_GRAPHICS=OFF"
 877                                "-DCMAKE_BUILD_TYPE=Release"
 878                                (string-append "-DEXT_SHARE_DIR="
 879                                               (assoc-ref %outputs "out")
 880                                               "/share"))
 881        #:modules ((ice-9 match)
 882                   (guix build cmake-build-system)
 883                   (guix build utils))
 884        #:phases
 885        (modify-phases %standard-phases
 886          (add-after 'build 'build-aot-libs
 887            (lambda _
 888              (for-each (lambda (target)
 889                          (invoke "make" target))
 890                        '("aot_base"
 891                          "aot_math"
 892                          "aot_instruments"))
 893              #t))
 894          (add-after 'unpack 'patch-install-locations
 895            (lambda* (#:key outputs #:allow-other-keys)
 896              (substitute* "CMakeLists.txt"
 897                (("EXT_SHARE_DIR=\"\\.\"\\)")
 898                 "EXT_SHARE_DIR=\"${EXT_SHARE_DIR}/extempore\")")
 899                (("DESTINATION \"\\.\"\\)") "DESTINATION bin)")
 900                (("DESTINATION \"\\.\"\n") "DESTINATION share/extempore\n"))
 901              #t))
 902          (add-after 'unpack 'patch-directories
 903            (lambda* (#:key outputs #:allow-other-keys)
 904              (substitute* "extras/extempore.el"
 905                (("\\(runtime-directory \\(concat default-directory \"runtime\"\\)\\)")
 906                 (string-append "(runtime-directory \""
 907                                (assoc-ref outputs "out")
 908                                "/share/extempore/runtime"
 909                                "\")")))
 910              #t))
 911          (add-after 'unpack 'link-with-additional-libs
 912            (lambda _
 913              ;; The executable must be linked with libffi and zlib.
 914              (substitute* "CMakeLists.txt"
 915                (("target_link_libraries\\(extempore PRIVATE dl" line)
 916                 (string-append line " ffi z")))
 917              #t))
 918          ;; FIXME: All examples that are used as tests segfault for some
 919          ;; unknown reason.
 920          (add-after 'unpack 'disable-broken-tests
 921            (lambda _
 922              (substitute* "CMakeLists.txt"
 923                (("extempore_add_example_as_test\\(.*") ""))
 924              #t))
 925          (add-after 'unpack 'hardcode-external-lib-paths
 926            (lambda* (#:key inputs #:allow-other-keys)
 927              (use-modules (ice-9 match))
 928              (for-each
 929               (match-lambda
 930                 ((file-name lib pkg-name)
 931                  (substitute* (string-append "libs/external/" file-name ".xtm")
 932                    ((lib) (string-append (assoc-ref inputs pkg-name)
 933                                          "/lib/" lib)))))
 934               '(("assimp"    "libassimp.so"    "assimp")
 935                 ("portmidi"  "libportmidi.so"  "portmidi")
 936                 ("sndfile"   "libsndfile.so"   "libsndfile")
 937                 ("fft"       "libkiss_fft.so"  "kiss-fft")
 938                 ("stb_image" "libstb_image.so" "stb-image")
 939                 ("nanovg"    "libnanovg.so"    "nanovg")
 940                 ("glext"     "libGL.so"        "mesa")
 941                 ("glfw3"     "libglfw.so"      "glfw")
 942                 ("gl/glcore-directbind"   "libGL.so" "mesa")
 943                 ("gl/glcompat-directbind" "libGL.so" "mesa")))
 944              #t))
 945          (add-after 'unpack 'use-own-llvm
 946            (lambda* (#:key inputs #:allow-other-keys)
 947              (setenv "EXT_LLVM_DIR" (assoc-ref inputs "llvm"))
 948              ;; Our LLVM builds shared libraries, so Extempore should use
 949              ;; those.
 950              (substitute* "CMakeLists.txt"
 951                (("CMAKE_STATIC_LIBRARY") "CMAKE_SHARED_LIBRARY"))
 952              #t))
 953          (add-after 'unpack 'fix-aot-compilation
 954            (lambda* (#:key outputs #:allow-other-keys)
 955              (substitute* "CMakeLists.txt"
 956                ;; Extempore needs to be told where the runtime is to be found.
 957                ;; While we're at it we disable automatic tuning for a specific
 958                ;; CPU to make binary substitution possible.
 959                (("COMMAND extempore" prefix)
 960                 (string-append prefix " --sharedir " (getcwd)
 961                                " --mcpu=generic --attr=none")))
 962              #t)))))
 963     (inputs
 964      `(("llvm"
 965         ,(package
 966            (inherit llvm-3.8)
 967            (name "llvm-for-extempore")
 968            (source
 969             (origin
 970               (method url-fetch)
 971               (uri (string-append "http://extempore.moso.com.au/extras/"
 972                                   "llvm-3.8.0.src-patched-for-extempore.tar.xz"))
 973               (sha256
 974                (base32
 975                 "1svdl6fxn8l01ni8mpm0bd5h856ahv3h9sdzgmymr6fayckjvqzs"))))))
 976        ("libffi" ,libffi)
 977        ("jack" ,jack-1)
 978        ("libsndfile" ,libsndfile)
 979        ("glfw" ,glfw)
 980        ("apr" ,apr)
 981        ("stb-image"
 982         ,(let ((revision "1")
 983                (commit "152a250a702bf28951bb0220d63bc0c99830c498"))
 984            (package
 985              (inherit stb-image)
 986              (name "stb-image-for-extempore")
 987              (version (git-version "0" revision commit))
 988              (source
 989               (origin (method git-fetch)
 990                       (uri (git-reference
 991                             (url "https://github.com/extemporelang/stb")
 992                             (commit commit)))
 993                       (sha256
 994                        (base32
 995                         "0y0aa20pj9311x2ii06zg8xs34idg14hfgldqc5ymizc6cf1qiqv"))
 996                       (file-name (git-file-name name version))))
 997              (build-system cmake-build-system)
 998              (arguments `(#:tests? #f)) ;no tests included
 999              (inputs '()))))
1000        ("kiss-fft" ,kiss-fft-for-extempore)
1001        ("nanovg" ,nanovg-for-extempore)
1002        ("portmidi"
1003         ,(let ((version "217")
1004                (revision "0")
1005                (commit "8602f548f71daf5ef638b2f7d224753400cb2158"))
1006            (package
1007              (inherit portmidi)
1008              (name "portmidi-for-extempore")
1009              (version (git-version version revision commit))
1010              (source (origin
1011                        (method git-fetch)
1012                        (uri (git-reference
1013                              (url "https://github.com/extemporelang/portmidi")
1014                              (commit commit)))
1015                        (file-name (git-file-name name version))
1016                        (sha256
1017                         (base32
1018                          "1qidzl1s3kzhczzm96rcd2ppn27a97k2axgfh1zhvyf0s52d7m4w"))))
1019              (build-system cmake-build-system)
1020              (arguments `(#:tests? #f)) ;no tests
1021              (native-inputs '()))))
1022        ("assimp" ,assimp)
1023        ("alsa-lib" ,alsa-lib)
1024        ("portaudio" ,portaudio)
1025        ("mesa" ,mesa)
1026        ("pcre" ,pcre)
1027        ("zlib" ,zlib)))
1028     (native-inputs
1029      `(("perl" ,perl)
1030        ("emacs" ,emacs-no-x)))
1031     ;; Extempore refuses to build on architectures other than x86_64
1032     (supported-systems '("x86_64-linux"))
1033     (home-page "https://github.com/digego/extempore")
1034     (synopsis "Programming environment for live coding of multimedia")
1035     (description
1036      "Extempore is a programming language and runtime environment designed
1037 with live programming in mind.  It supports interactive programming in a REPL
1038 style, compiling and binding code just-in-time.  Although Extempore has its
1039 roots in 'live coding' of audiovisual media art, it is suitable for any task
1040 domain where dynamic run-time modifiability and good numerical performance are
1041 required.  Extempore also has strong timing and concurrency semantics, which
1042 are helpful when working in problem spaces where timing is important (such as
1043 audio and video).")
1044     (license license:bsd-2)))
1045
1046 (define-public fluida-lv2
1047   (package
1048    (name "fluida-lv2")
1049    (version "0.6")
1050    (source
1051     (origin
1052       (method git-fetch)
1053       (uri
1054        (git-reference
1055         (url "https://github.com/brummer10/Fluida.lv2")
1056         (commit (string-append "v" version))
1057         (recursive? #t))) ; references specific commit of libxputty
1058       (file-name (git-file-name name version))
1059       (sha256
1060        (base32
1061         "1v0bh4wcx79y832qigc3my8ixq0r4ica6z5fg2rg946pkh20x1a2"))))
1062    (build-system gnu-build-system)
1063    (arguments
1064     `(#:tests? #f  ; no "check" target
1065       #:make-flags
1066       (list (string-append "INSTALL_DIR="
1067                            (assoc-ref %outputs "out") "/lib/lv2")
1068             "CC=gcc")
1069       #:phases
1070       (modify-phases %standard-phases
1071         (delete 'configure))))
1072    (inputs
1073     `(("cairo" ,cairo)
1074       ("libx11" ,libx11)
1075       ("lv2" ,lv2)
1076       ("fluidsynth" ,fluidsynth)))
1077    (native-inputs
1078     `(("pkg-config" ,pkg-config)))
1079    (home-page "https://github.com/brummer10/Fluida.lv2")
1080    (synopsis "Fluidsynth as an LV2 audio plugin")
1081    (description "Fluida is an audio plugin in the LV2 format that acts as
1082 a frontend for fluidsynth.")
1083    (license license:gpl2+)))
1084
1085 (define-public surge-synth
1086   (package
1087    (name "surge-synth")
1088    (version "1.7.1")
1089    (source
1090      (origin
1091        (method git-fetch)
1092         (uri (git-reference
1093                (url "https://github.com/surge-synthesizer/surge")
1094                (commit (string-append "release_" version))
1095                (recursive? #t))) ; build system expects modules to be there
1096         (file-name (git-file-name name version))
1097         (sha256
1098          (base32
1099           "1jhk8iaqh89dnci4446b47315v2lc8gclraygk8m9jl20zpjxl0l"))))
1100    (build-system cmake-build-system)
1101    (arguments
1102     `(#:tests? #f ; no tests included
1103       #:phases
1104       (modify-phases %standard-phases
1105         (add-after 'unpack 'replace-python
1106           (lambda* (#:key inputs outputs #:allow-other-keys)
1107             (substitute* "CMakeLists.txt"
1108               ((" python ")
1109                (string-append " " (assoc-ref inputs "python")
1110                               "/bin/python3 ")))
1111             #t))
1112         (add-after 'unpack 'fix-data-directory-name
1113           (lambda* (#:key inputs outputs #:allow-other-keys)
1114             (substitute* "src/common/SurgeStorage.cpp"
1115               (("/usr") (assoc-ref outputs "out")))
1116             #t))
1117         (replace 'install ; no install target
1118           (lambda* (#:key inputs outputs #:allow-other-keys)
1119             (let* ((src (assoc-ref inputs "source"))
1120                    (out (assoc-ref outputs "out"))
1121                    (share (string-append out "/share"))
1122                    (lib (string-append out "/lib"))
1123                    (lv2 (string-append lib "/lv2"))
1124                    (vst3 (string-append lib "/vst3")))
1125               (mkdir-p lv2)
1126               (mkdir-p vst3)
1127               ;; Install LV2 plugin.
1128               (copy-recursively "surge_products/Surge.lv2"
1129                                 (string-append lv2 "/Surge.lv2"))
1130               ;; Install VST3 plugin.
1131               (copy-recursively "surge_products/Surge.vst3"
1132                                 (string-append vst3 "/Surge.vst3"))
1133               ;; Install data.
1134               (copy-recursively (string-append src "/resources/data")
1135                                 (string-append share "/Surge"))
1136               #t))))))
1137    (inputs
1138     `(("cairo" ,cairo)
1139       ("libxkbcommon" ,libxkbcommon)
1140       ("python" ,python)
1141       ("xcb-util" ,xcb-util)
1142       ("xcb-util-cursor" ,xcb-util-cursor)
1143       ("xcb-util-keysyms" ,xcb-util-keysyms)))
1144    (native-inputs
1145     `(("pkg-config" ,pkg-config)))
1146    (home-page "https://surge-synthesizer.github.io/")
1147    (synopsis "Synthesizer plugin")
1148    (description
1149     "Surge is a subtractive hybrid digital synthesizer.  Each patch contains
1150 two @dfn{scenes} which are separate instances of the entire synthesis
1151 engine (except effects) that can be used for layering or split patches.")
1152    (license license:gpl3+)))
1153
1154 (define-public klick
1155   (package
1156     (name "klick")
1157     (version "0.12.2")
1158     (source (origin
1159               (method url-fetch)
1160               (uri (string-append "http://das.nasophon.de/download/klick-"
1161                                   version ".tar.gz"))
1162               (sha256
1163                (base32
1164                 "0hmcaywnwzjci3pp4xpvbijnnwvibz7gf9xzcdjbdca910y5728j"))))
1165     (build-system scons-build-system)
1166     (arguments
1167      `(#:scons-flags (list (string-append "PREFIX=" %output))
1168        #:scons ,scons-python2
1169        #:tests? #f ; no "check" target
1170        #:phases
1171        (modify-phases %standard-phases
1172          (add-after 'unpack 'be-permissive
1173            (lambda _
1174              (substitute* "SConstruct"
1175                (("'-Wall'") "'-Wall', '-fpermissive'"))
1176              #t))
1177          (add-after 'unpack 'replace-removed-scons-syntax
1178            (lambda _
1179              (substitute* "SConstruct"
1180                (("BoolOption") "BoolVariable")
1181                (("PathOption") "PathVariable")
1182                (("Options") "Variables"))
1183              #t)))))
1184     (inputs
1185      `(("boost" ,boost)
1186        ("jack" ,jack-1)
1187        ("libsndfile" ,libsndfile)
1188        ("libsamplerate" ,libsamplerate)
1189        ("liblo" ,liblo)
1190        ("rubberband" ,rubberband)))
1191     (native-inputs
1192      `(("pkg-config" ,pkg-config)))
1193     (home-page "http://das.nasophon.de/klick/")
1194     (synopsis "Metronome for JACK")
1195     (description
1196      "klick is an advanced command-line based metronome for JACK.  It allows
1197 you to define complex tempo maps for entire songs or performances.")
1198     (license license:gpl2+)))
1199
1200 (define-public glyr
1201   (package
1202     (name "glyr")
1203     (version "1.0.10")
1204     (source (origin
1205               (method git-fetch)
1206               (uri (git-reference
1207                     (url "https://github.com/sahib/glyr")
1208                     (commit version)))
1209               (file-name (git-file-name name version))
1210               (sha256
1211                (base32
1212                 "1miwbqzkhg0v3zysrwh60pj9sv6ci4lzq2vq2hhc6pc6hdyh8xyr"))))
1213     (build-system cmake-build-system)
1214     (arguments
1215      '(#:configure-flags '("-DTEST=true")
1216        #:phases
1217        (modify-phases %standard-phases
1218          (add-after 'unpack 'patch-tests
1219            (lambda _
1220              (substitute* "spec/capi/check_api.c"
1221                (("fail_unless \\(c != NULL,\"Could not load www.google.de\"\\);")
1222                 ""))
1223              #t))
1224          (replace 'check
1225            (lambda* (#:key tests? #:allow-other-keys)
1226              (when tests?
1227                ;; capi tests
1228                (invoke "bin/check_api")
1229                ;; (invoke "bin/check_opt") TODO Very dependent on the network
1230                (invoke "bin/check_dbc"))
1231
1232              ;; TODO Work out how to run the spec/providers Python tests
1233              #t)))))
1234     (inputs
1235      `(("glib" ,glib)
1236        ("curl" ,curl)
1237        ("sqlite" ,sqlite)))
1238     (native-inputs
1239      `(("pkg-config" ,pkg-config)
1240        ("check" ,check)))
1241     (home-page "https://github.com/sahib/glyr")
1242     (synopsis "Search engine for music related metadata")
1243     (description
1244      "Glyr comes both in a command-line interface tool (@command{glyrc}) and
1245 as a C library (libglyr).
1246
1247 The sort of metadata glyr is searching (and downloading) is usually the data
1248 you see in your musicplayer.  And indeed, originally it was written to serve
1249 as internally library for a musicplayer, but has been extended to work as a
1250 standalone program which is able to download cover art, lyrics, photos,
1251 biographies, reviews and more.")
1252     (license license:lgpl3+)))
1253
1254 (define-public gtklick
1255   (package
1256     (name "gtklick")
1257     (version "0.6.4")
1258     (source (origin
1259               (method url-fetch)
1260               (uri (string-append "http://das.nasophon.de/download/gtklick-"
1261                                   version ".tar.gz"))
1262               (sha256
1263                (base32
1264                 "0dq1km6njnzsqdqyf6wzir9g733z0mc9vmxfg2383k3c2a2di6bp"))))
1265     (build-system python-build-system)
1266     (arguments
1267      `(#:tests? #f ; no tests
1268        #:python ,python-2
1269        #:phases
1270        (modify-phases %standard-phases
1271          (add-before 'build 'add-sitedirs
1272            ;; .pth files are not automatically interpreted unless the
1273            ;; directories containing them are added as "sites".  The directories
1274            ;; are then added to those in the PYTHONPATH.  This is required for
1275            ;; the operation of pygtk.
1276            (lambda _
1277              (substitute* "gtklick/gtklick.py"
1278                (("import pygtk")
1279                 "import pygtk, site, sys
1280 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))))
1281          (add-after 'unpack 'inject-store-path-to-klick
1282            (lambda* (#:key inputs #:allow-other-keys)
1283              (substitute* "gtklick/klick_backend.py"
1284                (("KLICK_PATH = 'klick'")
1285                 (string-append "KLICK_PATH = '"
1286                                (assoc-ref inputs "klick")
1287                                "/bin/klick'")))
1288              #t)))))
1289     (inputs
1290      `(("klick" ,klick)
1291        ("python2-pyliblo" ,python2-pyliblo)
1292        ("python2-pygtk" ,python2-pygtk)))
1293     (native-inputs
1294      `(("gettext" ,gettext-minimal)))
1295     (home-page "http://das.nasophon.de/gtklick/")
1296     (synopsis "Simple metronome with an easy-to-use graphical interface")
1297     (description
1298      "Gtklick is a simple metronome with an easy-to-use graphical user
1299 interface.  It is implemented as a frontend to @code{klick}.")
1300     (license license:gpl2+)))
1301
1302 (define-public libgme
1303   (package
1304     (name "libgme")
1305     (version "0.6.3")
1306     (source (origin
1307               (method url-fetch)
1308               (uri (string-append "https://bitbucket.org/mpyne/game-music-emu/"
1309                                   "downloads/game-music-emu-" version
1310                                   ".tar.xz"))
1311               (sha256
1312                (base32
1313                 "07857vdkak306d9s5g6fhmjyxk7vijzjhkmqb15s7ihfxx9lx8xb"))))
1314     (build-system cmake-build-system)
1315     (arguments
1316      '(#:tests? #f))                    ; no check target
1317     (home-page "https://bitbucket.org/mpyne/game-music-emu")
1318     (synopsis "Video game music file playback library")
1319     (description
1320      "Game-music-emu is a collection of video game music file emulators that
1321 support the following formats and systems:
1322 @table @code
1323 @item AY
1324 ZX Spectrum/Asmtrad CPC
1325 @item GBS
1326 Nintendo Game Boy
1327 @item GYM
1328 Sega Genesis/Mega Drive
1329 @item HES
1330 NEC TurboGrafx-16/PC Engine
1331 @item KSS
1332 MSX Home Computer/other Z80 systems (doesn't support FM sound)
1333 @item NSF/NSFE
1334 Nintendo NES/Famicom (with VRC 6, Namco 106, and FME-7 sound)
1335 @item SAP
1336 Atari systems using POKEY sound chip
1337 @item SPC
1338 Super Nintendo/Super Famicom
1339 @item VGM/VGZ
1340 Sega Master System/Mark III, Sega Genesis/Mega Drive, BBC Micro
1341 @end table")
1342     (license (list license:lgpl2.1+
1343                    ;; demo and player directories are under the Expat license
1344                    license:expat))))
1345
1346 (define-public lingot
1347   (package
1348     (name "lingot")
1349     (version "1.1.1")
1350     (source
1351      (origin
1352        (method git-fetch)
1353        (uri (git-reference
1354              (url "https://github.com/ibancg/lingot")
1355              (commit (string-append "v" version))))
1356        (file-name (git-file-name name version))
1357        (sha256
1358         (base32 "04lcjzfhddbyskxr2068z609y6x0s2gjx1wl78w0dkxdi459zrn9"))))
1359     (build-system gnu-build-system)
1360     (native-inputs
1361      `(("autoconf" ,autoconf)
1362        ("automake" ,automake)
1363        ("cunit" ,cunit)
1364        ("glib" ,glib "bin")             ; for glib-compile-resources
1365        ("intltool" ,intltool)
1366        ("libtool" ,libtool)
1367        ("pkg-config" ,pkg-config)))
1368     (inputs
1369      `(("alsa-lib" ,alsa-lib)
1370        ("fftw" ,fftw)
1371        ("gtk+" ,gtk+)
1372        ("jack" ,jack-2)
1373        ("json-c" ,json-c)
1374        ("pulseaudio" ,pulseaudio)))
1375     (home-page "http://lingot.nongnu.org/")
1376     (synopsis "Accurate & configurable musical instrument tuner")
1377     (description
1378      "LINGOT is a musical instrument tuner.  It's accurate, easy to use, and
1379 highly configurable.  Originally conceived to tune electric guitars, it can now
1380 be used to tune other instruments.
1381
1382 It looks like an analogue tuner, with a gauge indicating the relative shift to a
1383 certain note, determined automatically as the closest note to the estimated
1384 frequency.")
1385     (license license:gpl2+)))
1386
1387 (define-public ninjas2
1388   (package
1389     (name "ninjas2")
1390     (version "0.2.0")
1391     (source
1392      (origin
1393        (method git-fetch)
1394        (uri
1395         (git-reference
1396          (url "https://github.com/clearly-broken-software/ninjas2")
1397          (commit (string-append "v" version))
1398          ;; Bundles a specific commit of the DISTRHO plugin framework.
1399          (recursive? #t)))
1400        (file-name (git-file-name name version))
1401        (sha256
1402         (base32 "1kwp6pmnfar2ip9693gprfbcfscklgri1k1ycimxzlqr61nkd2k9"))))
1403     (build-system gnu-build-system)
1404     (arguments
1405      `(#:tests? #f                      ;no tests
1406        #:make-flags
1407        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
1408              (string-append "CC=" ,(cc-for-target)))
1409        #:phases
1410        (modify-phases %standard-phases
1411          (delete 'configure)            ;no configure target
1412          (replace 'install              ;no install target
1413            (lambda* (#:key outputs #:allow-other-keys)
1414              (let* ((out (assoc-ref outputs "out"))
1415                     (bin (string-append out "/bin"))
1416                     (lv2 (string-append out "/lib/lv2")))
1417                ;; Install LV2.
1418                (for-each
1419                 (lambda (file)
1420                   (copy-recursively file
1421                                     (string-append lv2 "/" (basename file))))
1422                 (find-files "bin" "\\.lv2$" #:directories? #t))
1423                ;; Install executables.
1424                (for-each
1425                  (lambda (file)
1426                    (install-file file bin))
1427                  (find-files "bin"
1428                              (lambda (name stat)
1429                                (and
1430                                  (equal? (dirname name) "bin")
1431                                  (not (string-suffix? ".so" name))
1432                                  (not (string-suffix? ".lv2" name))))))
1433                #t))))))
1434     (inputs
1435      `(("fftwf" ,fftwf)
1436        ("jack" ,jack-1)                 ; for the standalone JACK application
1437        ("libsamplerate" ,libsamplerate)
1438        ("mesa" ,mesa)
1439        ("libsndfile" ,libsndfile)))
1440     (native-inputs
1441      `(("ladspa" ,ladspa)
1442        ("lv2" ,lv2)
1443        ("pkg-config" ,pkg-config)))
1444     (synopsis "Sample slicer audio plugin")
1445     (description
1446      "Ninjas 2 is a rewrite of the Ninjas sample slicer audio plugin.
1447 Its goal is to be an easy to use sample slicer with quick slicing of samples
1448 and auto-mapping slices to MIDI note numbers.")
1449     (home-page "https://github.com/clearly-broken-software/ninjas2")
1450     (license license:gpl3+)))
1451
1452 (define-public lilypond
1453   (package
1454     (name "lilypond")
1455     (version "2.20.0")
1456     (source
1457      (origin
1458        (method url-fetch)
1459        (uri (string-append "http://lilypond.org/download/sources/"
1460                            "v" (version-major+minor version) "/"
1461                            "lilypond-" version ".tar.gz"))
1462        (sha256
1463         (base32 "0qd6pd4siss016ffmcyw5qc6pr2wihnvrgd4kh1x725w7wr02nar"))))
1464     (build-system gnu-build-system)
1465     (arguments
1466      `(#:tests? #f                      ;out-test/collated-files.html fails
1467        #:out-of-source? #t
1468        #:make-flags '("conf=www")       ;to generate images for info manuals
1469        #:configure-flags
1470        (list "CONFIGURATION=www"
1471              (string-append "--with-texgyre-dir="
1472                             (assoc-ref %build-inputs "font-tex-gyre")
1473                             "/share/fonts/opentype/"))
1474        #:phases
1475        (modify-phases %standard-phases
1476          (add-after 'unpack 'fix-path-references
1477            (lambda _
1478              (substitute* "scm/backend-library.scm"
1479                (("\\(search-executable '\\(\"gs\"\\)\\)")
1480                 (string-append "\"" (which "gs") "\""))
1481                (("\"/bin/sh\"")
1482                 (string-append "\"" (which "sh") "\"")))
1483              #t))
1484          (add-before 'configure 'prepare-configuration
1485            (lambda _
1486              (substitute* "configure"
1487                (("SHELL=/bin/sh") "SHELL=sh")
1488                ;; When checking the fontforge version do not consider the
1489                ;; version string that's part of the directory.
1490                (("head -n") "tail -n")
1491                ;; Also allow for SOURCE_DATE_EPOCH = 0 in fontforge.
1492                (("20110222") "19700101"))
1493              (setenv "out" "www")
1494              (setenv "conf" "www")
1495              #t))
1496          (add-after 'install 'install-info
1497            (lambda _
1498              (invoke "make"
1499                      "-j" (number->string (parallel-job-count))
1500                      "conf=www" "install-info")
1501              #t)))))
1502     (inputs
1503      `(("guile" ,guile-1.8)
1504        ("font-dejavu" ,font-dejavu)
1505        ("font-tex-gyre" ,font-tex-gyre)
1506        ("fontconfig" ,fontconfig)
1507        ("freetype" ,freetype)
1508        ("ghostscript" ,ghostscript)
1509        ("pango" ,pango)
1510        ("python" ,python-2)))
1511     (native-inputs
1512      `(("bison" ,bison)
1513        ("perl" ,perl)
1514        ("flex" ,flex)
1515        ("fontforge" ,fontforge)
1516        ("dblatex" ,dblatex)
1517        ("gettext" ,gettext-minimal)
1518        ("imagemagick" ,imagemagick)
1519        ("netpbm" ,netpbm)               ;for pngtopnm
1520        ("texlive" ,(texlive-updmap.cfg (list texlive-metapost
1521                                         texlive-generic-epsf
1522                                         texlive-lh
1523                                         texlive-latex-cyrillic)))
1524        ("texinfo" ,texinfo)
1525        ("texi2html" ,texi2html-1.82)
1526        ("rsync" ,rsync)
1527        ("pkg-config" ,pkg-config)
1528        ("zip" ,zip)))
1529     (home-page "http://www.lilypond.org/")
1530     (synopsis "Music typesetting")
1531     (description
1532      "GNU LilyPond is a music typesetter, which produces high-quality sheet
1533 music.  Music is input in a text file containing control sequences which are
1534 interpreted by LilyPond to produce the final document.  It is extendable with
1535 Guile.")
1536     (license license:gpl3+)
1537
1538     ;; On armhf and mips64el, building the documentation sometimes leads to
1539     ;; more than an hour of silence, so double the max silent time.
1540     (properties `((max-silent-time . 7200)))))
1541
1542 (define-public python-abjad
1543   (package
1544     (name "python-abjad")
1545     (version "3.3")
1546     (source
1547      (origin
1548        (method git-fetch)
1549        (uri (git-reference
1550          (url "https://github.com/Abjad/abjad")
1551          (commit (string-append "v" version))))
1552        (file-name (git-file-name name version))
1553        (sha256
1554         (base32
1555          "1dzf5v7pawbzkb4qxp4s5z4r3gibkk705pag83yvgzkx6fd6jf2g"))))
1556     (build-system python-build-system)
1557     (arguments
1558      `(#:phases
1559        (modify-phases %standard-phases
1560          (add-after 'unpack 'patch-source
1561            (lambda _
1562              (substitute* "setup.py"
1563                (("uqbar>=0.5.1, <0.5.0") "uqbar>=0.5.0"))
1564              #t))
1565          (replace 'check
1566            (lambda* (#:key tests? #:allow-other-keys)
1567              (when tests?
1568                ;; See: https://stackoverflow.com/a/34140498
1569                (invoke "python" "-m" "pytest" "tests")
1570                #t))))))
1571     (native-inputs
1572      `(("lilypond" ,lilypond)
1573        ("python-black" ,python-black)
1574        ("python-flake8" ,python-flake8)
1575        ("python-iniconfig" ,python-iniconfig)
1576        ("python-isort" ,python-isort)
1577        ("python-mypy" ,python-mypy)
1578        ("python-ply" ,python-ply)
1579        ("python-pytest" ,python-pytest)
1580        ("python-pytest-cov" ,python-pytest-cov)
1581        ("python-sphinx-autodoc-typehints" ,python-sphinx-autodoc-typehints)))
1582     (propagated-inputs
1583      `(("python-quicktions" ,python-quicktions)
1584        ("python-roman" ,python-roman)
1585        ("python-six" ,python-six)
1586        ("python-uqbar" ,python-uqbar)))
1587     (home-page "https://abjad.github.io")
1588     (synopsis "Python API for building LilyPond files")
1589     (description
1590      "This package provides a Python API for building LilyPond files.")
1591     (license license:expat)))
1592
1593 (define-public non-sequencer
1594   ;; The latest tagged release is three years old and uses a custom build
1595   ;; system, so we take the last commit.
1596   (let ((commit "5ae43bb27c42387052a73e5ffc5d33efb9d946a9")
1597         (revision "4"))
1598     (package
1599       (name "non-sequencer")
1600       (version (string-append "1.9.5-" revision "." (string-take commit 7)))
1601       (source (origin
1602                 (method git-fetch)
1603                 (uri (git-reference
1604                       (url "git://git.tuxfamily.org/gitroot/non/non.git")
1605                       (commit commit)))
1606                 (sha256
1607                  (base32
1608                   "1cljkkyi9dxqpqhx8y6l2ja4zjmlya26m26kqxml8gx08vyvddhx"))
1609                 (file-name (string-append name "-" version "-checkout"))))
1610       (build-system waf-build-system)
1611       (arguments
1612        `(#:tests? #f ;no "check" target
1613          #:configure-flags
1614          (list "--project=sequencer"
1615                ;; Disable the use of SSE unless on x86_64.
1616                ,@(if (not (string-prefix? "x86_64" (or (%current-target-system)
1617                                                        (%current-system))))
1618                      '("--disable-sse")
1619                      '()))
1620          #:python ,python-2))
1621       (inputs
1622        `(("jack" ,jack-1)
1623          ("libsigc++" ,libsigc++)
1624          ("liblo" ,liblo)
1625          ("ntk" ,ntk)))
1626       (native-inputs
1627        `(("pkg-config" ,pkg-config)))
1628       (home-page "https://non.tuxfamily.org/wiki/Non%20Sequencer")
1629       (synopsis "Pattern-based MIDI sequencer")
1630       (description
1631        "The Non Sequencer is a powerful, lightweight, real-time,
1632 pattern-based MIDI sequencer.  It utilizes the JACK Audio Connection Kit for
1633 MIDI I/O and the NTK GUI toolkit for its user interface.  Everything in Non
1634 Sequencer happens on-line, in real-time.  Music can be composed live, while the
1635 transport is rolling.")
1636       (license license:gpl2+))))
1637
1638 (define-public non-session-manager
1639   (package (inherit non-sequencer)
1640     (name "non-session-manager")
1641     (arguments
1642      (substitute-keyword-arguments (package-arguments non-sequencer)
1643        ((#:configure-flags flags)
1644         `(cons "--project=session-manager"
1645                (delete "--project=sequencer" ,flags)))))
1646     (inputs
1647      `(("jack" ,jack-1)
1648        ("liblo" ,liblo)
1649        ("ntk" ,ntk)))
1650     (native-inputs
1651      `(("pkg-config" ,pkg-config)))
1652     (home-page "https://non.tuxfamily.org/nsm/")
1653     (synopsis "Audio session management")
1654     (description
1655      "The Non Session Manager is an API and an implementation for audio
1656 session management.  NSM clients use a well-specified OSC protocol to
1657 communicate with the session management daemon.")
1658     (license license:gpl2+)))
1659
1660 (define-public non-mixer
1661   (package (inherit non-sequencer)
1662     (name "non-mixer")
1663     (arguments
1664      (substitute-keyword-arguments (package-arguments non-sequencer)
1665        ((#:configure-flags flags)
1666         `(cons "--project=mixer"
1667                (delete "--project=sequencer" ,flags)))))
1668     (inputs
1669      `(("jack" ,jack-1)
1670        ("liblo" ,liblo)
1671        ("ladspa" ,ladspa)
1672        ("lrdf" ,lrdf)
1673        ("ntk" ,ntk)))
1674     (native-inputs
1675      `(("pkg-config" ,pkg-config)))
1676     (home-page "https://non.tuxfamily.org/wiki/Non%20Mixer")
1677     (synopsis "Modular digital audio mixer")
1678     (description
1679      "The Non Mixer is a powerful, reliable and fast modular digital audio
1680 mixer.  It utilizes JACK for inter-application audio I/O and the NTK GUI
1681 toolkit for a fast and lightweight user interface.  Non Mixer can be used
1682 alone or in concert with Non Timeline and Non Sequencer to form a complete
1683 studio.")
1684     (license license:gpl2+)))
1685
1686 (define-public non-timeline
1687   (package (inherit non-sequencer)
1688     (name "non-timeline")
1689     (arguments
1690      (substitute-keyword-arguments (package-arguments non-sequencer)
1691        ((#:configure-flags flags)
1692         `(cons "--project=timeline"
1693                (delete "--project=sequencer" ,flags)))))
1694     (inputs
1695      `(("jack" ,jack-1)
1696        ("liblo" ,liblo)
1697        ("libsndfile" ,libsndfile)
1698        ("ntk" ,ntk)))
1699     (native-inputs
1700      `(("pkg-config" ,pkg-config)))
1701     (home-page "https://non.tuxfamily.org/wiki/Non%20Timeline")
1702     (synopsis "Modular digital audio timeline arranger")
1703     (description
1704      "The Non Timeline is a powerful, reliable and fast modular digital audio
1705 timeline arranger.  It utilizes JACK for inter-application audio I/O and the
1706 NTK GUI toolkit for a fast and lightweight user interface.  Non Timeline can
1707 be used alone or in concert with Non Mixer and Non Sequencer to form a
1708 complete studio.")
1709     (license license:gpl2+)))
1710
1711 (define-public tascam-gtk
1712   ;; This commit represents the latest version at the time of this writing.
1713   (let ((commit "17b8575ff88dfd2ede0f7ef9c5c5597ab8a00702")
1714         (revision "0"))
1715     (package
1716       (name "tascam-gtk")
1717       (version (git-version "0.4" revision commit))
1718       (source (origin
1719                 (method git-fetch)
1720                 (uri (git-reference
1721                       (url "https://github.com/onkelDead/tascam-gtk")
1722                       (commit commit)))
1723                 (file-name (git-file-name name version))
1724                 (sha256
1725                  (base32
1726                   "07k7rccqqg7lnygkh97a200l1i6s1rl92n01v0q6n4257sinir6f"))))
1727       (build-system gnu-build-system)
1728       (inputs
1729        `(("liblo" ,liblo)
1730          ("gtkmm" ,gtkmm)
1731          ("alsa-lib" ,alsa-lib)
1732          ("libxmlplusplus" ,libxmlplusplus-2.6)))
1733       (native-inputs
1734        `(("glib:bin" ,glib "bin")
1735          ("pkg-config" ,pkg-config)))
1736       (home-page "https://github.com/onkelDead/tascam-gtk")
1737       (synopsis "GTK+ based application to control Tascam US-16x08 DSP mixer")
1738       (description "This is a mixer application to control the Tascam US-16x08
1739 audio interface.  This device contains about 280 control elements and this
1740 mixer application aims to provide comfortable access to the DSP effects the
1741 device supports.")
1742       (license license:expat))))
1743
1744 (define-public bsequencer
1745   (package
1746     (name "bsequencer")
1747     (version "1.8.0")
1748     (source (origin
1749               (method git-fetch)
1750               (uri (git-reference
1751                     (url "https://github.com/sjaehn/BSEQuencer")
1752                     (commit version)))
1753               (file-name (git-file-name name version))
1754               (sha256
1755                (base32
1756                 "0w7iwzz2r4a699fi24qk71vv2k3jpl9ylzlgmvyc3rlgad0m01k1"))))
1757     (build-system gnu-build-system)
1758     (arguments
1759      `(#:make-flags
1760        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
1761        #:tests? #f ; there are none
1762        #:phases
1763        (modify-phases %standard-phases
1764          (delete 'configure))))
1765     (inputs
1766      `(("cairo" ,cairo)
1767        ("lv2" ,lv2)
1768        ("libx11" ,libx11)))
1769     (native-inputs
1770      `(("pkg-config" ,pkg-config)))
1771     (home-page "https://github.com/sjaehn/BSEQuencer")
1772     (synopsis "Multi-channel MIDI step sequencer LV2 plugin")
1773     (description
1774      "This package provides a multi-channel MIDI step sequencer LV2 plugin
1775 with a selectable pattern matrix size.")
1776     (license license:gpl3+)))
1777
1778 (define-public bchoppr
1779   (package
1780     (inherit bsequencer)
1781     (name "bchoppr")
1782     (version "1.8.0")
1783     (source
1784      (origin
1785        (method git-fetch)
1786        (uri (git-reference
1787              (url "https://github.com/sjaehn/BChoppr")
1788              (commit version)))
1789        (file-name (git-file-name name version))
1790        (sha256
1791         (base32
1792          "1nd6byy75f0rbz9dm9drhxmpsfhxhg0y7q3v2m3098llynhy9k2j"))))
1793     (synopsis "Audio stream-chopping LV2 plugin")
1794     (description "B.Choppr cuts the audio input stream into a repeated
1795 sequence of up to 16 chops.  Each chop can be leveled up or down (gating).
1796 B.Choppr is the successor of B.Slizr.")
1797     (home-page "https://github.com/sjaehn/BChoppr")
1798     (license license:gpl3+)))
1799
1800 (define-public bshapr
1801   (package
1802     (inherit bsequencer)
1803     (name "bshapr")
1804     (version "0.9")
1805     (source
1806      (origin
1807        (method git-fetch)
1808        (uri (git-reference
1809              (url "https://github.com/sjaehn/BShapr")
1810              (commit (string-append "v" version))))
1811        (file-name (git-file-name name version))
1812        (sha256
1813         (base32 "04zd3a178i2nivg5rjailzqvc5mlnilmhj1ziygmbhshbrywplri"))))
1814     (synopsis "Beat/envelope shaper LV2 plugin")
1815     (description "B.Shapr is a beat/envelope shaper LV2 plugin.")
1816     (home-page "https://github.com/sjaehn/BShapr")
1817     (license license:gpl3+)))
1818
1819 (define-public bjumblr
1820   (package
1821     (inherit bsequencer)
1822     (name "bjumblr")
1823     (version "1.4.2")
1824     (source
1825      (origin
1826        (method git-fetch)
1827        (uri (git-reference
1828              (url "https://github.com/sjaehn/BJumblr")
1829              (commit version)))
1830        (file-name (git-file-name name version))
1831        (sha256
1832         (base32
1833          "0kl6hrxmqrdf0195bfnzsa2h1073fgiqrfhg2276fm1954sm994v"))))
1834     (inputs
1835      `(("cairo" ,cairo)
1836        ("libsndfile" ,libsndfile)
1837        ("lv2" ,lv2)))
1838     (synopsis "Pattern-controlled audio stream/sample re-sequencer LV2 plugin")
1839     (description "B.Jumblr is a pattern-controlled audio stream / sample
1840 re-sequencer LV2 plugin.")
1841     (home-page "https://github.com/sjaehn/BJumblr")
1842     (license license:gpl3+)))
1843
1844 (define-public bschaffl
1845   (package
1846     (inherit bsequencer)
1847     (name "bschaffl")
1848     (version "1.2.0")
1849     (source
1850      (origin
1851        (method git-fetch)
1852        (uri (git-reference
1853              (url "https://github.com/sjaehn/BSchaffl")
1854              (commit version)))
1855        (file-name (git-file-name name version))
1856        (sha256
1857         (base32
1858          "1c09acqrbd387ba41f8ch1qykdap5h6cg9if5pgd16i4dmjnpghj"))))
1859     (inputs
1860      `(("cairo" ,cairo)
1861        ("fontconfig" ,fontconfig)
1862        ("libsndfile" ,libsndfile)
1863        ("libx11" ,libx11)
1864        ("lv2" ,lv2)))
1865     (home-page "https://github.com/sjaehn/BSchaffl")
1866     (synopsis "Pattern-controlled MIDI amp & time stretch LV2 plugin")
1867     (description "This package provides an LV2 plugin that allows for
1868 pattern-controlled MIDI amp & time stretching to produce shuffle / swing
1869 effects.
1870
1871 Key features include:
1872
1873 @enumerate
1874 @item MIDI velocity amplification and timing manipulation plugin
1875 @item Swing and shuffle rhythms
1876 @item Pre-generator dynamics
1877 @item Tempo rubato
1878 @item Pattern (sliders) or shape-controlled
1879 @item MIDI filters
1880 @item Smart quantization
1881 @end itemize
1882 ")
1883     (license license:gpl3+)))
1884
1885 (define-public solfege
1886   (package
1887     (name "solfege")
1888     (version "3.22.2")
1889     (source (origin
1890               (method url-fetch)
1891               (uri (string-append
1892                     "mirror://gnu/solfege/solfege-"
1893                     version ".tar.xz"))
1894               (sha256
1895                (base32
1896                 "1w25rxdbj907nsx285k9nm480pvy12w3yknfh4n1dfv17cwy072i"))))
1897     (build-system gnu-build-system)
1898     (arguments
1899      `(#:tests? #f ; xmllint attempts to download DTD
1900        #:test-target "test"
1901        #:phases
1902        (modify-phases %standard-phases
1903          (add-after 'unpack 'fix-configuration
1904            (lambda* (#:key inputs #:allow-other-keys)
1905              (substitute* "default.config"
1906                (("/usr/bin/aplay") "aplay")
1907                (("/usr/bin/timidity") "timidity")
1908                (("/usr/bin/mpg123") "mpg123")
1909                (("/usr/bin/ogg123") "ogg123"))
1910              #t))
1911          (add-before 'build 'patch-python-shebangs
1912            (lambda _
1913              ;; Two python scripts begin with a Unicode BOM, so patch-shebang
1914              ;; has no effect.
1915              (substitute* '("solfege/parsetree.py"
1916                             "solfege/presetup.py")
1917                (("#!/usr/bin/python") (string-append "#!" (which "python"))))
1918              #t))
1919          (add-before 'build 'add-sitedirs
1920            ;; .pth files are not automatically interpreted unless the
1921            ;; directories containing them are added as "sites".  The directories
1922            ;; are then added to those in the PYTHONPATH.  This is required for
1923            ;; the operation of pygtk and pygobject.
1924            (lambda _
1925              (substitute* "run-solfege.py"
1926                (("import os")
1927                 "import os, site
1928 for path in [path for path in sys.path if 'site-packages' in path]: site.addsitedir(path)"))
1929              #t))
1930          (add-before 'build 'adjust-config-file-prefix
1931            (lambda* (#:key outputs #:allow-other-keys)
1932              (substitute* "run-solfege.py"
1933                (("prefix = os.path.*$")
1934                 (string-append "prefix = " (assoc-ref outputs "out"))))
1935              #t))
1936          (add-after 'install 'wrap-program
1937            (lambda* (#:key inputs outputs #:allow-other-keys)
1938              ;; Make sure 'solfege' runs with the correct PYTHONPATH.
1939              (let* ((out (assoc-ref outputs "out"))
1940                     (path (getenv "GUIX_PYTHONPATH")))
1941                (wrap-program (string-append out "/bin/solfege")
1942                  `("GUIX_PYTHONPATH" ":" prefix (,path))))
1943              #t)))))
1944     (inputs
1945      `(("python" ,python-2)
1946        ("pygtk" ,python2-pygtk)
1947        ("gettext" ,gettext-minimal)
1948        ("gtk" ,gtk+)
1949        ("lilypond" ,lilypond)))
1950     (native-inputs
1951      `(("pkg-config" ,pkg-config)
1952        ("txt2man" ,txt2man)
1953        ("libxml2" ,libxml2) ; for tests
1954        ("ghostscript" ,ghostscript)
1955        ("texinfo" ,texinfo-5)))
1956     (home-page "https://www.gnu.org/software/solfege/")
1957     (synopsis "Ear training")
1958     (description
1959      "GNU Solfege is a program for practicing musical ear-training.  With it,
1960 you can practice your recognition of various musical intervals and chords.  It
1961 features a statistics overview so you can monitor your progress across several
1962 sessions.  Solfege is also designed to be extensible so you can easily write
1963 your own lessons.")
1964     (license license:gpl3+)))
1965
1966 (define-public powertabeditor
1967   (package
1968     (name "powertabeditor")
1969     (version "2.0.0-alpha14")
1970     (source (origin
1971               (method git-fetch)
1972               (uri (git-reference
1973                     (url "https://github.com/powertab/powertabeditor")
1974                     (commit version)))
1975               (file-name (git-file-name name version))
1976               (sha256
1977                (base32
1978                 "1wsvni2aa9h2bpndlic7ckch4n600ahwm56n521y5vxivwjx3jmj"))))
1979     (build-system cmake-build-system)
1980     (arguments
1981      `(#:phases
1982        (modify-phases %standard-phases
1983          (replace 'check (lambda _ (invoke "bin/pte_tests")))
1984          (add-after 'unpack 'fix-pugixml-detection
1985            (lambda _
1986              (substitute* "cmake/third_party/pugixml.cmake"
1987                (("add_library") "#add_library"))
1988              #t)))))
1989     (inputs
1990      `(("alsa-lib" ,alsa-lib)
1991        ("boost" ,boost)
1992        ("minizip" ,minizip)
1993        ("pugixml" ,pugixml)
1994        ("qtbase" ,qtbase-5)
1995        ("rapidjson" ,rapidjson)
1996        ("rtmidi" ,rtmidi)
1997        ("timidity" ,timidity++)
1998        ("zlib" ,zlib)))
1999     (native-inputs
2000      `(("doctest" ,doctest)
2001        ("pkg-config" ,pkg-config)))
2002     (home-page "https://github.com/powertab/powertabedito")
2003     (synopsis "Guitar tablature editor")
2004     (description
2005      "Power Tab Editor 2.0 is the successor to the famous original Power Tab
2006 Editor.  It is compatible with Power Tab Editor 1.7 and Guitar Pro.")
2007     (license license:gpl3+)))
2008
2009 (define-public jalv-select
2010   (package
2011     (name "jalv-select")
2012     (version "1.3")
2013     (source (origin
2014               (method git-fetch)
2015               (uri (git-reference
2016                     (url "https://github.com/brummer10/jalv_select")
2017                     (commit (string-append "v" version))))
2018               (file-name (git-file-name name version))
2019               (sha256
2020                (base32
2021                 "15yanq1wra0hyh6x72ji7pk562iddg476g3vksj495x91zhnl6vm"))))
2022     (build-system gnu-build-system)
2023     (arguments
2024      `(#:make-flags
2025        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2026        #:phases
2027        (modify-phases %standard-phases
2028          (delete 'configure)
2029          (add-after 'unpack 'ignore-PATH
2030            (lambda* (#:key inputs #:allow-other-keys)
2031              (substitute* "jalv.select.cpp"
2032                (("echo \\$PATH.*tr ':'.*xargs ls")
2033                 (string-append "ls -1 " (assoc-ref inputs "jalv") "/bin")))
2034              #t))
2035          (add-before 'reset-gzip-timestamps 'make-manpages-writable
2036            (lambda* (#:key outputs #:allow-other-keys)
2037              (for-each make-file-writable
2038                        (find-files (string-append (assoc-ref outputs "out")
2039                                                   "/share/man")
2040                                    ".*\\.gz$"))
2041              #t)))))
2042     (inputs
2043      `(("lilv" ,lilv)
2044        ("lv2" ,lv2)
2045        ("jalv" ,jalv)
2046        ("gtkmm" ,gtkmm-2)))
2047     (native-inputs
2048      `(("pkg-config" ,pkg-config)))
2049     (home-page "https://github.com/brummer10/jalv_select")
2050     (synopsis "GUI to select LV2 plugins and run them with jalv")
2051     (description
2052      "The jalv.select package provides a graphical user interface allowing
2053 users to select LV2 plugins and run them with jalv.")
2054     (license license:public-domain)))
2055
2056 (define-public synthv1
2057   (package
2058     (name "synthv1")
2059     (version "0.9.22")
2060     (source (origin
2061               (method url-fetch)
2062               (uri
2063                (string-append "mirror://sourceforge/synthv1/synthv1/" version
2064                               "/synthv1-" version ".tar.gz"))
2065               (sha256
2066                (base32
2067                 "0cmxbsfhkkyqn97rc47cb7d3bv6bd9r71xp4z85mi2kl3q4k569i"))))
2068     (build-system gnu-build-system)
2069     (arguments
2070      `(#:tests? #f))                    ; there are no tests
2071     (inputs
2072      `(("jack" ,jack-1)
2073        ("lv2" ,lv2)
2074        ("alsa-lib" ,alsa-lib)
2075        ("non-session-manager" ,non-session-manager)
2076        ("liblo" ,liblo)
2077        ("qtbase" ,qtbase-5)))
2078     (native-inputs
2079      `(("pkg-config" ,pkg-config)
2080        ("qttools" ,qttools)))
2081     (home-page "https://synthv1.sourceforge.io")
2082     (synopsis "Polyphonic subtractive synthesizer")
2083     (description
2084      "Synthv1 is an old-school subtractive polyphonic synthesizer with four
2085 oscillators and stereo effects.")
2086     (license license:gpl2+)))
2087
2088 (define-public drumkv1
2089   (package
2090     (name "drumkv1")
2091     (version "0.9.22")
2092     (source (origin
2093               (method url-fetch)
2094               (uri
2095                (string-append "mirror://sourceforge/drumkv1/drumkv1/" version
2096                               "/drumkv1-" version ".tar.gz"))
2097               (sha256
2098                (base32
2099                 "0c13l814f5rhbmpmd4w0a07j1ki5wc092xcgy6p6zj5s03zvcrzy"))))
2100     (build-system gnu-build-system)
2101     (arguments
2102      `(#:tests? #f))                    ; there are no tests
2103     (inputs
2104      `(("jack" ,jack-1)
2105        ("lv2" ,lv2)
2106        ("libsndfile" ,libsndfile)
2107        ("alsa-lib" ,alsa-lib)
2108        ("non-session-manager" ,non-session-manager)
2109        ("liblo" ,liblo)
2110        ("qtbase" ,qtbase-5)))
2111     (native-inputs
2112      `(("pkg-config" ,pkg-config)
2113        ("qttools" ,qttools)))
2114     (home-page "https://drumkv1.sourceforge.io")
2115     (synopsis "Drum-kit sampler synthesizer with stereo effects")
2116     (description
2117      "Drumkv1 is an old-school drum-kit sampler synthesizer with stereo
2118 effects.")
2119     (license license:gpl2+)))
2120
2121 (define-public samplv1
2122   (package
2123     (name "samplv1")
2124     (version "0.9.22")
2125     (source (origin
2126               (method url-fetch)
2127               (uri
2128                (string-append "mirror://sourceforge/samplv1/samplv1/" version
2129                               "/samplv1-" version ".tar.gz"))
2130               (sha256
2131                (base32
2132                 "19ajnwzd5w2jlazflh5r9qm4sflkn2s2zc5zh0vlqywxzvb9dp9g"))))
2133     (build-system gnu-build-system)
2134     (arguments
2135      `(#:tests? #f))                    ; there are no tests
2136     (inputs
2137      `(("jack" ,jack-1)
2138        ("lv2" ,lv2)
2139        ("libsndfile" ,libsndfile)
2140        ("alsa-lib" ,alsa-lib)
2141        ("non-session-manager" ,non-session-manager)
2142        ("liblo" ,liblo)
2143        ("qtbase" ,qtbase-5)))
2144     (native-inputs
2145      `(("pkg-config" ,pkg-config)
2146        ("qttools" ,qttools)))
2147     (home-page "https://samplv1.sourceforge.io")
2148     (synopsis "Polyphonic sampler synthesizer with stereo effects")
2149     (description
2150      "Samplv1 is an old-school polyphonic sampler synthesizer with stereo
2151 effects.")
2152     (license license:gpl2+)))
2153
2154 (define-public padthv1
2155   (package
2156     (name "padthv1")
2157     (version "0.9.22")
2158     (source (origin
2159               (method url-fetch)
2160               (uri
2161                (string-append "mirror://sourceforge/padthv1/padthv1/" version
2162                               "/padthv1-" version ".tar.gz"))
2163               (sha256
2164                (base32
2165                 "1wky9v91qc3j866di8mcjz0pf3n8ah888lxg8dpvp6ryh1cm6i6x"))))
2166     (build-system gnu-build-system)
2167     (arguments
2168      `(#:tests? #f))                    ; there are no tests
2169     (inputs
2170      `(("jack" ,jack-1)
2171        ("lv2" ,lv2)
2172        ("alsa-lib" ,alsa-lib)
2173        ("non-session-manager" ,non-session-manager)
2174        ("liblo" ,liblo)
2175        ("fftwf" ,fftwf)
2176        ("qtbase" ,qtbase-5)))
2177     (native-inputs
2178      `(("pkg-config" ,pkg-config)
2179        ("qttools" ,qttools)))
2180     (home-page "https://padthv1.sourceforge.io")
2181     (synopsis "Polyphonic additive synthesizer")
2182     (description
2183      "Padthv1 is an old-school polyphonic additive synthesizer with stereo
2184 effects.  Padthv1 is based on the PADsynth algorithm by Paul Nasca, as a
2185 special variant of additive synthesis.")
2186     (license license:gpl2+)))
2187
2188 (define-public amsynth
2189   (package
2190     (name "amsynth")
2191     (version "1.7.1")
2192     (source
2193      (origin
2194        (method url-fetch)
2195        (uri (string-append "https://github.com/amsynth/amsynth/releases/"
2196                            "download/release-" version
2197                            "/amsynth-" version ".tar.bz2"))
2198        (sha256
2199         (base32
2200          "1882pfcmf3rqg3vd4qflzkppcv158d748i603spqjbxqi8z7x7w0"))))
2201     (build-system gnu-build-system)
2202     (arguments
2203      `(#:phases
2204        (modify-phases %standard-phases
2205          (add-after 'unpack 'patch-file-names
2206            (lambda _
2207              (substitute* "src/GUI/editor_pane.c"
2208                (("/usr/bin/unzip") (which "unzip")))
2209              (substitute* "src/GUI/GUI.cc"
2210                (("/usr/bin/which") (which "which")))
2211              #t)))))
2212     (inputs
2213      `(("alsa-lib" ,alsa-lib)
2214        ("gtk+" ,gtk+-2)
2215        ("gtkmm" ,gtkmm-2)
2216        ("jack" ,jack-1)
2217        ("lash" ,lash)
2218        ("libsndfile" ,libsndfile)
2219        ("lv2" ,lv2)
2220        ;; External commands invoked at run time.
2221        ("unzip" ,unzip)
2222        ("which" ,which)))
2223     (native-inputs
2224      `(("intltool" ,intltool)
2225        ("pkg-config" ,pkg-config)))
2226     (home-page "https://amsynth.github.io")
2227     (synopsis "Analog modeling synthesizer")
2228     (description
2229      "amsynth is an easy-to-use software synthesizer with a classic
2230 subtractive synthesizer topology.  Its features include: dual
2231 oscillators (sine, saw, square, noise) with hard sync; 12 and 24 dB/oct
2232 resonant filters (low-pass, high-pass, band-pass, notch); mono, poly, legato
2233 keyboard modes; dual ADSR envelope generators for filter and amplitude; LFO
2234 which can modulate the oscillators, filter, and amplitude; distortion and
2235 reverb effects.")
2236     (license license:gpl2+)))
2237
2238 (define-public setbfree
2239   (package
2240     (name "setbfree")
2241     (version "0.8.11")
2242     (source (origin
2243               (method git-fetch)
2244               (uri (git-reference
2245                     (url "https://github.com/pantherb/setBfree")
2246                     (commit (string-append "v" version))))
2247               (file-name (git-file-name name version))
2248               (sha256
2249                (base32
2250                 "1s3ps3cjwlm63ml4izb7mizy8ci5pl9a19lvz62xf0br089h3afc"))))
2251     (build-system gnu-build-system)
2252     (arguments
2253      `(#:tests? #f                      ; no "check" target
2254        #:make-flags
2255        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
2256              (string-append "FONTFILE="
2257                             (assoc-ref %build-inputs "font-bitstream-vera")
2258                             "/share/fonts/truetype/VeraBd.ttf")
2259              ;; Disable unsupported optimization flags on non-x86
2260              ,@(let ((system (or (%current-target-system)
2261                                  (%current-system))))
2262                  (if (or (string-prefix? "x86_64" system)
2263                          (string-prefix? "i686" system))
2264                      '()
2265                      '("OPTIMIZATIONS=-ffast-math -fomit-frame-pointer -O3"))))
2266        #:phases
2267        (modify-phases %standard-phases
2268          (add-before 'build 'set-CC-variable
2269            (lambda _ (setenv "CC" "gcc") #t))
2270          (delete 'configure))))
2271     (inputs
2272      `(("jack" ,jack-1)
2273        ("lv2" ,lv2)
2274        ("zita-convolver" ,zita-convolver)
2275        ("glu" ,glu)
2276        ("ftgl" ,ftgl)
2277        ("font-bitstream-vera" ,font-bitstream-vera)))
2278     (native-inputs
2279      `(("help2man" ,help2man)
2280        ("pkg-config" ,pkg-config)))
2281     (home-page "http://setbfree.org")
2282     (synopsis "Tonewheel organ")
2283     (description
2284      "setBfree is a MIDI-controlled, software synthesizer designed to imitate
2285 the sound and properties of the electromechanical organs and sound
2286 modification devices that brought world-wide fame to the names and products of
2287 Laurens Hammond and Don Leslie.")
2288     (license license:gpl2+)))
2289
2290 (define-public beast
2291   (package
2292     (name "beast")
2293     (version "0.10.0")
2294     (source (origin
2295               (method url-fetch)
2296               (uri (string-append "https://testbit.eu/pub/dists/beast/beast-"
2297                                   version ".tar.xz"))
2298               (sha256
2299                (base32
2300                 "1jzzmfwssklzw8fvvil04n8csc0zm99fnd9p2xa7c0xchg37lvhn"))))
2301     (build-system gnu-build-system)
2302     (arguments
2303      '(#:parallel-build? #f)) ; Race conditions cause build failures
2304     (inputs
2305      `(("rapicorn" ,rapicorn)
2306        ("guile" ,guile-1.8)
2307        ("python" ,python-2)
2308        ("libgnomecanvas" ,libgnomecanvas)
2309        ("libogg" ,libogg)
2310        ("libmad" ,libmad)
2311        ("flac" ,flac)
2312        ("alsa-lib" ,alsa-lib)
2313        ("libvorbis" ,libvorbis)
2314        ("gettext" ,gettext-minimal)))
2315     (native-inputs
2316      `(("pkg-config" ,pkg-config)
2317        ("glib:bin" ,glib "bin")
2318        ("cython" ,python2-cython)
2319        ("perl" ,perl)
2320        ("perl-xml-parser" ,perl-xml-parser)))
2321     (home-page "https://testbit.eu/wiki/Beast_Home")
2322     (synopsis "Music composition and modular synthesis environment")
2323     (description
2324      "Beast is a music composition and modular synthesis application.  It
2325 supports a wide range of standards in the field, such as MIDI, various audio
2326 file formats and LADSPA modules.  It allows for multitrack editing, real-time
2327 synthesis, 32bit audio rendering, precise timing down to sample granularity,
2328 on-demand and partial loading of wave files, on the fly decoding, stereo
2329 mixing, FFT scopes, MIDI automation and full scriptability in Scheme.")
2330     (license license:gpl3+)))
2331
2332 (define-public bristol
2333   (package
2334     (name "bristol")
2335     (version "0.60.11")
2336     (source (origin
2337               (method url-fetch)
2338               (uri (string-append "mirror://sourceforge/bristol/bristol/"
2339                                   (version-major+minor version)
2340                                   "/bristol-" version ".tar.gz"))
2341               (sha256
2342                (base32
2343                 "1fi2m4gmvxdi260821y09lxsimq82yv4k5bbgk3kyc3x1nyhn7vx"))))
2344     (build-system gnu-build-system)
2345     (arguments
2346      `(#:phases
2347        (modify-phases %standard-phases
2348          (add-after 'unpack 'remove-sse-flags
2349            (lambda* (#:key system #:allow-other-keys)
2350              (when (not (or (string-prefix? "x86_64" system)
2351                             (string-prefix? "i686" system)))
2352                (substitute* "bristol/Makefile.in"
2353                  (("-msse -mfpmath=sse") "")))
2354              #t))
2355          ;; alsa-lib 1.1.x no longer provides iatomic.h.  That's okay because
2356          ;; bristol actually doesn't use it.
2357          (add-after 'unpack 'do-not-use-alsa-iatomic
2358            (lambda _
2359              (substitute* "libbristolaudio/audioEngineJack.c"
2360                (("#include <alsa/iatomic.h>") ""))
2361              #t))
2362          ;; We know that Bristol has been linked with JACK and we don't have
2363          ;; ldd, so we can just skip this check.
2364          (add-after 'unpack 'do-not-grep-for-jack
2365            (lambda _
2366              (substitute* "bin/startBristol.in"
2367                (("ldd `which bristol` | grep jack") "echo guix"))
2368              #t)))))
2369     (inputs
2370      `(("alsa-lib" ,alsa-lib)
2371        ("jack" ,jack-1)
2372        ("liblo" ,liblo)
2373        ("libx11" ,libx11)))
2374     (native-inputs
2375      `(("pkg-config" ,pkg-config)))
2376     (home-page "http://bristol.sourceforge.net/")
2377     (synopsis "Synthesizer emulator")
2378     (description
2379      "Bristol is an emulation package for a number of different @code{classic}
2380 synthesizers including additive and subtractive and a few organs.  The
2381 application consists of the engine, which is called bristol, and its own GUI
2382 library called brighton that represents all the emulations.  There are
2383 currently more than twenty different emulations; each does sound different
2384 although the author maintains that the quality and accuracy of each emulation
2385 is subjective.")
2386     (license license:gpl3+)))
2387
2388 (define-public tuxguitar
2389   (package
2390     (name "tuxguitar")
2391     (version "1.5.4")
2392     (source (origin
2393               (method url-fetch)
2394               (uri (string-append
2395                     "mirror://sourceforge/tuxguitar/TuxGuitar/TuxGuitar-"
2396                     version "/tuxguitar-" version "-src.tar.gz"))
2397               (sha256
2398                (base32
2399                 "0fjhf56lhlhm84v08917xp4yw8y6d0qajm4qiy1gfp8dm74whwwg"))))
2400     (build-system ant-build-system)
2401     (arguments
2402      `(#:build-target "build"
2403        #:jdk ,icedtea-8
2404        #:tests? #f                      ; no tests
2405        #:phases
2406        (modify-phases %standard-phases
2407          (replace 'build
2408            (lambda* (#:key inputs outputs #:allow-other-keys)
2409              (let* ((initial-classpath (getenv "CLASSPATH"))
2410                     (build-dir (lambda (dir)
2411                                  (setenv
2412                                   "CLASSPATH"
2413                                   (string-join (cons initial-classpath
2414                                                      (find-files (getcwd) "\\.jar$"))
2415                                                ":"))
2416                                  (with-directory-excursion dir
2417                                    (if (file-exists? "build.xml")
2418                                        ((assoc-ref %standard-phases 'build)
2419                                         #:build-target "build")
2420                                        (begin
2421                                          ;; Generate default build.xml.
2422                                          ((@@ (guix build ant-build-system)
2423                                               default-build.xml)
2424                                           (string-append (string-downcase dir) ".jar")
2425                                           (string-append (assoc-ref outputs "out")
2426                                                          "/share/java"))
2427                                          ((assoc-ref %standard-phases 'build))))))))
2428                (map build-dir '("TuxGuitar-lib"
2429                                 "TuxGuitar-editor-utils"
2430                                 "TuxGuitar-ui-toolkit"
2431                                 "TuxGuitar-ui-toolkit-swt"
2432                                 "TuxGuitar-viewer"
2433                                 "TuxGuitar"
2434                                 "TuxGuitar-gm-utils"
2435                                 "TuxGuitar-alsa"
2436                                 "TuxGuitar-midi"
2437                                 "TuxGuitar-midi-ui"))
2438                #t)))
2439          (add-after 'build 'build-jni
2440            (lambda _
2441              (setenv "CC" "gcc")
2442              (setenv "CFLAGS" (string-append
2443                                "-fpic -I"
2444                                (getcwd)
2445                                "/build-scripts/native-modules/common-include"))
2446              (invoke "make" "-C" "./TuxGuitar-alsa/jni" "-f" "GNUmakefile")))
2447          (replace 'install
2448            (lambda* (#:key inputs outputs #:allow-other-keys)
2449              (let* ((out   (assoc-ref outputs "out"))
2450                     (bin   (string-append out "/bin"))
2451                     (share (string-append out "/share"))
2452                     (jni-lib (string-append out "/lib"))
2453                     (lib   (string-append share "/java"))
2454                     (swt   (assoc-ref inputs "java-swt"))
2455                     (mime  (string-append share "/mime/packages"))
2456                     (app   (string-append share "/applications"))
2457                     (man   (string-append share "/man/man1")))
2458
2459                (mkdir-p bin)
2460                ;; Install all jars.
2461                (for-each (lambda (file)
2462                            (install-file file lib))
2463                          (find-files "." "\\.jar$"))
2464
2465                ;; Install jni libraries
2466                (for-each (lambda (file)
2467                            (install-file file jni-lib))
2468                          (find-files "." "\\-jni.so$"))
2469
2470                ;; Install all resources.
2471                (copy-recursively "./TuxGuitar/share" share)
2472
2473                ;; Install desktop and mime files
2474                (install-file "./misc/tuxguitar.xml" mime)
2475                (install-file "./misc/tuxguitar.desktop" app)
2476
2477                ;; Install manaual
2478                (install-file "./misc/tuxguitar.1" man)
2479
2480                ;; Create wrapper.
2481                (call-with-output-file (string-append bin "/tuxguitar")
2482                  (lambda (port)
2483                    (let ((classpath (string-join (append  (find-files lib "\\.jar$")
2484                                                           (find-files swt "\\.jar$"))
2485                                                  ":")))
2486                      (format
2487                       port
2488                       (string-append "#!/bin/sh\n"
2489                                      (which "java")
2490                                      " -cp " classpath
2491                                      " -Dtuxguitar.home.path=" out
2492                                      " -Dtuxguitar.share.path=" out "/share"
2493                                      " -Dswt.library.path=" swt "/lib"
2494                                      " -Djava.library.path=" out "/lib"
2495                                      " org.herac.tuxguitar.app.TGMainSingleton"
2496                                      " \"$1\" \"$2\"")))))
2497                (chmod (string-append bin "/tuxguitar") #o555)
2498                #t))))))
2499     (inputs
2500      `(("alsa-lib" ,alsa-lib)
2501        ("java-swt" ,java-swt)))
2502     (home-page "http://tuxguitar.com.ar/")
2503     (synopsis "Multitrack tablature editor and player")
2504     (description
2505      "TuxGuitar is a guitar tablature editor with player support through midi.
2506 It can display scores and multitrack tabs.  TuxGuitar provides various
2507 additional features, including autoscrolling while playing, note duration
2508 management, bend/slide/vibrato/hammer-on/pull-off effects, support for
2509 tuplets, time signature management, tempo management, gp3/gp4/gp5 import and
2510 export.")
2511     (license license:lgpl2.1+)))
2512
2513 (define-public pd
2514   (package
2515     (name "pd")
2516     (version "0.51-4")
2517     (source (origin
2518               (method url-fetch)
2519               (uri
2520                (string-append "http://msp.ucsd.edu/Software/pd-"
2521                               version ".src.tar.gz"))
2522               (sha256
2523                (base32
2524                 "1hgw1ciwr59f4f9s0h7c2l36wcsn3jsddhr1r9qj97vf64c1ynaj"))))
2525     (build-system gnu-build-system)
2526     (arguments
2527      (let ((wish (string-append "wish" (version-major+minor
2528                                         (package-version tk)))))
2529        `(#:tests? #f                    ; no "check" target
2530          #:configure-flags
2531          (list
2532           "--enable-jack"
2533           (string-append "--with-wish=" (string-append
2534                                          (assoc-ref %build-inputs "tk")
2535                                          "/bin/" ,wish)))
2536          #:phases
2537          (modify-phases %standard-phases
2538            (add-before 'configure 'fix-with-path
2539              (lambda _
2540                (substitute* "tcl/pd-gui.tcl"
2541                  (("exec wish ") (string-append "exec " (which ,wish) " ")))
2542                #t))))))
2543     (native-inputs
2544      `(("autoconf" ,autoconf)
2545        ("automake" ,automake)
2546        ("libtool" ,libtool)
2547        ("gettext" ,gettext-minimal)
2548        ("pkg-config" ,pkg-config)))
2549     (inputs
2550      `(("tk" ,tk)
2551        ("alsa-lib" ,alsa-lib)
2552        ("jack" ,jack-1)))
2553     (home-page "https://puredata.info")
2554     (synopsis "Visual programming language for artistic performances")
2555     (description
2556      "Pure Data (aka Pd) is a visual programming language.  Pd enables
2557 musicians, visual artists, performers, researchers, and developers to create
2558 software graphically, without writing lines of code.  Pd is used to process
2559 and generate sound, video, 2D/3D graphics, and interface sensors, input
2560 devices, and MIDI.  Pd can easily work over local and remote networks to
2561 integrate wearable technology, motor systems, lighting rigs, and other
2562 equipment.  Pd is suitable for learning basic multimedia processing and visual
2563 programming methods as well as for realizing complex systems for large-scale
2564 projects.")
2565     (license license:bsd-3)))
2566
2567 (define-public libpd
2568   (package
2569     (name "libpd")
2570     (version "0.11.0")
2571     (source (origin
2572               (method git-fetch)
2573               (uri (git-reference
2574                     (url "https://github.com/libpd/libpd")
2575                     (commit version)
2576                     (recursive? #t)))   ; for the 'pure-data' submodule
2577               (file-name (string-append name "-" version "-checkout"))
2578               (sha256
2579                (base32
2580                 "1bcg1d9iyf9n37hwwphmih0c8rd1xcqykil5z1cax6xfs76552nk"))))
2581     (build-system gnu-build-system)
2582     (arguments
2583      '(#:tests? #f                      ; no tests
2584        #:make-flags '("CC=gcc")
2585        #:phases
2586        (modify-phases %standard-phases
2587          (delete 'configure)            ; no configure script
2588          (replace 'install
2589            (lambda* (#:key outputs #:allow-other-keys)
2590              (let ((out (assoc-ref outputs "out")))
2591                (invoke "make" "install"
2592                        (string-append "prefix=" out)
2593                        ;; XXX: Fix the last 2 lines of 'install' target.
2594                        "LIBPD_IMPLIB=NO"
2595                        "LIBPD_DEF=NO")))))))
2596     (home-page "http://libpd.cc/")
2597     (synopsis "Pure Data as an embeddable audio synthesis library")
2598     (description
2599      "Libpd provides Pure Data as an embeddable audio synthesis library.  Its
2600 main purpose is to liberate raw audio rendering from audio and MIDI drivers.")
2601     (license license:bsd-3)))
2602
2603 (define-public portmidi
2604   (package
2605     (name "portmidi")
2606     (version "217")
2607     (source (origin
2608               (method url-fetch)
2609               (uri (string-append "mirror://sourceforge/portmedia/portmidi/"
2610                                   version "/portmidi-src-" version ".zip"))
2611               (sha256
2612                (base32
2613                 "03rfsk7z6rdahq2ihy5k13qjzgx757f75yqka88v3gc0pn9ais88"))
2614               (patches (list (search-patch "portmidi-modular-build.patch")))))
2615     (build-system cmake-build-system)
2616     (arguments
2617      `(#:tests? #f                      ; tests cannot be linked
2618        #:build-type "Release"           ; needed to have PMALSA set
2619        #:configure-flags
2620        (list "-DPORTMIDI_ENABLE_JAVA=Off"
2621              "-DPORTMIDI_ENABLE_TEST=Off") ; tests fail linking
2622        #:phases
2623        (modify-phases %standard-phases
2624          ;; Some packages, e.g., MuseScore, expect "libporttime.so" instead of
2625          ;; "libportmidi.so".  Distributions get away with it by creating an
2626          ;; appropriate symlink.
2627          (add-after 'install 'add-porttime
2628            (lambda* (#:key outputs #:allow-other-keys)
2629              (let* ((out (assoc-ref outputs "out"))
2630                     (lib (string-append out "/lib")))
2631                (with-directory-excursion lib
2632                  (symlink "libportmidi.so" "libporttime.so")))))
2633          (add-after 'install 'install-pkg-config
2634            (lambda* (#:key outputs #:allow-other-keys)
2635              (let* ((out (assoc-ref outputs "out"))
2636                     (pkg-config-dir (string-append out "/lib/pkgconfig")))
2637                (mkdir-p pkg-config-dir)
2638                (with-output-to-file (string-append pkg-config-dir "/portmidi.pc")
2639                  (lambda _
2640                    (format #t
2641                            "prefix=~@*~a~@
2642                            libdir=${prefix}/lib~@
2643                            includedir=${prefix}/include~@
2644
2645                            Name: portmidi~@
2646                            Description:~@
2647                            Version: ~a~@
2648                            Libs: -L${libdir} -lportmidi~@
2649                            Cflags: -I${includedir}~%"
2650                            out ,version)))))))))
2651     (inputs
2652      `(("alsa-lib" ,alsa-lib)))
2653     (native-inputs
2654      `(("unzip" ,unzip)))
2655     (home-page "http://portmedia.sourceforge.net/portmidi/")
2656     (synopsis "Library for MIDI I/O")
2657     (description
2658      "PortMidi is a library supporting real-time input and output of MIDI data
2659 using a system-independent interface.")
2660     (license license:expat)))
2661
2662 (define-public python-pyportmidi
2663   (package
2664     (name "python-pyportmidi")
2665     (version (package-version portmidi))
2666     (source (package-source portmidi))
2667     (build-system python-build-system)
2668     (arguments
2669      `(#:tests? #f ; no tests included
2670        #:phases
2671        (modify-phases %standard-phases
2672          (add-after 'unpack 'enter-dir
2673            (lambda _ (chdir "pm_python") #t))
2674          (add-after 'enter-dir 'fix-setup.py
2675            (lambda _
2676              (substitute* "setup.py"
2677                ;; Use Python 3 syntax
2678                (("print (\".*\")" _ text)
2679                 (string-append "print(" text ")\n"))
2680                ;; TODO.txt and CHANGES.txt don't exist
2681                (("CHANGES =.*") "CHANGES = \"\"\n")
2682                (("TODO =.*") "TODO = \"\"\n"))
2683              #t)))))
2684     (inputs
2685      `(("portmidi" ,portmidi)
2686        ("alsa-lib" ,alsa-lib)))
2687     (native-inputs
2688      `(("python-cython" ,python-cython)
2689        ("unzip" ,unzip)))
2690     (home-page "http://portmedia.sourceforge.net/portmidi/")
2691     (synopsis "Python bindings to PortMidi")
2692     (description
2693      "This package provides Python bindings to the PortMidi library.")
2694     (license license:expat)))
2695
2696 (define-public frescobaldi
2697   (package
2698     (name "frescobaldi")
2699     (version "3.1.3")
2700     (source
2701      (origin
2702        (method url-fetch)
2703        (uri (string-append
2704              "https://github.com/wbsoft/frescobaldi/releases/download/v"
2705              version "/frescobaldi-" version ".tar.gz"))
2706        (sha256
2707         (base32 "1hg9yc8kj445fjsby92g3qf50crcl1pb079zfma18sb7ycv50zww"))))
2708     (build-system python-build-system)
2709     (arguments
2710      `(#:tests? #f))                    ;no tests included
2711     (inputs
2712      `(("lilypond" ,lilypond)
2713        ("poppler" ,poppler)
2714        ("portmidi" ,portmidi)
2715        ("python-ly" ,python-ly)
2716        ("python-poppler-qt5" ,python-poppler-qt5)
2717        ("python-pyportmidi" ,python-pyportmidi)
2718        ("python-pyqt" ,python-pyqt)
2719        ("python-sip" ,python-sip)))
2720     (home-page "https://www.frescobaldi.org/")
2721     (synopsis "LilyPond sheet music text editor")
2722     (description
2723      "Frescobaldi is a LilyPond sheet music text editor with syntax
2724 highlighting and automatic completion.  Among other things, it can render
2725 scores next to the source, can capture input from MIDI or read MusicXML and
2726 ABC files, has a MIDI player for proof-listening, and includes a documentation
2727 browser.")
2728     (license license:gpl2+)))
2729
2730 (define-public drumstick
2731   (package
2732     (name "drumstick")
2733     (version "2.3.0")
2734     (source (origin
2735               (method url-fetch)
2736               (uri (string-append "mirror://sourceforge/drumstick/"
2737                                   version "/drumstick-" version ".tar.bz2"))
2738               (sha256
2739                (base32
2740                 "12haksnf91ra5w5dwnlc3rcw4js8wj4hsl6kzyqrx4q4fnpvjahk"))))
2741     (build-system cmake-build-system)
2742     (arguments
2743      `(#:tests? #f                      ; no test target
2744        #:phases
2745        (modify-phases %standard-phases
2746          (add-before 'configure 'fix-docbook
2747            (lambda* (#:key inputs #:allow-other-keys)
2748              (substitute* "cmake_admin/CreateManpages.cmake"
2749                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2750                 (string-append (assoc-ref inputs "docbook-xsl")
2751                                "/xml/xsl/docbook-xsl-"
2752                                ,(package-version docbook-xsl)
2753                                "/manpages/docbook.xsl")))
2754              #t)))))
2755     (inputs
2756      `(("qtbase" ,qtbase-5)
2757        ("qtsvg" ,qtsvg)
2758        ("qttools" ,qttools)
2759        ("alsa-lib" ,alsa-lib)))
2760     (native-inputs
2761      `(("pkg-config" ,pkg-config)
2762        ("libxslt" ,libxslt)             ; for xsltproc
2763        ("docbook-xsl" ,docbook-xsl)
2764        ("doxygen" ,doxygen)
2765        ("graphviz" ,graphviz))) ; for dot
2766     (home-page "https://drumstick.sourceforge.io/")
2767     (synopsis "C++ MIDI library")
2768     (description
2769      "Drumstick is a set of MIDI libraries using C++/Qt5 idioms and style.  It
2770 includes a C++ wrapper around the ALSA library sequencer interface.  A
2771 complementary library provides classes for processing SMF (Standard MIDI
2772 files: .MID/.KAR), Cakewalk (.WRK), and Overture (.OVE) file formats.  A
2773 multiplatform realtime MIDI I/O library is also provided with various output
2774 backends, including ALSA, OSS, Network and FluidSynth.")
2775     (license license:gpl2+)))
2776
2777 (define-public vmpk
2778   (package
2779     (name "vmpk")
2780     (version "0.8.4")
2781     (source (origin
2782               (method url-fetch)
2783               (uri (string-append "mirror://sourceforge/vmpk/vmpk/"
2784                                   version "/vmpk-" version ".tar.bz2"))
2785               (sha256
2786                (base32
2787                 "0kh8pns9pla9c47y2nwckjpiihczg6rpg96aignsdsd7vkql69s9"))))
2788     (build-system cmake-build-system)
2789     (arguments
2790      `(#:tests? #f  ; no test target
2791        #:phases
2792        (modify-phases %standard-phases
2793          (add-before 'configure 'fix-docbook
2794            (lambda* (#:key inputs #:allow-other-keys)
2795              (substitute* "cmake_admin/CreateManpages.cmake"
2796                (("http://docbook.sourceforge.net/release/xsl/current/manpages/docbook.xsl")
2797                 (string-append (assoc-ref inputs "docbook-xsl")
2798                                "/xml/xsl/docbook-xsl-"
2799                                ,(package-version docbook-xsl)
2800                                "/manpages/docbook.xsl")))
2801              #t)))))
2802     (inputs
2803      `(("drumstick" ,drumstick)
2804        ("qtbase" ,qtbase-5)
2805        ("qtsvg" ,qtsvg)
2806        ("qtx11extras" ,qtx11extras)))
2807     (native-inputs
2808      `(("libxslt" ,libxslt) ;for xsltproc
2809        ("docbook-xsl" ,docbook-xsl)
2810        ("qttools" ,qttools)
2811        ("pkg-config" ,pkg-config)))
2812     (home-page "https://vmpk.sourceforge.io/")
2813     (synopsis "Virtual MIDI piano keyboard")
2814     (description
2815      "Virtual MIDI Piano Keyboard is a MIDI events generator and receiver.  It
2816 doesn't produce any sound by itself, but can be used to drive a MIDI
2817 synthesizer (either hardware or software, internal or external).  You can use
2818 the computer's keyboard to play MIDI notes, and also the mouse.  You can use
2819 the Virtual MIDI Piano Keyboard to display the played MIDI notes from another
2820 instrument or MIDI file player.")
2821     (license license:gpl3+)))
2822
2823 (define-public zynaddsubfx
2824   (package
2825     (name "zynaddsubfx")
2826     (version "3.0.5")
2827     (source (origin
2828               (method url-fetch)
2829               (uri (string-append
2830                     "mirror://sourceforge/zynaddsubfx/zynaddsubfx/"
2831                     version "/zynaddsubfx-" version ".tar.bz2"))
2832               (sha256
2833                (base32
2834                 "0qwzg14h043rmyf9jqdylxhyfy4sl0vsr0gjql51wjhid0i34ivl"))))
2835     (build-system cmake-build-system)
2836     (arguments
2837      `(#:phases
2838        (modify-phases %standard-phases
2839          ;; Move SSE compiler optimization flags from generic target to
2840          ;; athlon64 and core2 targets, because otherwise the build would fail
2841          ;; on non-Intel machines.
2842          (add-after 'unpack 'remove-sse-flags-from-generic-target
2843           (lambda _
2844             (substitute* "src/CMakeLists.txt"
2845               (("-msse -msse2 -mfpmath=sse") "")
2846               (("-march=(athlon64|core2)" flag)
2847                (string-append flag " -msse -msse2 -mfpmath=sse")))
2848             #t)))))
2849     (inputs
2850      `(("liblo" ,liblo)
2851        ("ntk" ,ntk)
2852        ("mesa" ,mesa)
2853        ("alsa-lib" ,alsa-lib)
2854        ("jack" ,jack-1)
2855        ("fftw" ,fftw)
2856        ("minixml" ,minixml)
2857        ("libxpm" ,libxpm)
2858        ("zlib" ,zlib)))
2859     (native-inputs
2860      `(("pkg-config" ,pkg-config)))
2861     (home-page "http://zynaddsubfx.sf.net/")
2862     (synopsis "Software synthesizer")
2863     (description
2864      "ZynAddSubFX is a feature heavy realtime software synthesizer.  It offers
2865 three synthesizer engines, multitimbral and polyphonic synths, microtonal
2866 capabilities, custom envelopes, effects, etc.")
2867     (license license:gpl2)))
2868
2869 (define-public yoshimi
2870   (package
2871     (name "yoshimi")
2872     (version "1.7.4")
2873     (source
2874      (origin
2875        (method url-fetch)
2876        (uri (string-append "mirror://sourceforge/yoshimi/"
2877                            (version-major+minor version)
2878                            "/yoshimi-" version ".tar.bz2"))
2879        (sha256
2880         (base32 "0lxfqj4p4njww3n0wa6yfj38zfls16y3wszd47gvc5asmqyg5vjd"))))
2881     (build-system cmake-build-system)
2882     (arguments
2883      `(#:tests? #f                      ; there are no tests
2884        #:configure-flags
2885        (list (string-append "-DCMAKE_INSTALL_DATAROOTDIR="
2886                             (assoc-ref %outputs "out") "/share"))
2887        #:phases
2888        (modify-phases %standard-phases
2889          (add-before 'configure 'enter-dir
2890            (lambda _ (chdir "src") #t))
2891          ;; Move SSE compiler optimization flags from generic target to
2892          ;; athlon64 and core2 targets, because otherwise the build would fail
2893          ;; on non-Intel machines.
2894          (add-after 'unpack 'remove-sse-flags-from-generic-target
2895            (lambda _
2896              (substitute* "src/CMakeLists.txt"
2897                (("-msse -msse2 -mfpmath=sse") "")
2898                (("-march=(athlon64|core2)" flag)
2899                 (string-append flag " -msse -msse2 -mfpmath=sse")))
2900              #t)))))
2901     (inputs
2902      `(("boost" ,boost)
2903        ("fftwf" ,fftwf)
2904        ("alsa-lib" ,alsa-lib)
2905        ("jack" ,jack-1)
2906        ("fontconfig" ,fontconfig)
2907        ("minixml" ,minixml)
2908        ("mesa" ,mesa)
2909        ("fltk" ,fltk)
2910        ("lv2" ,lv2)
2911        ("readline" ,readline)
2912        ("ncurses" ,ncurses)
2913        ("cairo" ,cairo)
2914        ("zlib" ,zlib)))
2915     (native-inputs
2916      `(("pkg-config" ,pkg-config)))
2917     (home-page "http://yoshimi.sourceforge.net/")
2918     (synopsis "Multi-paradigm software synthesizer")
2919     (description
2920      "Yoshimi is a fork of ZynAddSubFX, a feature-heavy real-time software
2921 synthesizer.  It offers three synthesizer engines, multitimbral and polyphonic
2922 synths, microtonal capabilities, custom envelopes, effects, etc.  Yoshimi
2923 improves on support for JACK features, such as JACK MIDI.")
2924     (license license:gpl2)))
2925
2926 (define-public libgig
2927   (package
2928     (name "libgig")
2929     (version "4.2.0")
2930     (source (origin
2931               (method url-fetch)
2932               (uri (string-append "http://download.linuxsampler.org/packages/"
2933                                   "libgig-" version ".tar.bz2"))
2934               (sha256
2935                (base32
2936                 "1zs5yy124bymfyapsnljr6rv2lnn5inwchm0xnwiw44b2d39l8hn"))))
2937     (build-system gnu-build-system)
2938     (inputs
2939      `(("libuuid" ,util-linux "lib")
2940        ("libsndfile" ,libsndfile)))
2941     (native-inputs
2942      `(("pkg-config" ,pkg-config)))
2943     (home-page "https://linuxsampler.org/libgig/")
2944     (synopsis "C++ library for working with Gigasampler (.gig) files")
2945     (description
2946      "Libgig is a C++ library for loading, modifying existing and creating new
2947 Gigasampler (.gig) files and DLS (Downloadable Sounds) Level 1/2 files, KORG
2948 sample based instruments (.KSF and .KMP files), SoundFont v2 (.sf2) files and
2949 AKAI sampler data.  The package includes a couple of command line tools based
2950 on the library.")
2951     ;; The library and tools are released under the GPL, except the AKAI
2952     ;; classes which are released under the LGPL.
2953     (license (list license:gpl2+ license:lgpl2.1+))))
2954
2955 (define-public jack-keyboard
2956   (package
2957     (name "jack-keyboard")
2958     (version "2.5")
2959     (source
2960      (origin
2961        (method url-fetch)
2962        (uri (string-append "mirror://sourceforge/jack-keyboard/jack-keyboard/"
2963                            version "/jack-keyboard-" version ".tar.gz"))
2964        (sha256
2965         (base32
2966          "0mzmg8aavybcfdlq2yd9d0vscqd6is5p6jzrgfpfm5j3xdcvh2s3"))))
2967     (build-system gnu-build-system)
2968     (inputs
2969      `(("jack" ,jack-1)
2970        ("lash" ,lash)
2971        ("gtk+" ,gtk+-2)))
2972     (native-inputs
2973      `(("pkg-config" ,pkg-config)))
2974     (home-page "http://jack-keyboard.sourceforge.net/")
2975     (synopsis "Virtual MIDI keyboard")
2976     (description "Jack-keyboard is a virtual MIDI keyboard, a program that
2977 allows you to send JACK MIDI events (i.e. play) using your PC keyboard.")
2978     (license license:bsd-2)))
2979
2980 (define-public jack-capture
2981   (package
2982     (name "jack-capture")
2983     (version "0.9.73")
2984     (source (origin
2985               (method git-fetch)
2986               (uri (git-reference
2987                     (url "https://github.com/kmatheussen/jack_capture")
2988                     (commit version)))
2989               (file-name (string-append name "-" version "-checkout"))
2990               (sha256
2991                (base32
2992                 "0jcqky96q8xgya6wqv1p8pj9fkf2wh7ynl67ah7x5bn3basgfclf"))))
2993     (build-system gnu-build-system)
2994     (arguments
2995      `(#:make-flags
2996        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
2997        #:tests? #f ; there are none
2998        #:phases
2999        (modify-phases %standard-phases
3000          (delete 'configure))))
3001     (native-inputs
3002      `(("pkg-config" ,pkg-config)
3003        ("which" ,which)))
3004     (inputs
3005      `(("gtk+" ,gtk+-2)
3006        ("jack" ,jack-1)
3007        ("libogg" ,libogg)
3008        ("liblo" ,liblo)
3009        ("lame" ,lame)
3010        ("libsndfile" ,libsndfile)))
3011     (home-page "https://github.com/kmatheussen/jack_capture")
3012     (synopsis "Program for recording sound files with JACK")
3013     (description "This is a program for recording sound files with JACK.  It
3014 can connect to any JACK port and record the output into a stereo WAV file.")
3015     (license license:gpl2+)))
3016
3017 (define-public jack-select
3018   (package
3019     (name "jack-select")
3020     (version "1.5.0")
3021     (source (origin
3022               (method url-fetch)
3023               (uri (pypi-uri "jack-select" version))
3024               (sha256
3025                (base32
3026                 "1zijk9ly2fczxsnnrqr8s0ajmlyx1j1vd8gk0rm5dj5zyhhmia7f"))))
3027     (build-system gnu-build-system)
3028     (arguments
3029      `(#:modules ((guix build gnu-build-system)
3030                   ((guix build python-build-system) #:prefix python:)
3031                   (guix build utils))
3032        #:imported-modules (,@%gnu-build-system-modules
3033                            (guix build python-build-system))
3034        #:make-flags
3035        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
3036        #:tests? #f                      ; there are none
3037        #:phases
3038        (modify-phases %standard-phases
3039          (replace 'configure
3040            (lambda* (#:key inputs #:allow-other-keys)
3041              ;; python-dbus cannot be found but it's really there.  See
3042              ;; https://github.com/SpotlightKid/jack-select/issues/2
3043              (substitute* "setup.py"
3044                (("'dbus-python',") ""))
3045              ;; Fix reference to dlopened libraries.
3046              (substitute* "jackselect/alsainfo.py"
3047                (("libasound.so.2")
3048                 (search-input-file inputs "/lib/libasound.so.2")))))
3049          (replace 'build
3050            (assoc-ref python:%standard-phases 'build))
3051          (add-after 'install 'wrap
3052            (assoc-ref python:%standard-phases 'wrap)))))
3053     (native-inputs
3054      `(("pkg-config" ,pkg-config)))
3055     (inputs
3056      `(("alsa-lib" ,alsa-lib)
3057        ("python" ,python-wrapper)
3058        ("python-pyudev" ,python-pyudev)
3059        ("python-pyxdg" ,python-pyxdg)
3060        ("python-dbus" ,python-dbus)
3061        ("python-pygobject" ,python-pygobject)))
3062     (home-page "https://github.com/SpotlightKid/jack-select")
3063     (synopsis "Systray application to quickly change the JACK-DBus configuration")
3064     (description "This application displays an icon in the system tray (also
3065 known as notification area) of your desktop, which shows the status of the
3066 JACK audio server and when you click on it, a menu pops up, which lets you
3067 quickly select from the JACK configuration presets you created with QjackCtl.
3068 When you select a preset, its JACK engine and driver configuration settings
3069 are loaded via DBus into JACK and then the server is restarted.  This allows
3070 you to switch between different audio setups with just two mouse clicks.")
3071     (license license:expat)))
3072
3073 (define-public cursynth
3074   (package
3075     (name "cursynth")
3076     (version "1.5")
3077     (source
3078      (origin
3079       (method url-fetch)
3080       (uri (string-append "mirror://gnu/cursynth/cursynth-"
3081                           version ".tar.gz"))
3082       (sha256
3083        (base32 "1dhphsya41rv8z6yqcv9l6fwbslsds4zh1y56zizi39nd996d40v"))
3084       (patches (search-patches "cursynth-wave-rand.patch"))))
3085     (build-system gnu-build-system)
3086     (native-inputs `(("pkg-config" ,pkg-config)))
3087     ;; TODO: See https://github.com/iyoko/cursynth/issues/4 which currently
3088     ;; prevents us from using pulseaudio
3089     (inputs `(("ncurses" ,ncurses)
3090               ("alsa" ,alsa-lib)))
3091     (home-page "https://www.gnu.org/software/cursynth/")
3092     (synopsis "Polyphonic and MIDI subtractive music synthesizer using curses")
3093     (description "GNU cursynth is a polyphonic synthesizer that runs
3094 graphically in the terminal.  It is built on a full-featured subtractive
3095 synthesis engine.  Notes and parameter changes may be entered via MIDI or the
3096 computer's keyboard.")
3097     (license license:gpl3+)))
3098
3099 (define-public aj-snapshot
3100   (package
3101     (name "aj-snapshot")
3102     (version "0.9.9")
3103     (source (origin
3104               (method url-fetch)
3105               (uri (string-append "mirror://sourceforge/aj-snapshot/"
3106                                   "aj-snapshot-" version ".tar.bz2"))
3107               (sha256
3108                (base32
3109                 "0z8wd5yvxdmw1h1rj6km9h01xd4xmp4d86gczlix7hsc7zrf0wil"))))
3110     (build-system gnu-build-system)
3111     (inputs
3112      `(("minixml" ,minixml)
3113        ("jack" ,jack-1)
3114        ("alsa-lib" ,alsa-lib)))
3115     (native-inputs
3116      `(("pkg-config" ,pkg-config)))
3117     (home-page "http://aj-snapshot.sourceforge.net/")
3118     (synopsis "Snapshot connections between ALSA and JACK clients")
3119     (description "Aj-snapshot is a small program that can be used to make
3120 snapshots of the connections made between JACK and/or ALSA clients.  Because
3121 JACK can provide both audio and MIDI support to programs, aj-snapshot can
3122 store both types of connections for JACK.  ALSA, on the other hand, only
3123 provides routing facilities for MIDI clients.  Aj-snapshot is meant to be used
3124 from the command line.")
3125     (license license:gpl3+)))
3126
3127 (define-public qtractor
3128   (package
3129     (name "qtractor")
3130     (version "0.9.22")
3131     (source (origin
3132               (method url-fetch)
3133               (uri (string-append "https://downloads.sourceforge.net/qtractor/"
3134                                   "qtractor-" version ".tar.gz"))
3135               (sha256
3136                (base32
3137                 "0n73xn3205afi9vsy6ianixq36ddp8qv6iaq03ldc6mkkfvn0nc5"))))
3138     (build-system gnu-build-system)
3139     (arguments
3140      `(#:tests? #f))                    ; no "check" target
3141     (inputs
3142      `(("qt" ,qtbase-5)
3143        ("qtx11extras" ,qtx11extras)
3144        ("alsa-lib" ,alsa-lib)
3145        ("jack" ,jack-1)
3146        ("libsndfile" ,libsndfile)
3147        ("ladspa" ,ladspa)
3148        ("lv2" ,lv2)
3149        ("lilv" ,lilv)
3150        ("suil" ,suil)
3151        ("libsamplerate" ,libsamplerate)
3152        ("libvorbis" ,libvorbis)
3153        ("libmad" ,libmad)
3154        ("rubberband" ,rubberband)
3155        ("liblo" ,liblo)
3156        ("zlib" ,zlib)))
3157     (native-inputs
3158      `(("pkg-config" ,pkg-config)
3159        ("qttools" ,qttools)))
3160     (home-page "https://qtractor.org/")
3161     (synopsis "Audio/MIDI multi-track sequencer")
3162     (description
3163      "Qtractor is an Audio/MIDI multi-track sequencer application.  It uses
3164 JACK for audio and ALSA sequencer for MIDI as multimedia infrastructures and
3165 follows a traditional multi-track tape recorder control paradigm.")
3166     (license license:gpl2+)))
3167
3168 (define-public ams-lv2
3169   (package
3170     (name "ams-lv2")
3171     (version "1.2.2")
3172     (source
3173      (origin
3174        (method git-fetch)
3175        (uri (git-reference
3176              (url "https://github.com/blablack/ams-lv2")
3177              (commit (string-append "v" version))))
3178        (file-name (git-file-name name version))
3179        (sha256
3180         (base32 "1lz2mvk4gqsyf92yxd3aaldx0d0qi28h4rnnvsaz4ls0ccqm80nk"))))
3181     (build-system waf-build-system)
3182     (arguments
3183      `(#:phases
3184        (modify-phases %standard-phases
3185          (add-after 'unpack 'remove-sse-flags
3186            (lambda* (#:key system #:allow-other-keys)
3187              (unless (or (string-prefix? "x86_64" system)
3188                          (string-prefix? "i686" system))
3189                (substitute* "wscript"
3190                  (("'-msse', '-mfpmath=sse', ") "")))
3191              #t)))
3192        #:tests? #f))                    ; no tests
3193     (inputs
3194      `(("cairo" ,cairo)
3195        ("fftw" ,fftw)
3196        ("gtk" ,gtk+-2)
3197        ("gtkmm" ,gtkmm-2)
3198        ("lv2" ,lv2)
3199        ("lvtk" ,lvtk)))
3200     (native-inputs
3201      `(("pkg-config" ,pkg-config)))
3202     (home-page "https://github.com/blablack/ams-lv2")
3203     (synopsis "Port of Alsa Modular Synth internal modules into LV2")
3204     (description "This set of LV2 plugins is a port of the internal modules
3205 found in Alsa Modular Synth.  These plugins are used to create modular
3206 synthesizers and contain: VCO, VCF, VCA, LFO, slew limiter, envelopes, sample
3207 and hold, etc.")
3208     (license license:gpl2)))
3209
3210 (define-public gxtuner
3211   (package
3212     (name "gxtuner")
3213     (version "2.4")
3214     (source (origin
3215               (method git-fetch)
3216               (uri (git-reference
3217                     (url "https://github.com/brummer10/gxtuner")
3218                     (commit (string-append "v" version))))
3219               (file-name (git-file-name name version))
3220               (sha256
3221                (base32
3222                 "1fxd2akan2njlr7fpkh84830783qhh1gg7yakswqk5dd466dcn96"))))
3223     (build-system gnu-build-system)
3224     (arguments
3225      `(#:make-flags
3226        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
3227              (string-append "INCLUDE_L_DIR="
3228                             (assoc-ref %build-inputs "zita-resampler")
3229                             "/include/"))
3230        #:phases
3231        (modify-phases %standard-phases
3232          (delete 'configure))))
3233     (inputs
3234      `(("gtk+" ,gtk+)
3235        ("jack" ,jack-1)
3236        ("fftwf" ,fftwf)
3237        ("cairo" ,cairo)
3238        ("zita-resampler" ,zita-resampler)))
3239     (native-inputs
3240      `(("pkg-config" ,pkg-config)))
3241     (home-page "https://github.com/brummer10/gxtuner")
3242     (synopsis "Guitar tuner")
3243     (description "GXtuner is a simple guitar tuner for JACK with an
3244 analogue-like user interface.")
3245     (license license:gpl2+)))
3246
3247 (define-public mod-host
3248   ;; The last release was in 2014 but since then hundreds of commits have
3249   ;; been made.
3250   (let ((commit "1726ad06b11323da7e1aaed690ff8aef91f702b5")
3251         (revision "3"))
3252     (package
3253       (name "mod-host")
3254       (version (string-append "0.10.6-" revision "." (string-take commit 9)))
3255       (source (origin
3256                 (method git-fetch)
3257                 (uri (git-reference
3258                       (url "https://github.com/moddevices/mod-host")
3259                       (commit commit)))
3260                 (sha256
3261                  (base32
3262                   "1nrd37c35w6z6ldczgrwmmd9hx1n3zyvcjcgb3mi4cygqdanvspv"))
3263                 (file-name (string-append name "-" version "-checkout"))))
3264       (build-system gnu-build-system)
3265       (arguments
3266        `(#:tests? #f ; no tests included
3267          #:make-flags
3268          (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
3269                "CC=gcc")
3270          #:phases
3271          (modify-phases %standard-phases
3272            (delete 'configure)
3273            (add-after 'unpack 'fix-jack-installation-directory
3274              (lambda _
3275                ;; Do not attempt to install files to output of "jack" package.
3276                (substitute* "Makefile"
3277                  (("\\$\\(shell pkg-config --variable=libdir jack\\)")
3278                   "lib"))
3279                #t)))))
3280       (inputs
3281        `(("lilv" ,lilv)
3282          ("fftw" ,fftw)
3283          ("fftwf" ,fftwf)
3284          ("lv2" ,lv2)
3285          ("jack" ,jack-1)
3286          ("readline" ,readline)))
3287       (native-inputs
3288        `(("pkg-config" ,pkg-config)
3289          ("python" ,python-2)))
3290       (home-page "https://github.com/moddevices/mod-host")
3291       (synopsis "LV2 host for Jack controllable via socket or command line")
3292       (description "mod-host is an LV2 plugin host for JACK, controllable via
3293 socket or command line.")
3294       (license license:gpl3+))))
3295
3296 (define-public curseradio
3297   (let ((commit "1bd4bd0faeec675e0647bac9a100b526cba19f8d")
3298         (revision "1"))
3299     (package
3300       (name "curseradio")
3301       (version (git-version "0" revision commit))
3302       (source (origin
3303                 (method git-fetch)
3304                 (uri (git-reference
3305                       (url "https://github.com/chronitis/curseradio")
3306                       (commit commit)))
3307                 (file-name (git-file-name name version))
3308                 (sha256
3309                  (base32
3310                   "11bf0jnj8h2fxhpdp498189r4s6b47vy4wripv0z4nx7lxajl88i"))))
3311     (build-system python-build-system)
3312     (arguments
3313      `(#:phases
3314        (modify-phases %standard-phases
3315          (add-after 'unpack 'link-to-mpv
3316            (lambda* (#:key inputs #:allow-other-keys)
3317              (substitute* "curseradio/curseradio.py"
3318                (("/usr/bin/mpv")
3319                 (string-append (assoc-ref inputs "mpv") "/bin/mpv")))
3320              #t)))))
3321     (propagated-inputs
3322      `(("python-lxml" ,python-lxml)
3323        ("python-requests" ,python-requests)
3324        ("python-pyxdg" ,python-pyxdg)))
3325     (inputs
3326      `(("mpv" ,mpv)))
3327     (home-page "https://github.com/chronitis/curseradio")
3328     (synopsis "Command-line Internet radio player")
3329     (description "Curseradio is a Curses-based radio player that uses a
3330 tune-in sender list from @url{http://opml.radiotime.com}.")
3331     (license license:expat))))
3332
3333 (define-public pianobar
3334   (package
3335     (name "pianobar")
3336     (version "2020.11.28")
3337     (source (origin
3338               (method git-fetch)
3339               (uri (git-reference
3340                     (url "https://github.com/PromyLOPh/pianobar")
3341                     (commit version)))
3342               (file-name (git-file-name name version))
3343               (sha256
3344                (base32
3345                 "13qx52a1yj2wghf7yd9jf4ar92scbc8zgqdq0kkqf4p9isf1phf3"))))
3346     (build-system gnu-build-system)
3347     (arguments
3348      `(#:tests? #f                      ; no tests
3349        #:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
3350        #:phases (modify-phases %standard-phases
3351                   (delete 'configure))))
3352     (inputs
3353      `(("ao" ,ao)
3354        ("curl" ,curl)
3355        ("libgcrypt" ,libgcrypt)
3356        ("json-c" ,json-c)
3357        ("ffmpeg" ,ffmpeg)))
3358     (native-inputs
3359      `(("pkg-config" ,pkg-config)))
3360     (home-page "https://6xq.net/pianobar/")
3361     (synopsis "Console-based pandora.com player")
3362     (description "pianobar is a console-based music player for the
3363 personalized online radio pandora.com.  It has configurable keys for playing
3364 and managing stations, can be controlled remotely via fifo, and can run
3365 event-based scripts for scrobbling, notifications, etc.")
3366     (license license:expat)))
3367
3368 (define-public picard
3369   (package
3370     (name "picard")
3371     (version "2.4.4")
3372     (source (origin
3373               (method url-fetch)
3374               (uri (string-append
3375                     "https://musicbrainz.osuosl.org/pub/musicbrainz/"
3376                     "picard/picard-" version ".tar.gz"))
3377               (sha256
3378                (base32
3379                 "1c5l7i43jaj3s4wklc0cba6nn2x9cmpcggk4q4h9m1bci2xilsiy"))
3380               (patches (search-patches "picard-fix-id3-rename-test.patch"))))
3381     (build-system python-build-system)
3382     (arguments
3383      '(#:use-setuptools? #f
3384        #:configure-flags
3385        (list "--root=/"
3386              ;; Don't phone home or show ‘Check for Update…’ in the Help menu.
3387              "--disable-autoupdate")
3388        #:phases
3389        (modify-phases %standard-phases
3390          (add-after 'unpack 'patch-source
3391            (lambda* (#:key inputs #:allow-other-keys)
3392              (substitute* "picard/const/__init__.py"
3393                (("pyfpcalc")
3394                 (string-append
3395                  "pyfpcalc', '"
3396                  (assoc-ref inputs "chromaprint") "/bin/fpcalc")))
3397              #t)))))
3398     (native-inputs
3399      `(("gettext" ,gettext-minimal)
3400        ("python-dateutil" ,python-dateutil)))
3401     (inputs
3402      `(("chromaprint" ,chromaprint)
3403        ("python-discid" ,python-discid)
3404        ("python-pyqt" ,python-pyqt)
3405        ("python-mutagen" ,python-mutagen)))
3406     (home-page "https://picard.musicbrainz.org/")
3407     (synopsis "Graphical music tagging application")
3408     (description
3409      "MusicBrainz Picard is a music tagging application, supporting multiple
3410 formats, looking up tracks through metadata and audio fingerprints.")
3411     (license license:gpl2+)))
3412
3413 (define-public python-mutagen
3414   (package
3415     (name "python-mutagen")
3416     (version "1.45.1")
3417     (source (origin
3418               (method url-fetch)
3419               (uri (pypi-uri "mutagen" version))
3420               (sha256
3421                (base32
3422                 "1qdk6i8gyhbi1c4j5jmbfpac3q8sff2ysri1pnp7nb9wzcp615v3"))))
3423     (build-system python-build-system)
3424     (native-inputs
3425      `(("python-pytest" ,python-pytest)
3426        ("python-hypothesis" ,python-hypothesis)
3427        ("python-flake8" ,python-flake8)))
3428     (home-page "https://bitbucket.org/lazka/mutagen")
3429     (synopsis "Read and write audio tags")
3430     (description "Mutagen is a Python module to handle audio metadata.  It
3431 supports ASF, FLAC, M4A, Monkey’s Audio, MP3, Musepack, Ogg FLAC, Ogg Speex, Ogg
3432 Theora, Ogg Vorbis, True Audio, WavPack and OptimFROG audio files.  All versions
3433 of ID3v2 are supported, and all standard ID3v2.4 frames are parsed.  It can read
3434 Xing headers to accurately calculate the bitrate and length of MP3s.  ID3 and
3435 APEv2 tags can be edited regardless of audio format.  It can also manipulate Ogg
3436 streams on an individual packet/page level.")
3437     (license license:gpl2))) ; "later version" never mentioned
3438
3439 (define-public python-mediafile
3440   (package
3441     (name "python-mediafile")
3442     (version "0.6.0")
3443     (source
3444      (origin
3445        (method url-fetch)
3446        (uri (pypi-uri "mediafile" version))
3447        (patches (search-patches "python-mediafile-wavpack.patch"))
3448        (sha256
3449         (base32
3450          "0jmsp3f57xj35ayp8b6didk85nxgl3viw34s5px3l5dwgc055yx3"))))
3451     (build-system python-build-system)
3452     (propagated-inputs
3453      `(("python-mutagen" ,python-mutagen)
3454        ("python-six" ,python-six)
3455        ("python-tox" ,python-tox)))
3456     (home-page "https://github.com/beetbox/mediafile")
3457     (synopsis "Read and write audio file tags")
3458     (description
3459      "MediaFile is a simple interface to the metadata tags for many audio file
3460 formats.  It wraps Mutagen, a high-quality library for low-level tag
3461 manipulation, with a high-level, format-independent interface for a common set
3462 of tags.")
3463     (license license:expat)))
3464
3465 (define-public python-musicbrainzngs
3466   (package
3467     (name "python-musicbrainzngs")
3468     (version "0.6")
3469     (source (origin
3470               (method url-fetch)
3471               (uri (pypi-uri "musicbrainzngs" version))
3472               (sha256
3473                (base32
3474                 "1dddarpjawryll2wss65xq3v9q8ln8dan7984l5dxzqx88d2dvr8"))))
3475     (build-system python-build-system)
3476     (arguments
3477      '(;; The tests fail suffer from race conditions:
3478        ;; https://github.com/alastair/python-musicbrainzngs/issues/211
3479        #:tests? #f))
3480     (home-page "https://python-musicbrainzngs.readthedocs.org/")
3481     (synopsis "Python bindings for MusicBrainz NGS webservice")
3482     (description "Musicbrainzngs implements Python bindings of the MusicBrainz
3483 web service.  This library can be used to retrieve music metadata from the
3484 MusicBrainz database.")
3485     ;; 'musicbrainzngs/compat.py' is ISC licensed.
3486     (license (list license:bsd-2 license:isc))))
3487
3488 (define-public python2-musicbrainzngs
3489   (package-with-python2 python-musicbrainzngs))
3490
3491 (define-public python-isrcsubmit
3492   (package
3493     (name "python-isrcsubmit")
3494     (version "2.0.1")
3495     (source
3496      (origin
3497        (method url-fetch)
3498        (uri (pypi-uri "isrcsubmit" version))
3499        (sha256
3500         (base32
3501          "0jh4cni8qhri6dh83cmp0i0m0384vv0vznlygv49wj9xzh1d99qv"))))
3502     (build-system python-build-system)
3503     (propagated-inputs
3504      `(("python-discid" ,python-discid)
3505        ("python-musicbrainzngs" ,python-musicbrainzngs)))
3506     (home-page "https://github.com/JonnyJD/musicbrainz-isrcsubmit")
3507     (synopsis "Submit ISRCs from CDs to MusicBrainz")
3508     (description "@code{isrcsubmit} is a tool to extract @dfn{International
3509 Standard Recording Code} (ISRCs) from audio CDs and submit them to
3510 @url{https://musicbrainz.org/, MusicBrainz}.")
3511     (license license:gpl3+)))
3512
3513 (define-public python2-pyechonest
3514   (package
3515     (name "python2-pyechonest")
3516     (version "9.0.0")
3517     (source (origin
3518               (method url-fetch)
3519               (uri (pypi-uri "pyechonest" version))
3520               (sha256
3521                (base32
3522                 "1584nira3rkiman9dm81kdshihmkj21s8navndz2l8spnjwb790x"))))
3523     (build-system python-build-system)
3524     (arguments
3525      `(;; Python 3 is not supported:
3526        ;; https://github.com/echonest/pyechonest/issues/42
3527        #:python ,python-2))
3528     (home-page "https://github.com/echonest/pyechonest")
3529     (synopsis "Python interface to The Echo Nest APIs")
3530     (description "Pyechonest is a Python library for the Echo Nest API.  With
3531 Pyechonest you have Python access to the entire set of API methods including:
3532
3533 @enumerate
3534 @item artist - search for artists by name, description, or attribute, and get
3535 back detailed information about any artist including audio, similar artists,
3536 blogs, familiarity, hotttnesss, news, reviews, urls and video.
3537 @item song - search songs by artist, title, description, or attribute (tempo,
3538 duration, etc) and get detailed information back about each song, such as
3539 hotttnesss, audio_summary, or tracks.
3540 @item track - upload a track to the Echo Nest and receive summary information
3541 about the track including key, duration, mode, tempo, time signature along with
3542 detailed track info including timbre, pitch, rhythm and loudness information.
3543 @end enumerate\n")
3544     (license license:bsd-3)))
3545
3546 (define-public python-pylast
3547   (package
3548     (name "python-pylast")
3549     (version "2.0.0")
3550     (source (origin
3551               (method url-fetch)
3552               (uri (pypi-uri "pylast" version))
3553               (sha256
3554                (base32
3555                 "0r9h7g8i8l2mgqjwkda3v6prfbkb2im5kap1az9ppmhjm9i4jkcf"))))
3556     (build-system python-build-system)
3557     ;; Tests require network access.  See
3558     ;; https://github.com/pylast/pylast/issues/105
3559     (arguments '(#:tests? #f))
3560     (native-inputs
3561      `(("python-coverage" ,python-coverage)
3562        ("python-pycodestyle" ,python-pycodestyle)
3563        ("python-mock" ,python-mock)
3564        ("python-pep8" ,python-pep8)
3565        ("python-pytest" ,python-pytest)
3566        ("python-flaky" ,python-flaky)
3567        ("python-pyflakes" ,python-pyflakes)
3568        ("python-pyyaml" ,python-pyyaml)))
3569     (propagated-inputs
3570      `(("python-six" ,python-six)))
3571     (home-page "https://github.com/pylast/pylast")
3572     (synopsis "Python interface to Last.fm and Libre.fm")
3573     (description "A Python interface to Last.fm and other API-compatible
3574 websites such as Libre.fm.")
3575     (license license:asl2.0)))
3576
3577 (define-public python2-pylast
3578   (package-with-python2 python-pylast))
3579
3580 (define-public instantmusic
3581   (let ((commit "300891d09c703525215fa5a116b9294af1c923c8")
3582         (revision "1"))
3583     (package
3584       (name "instantmusic")
3585       (version (git-version "1.0" revision commit))
3586       (source (origin
3587                 (method git-fetch)
3588                 (uri (git-reference
3589                       (url "https://github.com/yask123/Instant-Music-Downloader")
3590                       (commit commit)))
3591                 (file-name (git-file-name name version))
3592                 (sha256
3593                  (base32
3594                   "0j7qivaa04bpdz3anmgci5833dgiyfqqwq9fdrpl9m68b34gl773"))))
3595     (build-system python-build-system)
3596     (propagated-inputs
3597      `(("python-requests" ,python-requests)
3598        ("eyed3" ,eyed3)
3599        ("python-beautifulsoup4" ,python-beautifulsoup4)
3600        ("youtube-dl" ,youtube-dl)))
3601     (arguments
3602      '(#:modules ((guix build python-build-system)
3603                   (guix build utils)
3604                   (srfi srfi-26))
3605        #:phases (modify-phases %standard-phases
3606                   (add-before 'build 'change-directory
3607                     (lambda _
3608                       (chdir "instantmusic-0.1") #t))
3609                   (add-before 'install 'fix-file-permissions
3610                     (lambda _
3611                       ;; Fix some read-only files that would cause a build failure
3612                       (for-each (cut chmod <> #o644)
3613                                 (find-files "instantmusic.egg-info"
3614                                             "PKG-INFO|.*\\.txt"))
3615                       #t)))))
3616     (home-page "https://github.com/yask123/Instant-Music-Downloader")
3617     (synopsis "Command-line program to download a song from YouTube")
3618     (description "InstantMusic downloads a song from YouTube in MP3 format.
3619     Songs can be searched by artist, name or even by a part of the song text.")
3620     (license license:expat))))
3621
3622 (define-public beets
3623   (package
3624     (name "beets")
3625     (version "1.4.9")
3626     (source (origin
3627               (method url-fetch)
3628               (uri (pypi-uri "beets" version))
3629               (patches (search-patches "beets-werkzeug-compat.patch"))
3630               (sha256
3631                (base32
3632                 "0m40rjimvfgy1dv04p8f8d5dvi2855v4ix99a9xr900cmcn476yj"))))
3633     (build-system python-build-system)
3634     (arguments
3635      `(#:phases
3636        (modify-phases %standard-phases
3637          ;; Reported upstream: <https://github.com/beetbox/beets/issues/3771>.
3638          ;; Disable the faulty test as the fix is unclear.
3639          (add-after 'unpack 'disable-failing-tests
3640            (lambda _
3641              (substitute* "test/test_mediafile.py"
3642                (("def test_read_audio_properties") "def _test_read_audio_properties"))
3643              #t))
3644          (add-after 'unpack 'set-HOME
3645            (lambda _
3646              (setenv "HOME" (string-append (getcwd) "/tmp"))
3647              #t))
3648          (replace 'check
3649            (lambda _
3650              (invoke "nosetests" "-v")))
3651          ;; Wrap the executable, so it can find python-gi (aka pygobject) and
3652          ;; gstreamer plugins.
3653          (add-after 'wrap 'wrap-typelib
3654            (lambda* (#:key outputs #:allow-other-keys)
3655              (let ((prog (string-append (assoc-ref outputs "out")
3656                                         "/bin/beet"))
3657                    (plugins (getenv "GST_PLUGIN_SYSTEM_PATH"))
3658                    (types (getenv "GI_TYPELIB_PATH")))
3659                (wrap-program prog
3660                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,plugins))
3661                  `("GI_TYPELIB_PATH" ":" prefix (,types)))
3662                #t))))))
3663     (native-inputs
3664      `(("python-beautifulsoup4" ,python-beautifulsoup4)
3665        ("python-flask" ,python-flask)
3666        ("python-mock" ,python-mock)
3667        ("python-mpd2" ,python-mpd2)
3668        ("python-nose" ,python-nose)
3669        ("python-pathlib" ,python-pathlib)
3670        ("python-pyxdg" ,python-pyxdg)
3671        ("python-pylast" ,python-pylast)
3672        ("python-rarfile" ,python-rarfile)
3673        ("python-responses" ,python-responses)))
3674     ;; TODO: Install optional plugins and dependencies.
3675     (inputs
3676      `(("python-discogs-client" ,python-discogs-client)
3677        ("python-jellyfish" ,python-jellyfish)
3678        ("python-munkres" ,python-munkres)
3679        ("python-musicbrainzngs" ,python-musicbrainzngs)
3680        ("python-mutagen" ,python-mutagen)
3681        ("python-pyacoustid" ,python-pyacoustid)
3682        ("python-pyyaml" ,python-pyyaml)
3683        ("python-unidecode" ,python-unidecode)
3684        ;; For plugin replaygain.
3685        ("python-pygobject" ,python-pygobject)
3686        ("gobject-introspection" ,gobject-introspection)
3687        ("gst-plugins-base" ,gst-plugins-base)
3688        ("gst-plugins-good" ,gst-plugins-good)
3689        ("gstreamer" ,gstreamer)))
3690     (home-page "https://beets.io")
3691     (synopsis "Music organizer")
3692     (description "The purpose of beets is to get your music collection right
3693     once and for all.  It catalogs your collection, automatically improving its
3694     metadata as it goes using the MusicBrainz database.  Then it provides a variety
3695     of tools for manipulating and accessing your music.")
3696     (license license:expat)))
3697
3698 (define-public beets-next
3699   (let ((commit "04ea754d00e2873ae9aa2d9e07c5cefd790eaee2")
3700         (revision "1"))
3701     (package
3702       (inherit beets)
3703       (name "beets-next")
3704       (version (git-version (package-version beets) revision commit))
3705       (source (origin
3706                 (method git-fetch)
3707                 (uri (git-reference
3708                       (url "https://github.com/beetbox/beets")
3709                       (commit commit)))
3710                 (file-name (git-file-name "beets" version))
3711                 (sha256
3712                  (base32
3713                   "092a9sss2shhcjmpgbwvscv8brpm5970i5hddkhi81xcff3bg1h4"))))
3714       (arguments
3715        `(#:phases
3716          (modify-phases %standard-phases
3717            ;; XXX: unclear why this fails
3718            (add-after 'unpack 'disable-failing-tests
3719              (lambda _
3720                (substitute* "test/test_zero.py"
3721                  (("def test_album_art") "def _test_album_art"))
3722                #t))
3723            (add-after 'unpack 'set-HOME
3724              (lambda _
3725                (setenv "HOME" (string-append (getcwd) "/tmp"))
3726                #t))
3727            (replace 'check
3728              (lambda _
3729                ;; Resources must be writable.
3730                (for-each make-file-writable
3731                          (find-files "test/rsrc" "."))
3732                (invoke "nosetests" "-v")))
3733            ;; Wrap the executable, so it can find python-gi (aka pygobject) and
3734            ;; gstreamer plugins.
3735            (add-after 'wrap 'wrap-typelib
3736              (lambda* (#:key outputs #:allow-other-keys)
3737                (let ((prog (string-append (assoc-ref outputs "out")
3738                                           "/bin/beet"))
3739                      (plugins (getenv "GST_PLUGIN_SYSTEM_PATH"))
3740                      (types (getenv "GI_TYPELIB_PATH")))
3741                  (wrap-program prog
3742                    `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,plugins))
3743                    `("GI_TYPELIB_PATH" ":" prefix (,types)))
3744                  #t))))))
3745       (inputs
3746        `(("python-confuse" ,python-confuse)
3747          ("python-mediafile" ,python-mediafile)
3748          ("python-reflink" ,python-reflink)
3749          ("python-requests-oauthlib" ,python-requests-oauthlib)
3750          ("opusfile" ,opusfile)
3751          ,@(package-inputs beets))))))
3752
3753 (define-public beets-bandcamp
3754   (package
3755     (name "beets-bandcamp")
3756     (version "0.1.3")
3757     (source (origin
3758               (method url-fetch)
3759               (uri (pypi-uri "beets-bandcamp" version))
3760               (sha256
3761                (base32
3762                 "04awg0zdhhg5h510fc1p3qkvr2l1qm6nf85hlr9z8im8a7xlka0i"))))
3763     (build-system python-build-system)
3764     (arguments '(#:tests? #f))          ; there are no tests
3765     (propagated-inputs
3766      `(("beets" ,beets)
3767        ("python-isodate" ,python-isodate)))
3768     (inputs
3769      `(("python-beautifulsoup4" ,python-beautifulsoup4)
3770        ("python-requests" ,python-requests)
3771        ("python-six" ,python-six)))
3772     (home-page "https://github.com/unrblt/beets-bandcamp")
3773     (synopsis "Bandcamp plugin for beets")
3774     (description
3775      "This plugin for beets automatically obtains tag data from @uref{Bandcamp,
3776 https://bandcamp.com/}.  It's also capable of getting song lyrics and album art
3777 using the beets FetchArt plugin.")
3778     (license license:gpl2)))
3779
3780 (define-public milkytracker
3781   (package
3782     (name "milkytracker")
3783     (version "1.03.00")
3784     (source (origin
3785               (method git-fetch)
3786               (uri (git-reference
3787                     (url "https://github.com/milkytracker/MilkyTracker")
3788                     (commit (string-append "v" version))))
3789               (file-name (git-file-name name version))
3790               (sha256
3791                (base32
3792                 "025fj34gq2kmkpwcswcyx7wdxb89vm944dh685zi4bxx0hz16vvk"))
3793               (modules '((guix build utils)))
3794               ;; Remove non-FSDG compliant sample songs.
3795               (snippet
3796                '(begin
3797                   (delete-file-recursively "resources/music")
3798                   (substitute* "CMakeLists.txt"
3799                     (("add_subdirectory\\(resources/music\\)") ""))
3800                   #t))))
3801     (build-system cmake-build-system)
3802     (arguments
3803      '(#:tests? #f ; no check target
3804        ;; This flag ensures that MilkyTracker links with the JACK library.
3805        #:configure-flags '("-DCMAKE_CXX_FLAGS=-ljack")))
3806     (inputs
3807      `(("alsa-lib" ,alsa-lib)
3808        ("lhasa" ,lhasa)
3809        ("jack" ,jack-1)
3810        ("rtmidi" ,rtmidi)
3811        ("sdl" ,sdl2)
3812        ("zlib" ,zlib)
3813        ("zziplib" ,zziplib)))
3814     (native-inputs
3815      `(("pkg-config" ,pkg-config)))
3816     (synopsis "Music tracker for working with .MOD/.XM module files")
3817     (description "MilkyTracker is a music application for creating .MOD and .XM
3818     module files.  It attempts to recreate the module replay and user experience of
3819     the popular DOS program Fasttracker II, with special playback modes available
3820     for improved Amiga ProTracker 2/3 compatibility.")
3821     (home-page "https://milkytracker.titandemo.org/")
3822     ;; 'src/milkyplay' is under Modified BSD, the rest is under GPL3 or later.
3823     (license (list license:bsd-3 license:gpl3+))))
3824
3825 (define-public schismtracker
3826   (package
3827     (name "schismtracker")
3828     (version "20190805")
3829     (source (origin
3830               (method git-fetch)
3831               (uri (git-reference
3832                     (url "https://github.com/schismtracker/schismtracker")
3833                     (commit version)))
3834               (file-name (git-file-name name version))
3835               (sha256
3836                (base32
3837                 "0qqps20vvn3rgpg8174bjrrm38gqcci2z5z4c1r1vhbccclahgsd"))
3838               (modules '((guix build utils)))
3839               (snippet
3840                ;; Remove use of __DATE__ and __TIME__ for reproducibility.
3841                `(begin
3842                   (substitute* "schism/version.c"
3843                     (("Schism Tracker built %s %s.*$")
3844                      (string-append "Schism Tracker version " ,version "\") ;")))
3845               #t))))
3846     (build-system gnu-build-system)
3847     (arguments
3848      `(#:phases
3849        (modify-phases %standard-phases
3850          (add-before 'configure 'link-libm
3851            (lambda _ (setenv "LIBS" "-lm") #t)))))
3852     (native-inputs
3853      `(("autoconf" ,autoconf)
3854        ("automake" ,automake)
3855        ("python" ,python)))
3856     (inputs
3857      `(("alsa-lib" ,alsa-lib)           ; for asound dependency
3858        ("libx11" ,libx11)
3859        ("libxext" ,libxext)
3860        ("sdl" ,sdl)))
3861     (home-page "http://schismtracker.org")
3862     (synopsis "Oldschool sample-based music composition tool")
3863     (description
3864      "Schism Tracker is a reimplementation of Impulse Tracker, a program used to
3865 create high quality music without the requirements of specialized, expensive
3866 equipment, and with a unique \"finger feel\" that is difficult to replicate in
3867 part.  The player is based on a highly modified version of the ModPlug engine,
3868 with a number of bugfixes and changes to improve IT playback.")
3869     (license license:gpl2+)))
3870
3871 (define-public sooperlooper
3872   (package
3873     (name "sooperlooper")
3874     (version "1.7.6")
3875     (source
3876      (origin
3877        (method url-fetch)
3878        (uri (string-append "http://essej.net/sooperlooper/sooperlooper-"
3879                            version ".tar.gz"))
3880        (sha256
3881         (base32 "0kbb1pj62rl32c88j6p7dg823kvs0gb5s42qy3bl6yg0wn10dksj"))))
3882     (build-system gnu-build-system)
3883     (arguments
3884      `(#:phases
3885        (modify-phases %standard-phases
3886          (add-after 'unpack 'add-sigc++-includes
3887            (lambda* (#:key inputs #:allow-other-keys)
3888              (let ((sig (assoc-ref inputs "libsigc++"))
3889                    (xml (assoc-ref inputs "libxml2"))
3890                    (cwd (getcwd)))
3891                (setenv "CPATH"
3892                        (string-append sig "/include/sigc++-2.0:"
3893                                       sig "/lib/sigc++-2.0/include:"
3894                                       xml "/include/libxml2/:"
3895                                       cwd "/libs/pbd:"
3896                                       cwd "/libs/midi++:"
3897                                       (or (getenv "CPATH") ""))))
3898              (substitute* '("src/control_osc.hpp"
3899                             "src/gui/app_frame.hpp"
3900                             "src/gui/config_panel.hpp"
3901                             "src/gui/keys_panel.hpp"
3902                             "src/gui/latency_panel.hpp"
3903                             "src/gui/main_panel.hpp"
3904                             "src/gui/midi_bind_panel.hpp"
3905                             "src/gui/prefs_dialog.hpp")
3906                (("sigc\\+\\+/object.h")
3907                 "sigc++/sigc++.h"))
3908              (substitute* '("src/engine.cpp"
3909                             "src/gui/latency_panel.cpp"
3910                             "src/gui/looper_panel.cpp"
3911                             "src/gui/main_panel.cpp")
3912                (("(\\(| )bind " _ pre)
3913                 (string-append pre "sigc::bind ")))
3914              #t))
3915          (add-after 'unpack 'fix-xpm-warnings
3916            (lambda _
3917              (substitute* (find-files "." "\\.xpm$")
3918                (("static char") "static const char"))
3919              #t)))))
3920     (inputs
3921      `(("jack" ,jack-1)
3922        ("alsa-lib" ,alsa-lib)
3923        ("wxwidgets" ,wxwidgets-gtk2)
3924        ("libsndfile" ,libsndfile)
3925        ("libsamplerate" ,libsamplerate)
3926        ("liblo" ,liblo)
3927        ("rubberband" ,rubberband)
3928        ("libxml2" ,libxml2)
3929        ("libsigc++" ,libsigc++)
3930        ("ncurses" ,ncurses)))
3931     (native-inputs
3932      `(("pkg-config" ,pkg-config)))
3933     (home-page "http://essej.net/sooperlooper/")
3934     (synopsis "Live looping sampler")
3935     (description
3936      "SooperLooper is a live looping sampler capable of immediate loop
3937 recording, overdubbing, multiplying, reversing and more. It allows for
3938 multiple simultaneous multi-channel loops limited only by your computer's
3939 available memory.")
3940     (license license:gpl2+)))
3941
3942 (define-public moc
3943   (package
3944     (name "moc")
3945     (version "2.5.2")
3946     (source (origin
3947               (method url-fetch)
3948               (uri (string-append "http://ftp.daper.net/pub/soft/"
3949                                   name "/stable/"
3950                                   name "-" version ".tar.bz2"))
3951               (sha256
3952                (base32
3953                 "026v977kwb0wbmlmf6mnik328plxg8wykfx9ryvqhirac0aq39pk"))))
3954     (build-system gnu-build-system)
3955     (inputs
3956      `(("alsa-lib" ,alsa-lib)
3957        ("curl" ,curl)
3958        ("faad2" ,faad2)
3959        ("ffmpeg" ,ffmpeg-3.4)
3960        ("file" ,file)
3961        ("jack" ,jack-1)
3962        ("libid3tag" ,libid3tag)
3963        ("libltdl" ,libltdl)
3964        ("libmodplug" ,libmodplug)
3965        ("libmpcdec" ,libmpcdec)
3966        ("libmad" ,libmad)
3967        ("libogg" ,libogg)
3968        ("libvorbis" ,libvorbis)
3969        ("ncurses" ,ncurses)
3970        ("openssl" ,openssl)
3971        ("sasl" ,cyrus-sasl)
3972        ("speex" ,speex)
3973        ("taglib" ,taglib)
3974        ("wavpack" ,wavpack)
3975        ("zlib" ,zlib)))
3976     (native-inputs
3977      `(("pkg-config" ,pkg-config)))
3978     (synopsis "Console audio player designed to be powerful and easy to use")
3979     (description
3980      "Music on Console is a console audio player that supports many file
3981 formats, including most audio formats recognized by FFMpeg.")
3982     (home-page "http://moc.daper.net")
3983     (license license:gpl2+)))
3984
3985 (define-public midicsv
3986   (package
3987     (name "midicsv")
3988     (version "1.1")
3989     (source (origin
3990               (method url-fetch)
3991               (uri (string-append "http://www.fourmilab.ch/webtools/midicsv/"
3992                                   name "-" version ".tar.gz"))
3993               (sha256
3994                (base32
3995                 "1vvhk2nf9ilfw0wchmxy8l13hbw9cnpz079nsx5srsy4nnd78nkw"))))
3996     (build-system gnu-build-system)
3997     (arguments
3998      `(#:phases (modify-phases %standard-phases (delete 'configure))
3999        #:make-flags (list "CC=gcc" (string-append "INSTALL_DEST=" %output))))
4000     (synopsis "Convert MIDI files to and from CSV")
4001     (description
4002      "Midicsv reads a standard MIDI file and decodes it into a comma-separated
4003 value file (CSV), which preserves all the information in the MIDI file.  The
4004 ASCII CSV file may be loaded into a spreadsheet or database application, or
4005 processed by a program to transform the MIDI data (for example, to key
4006 transpose a composition or extract a track from a multi-track sequence).  A
4007 CSV file in the format created by midicsv may be converted back into a
4008 standard MIDI file with the csvmidi program.")
4009     (home-page "http://www.fourmilab.ch/webtools/midicsv/")
4010     (license license:public-domain)))
4011
4012 (define-public gx-guvnor-lv2
4013   (package
4014     (name "gx-guvnor-lv2")
4015     (version "0.1")
4016     (source (origin
4017               (method git-fetch)
4018               (uri (git-reference
4019                     (url "https://github.com/brummer10/GxGuvnor.lv2")
4020                     (commit (string-append "v" version))))
4021               (file-name (string-append name "-" version "-checkout"))
4022               (sha256
4023                (base32
4024                 "1wa5070j40p7f0b3kr259pzm99xb6cf2badr2capayjvgayd6gnm"))))
4025     (build-system gnu-build-system)
4026     (arguments
4027      `(;; The check target is used only to output a warning.
4028        #:tests? #f
4029        #:make-flags
4030        (list (string-append "DESTDIR=" (assoc-ref %outputs "out")))
4031        #:phases
4032        (modify-phases %standard-phases
4033          (replace 'configure
4034            (lambda _
4035              (substitute* "Makefile"
4036                (("INSTALL_DIR = .*") "INSTALL_DIR=/lib/lv2\n")
4037                (("install : all") "install :"))
4038              #t)))))
4039     (inputs
4040      `(("lv2" ,lv2)))
4041     (home-page "https://github.com/brummer10/GxGuvnor.lv2")
4042     (synopsis "Overdrive/distortion pedal simulation")
4043     (description "This package provides the LV2 plugin \"GxGuvnor\", a
4044 simulation of an overdrive or distortion pedal for guitars.")
4045     ;; The LICENSE file says GPLv3 but the license headers in the files say
4046     ;; GPLv2 or later.  The whole project is released under GPLv3 or later
4047     ;; according to https://github.com/brummer10/GxGuvnor.lv2/issues/1
4048     (license license:gpl3+)))
4049
4050 (define-public gx-vbass-preamp-lv2
4051   (let ((commit "eb999b0ca0ef4da40a59e458a9ab6e7042b96c99")
4052         (revision "2"))
4053     (package (inherit gx-guvnor-lv2)
4054       (name "gx-vbass-preamp-lv2")
4055       (version (string-append "0-" revision "." (string-take commit 9)))
4056       (source (origin
4057                 (method git-fetch)
4058                 (uri (git-reference
4059                       (url "https://github.com/brummer10/GxVBassPreAmp.lv2")
4060                       (commit commit)))
4061                 (sha256
4062                  (base32
4063                   "0firap073ldw4nrykkd7jvyyj0jbl1nslxyzjj4kswazp99x7d9h"))
4064                 (file-name (string-append name "-" version "-checkout"))))
4065       (inputs
4066        `(("lv2" ,lv2)
4067          ("gtk+" ,gtk+-2)))
4068       (native-inputs
4069        `(("pkg-config" ,pkg-config)))
4070       (home-page "https://github.com/brummer10/GxVBassPreAmp.lv2")
4071       (synopsis "Simulation of the Vox Venue Bass 100 Pre Amp Section")
4072       (description "This package provides the LV2 plugin \"GxVBassPreAmp\", a
4073 pre-amplifier simulation modelled after the 1984 Vox Venue Bass 100 Pre Amp
4074 Section."))))
4075
4076 (define-public gx-overdriver-lv2
4077   (let ((commit "ed71801987449414bf3adaa0dbfac68e8775f1ce")
4078         (revision "1"))
4079     (package (inherit gx-guvnor-lv2)
4080       (name "gx-overdriver-lv2")
4081       (version (string-append "0-" revision "." (string-take commit 9)))
4082       (source (origin
4083                 (method git-fetch)
4084                 (uri (git-reference
4085                       (url "https://github.com/brummer10/GxOverDriver.lv2")
4086                       (commit commit)))
4087                 (sha256
4088                  (base32
4089                   "13j614jh525fbkby79nnzwj0z1ac0c9wclyn5pfqvkmx6a7j24r8"))
4090                 (file-name (string-append name "-" version "-checkout"))))
4091       (home-page "https://github.com/brummer10/GxOverDriver.lv2")
4092       (synopsis "Overdrive effect with level and tone control")
4093       (description "This package provides the LV2 plugin \"GxOverDriver\", an
4094 overdrive effect."))))
4095
4096 (define-public gx-tone-mender-lv2
4097   (let ((commit "b6780b4a3e4782b3ed0e5882d6788f178aed138f")
4098         (revision "1"))
4099     (package (inherit gx-guvnor-lv2)
4100       (name "gx-tone-mender-lv2")
4101       (version (string-append "0-" revision "." (string-take commit 9)))
4102       (source (origin
4103                 (method git-fetch)
4104                 (uri (git-reference
4105                       (url "https://github.com/brummer10/GxToneMender.lv2")
4106                       (commit commit)))
4107                 (sha256
4108                  (base32
4109                   "07qdcfsvv2vdnfnjh91pfgvjdcs5y91nvwfm8c0z8fp6b4bk7a9q"))
4110                 (file-name (string-append name "-" version "-checkout"))))
4111       (home-page "https://github.com/brummer10/GxToneMender.lv2")
4112       (synopsis "Clean boost with a 3-knob tonestack")
4113       (description "This package provides the LV2 plugin \"GxToneMender\", a
4114 clean boost effect with a 3-knob tonestack."))))
4115
4116 (define-public gx-push-pull-lv2
4117   (let ((commit "7f76ae2068498643ac8671ee0930b13ee3fd8eb5")
4118         (revision "1"))
4119     (package (inherit gx-guvnor-lv2)
4120       (name "gx-push-pull-lv2")
4121       (version (string-append "0-" revision "." (string-take commit 9)))
4122       (source (origin
4123                 (method git-fetch)
4124                 (uri (git-reference
4125                       (url "https://github.com/brummer10/GxPushPull.lv2")
4126                       (commit commit)))
4127                 (sha256
4128                  (base32
4129                   "12f5hwck2irph0gjbj8xy8jqcqdwb8l1hlwf29k0clz52h1jhb5q"))
4130                 (file-name (string-append name "-" version "-checkout"))))
4131       (home-page "https://github.com/brummer10/GxPushPull.lv2")
4132       (synopsis "Octave up push pull transistor fuzz simulation")
4133       (description "This package provides the LV2 plugin \"GxPushPull\", a
4134 simulation of a push pull transistor fuzz effect with added high octave."))))
4135
4136 (define-public gx-suppa-tone-bender-lv2
4137   (package (inherit gx-guvnor-lv2)
4138     (name "gx-suppa-tone-bender-lv2")
4139     (version "0.1")
4140     (source (origin
4141               (method git-fetch)
4142               (uri (git-reference
4143                     (url "https://github.com/brummer10/GxSuppaToneBender.lv2")
4144                     (commit (string-append "v" version))))
4145               (file-name (string-append name "-" version "-checkout"))
4146               (sha256
4147                (base32
4148                 "01x6bjmllkmvxfzc5xwdix7w021j26js71awv728cxsmkxgqw0zy"))))
4149     (home-page "https://github.com/brummer10/GxSuppaToneBender.lv2")
4150     (synopsis "Simulation of the Vox Suppa Tone Bender pedal")
4151     (description "This package provides the LV2 plugin
4152 \"GxSuppaToneBender\", a simulation modelled after the Vox Suppa Tone Bender
4153 pedal.")))
4154
4155 (define-public gx-saturator-lv2
4156   (let ((commit "605330f432c94b6eb3f8203cbe472befae959532")
4157         (revision "3"))
4158     (package (inherit gx-vbass-preamp-lv2)
4159       (name "gx-saturator-lv2")
4160       (version (string-append "0-" revision "." (string-take commit 9)))
4161       (source (origin
4162                 (method git-fetch)
4163                 (uri (git-reference
4164                       (url "https://github.com/brummer10/GxSaturator.lv2")
4165                       (commit commit)))
4166                 (sha256
4167                  (base32
4168                   "1w4nvh0rmxrv3s3hmh4fs74f3hc0jn31v00j769j7v68mqr7kawy"))
4169                 (file-name (string-append name "-" version "-checkout"))))
4170       (home-page "https://github.com/brummer10/GxSaturator.lv2")
4171       (synopsis "Saturation effect")
4172       (description "This package provides the LV2 plugin \"GxSaturator\", a
4173 saturation effect."))))
4174
4175 (define-public gx-hyperion-lv2
4176   (package (inherit gx-guvnor-lv2)
4177     (name "gx-hyperion-lv2")
4178     (version "0.1")
4179     (source (origin
4180               (method git-fetch)
4181               (uri (git-reference
4182                     (url "https://github.com/brummer10/GxHyperion.lv2")
4183                     (commit (string-append "v" version))))
4184               (file-name (string-append name "-" version "-checkout"))
4185               (sha256
4186                (base32
4187                 "1vx79s6s9if117y2g0ppdja2sv2wcny6xcfl3j1z4cipahnildxf"))))
4188     (home-page "https://github.com/brummer10/GxHyperion.lv2")
4189     (synopsis "Simulation of the Hyperion Fuzz pedal")
4190     (description "This package provides the LV2 plugin \"GxHyperion\", a
4191 simulation of the Hyperion Fuzz pedal.")))
4192
4193 (define-public gx-voodoo-fuzz-lv2
4194   (package (inherit gx-guvnor-lv2)
4195     (name "gx-voodoo-fuzz-lv2")
4196     (version "0.1")
4197     (source (origin
4198               (method git-fetch)
4199               (uri (git-reference
4200                     (url "https://github.com/brummer10/GxVoodoFuzz.lv2")
4201                     (commit (string-append "v" version))))
4202               (file-name (string-append name "-" version "-checkout"))
4203               (sha256
4204                (base32
4205                 "1v0scphivri1fk4hl20j13f92i48mnx1zsil4hgnadsmm4nsfw43"))))
4206     (home-page "https://github.com/brummer10/GxVoodoFuzz.lv2")
4207     (synopsis "Fuzz effect modelled after the Voodoo Lab SuperFuzz")
4208     (description "This package provides the LV2 plugin \"GxVoodooFuzz\", a
4209 simulation modelled after the Voodoo Lab SuperFuzz pedal.  It's basically a
4210 Bosstone circuit, followed by the tone control of the FoxToneMachine in
4211 parallel with a DarkBooster, followed by a volume control.")))
4212
4213 (define-public gx-super-fuzz-lv2
4214   (package (inherit gx-guvnor-lv2)
4215     (name "gx-super-fuzz-lv2")
4216     (version "0.1")
4217     (source (origin
4218               (method git-fetch)
4219               (uri (git-reference
4220                     (url "https://github.com/brummer10/GxSuperFuzz.lv2")
4221                     (commit (string-append "v" version))))
4222               (file-name (string-append name "-" version "-checkout"))
4223               (sha256
4224                (base32
4225                 "1jlljd9hlgfflbiizq47lv1xbbgjyx3v835mf24zmh1q5zsw4np4"))))
4226     (home-page "https://github.com/brummer10/GxSuperFuzz.lv2")
4227     (synopsis "Fuzz effect modelled after the UniVox SuperFuzz")
4228     (description "This package provides the LV2 plugin \"GxSuperFuzz\", an
4229 analog simulation of the UniVox SuperFuzz pedal.  In this simulation the trim
4230 pot, which is usually in the housing, is exposed as a control parameter.  It
4231 adjusts the amount of harmonics.")))
4232
4233 (define-public gx-vintage-fuzz-master-lv2
4234   (package (inherit gx-guvnor-lv2)
4235     (name "gx-vintage-fuzz-master-lv2")
4236     (version "0.1")
4237     (source (origin
4238               (method git-fetch)
4239               (uri (git-reference
4240                     (url "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
4241                     (commit (string-append "v" version))))
4242               (file-name (string-append name "-" version "-checkout"))
4243               (sha256
4244                (base32
4245                 "02jb211z8rw2qr5r1z5mdxlqgiw6cbc319xpqplvn6k21c59mskv"))))
4246     (home-page "https://github.com/brummer10/GxVintageFuzzMaster.lv2")
4247     (synopsis "Fuzz effect simulation of the vintage Fuzz Master")
4248     (description "This package provides the LV2 plugin
4249 \"GxVintageFuzzMaster\", a simulation of the vintage Fuzz Master pedal.")))
4250
4251 (define-public gx-slow-gear-lv2
4252   (let ((commit "5d37e775b0feef1d82feee94e2a7a2d7e57efe2d")
4253         (revision "3"))
4254     (package (inherit gx-vbass-preamp-lv2)
4255       (name "gx-slow-gear-lv2")
4256       (version (string-append "0-" revision "." (string-take commit 9)))
4257       (source (origin
4258                 (method git-fetch)
4259                 (uri (git-reference
4260                       (url "https://github.com/brummer10/GxSlowGear.lv2")
4261                       (commit commit)))
4262                 (sha256
4263                  (base32
4264                   "141mz69zkhk3lm54bb6wgpnghb92zm1ig7fv07240cmhydqji1q1"))
4265                 (file-name (string-append name "-" version "-checkout"))))
4266       (home-page "https://github.com/brummer10/GxSlowGear.lv2")
4267       (synopsis "Slow gear audio effect")
4268       (description "This package provides the LV2 plugin \"GxSlowGear\", a
4269 slow gear audio effect to produce volume swells."))))
4270
4271 (define-public gx-switchless-wah-lv2
4272   (let ((commit "7b08691203314612999f0ce2328cdc1161cd6665")
4273         (revision "2"))
4274     (package (inherit gx-guvnor-lv2)
4275       (name "gx-switchless-wah-lv2")
4276       (version (string-append "0-" revision "." (string-take commit 9)))
4277       (source (origin
4278                 (method git-fetch)
4279                 (uri (git-reference
4280                       (url "https://github.com/brummer10/GxSwitchlessWah.lv2")
4281                       (commit commit)))
4282                 (sha256
4283                  (base32
4284                   "04jqfpncmrrqn34p21w4v9m2x5a5wsqwbm4f3byxvq4vcibwxzk2"))
4285                 (file-name (string-append name "-" version "-checkout"))))
4286       (home-page "https://github.com/brummer10/GxSwitchlessWah.lv2")
4287       (synopsis "Wah emulation with switchless activation")
4288       (description "This package provides the LV2 plugin \"GxSwitchlessWah\",
4289 a simulation of an analog Wah pedal with switchless activation."))))
4290
4291 (define-public rkrlv2
4292   ;; This commit corresponds to the beta_3 tag
4293   (let ((commit "7edcb4e29a358623bfd57fa2c27e5da60adfcec3")
4294         (revision "2"))
4295     (package
4296       (name "rkrlv2")
4297       (version (git-version "0" revision commit))
4298       (source (origin
4299                 (method git-fetch)
4300                 (uri (git-reference
4301                       (url "https://github.com/ssj71/rkrlv2")
4302                       (commit commit)))
4303                 (sha256
4304                  (base32
4305                   "16i4ajrib7kb0abdcn4901g8a4lkwkp2fyqyms38dhqq84slyfjs"))
4306                 (file-name (git-file-name name version))))
4307       (build-system cmake-build-system)
4308       (arguments '(#:tests? #f)) ; there are no tests
4309       (inputs
4310        `(("fftw" ,fftw)
4311          ("libsamplerate" ,libsamplerate)
4312          ("lv2" ,lv2)))
4313       (native-inputs
4314        `(("pkg-config" ,pkg-config)))
4315       (home-page "https://github.com/ssj71/rkrlv2")
4316       (synopsis "Rakarrack effects ported to LV2 plugins")
4317       (description "This package provides the Rakarrack effects as LV2
4318 plugins.  The ports are done such that hopefully when Rakarrack gets an active
4319 maintainer these will get merged into the original project.")
4320       (license license:gpl2))))
4321
4322 (define-public mod-utilities
4323   (let ((commit "80ea3ea9f52fab7f191671f4810bf90fc955a046")
4324         (revision "2"))
4325     (package
4326       (name "mod-utilities")
4327       (version (string-append "0-" revision "." (string-take commit 9)))
4328       (source (origin
4329                 (method git-fetch)
4330                 (uri (git-reference
4331                       (url "https://github.com/moddevices/mod-utilities")
4332                       (commit commit)))
4333                 (file-name (string-append name "-" version "-checkout"))
4334                 (sha256
4335                  (base32
4336                   "1v55zmzmlg0ka7341x5lsvb44amy17vk27s669ps1basd1bk5s5v"))))
4337       (build-system gnu-build-system)
4338       (arguments
4339        `(#:tests? #f ; there are no tests
4340          #:make-flags
4341          (list (string-append "INSTALL_PATH="
4342                               (assoc-ref %outputs "out")
4343                               "/lib/lv2")
4344                (string-append "PREFIX=" (assoc-ref %outputs "out"))
4345                "CC=gcc")
4346          #:phases
4347          (modify-phases %standard-phases
4348            (delete 'configure))))
4349       (inputs
4350        `(("lv2" ,lv2)))
4351       (home-page "https://github.com/moddevices/mod-utilities")
4352       (synopsis "LV2 utility plugins")
4353       (description "This package provides LV2 audio utility plugins, such as
4354 filters, crossovers, simple gain plugins without zipper noise, switch box
4355 plugins, a switch trigger, a toggle switch, and a peakmeter.")
4356       (license license:gpl2+))))
4357
4358 (define-public ingen
4359   (let ((commit "cc4a4db33f4d126a07a4a498e053c5fb9a883be3")
4360         (revision "2"))
4361     (package
4362       (name "ingen")
4363       (version (string-append "0.0.0-" revision "."
4364                               (string-take commit 9)))
4365       (source
4366        (origin
4367          (method git-fetch)
4368          (uri (git-reference
4369                (url "https://git.drobilla.net/ingen.git")
4370                (commit commit)))
4371          (file-name (string-append name "-" version "-checkout"))
4372          (sha256
4373           (base32
4374            "1wg47vjw9djn99gbnsl2bcwj4xhdid61m4wrbn2nlp797flj91ic"))))
4375       (build-system waf-build-system)
4376       (arguments
4377        `(#:python ,python-2
4378          #:tests? #f ; no "check" target
4379          #:configure-flags (list "--no-webkit")
4380          #:phases
4381          (modify-phases %standard-phases
4382            (add-after 'unpack 'patch-wscript
4383              (lambda* (#:key outputs #:allow-other-keys)
4384                (let ((out (assoc-ref outputs "out")))
4385                  (substitute* "wscript"
4386                    ;; FIXME: Our version of lv2specgen.py does not behave as
4387                    ;; expected.  Maybe this requires a development version of
4388                    ;; LV2.
4389                    (("lv2specgen.py") "touch ingen.lv2/ingen.html; echo")
4390                    ;; Add libraries to RUNPATH.
4391                    (("^(.+)target.*= 'src/ingen/ingen'," line prefix)
4392                     (string-append prefix
4393                                    "linkflags=[\"-Wl,-rpath="
4394                                    out "/lib" "\"]," line)))
4395                  (substitute* '("src/wscript"
4396                                 "src/server/wscript")
4397                    ;; Add libraries to RUNPATH.
4398                    (("bld.env.PTHREAD_LINKFLAGS" line)
4399                     (string-append line
4400                                    " + [\"-Wl,-rpath=" out "/lib" "\"]")))
4401                  (substitute* "src/client/wscript"
4402                    ;; Add libraries to RUNPATH.
4403                    (("^(.+)target.*= 'ingen_client'," line prefix)
4404                     (string-append prefix
4405                                    "linkflags=[\"-Wl,-rpath="
4406                                    out "/lib" "\"]," line)))
4407                  (substitute* "src/gui/wscript"
4408                    ;; Add libraries to RUNPATH.
4409                    (("^(.+)target.* = 'ingen_gui.*" line prefix)
4410                     (string-append prefix
4411                                    "linkflags=[\"-Wl,-rpath="
4412                                    out "/lib" "\"]," line))))
4413                #t)))))
4414       (inputs
4415        `(("boost" ,boost)
4416          ("python-rdflib" ,python-rdflib)
4417          ("python" ,python)
4418          ("jack" ,jack-1)
4419          ("lv2" ,lv2)
4420          ("lilv" ,lilv)
4421          ("raul" ,raul-devel)
4422          ("ganv" ,ganv)
4423          ("suil" ,suil)
4424          ("serd" ,serd)
4425          ("sord" ,sord)
4426          ("sratom" ,sratom)
4427          ("gtkmm" ,gtkmm-2)))
4428       (native-inputs
4429        `(("pkg-config" ,pkg-config)
4430          ("python-pygments" ,python-pygments)))
4431       (home-page "https://drobilla.net/software/ingen")
4432       (synopsis "Modular audio processing system")
4433       (description "Ingen is a modular audio processing system for JACK and
4434 LV2 based systems.  Ingen is built around LV2 technology and a strict
4435 separation of engine from user interface.  The engine is controlled
4436 exclusively through a protocol, and can execute as a headless process, with an
4437 in-process GUI, or as an LV2 plugin.  The GUI can run as a program which
4438 communicates over a Unix or TCP/IP socket, or as an embeddable LV2 GUI which
4439 communicates via LV2 ports.  Any saved Ingen graph can be loaded as an LV2
4440 plugin on any system where Ingen is installed.  This allows users to visually
4441 develop custom plugins for use in other applications without programming.")
4442       (license license:agpl3+))))
4443
4444 (define-public qmidiarp
4445   (package
4446     (name "qmidiarp")
4447     (version "0.6.5")
4448     (source (origin
4449               (method url-fetch)
4450               (uri (string-append "mirror://sourceforge/qmidiarp/qmidiarp/"
4451                                   version "/qmidiarp-" version ".tar.bz2"))
4452               (sha256
4453                (base32
4454                 "043yh1p0rrbj1v840y27529m9260g55gvh1km8az4jxy7mns58r2"))))
4455     (build-system gnu-build-system)
4456     (arguments
4457      `(#:configure-flags
4458        (list "--enable-qt5")))
4459     (inputs
4460      `(("qtbase" ,qtbase-5)
4461        ("alsa-lib" ,alsa-lib)
4462        ("jack" ,jack-1)
4463        ("liblo" ,liblo)
4464        ("lv2" ,lv2)))
4465     (native-inputs
4466      `(("pkg-config" ,pkg-config)
4467        ("qttools" ,qttools)))
4468     (home-page "http://qmidiarp.sourceforge.net/")
4469     (synopsis "MIDI arpeggiator")
4470     (description "QMidiArp is an advanced MIDI arpeggiator, programmable step
4471 sequencer and LFO.  It can hold any number of arpeggiator, sequencer, or LFO
4472 modules running in parallel.")
4473     (license license:gpl2+)))
4474
4475 (define-public qmidiroute
4476   (package
4477     (name "qmidiroute")
4478     (version "0.4.0")
4479     (source (origin
4480               (method url-fetch)
4481               (uri (string-append "mirror://sourceforge/alsamodular/QMidiRoute/"
4482                                   version "/qmidiroute-" version ".tar.bz2"))
4483               (sha256
4484                (base32
4485                 "19v1ppbglgl3z9v7xdqc0k33w71cqq8a7d6ihvfs7iz77dygrih9"))))
4486     (build-system gnu-build-system)
4487     (arguments
4488      `(#:configure-flags
4489        (list "--enable-qt5")))
4490     (inputs
4491      `(("qtbase" ,qtbase-5)
4492        ("alsa-lib" ,alsa-lib)))
4493     (native-inputs
4494      `(("pkg-config" ,pkg-config)
4495        ("qttools" ,qttools)))
4496     (home-page "http://alsamodular.sourceforge.net/")
4497     (synopsis "MIDI event router and filter")
4498     (description "QMidiRoute is a MIDI event router and filter.  MIDI note,
4499 control change, program change and pitch bend events are logged, and can be
4500 filtered, redirected and transformed into other events according to MIDI maps
4501 defined as tabs in the main control surface.")
4502     (license license:gpl2+)))
4503
4504 (define-public seq24
4505   (package
4506     (name "seq24")
4507     (version "0.9.3")
4508     (source (origin
4509               (method url-fetch)
4510               (uri (string-append "https://launchpad.net/seq24/trunk/"
4511                                   version "/+download/seq24-"
4512                                   version ".tar.bz2"))
4513               (sha256
4514                (base32
4515                 "12dphdhnvfk1k0vmagi1v2lhyxjyj1j3cz6ksjw0ydcvid1x8ap2"))
4516               (patches (search-patches "seq24-rename-mutex.patch"))))
4517     (build-system gnu-build-system)
4518     (inputs
4519      `(("gtkmm" ,gtkmm-2)
4520        ("alsa-lib" ,alsa-lib)
4521        ("jack" ,jack-1)
4522        ("lash" ,lash)))
4523     (native-inputs
4524      `(("pkg-config" ,pkg-config)))
4525     (home-page "https://edge.launchpad.net/seq24/")
4526     (synopsis "Real-time MIDI sequencer")
4527     (description "Seq24 is a real-time MIDI sequencer.  It was created to
4528 provide a very simple interface for editing and playing MIDI loops.")
4529     (license license:gpl2+)))
4530
4531 (define-public python-discogs-client
4532   (package
4533     (name "python-discogs-client")
4534     (version "2.2.1")
4535     (source (origin
4536               (method url-fetch)
4537               (uri (pypi-uri "discogs-client" version))
4538               (sha256
4539                (base32
4540                 "053ld2psh0yj3z0kg6z5bn4y3cr562m727494n0ayhgzbkjbacly"))))
4541     (build-system python-build-system)
4542     (propagated-inputs
4543      `(("python-oauthlib" ,python-oauthlib)
4544        ("python-requests" ,python-requests)))
4545     (native-inputs
4546      `(("python-six" ,python-six)))
4547     (home-page "https://github.com/discogs/discogs_client")
4548     (synopsis "Official Python client for the Discogs API")
4549     (description "This is the official Discogs API client for Python. It enables
4550 you to query the Discogs database for information on artists, releases, labels,
4551 users, Marketplace listings, and more.  It also supports OAuth 1.0a
4552 authorization, which allows you to change user data such as profile information,
4553 collections and wantlists, inventory, and orders.")
4554     (license license:bsd-2)))
4555
4556 (define-public python2-discogs-client
4557   (package-with-python2 python-discogs-client))
4558
4559 (define-public libsmf
4560   (package
4561     (name "libsmf")
4562     (version "1.3")
4563     (source
4564      (origin
4565        (method url-fetch)
4566        ;; SF download page says development moved, but the link it points to
4567        ;; is gone (https://github.com/nilsgey/libsmf).  Someone else adopted
4568        ;; it but made no release so far (https://github.com/stump/libsmf).
4569        (uri (string-append "mirror://sourceforge/libsmf/libsmf/"
4570                            version "/libsmf-" version ".tar.gz"))
4571        (sha256
4572         (base32
4573          "16c0n40h0r56gzbh5ypxa4dwp296dan3jminml2qkb4lvqarym6k"))))
4574     (build-system gnu-build-system)
4575     (outputs '("out"
4576                "static")) ; 88KiB of .a files
4577     (arguments
4578      `(#:phases
4579        (modify-phases %standard-phases
4580          (add-after 'install 'move-static-libraries
4581            (lambda* (#:key outputs #:allow-other-keys)
4582              ;; Move static libraries to the "static" output.
4583              (let* ((out    (assoc-ref outputs "out"))
4584                     (lib    (string-append out "/lib"))
4585                     (static (assoc-ref outputs "static"))
4586                     (slib   (string-append static "/lib")))
4587                (mkdir-p slib)
4588                (for-each (lambda (file)
4589                            (install-file file slib)
4590                            (delete-file file))
4591                          (find-files lib "\\.a$"))
4592                #t))))))
4593     (inputs
4594      `(("readline" ,readline)
4595        ("glib" ,glib)))
4596     (native-inputs
4597      `(("doxygen" ,doxygen)
4598        ("pkg-config" ,pkg-config)))
4599     (home-page "http://libsmf.sourceforge.net/")
4600     (synopsis "Standard MIDI File format library")
4601     (description
4602      "LibSMF is a C library for handling SMF (\"*.mid\") files.  It transparently handles
4603 conversions between time and pulses, tempo map handling and more.  The only dependencies
4604 are a C compiler and glib.  Full API documentation and examples are included.")
4605     (license license:bsd-2)))
4606
4607 (define-public lmms
4608   (package
4609     (name "lmms")
4610     (version "1.2.2")
4611     (source
4612      (origin
4613        (method git-fetch)
4614        (uri (git-reference
4615              (url "https://github.com/LMMS/lmms")
4616              (commit (string-append "v" version))))
4617        (file-name (git-file-name name version))
4618        (sha256
4619         (base32
4620          "11xgf461cnmq0jkgdgx5bddi87ammpik4whg1m4fcvd3i0d5i601"))))
4621     (build-system cmake-build-system)
4622     (arguments
4623      `(#:tests? #f ; no tests
4624        ;; Qt 5 support must be explicitly enabled in the 1.2 stable versions of
4625        ;; LMMS, so try removing "-DWANT_QT5=ON" in later versions.
4626        ;; Also, explicitly disabling VST support gets rid of the in-tree
4627        ;; dependency on qt5-x11embed.
4628        #:configure-flags '("-DWANT_QT5=ON"
4629                            "-DWANT_VST=OFF")
4630        #:phases
4631        (modify-phases %standard-phases
4632          (add-after 'unpack 'unpack-rpmalloc
4633            (lambda* (#:key inputs #:allow-other-keys)
4634              (copy-recursively (assoc-ref inputs "rpmalloc")
4635                                "src/3rdparty/rpmalloc/rpmalloc")
4636              #t))
4637          (add-before 'configure 'set-ldflags
4638            (lambda* (#:key outputs #:allow-other-keys)
4639              (setenv "LDFLAGS"
4640                      (string-append
4641                       "-Wl,-rpath=\""
4642                       (assoc-ref outputs "out") "/lib/lmms"
4643                       ":"
4644                       (assoc-ref outputs "out") "/lib/lmms/ladspa"
4645                       "\""))
4646              #t))
4647          (add-before 'reset-gzip-timestamps 'make-manpages-writable
4648            (lambda* (#:key outputs #:allow-other-keys)
4649              (map (lambda (file)
4650                     (make-file-writable file))
4651                   (find-files (string-append (assoc-ref outputs "out")
4652                                              "/share/man")
4653                               ".*\\.gz$"))
4654              #t)))))
4655     (native-inputs
4656      `(("pkg-config" ,pkg-config)
4657        ("qttools" ,qttools)
4658        ;; rpmalloc is a public domain memory allocator. This version specified
4659        ;; below is the version required by LMMS.
4660        ;; To get the new commit of rpmalloc to use here, run
4661        ;;   `git submodule--helper list | grep rpmalloc | cut -f2 -d' '`
4662        ;; in the cloned LMMS repository.
4663        ("rpmalloc"
4664         ,(origin
4665            (method git-fetch)
4666            (uri (git-reference
4667                  (url "https://github.com/mjansson/rpmalloc")
4668                  (commit "b5bdc18051bb74a22f0bde4bcc90b01cf590b496")))
4669            (sha256
4670             (base32
4671              "0g9pls46iggg7rdm65vzfj8nyr3v2n5xkp54c4qbh9hhalpsw4ay"))))))
4672     (inputs
4673      `(("sdl" ,sdl)
4674        ("qtbase" ,qtbase-5)
4675        ("qtx11extras" ,qtx11extras)
4676        ("fltk" ,fltk)
4677        ("libogg" ,libogg)
4678        ("libsamplerate" ,libsamplerate)
4679        ("fluidsynth" ,fluidsynth)
4680        ("libvorbis" ,libvorbis)
4681        ("alsa-lib" ,alsa-lib)
4682        ("portaudio" ,portaudio)
4683        ("ladspa" ,ladspa)
4684        ("libsndfile1" ,libsndfile)
4685        ("libxft" ,libxft)
4686        ("freetype2" ,freetype)
4687        ("fftw3f" ,fftwf)
4688        ("jack" ,jack-1)
4689        ("carla" ,carla)))
4690     (home-page "https://lmms.io/")
4691     (synopsis "Music composition tool")
4692     (description "LMMS is a digital audio workstation.  It includes tools for sequencing
4693 melodies and beats and for mixing and arranging songs.  LMMS includes instruments based on
4694 audio samples and various soft sythesizers.  It can receive input from a MIDI keyboard.")
4695     (license license:gpl2+)))
4696
4697 (define-public liquidsfz
4698   (package
4699     (name "liquidsfz")
4700     (version "0.2.3")
4701     (source (origin
4702               (method url-fetch)
4703               (uri (string-append "https://space.twc.de/~stefan/liquidsfz/"
4704                                   "liquidsfz-" version ".tar.bz2"))
4705               (sha256
4706                (base32
4707                 "1hb4hc3gkvjfbx0ls6wxzavhv2hf9ix11cz8yvndyb6q9lwkimwl"))))
4708     (build-system gnu-build-system)
4709     (arguments
4710      `(#:configure-flags '("--enable-shared")))
4711     (native-inputs
4712      `(("pkg-config" ,pkg-config)
4713        ;; Fails with default gcc (#include <filesystem> not found).
4714        ("gcc" ,gcc-9)))
4715     (inputs
4716      `(("jack" ,jack-2)
4717        ("lv2" ,lv2)
4718        ("readline" ,readline)
4719        ("libsndfile" ,libsndfile)))
4720     (home-page "https://github.com/swesterfeld/liquidsfz")
4721     (synopsis "Sampler library")
4722     (description "The main goal of liquidsfz is to provide an SFZ sampler
4723 implementation library that is easy to integrate into other projects.  A
4724 standalone JACK client and an LV2 plugin is also available.")
4725     (license license:lgpl2.1+)))
4726
4727 (define-public musescore
4728   (package
4729     (name "musescore")
4730     (version "3.6.2")
4731     (source
4732      (origin
4733        (method git-fetch)
4734        (uri (git-reference
4735              (url "https://github.com/musescore/MuseScore")
4736              (commit (string-append "v" version))))
4737        (file-name (git-file-name name version))
4738        (sha256
4739         (base32 "0szvb6mlzy9df9lrq546rrpixa480knzij1wgh6ilflxz87q048q"))
4740        (modules '((guix build utils)))
4741        (snippet
4742         ;; Remove unused libraries.
4743         '(begin
4744            (for-each delete-file-recursively
4745                      '("thirdparty/freetype"
4746                        "thirdparty/openssl"
4747                        "thirdparty/portmidi"
4748                        "thirdparty/qt-google-analytics"))
4749            #t))))
4750     (build-system qt-build-system)
4751     (arguments
4752      `(#:configure-flags
4753        `("-DBUILD_TELEMETRY_MODULE=OFF" ;don't phone home
4754          "-DBUILD_WEBENGINE=OFF"
4755          "-DDOWNLOAD_SOUNDFONT=OFF"
4756          "-DMUSESCORE_BUILD_CONFIG=release"
4757          "-DUSE_SYSTEM_FREETYPE=ON")
4758        ;; There are tests, but no simple target to run.  The command used to
4759        ;; run them is:
4760        ;;
4761        ;;   make debug && sudo make installdebug && cd \
4762        ;;   build.debug/mtest && make && ctest
4763        ;;
4764        ;; Basically, it requires to start a whole new build process.
4765        ;; So we simply skip them.
4766        #:tests? #f))
4767     (inputs
4768      `(("alsa-lib" ,alsa-lib)
4769        ("freetype" ,freetype)
4770        ("gtk+-bin" ,gtk+ "bin")         ;for gtk-update-icon-cache
4771        ("jack" ,jack-1)
4772        ("lame" ,lame)
4773        ("libogg" ,libogg)
4774        ("libsndfile" ,libsndfile)
4775        ("libvorbis" ,libvorbis)
4776        ("portaudio" ,portaudio)
4777        ("portmidi" ,portmidi)
4778        ("pulseaudio" ,pulseaudio)
4779        ("qtbase" ,qtbase-5)
4780        ("qtdeclarative" ,qtdeclarative)
4781        ("qtgraphicaleffects" ,qtgraphicaleffects)
4782        ("qtquickcontrols2" ,qtquickcontrols2)
4783        ("qtscript" ,qtscript)
4784        ("qtsvg" ,qtsvg)
4785        ("qtxmlpatterns" ,qtxmlpatterns)))
4786     (native-inputs
4787      `(("pkg-config" ,pkg-config)
4788        ("qttools" ,qttools)))
4789     (synopsis "Music composition and notation software")
4790     (description
4791      "MuseScore is a music score typesetter.  Its main purpose is the creation
4792 of high-quality engraved musical scores in a WYSIWYG environment.
4793
4794 It supports unlimited staves, linked parts and part extraction, tablature,
4795 MIDI input, percussion notation, cross-staff beaming, automatic transposition,
4796 lyrics (multiple verses), fretboard diagrams, and in general everything
4797 commonly used in sheet music.  Style options and style sheets to change the
4798 appearance and layout are provided.
4799
4800 MuseScore can also play back scores through the built-in sequencer and SoundFont
4801 sample library.")
4802     (home-page "https://musescore.org")
4803     (license license:gpl2)))
4804
4805 (define-public muse-sequencer
4806   (package
4807     (name "muse-sequencer")
4808     (version "4.0.0")
4809     (source (origin
4810               (method git-fetch)
4811               (uri (git-reference
4812                     (url "https://github.com/muse-sequencer/muse")
4813                     (commit version)))
4814               (file-name (git-file-name name version))
4815               (sha256
4816                (base32
4817                 "1gamr9ln10l26wwyin1a4grrqy6h05qzcgp28wsp85yczkpsh02c"))))
4818     (build-system qt-build-system)
4819     (arguments
4820      `(#:tests? #f ; there is no test target
4821        #:configure-flags
4822        (list "-DENABLE_VST_NATIVE=OFF"
4823              (string-append "-DCMAKE_EXE_LINKER_FLAGS="
4824                             "-Wl,-rpath="
4825                             (assoc-ref %outputs "out") "/lib/muse-"
4826                             ,(version-major+minor version) "/modules")
4827              (string-append "-DCMAKE_SHARED_LINKER_FLAGS="
4828                             "-Wl,-rpath="
4829                             (assoc-ref %outputs "out") "/lib/muse-"
4830                             ,(version-major+minor version) "/modules"))
4831        #:phases
4832        (modify-phases %standard-phases
4833          (add-after 'unpack 'chdir
4834            (lambda _ (chdir "src"))))))
4835     (inputs
4836      `(("alsa-lib" ,alsa-lib)
4837        ("dssi" ,dssi)
4838        ("fluidsynth" ,fluidsynth)
4839        ("glib" ,glib)
4840        ("jack" ,jack-1)
4841        ("ladspa" ,ladspa)
4842        ("lash" ,lash)
4843        ("libinstpatch" ,libinstpatch)
4844        ("liblo" ,liblo)
4845        ("libsamplerate" ,libsamplerate)
4846        ("libsndfile" ,libsndfile)
4847        ("lilv" ,lilv)
4848        ("lrdf" ,lrdf)
4849        ("lv2" ,lv2)
4850        ("pcre" ,pcre)
4851        ("pulseaudio" ,pulseaudio) ; required by rtaudio
4852        ("qtbase" ,qtbase-5)
4853        ("qtsvg" ,qtsvg)
4854        ("rtaudio" ,rtaudio)
4855        ("rubberband" ,rubberband)
4856        ("sord" ,sord)))
4857     (native-inputs
4858      `(("perl" ,perl)
4859        ("pkg-config" ,pkg-config)
4860        ("python" ,python-wrapper)
4861        ("qttools" ,qttools)))
4862     (home-page "https://muse-sequencer.github.io/")
4863     (synopsis "MIDI/Audio sequencer")
4864     (description "MusE is a MIDI/Audio sequencer with recording and editing
4865 capabilities.  Its audio sequencer supports the LADSPA, DSSI, and LV2 audio
4866 plugin formats; the MIDI sequencer provides a piano roll, a drum editor, a
4867 list view, and a score editor.  MusE aims to be a complete multitrack virtual
4868 studio.")
4869     (license license:gpl2+)))
4870
4871 (define-public gsequencer
4872   (package
4873     (name "gsequencer")
4874     (version "3.8.13")
4875     (source
4876      (origin
4877        (method git-fetch)
4878        (uri (git-reference
4879              (url "https://git.savannah.gnu.org/git/gsequencer.git/")
4880              (commit version)))
4881        (file-name (git-file-name name version))
4882        (sha256
4883         (base32 "1gwy7fhbxgrd5n6afq1hnxc6p873wsh4qs63yhkkdfzyl7s412z4"))))
4884     (build-system glib-or-gtk-build-system)
4885     (arguments
4886      `(#:phases
4887        (modify-phases %standard-phases
4888          (add-before 'build 'prepare-x-for-test
4889            (lambda _
4890              (system "Xvfb &")
4891              (setenv "DISPLAY" ":0"))))))
4892     (native-inputs
4893      `(("autoconf" ,autoconf)
4894        ("automake" ,automake)
4895        ("cunit" ,cunit)
4896        ("gettext" ,gettext-minimal)
4897        ("gobject-introspection" ,gobject-introspection)
4898        ("gtk-doc" ,gtk-doc)
4899        ("libtool" ,libtool)
4900        ("libxslt" ,libxslt)
4901        ("pkg-config" ,pkg-config)
4902        ("xorg-server" ,xorg-server-for-tests)))
4903     (inputs
4904      `(("alsa-lib" ,alsa-lib)
4905        ("dssi" ,dssi)
4906        ("fftw" ,fftw)
4907        ("gst-plugins-base" ,gst-plugins-base)
4908        ("gstreamer" ,gstreamer)
4909        ("gtk+" ,gtk+)
4910        ("jack" ,jack-1)
4911        ("ladspa" ,ladspa)
4912        ("libinstpatch" ,libinstpatch)
4913        ("libsamplerate" ,libsamplerate)
4914        ("libsndfile" ,libsndfile)
4915        ("libsoup" ,libsoup)
4916        ("libuuid" ,util-linux "lib")
4917        ("libxml2" ,libxml2)
4918        ("lv2" ,lv2)
4919        ("pulseaudio" ,pulseaudio)
4920        ("webkitgtk" ,webkitgtk)))
4921     (home-page "https://nongnu.org/gsequencer/")
4922     (synopsis "Advanced Gtk+ Sequencer")
4923     (description
4924      "GSequencer allows you to play, capture and create music.  There is a piano
4925 roll, automation and wave form editor.  It has machines for playing drum samples,
4926 Soundfont2 sound containers and synthesizers.  They usually can be connected to a
4927 MIDI input source (instrument).  It has support for various audio backends like
4928 ALSA, Pulseaudio, JACK, OSSv4 and CoreAudio.")
4929     (license license:gpl3+)))
4930
4931 (define-public dssi
4932   (package
4933     (name "dssi")
4934     (version "1.1.1")
4935     (source (origin
4936               (method url-fetch)
4937               (uri (string-append
4938                     "mirror://sourceforge/dssi/dssi/" version
4939                     "/dssi-" version ".tar.gz"))
4940               (sha256
4941                (base32
4942                 "0kl1hzhb7cykzkrqcqgq1dk4xcgrcxv0jja251aq4z4l783jpj7j"))))
4943     (build-system gnu-build-system)
4944     (inputs
4945      `(("alsa-lib" ,alsa-lib)
4946        ("jack" ,jack-1)
4947        ("ladspa" ,ladspa)
4948        ("libsamplerate" ,libsamplerate)
4949        ("libsndfile" ,libsndfile)
4950        ("liblo" ,liblo)))
4951     (native-inputs
4952      `(("pkg-config" ,pkg-config)))
4953     (synopsis "Audio plugin API for soft synths and effects")
4954     (description "DSSI is a plugin API for software instruments with user
4955 interfaces, permitting them to be hosted in-process by audio applications.
4956 It is intended to be simple, GUI-toolkit-agnostic, and slightly biased
4957 towards familiarity with MIDI.  The DSSI distribution package contains
4958 a JACK/ALSA-sequencer reference host and some plugins as well as the
4959 specification and header.")
4960     (home-page "http://dssi.sourceforge.net/")
4961     ;; The DSSI interface is LGPL2.1+, some tests and examples are GPL2+.
4962     ;; The vast majority of examples are in the public domain.
4963     (license (list license:lgpl2.1+ license:gpl2+))))
4964
4965 (define-public rosegarden
4966   (package
4967     (name "rosegarden")
4968     (version "21.06")
4969     (source
4970      (origin
4971        (method url-fetch)
4972        (uri (string-append "mirror://sourceforge/rosegarden/rosegarden/"
4973                            version "/rosegarden-" version ".tar.bz2"))
4974        (sha256
4975         (base32 "0rhbmygzh62hc3mkq60lh9r28wvfkhzzd5kspl1ll0h1ipjgvr6d"))))
4976     (build-system cmake-build-system)
4977     (arguments
4978      `(#:configure-flags '("-DCMAKE_BUILD_TYPE=Release")
4979        #:phases
4980        (modify-phases %standard-phases
4981          (add-after 'unpack 'patch-tests
4982            (lambda _
4983              (substitute* "CMakeLists.txt"
4984                (("BUILD_TESTING OFF") "BUILD_TESTING ON")
4985                ;; Make tests work.
4986                ((" -fvisibility=hidden") ""))
4987              #t))
4988          (add-after 'unpack 'fix-references
4989            (lambda* (#:key inputs #:allow-other-keys)
4990              (substitute* "src/gui/general/ProjectPackager.cpp"
4991                (("\"flac\\>")
4992                 (string-append "\"" (assoc-ref inputs "flac") "/bin/flac"))
4993                (("\"wavpack\\>")
4994                 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wavpack"))
4995                (("\"wvunpack\\>")
4996                 (string-append "\"" (assoc-ref inputs "wavpack") "/bin/wvunpack"))
4997                (("\"bash\\>")
4998                 (string-append "\"" (assoc-ref inputs "bash") "/bin/bash"))
4999                (("\"tar\\>")
5000                 (string-append "\"" (assoc-ref inputs "tar") "/bin/tar")))
5001              (substitute* "src/gui/general/LilyPondProcessor.cpp"
5002                (("\"convert-ly\\>")
5003                 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/convert-ly"))
5004                (("\"lilypond\\>")
5005                 (string-append "\"" (assoc-ref inputs "lilypond") "/bin/lilypond")))
5006              #t))
5007          (add-after 'unpack 'make-reproducible
5008            (lambda _
5009              ;; Prevent Last-Modified from being written.
5010              ;; The "*.qm" files that are used in locale.qrc would have a new
5011              ;; mtime otherwise that is written into qrc_locale.cpp in the
5012              ;; end - except when we disable it.
5013              (substitute* "src/CMakeLists.txt"
5014                (("COMMAND [$][{]QT_RCC_EXECUTABLE[}]")
5015                 "COMMAND ${QT_RCC_EXECUTABLE} --format-version 1")
5016                ;; Extraneous.
5017                ;;(("qt5_add_resources[(]rg_SOURCES ../data/data.qrc[)]")
5018                ;; "qt5_add_resources(rg_SOURCES ../data/data.qrc OPTIONS --format-version 1)")
5019                )
5020              ;; Make hashtable traversal order predicable.
5021              (setenv "QT_RCC_TEST" "1") ; important
5022              #t))
5023          (add-before 'check 'prepare-check
5024            (lambda _
5025              (setenv "QT_QPA_PLATFORM" "offscreen")
5026              ;; Tests create files in $HOME/.local/share/rosegarden .
5027              (mkdir-p "/tmp/foo")
5028              (setenv "HOME" "/tmp/foo")
5029              (setenv "XDG_RUNTIME_DIR" "/tmp/foo")
5030              #t)))))
5031     (inputs
5032      `(("alsa-lib" ,alsa-lib)
5033        ("bash" ,bash)
5034        ("dssi" ,dssi)
5035        ("flac" ,flac)
5036        ("fftwf" ,fftwf)
5037        ("jack" ,jack-1)
5038        ("ladspa" ,ladspa)
5039        ("liblo" ,liblo)
5040        ("libsamplerate" ,libsamplerate)
5041        ("lilypond" ,lilypond)
5042        ("lrdf" ,lrdf)
5043        ("qtbase" ,qtbase-5)
5044        ("tar" ,tar)
5045        ("lirc" ,lirc)
5046        ("wavpack" ,wavpack)
5047        ("zlib" ,zlib)))
5048     (native-inputs
5049      `(("pkg-config" ,pkg-config)
5050        ("qtlinguist" ,qttools)))
5051     (synopsis "Music composition and editing environment based around a MIDI
5052 sequencer")
5053     (description "Rosegarden is a music composition and editing environment
5054 based around a MIDI sequencer that features a rich understanding of music
5055 notation and includes basic support for digital audio.")
5056     (home-page "https://www.rosegardenmusic.com/")
5057     (license license:gpl2)))
5058
5059 (define-public patchmatrix
5060   (package
5061     (name "patchmatrix")
5062     (version "0.16.0")
5063     (source (origin
5064               (method git-fetch)
5065               (uri (git-reference
5066                     (url "https://github.com/OpenMusicKontrollers/patchmatrix")
5067                     (commit version)))
5068               (file-name (git-file-name "patchmatrix" version))
5069               (sha256
5070                (base32
5071                 "020vp7zzxxzzjfic57vkpg68dm8hi98ilr1bj88xjsv6i47xmjbn"))))
5072     (build-system meson-build-system)
5073     (arguments '(#:tests? #f))          ; no test target
5074     (inputs
5075      `(("jack" ,jack-1)
5076        ("lv2" ,lv2)
5077        ("mesa" ,mesa)))
5078     (native-inputs
5079      `(("pkg-config" ,pkg-config)))
5080     (home-page "https://github.com/OpenMusicKontrollers/patchmatrix")
5081     (synopsis "Simple JACK patch bay")
5082     (description "PatchMatrix is a patch bay for the JACK audio connection
5083 kit.  It provides a patch bay in flow matrix style for audio, MIDI, CV, and
5084 OSC connections.")
5085     (license license:artistic2.0)))
5086
5087 (define-public sorcer
5088   (package
5089     (name "sorcer")
5090     (version "1.1.3")
5091     (source (origin
5092               (method url-fetch)
5093               (uri (string-append "https://github.com/openAVproductions/"
5094                                   "openAV-Sorcer/archive/release-"
5095                                   version ".tar.gz"))
5096               (file-name (string-append name "-" version ".tar.gz"))
5097               (sha256
5098                (base32
5099                 "07iyqj28wm0xc4arrq893bm12xjpz65db7ynrlmf6w8krg8wjmd0"))))
5100     (build-system cmake-build-system)
5101     (arguments
5102      `(#:tests? #f                      ; no tests included
5103        #:phases
5104        (modify-phases %standard-phases
5105          (add-after 'unpack 'remove-architecture-specific-flags
5106            (lambda _
5107              (substitute* "CMakeLists.txt"
5108                (("-msse2 -mfpmath=sse") ""))
5109              #t))
5110          (add-after 'unpack 'build-faust-sources
5111            (lambda* (#:key inputs #:allow-other-keys)
5112              (with-directory-excursion "faust"
5113                (delete-file "main.cpp")
5114                (invoke "faust" "-i"
5115                        "-a" "lv2synth.cpp"
5116                        "-o" "main.cpp" "main.dsp")))))))
5117     (inputs
5118      `(("boost" ,boost)
5119        ("lv2" ,lv2)
5120        ("ntk" ,ntk)))
5121     (native-inputs
5122      `(("faust" ,faust)
5123        ("pkg-config" ,pkg-config)))
5124     (home-page "http://openavproductions.com/sorcer/")
5125     (synopsis "Wavetable LV2 plugin synth")
5126     (description "Sorcer is a wavetable LV2 plugin synthesizer, targeted at
5127 the electronic or dubstep genre.")
5128     (license license:gpl3+)))
5129
5130 (define-public sonivox-eas
5131   (package
5132     (name "sonivox-eas")
5133     (version "1.3.0")
5134     (source (origin
5135               (method git-fetch)
5136               (uri (git-reference
5137                     (url "https://github.com/pedrolcl/Linux-SonivoxEas")
5138                     (commit (string-append "v" version))))
5139               (file-name (string-append name "-" version "-checkout"))
5140               (sha256
5141                (base32
5142                 "1ygmlrsdzxii2dvj6id2ai3xv3klw2x67ip5rcp823jzczl0wpjd"))))
5143     (build-system cmake-build-system)
5144     (arguments '(#:tests? #f)) ; there are no tests
5145     (inputs
5146      `(("alsa-lib" ,alsa-lib)
5147        ("drumstick" ,drumstick)
5148        ("pulseaudio" ,pulseaudio)
5149        ("qtbase" ,qtbase-5)))
5150     (native-inputs
5151      `(("pkg-config" ,pkg-config)))
5152     (home-page "https://github.com/pedrolcl/Linux-SonivoxEas")
5153     (synopsis "MIDI synthesizer library")
5154     (description "This project is a real time General MIDI synthesizer based
5155 on the Sonivox EAS Synthesizer by Google.  It does not need external
5156 soundfonts, using embedded samples instead.")
5157     ;; Sonivox is released under the ASL2.0; the rest of the code is under
5158     ;; GPLv2+.
5159     (license (list license:gpl2+ license:asl2.0))))
5160
5161 (define-public whysynth
5162   (package
5163     (name "whysynth")
5164     (version "20170701")
5165     (source (origin
5166               (method url-fetch)
5167               (uri (string-append "http://smbolton.com/whysynth/whysynth-"
5168                                   version ".tar.bz2"))
5169               (sha256
5170                (base32
5171                 "02qbn0hbvn1iym4zxv35b201blg31yjpgh71h8db0j5zls2xc0m6"))))
5172     (build-system gnu-build-system)
5173     (inputs
5174      `(("dssi" ,dssi)
5175        ("liblo" ,liblo)
5176        ("fftwf" ,fftwf)
5177        ("gtk+" ,gtk+-2)
5178        ("ladspa" ,ladspa)
5179        ("alsa-lib" ,alsa-lib)))
5180     (native-inputs
5181      `(("pkg-config" ,pkg-config)))
5182     (home-page "http://smbolton.com/whysynth.html")
5183     (synopsis "DSSI software synthesizer")
5184     (description "WhySynth is a versatile softsynth which operates as a plugin
5185 for the DSSI Soft Synth Interface.  A brief list of features:
5186
5187 @enumerate
5188 @item 4 oscillators, 2 filters, 3 LFOs, and 5 envelope generators per voice.
5189 @item 11 oscillator modes: minBLEP, wavecycle, chorused wavecycle,
5190   asynchronous granular, three FM modes, waveshaper, noise, PADsynth, and phase
5191   distortion.
5192 @item 10 filter modes.
5193 @item flexible modulation and mixdown options, plus effects.
5194 @end enumerate
5195 ")
5196     (license license:gpl2+)))
5197
5198 (define-public libdiscid
5199   (package
5200     (name "libdiscid")
5201     (version "0.6.2")
5202     (source
5203      (origin
5204        (method url-fetch)
5205        (uri (string-append
5206              "http://ftp.musicbrainz.org/pub/musicbrainz/libdiscid/libdiscid-"
5207              version ".tar.gz"))
5208        (sha256
5209         (base32
5210          "1f9irlj3dpb5gyfdnb1m4skbjvx4d4hwiz2152f83m0d9jn47r7r"))))
5211     (arguments `(#:test-target "check"))
5212     (build-system cmake-build-system)
5213     (home-page "https://musicbrainz.org/doc/libdiscid")
5214     (synopsis "Disc id reader library")
5215     (description "libdiscid is a C library for creating MusicBrainz and freedb
5216 disc IDs from audio CDs.  It reads a CD's table of contents (TOC) and generates
5217 an identifier which can be used to lookup the CD at MusicBrainz.  Additionally,
5218 it provides a submission URL for adding the disc ID to the database and gathers
5219 ISRCs and the MCN (=UPC/EAN) from disc.")
5220     (license license:lgpl2.1+)))
5221
5222 (define-public python-discid
5223   (package
5224     (name "python-discid")
5225     (version "1.1.1")
5226     (source
5227      (origin
5228        (method url-fetch)
5229        (uri (pypi-uri "discid" version))
5230        (sha256
5231         (base32
5232          "1fgp67nhqlbvhhwrcxq5avil7alpzw4s4579hlyvxzbphdnbz8vq"))))
5233     (build-system python-build-system)
5234     (inputs
5235      `(("libdiscid" ,libdiscid)))
5236     (arguments
5237      `(#:phases
5238        (modify-phases %standard-phases
5239          (add-before 'build 'set-libdiscid
5240            ;; Set path of libdiscid
5241            (lambda* (#:key inputs #:allow-other-keys)
5242              (let ((discid (assoc-ref inputs "libdiscid")))
5243                (substitute* "discid/libdiscid.py"
5244                  (("lib_name = (.*)$" all name)
5245                   (string-append "lib_name = \"" discid
5246                                  "/lib/libdiscid.so.0\"\n")))
5247                #t))))))
5248     (home-page "https://python-discid.readthedocs.io/")
5249     (synopsis "Python bindings for Libdiscid")
5250     (description
5251      "This package provides Python bindings for the Libdiscid library.  The
5252 main purpose is the calculation of @url{https://musicbrainz.org/doc/Disc%20ID,
5253 Disc IDs} for use with the MusicBrainz database.  Additionally the disc
5254 @dfn{Media Catalog Number} (MCN) and track @dfn{International Standard
5255 Recording Code} (ISRC) can be extracted.}")
5256     (license license:lgpl3+)))
5257
5258 (define-public libmusicbrainz
5259   (package
5260     (name "libmusicbrainz")
5261     (version "5.1.0")
5262     (source
5263      (origin
5264        (method url-fetch)
5265        (uri (string-append
5266              "https://github.com/metabrainz/libmusicbrainz/releases/download/release-"
5267              version "/libmusicbrainz-" version ".tar.gz"))
5268        (sha256
5269         (base32
5270          "0ikb9igyyk28jm34raxfzkw2qyn4nzzwsymdyprp7cmvi6g2ajb7"))))
5271     (build-system cmake-build-system)
5272     (arguments
5273      `(#:phases
5274        (modify-phases %standard-phases
5275          (replace 'check
5276            (lambda _
5277              ;; requires network connections
5278              ;; (invoke "tests/mbtest")
5279              (invoke "tests/ctest")
5280              #t)))))
5281     (inputs `(("neon" ,neon)
5282               ("libxml2" ,libxml2)))
5283     (native-inputs `(("pkg-config" ,pkg-config)))
5284     (home-page "https://musicbrainz.org/doc/libmusicbrainz")
5285     (synopsis "MusicBrainz client library")
5286     (description "The MusicBrainz Client Library (libmusicbrainz), also known as
5287 mb_client, is a development library geared towards developers who wish to add
5288 MusicBrainz lookup capabilities to their applications.")
5289     (license license:lgpl2.1+)))
5290
5291 (define-public perl-musicbrainz-discid
5292   (package
5293     (name "perl-musicbrainz-discid")
5294     (version "0.06")
5295     (source (origin
5296               (method url-fetch)
5297               (uri (string-append
5298                     "mirror://cpan/authors/id/N/NJ/NJH/MusicBrainz-DiscID-"
5299                     version ".tar.gz"))
5300               (sha256
5301                (base32
5302                 "1azc91jnwa3gdmy9pc8mflakgvsvf69ywwlqllxmdzwpk386w2xs"))))
5303     (build-system perl-build-system)
5304     (native-inputs `(("pkg-config" ,pkg-config)
5305                      ("which" ,which)))
5306     (inputs `(("libdiscid" ,libdiscid)))
5307     (home-page "https://metacpan.org/release/MusicBrainz-DiscID")
5308     (synopsis "Perl interface to the MusicBrainz libdiscid library")
5309     (description
5310      "The @code{MusicBrainz::DiscID} module is a Perl interface to the
5311 MusicBrainz libdiscid library, allowing you to manipulate digital audio
5312 compact disc (CDDA) identifiers.")
5313     (license license:gpl2)))
5314
5315 (define-public perl-webservice-musicbrainz
5316   (package
5317     (name "perl-webservice-musicbrainz")
5318     (version "1.0.5")
5319     (source (origin
5320               (method url-fetch)
5321               (uri (string-append
5322                     "mirror://cpan/authors/id/B/BF/BFAIST/WebService-MusicBrainz-"
5323                     version ".tar.gz"))
5324               (sha256
5325                (base32
5326                 "16chs1l58cf000d5kalkyph3p31ci73p1rlyx98mfv10d2cq6fsj"))))
5327     (build-system perl-build-system)
5328     (arguments
5329      ;; Tests try to connect to http://musicbrainz.org.
5330      '(#:tests? #f))
5331     (native-inputs
5332      `(("perl-module-build" ,perl-module-build)))
5333     (propagated-inputs
5334      `(("perl-mojolicious" ,perl-mojolicious)))
5335     (home-page "https://metacpan.org/release/WebService-MusicBrainz")
5336     (synopsis "Web service API to the MusicBrainz database")
5337     (description
5338      "This module searches the MusicBrainz database through their web service
5339 at @code{musicbrainz.org}.")
5340     (license license:perl-license)))
5341
5342 (define-public clyrics
5343   (package
5344     (name "clyrics")
5345     (version "0.12")
5346     (source
5347      (origin
5348        (method git-fetch)
5349        (uri (git-reference
5350              (url "https://github.com/trizen/clyrics")
5351              (commit version)))
5352        (file-name (git-file-name name version))
5353        (sha256
5354         (base32 "1l9iqz6vxrrxapv7s110g360bqxksir4dcqd8w0l4lhmnfmz3vnk"))))
5355     (build-system trivial-build-system)
5356     (inputs
5357      `(("bash" ,bash)                   ; for the wrapped program
5358        ("perl" ,perl)
5359        ("perl-www-mechanize" ,perl-www-mechanize)
5360        ("perl-lwp-protocol-https" ,perl-lwp-protocol-https)
5361        ;; Required or else LWP will fail with "GET https://www.google.com/ ==>
5362        ;; 500 Can't verify SSL peers without knowing which Certificate
5363        ;; Authorities to trust".
5364        ("perl-mozilla-ca" ,perl-mozilla-ca)))
5365     (arguments
5366      `(#:modules ((guix build utils))
5367        #:builder (begin
5368                    (use-modules (guix build utils)
5369                                 (ice-9 match)
5370                                 (srfi srfi-26))
5371                    (let* ((source (assoc-ref %build-inputs "source"))
5372                           (output (assoc-ref %outputs "out")))
5373                      (setenv "PATH"
5374                              (string-append
5375                               (assoc-ref %build-inputs "bash") "/bin" ":"
5376                               (assoc-ref %build-inputs "perl") "/bin" ":"))
5377                      (copy-recursively source (getcwd))
5378                      (patch-shebang "clyrics")
5379                      (substitute* "clyrics"
5380                        (("/usr/share") output))
5381                      (install-file "clyrics" (string-append output "/bin"))
5382                      (wrap-program (string-append output "/bin/clyrics")
5383                        `("PERL5LIB" ":" =
5384                          ,(delete
5385                            ""
5386                            (map (match-lambda
5387                                  (((?  (cut string-prefix? "perl-" <>) name) . dir)
5388                                   (string-append dir "/lib/perl5/site_perl"))
5389                                  (_ ""))
5390                                 %build-inputs))))
5391                      (copy-recursively "plugins" (string-append output "/clyrics"))
5392                      #t))))
5393     (home-page "https://github.com/trizen/clyrics")
5394     (synopsis "Extensible lyrics fetcher")
5395     (description
5396      "Clyrics is an extensible command-line tool to fetch the lyrics of songs.
5397 It can be used in daemon mode along with the Music-on-Console (MOC) and cmus
5398 console music players.")
5399     (license license:gpl3+)))
5400
5401 (define-public demlo
5402   (let ((commit "fe9ec4c8ac2fa995ec18e6ac86d50d46df06ec01")
5403         (revision "0"))
5404     (package
5405       (name "demlo")
5406       (version (git-version "3.8" revision commit))
5407       (source
5408        (origin
5409          (method git-fetch)
5410          (uri (git-reference
5411                (url
5412                 "https://gitlab.com/ambrevar/demlo")
5413                (commit commit)))
5414          (file-name (git-file-name name version))
5415          (sha256
5416           (base32
5417            "1afkbqhzn6da7zaf5ab7dvyqj1izqhzprwfb4hw448fllda9bdvk"))))
5418       (build-system go-build-system)
5419       (native-inputs
5420        `(("lua" ,lua)
5421          ("go-github-com-mattn-go-isatty" ,go-github-com-mattn-go-isatty)
5422          ("go-github-com-mattn-go-colorable" ,go-github-com-mattn-go-colorable)
5423          ("go-github-com-aarzilli-golua" ,go-github-com-aarzilli-golua)
5424          ("go-gitlab-com-ambrevar-damerau" ,go-gitlab-com-ambrevar-damerau)
5425          ("go-gitlab-com-ambrevar-golua-unicode" ,go-gitlab-com-ambrevar-golua-unicode)
5426          ("go-github-com-mgutz-ansi" ,go-github-com-mgutz-ansi)
5427          ("go-github-com-michiwend-gomusicbrainz" ,go-github-com-michiwend-gomusicbrainz)
5428          ("go-github-com-stevedonovan-luar" ,go-github-com-stevedonovan-luar)
5429          ("go-github-com-wtolson-go-taglib" ,go-github-com-wtolson-go-taglib)
5430          ("go-github-com-yookoala-realpath" ,go-github-com-yookoala-realpath)))
5431       (inputs
5432        `(("chromaprint" ,chromaprint)
5433          ("ffmpeg" ,ffmpeg)))
5434       (arguments
5435        `(#:import-path "gitlab.com/ambrevar/demlo"
5436          #:phases
5437          (modify-phases %standard-phases
5438            (add-after 'install 'wrap-program
5439              (lambda* (#:key inputs outputs #:allow-other-keys)
5440                (let ((out (assoc-ref outputs "out"))
5441                      (ffmpeg (assoc-ref inputs "ffmpeg"))
5442                      (chromaprint (assoc-ref inputs "chromaprint")))
5443                  (wrap-program (string-append out "/bin/demlo")
5444                    `("XDG_DATA_DIRS" ":" prefix (,out))
5445                    `("PATH" ":" prefix
5446                      ,(map (lambda (dir)
5447                              (string-append dir "/bin:"
5448                                             dir "/sbin"))
5449                            (list ffmpeg chromaprint))))
5450                  #t)))
5451            (add-after 'install 'install-scripts
5452              (lambda* (#:key outputs #:allow-other-keys)
5453                (let* ((out (assoc-ref outputs "out"))
5454                       (root (string-append out "/src/gitlab.com/ambrevar/demlo"))
5455                       (xdg-data-dirs (string-append out "/demlo")))
5456                  (copy-recursively (string-append root "/actions")
5457                                    (string-append xdg-data-dirs "/actions"))
5458                  (copy-recursively (string-append root "/scripts")
5459                                    (string-append xdg-data-dirs "/scripts"))
5460                  (install-file (string-append root "/config.lua") xdg-data-dirs)
5461                  ;; TODO: Test fish completion.
5462                  (install-file (string-append root "/completion/demlo.fish")
5463                                (string-append out "/share/fish/vendor_completions.d"))
5464                  #t))))))
5465       (home-page "https://gitlab.com/ambrevar/demlo")
5466       (synopsis "Dynamic and extensible music library organizer")
5467       (description "Demlo is a music library organizer.  It can encode, fix
5468 case, change folder hierarchy according to tags or file properties, tag from
5469 an online database, copy covers while ignoring duplicates or those below a
5470 quality threshold, and much more.  It makes it possible to manage your
5471 libraries uniformly and dynamically.  You can write your own rules to fit your
5472 needs best.
5473
5474 Demlo can address any of these recurring music library issues (and much more):
5475
5476 @itemize
5477 @item Fix the lack of folder structure.
5478 @item Normalize tags, fix their case, chose which tags to keep and which to
5479 discard.
5480 @item Handle lossy and lossless audio differently.
5481 @item Handle mp3 id3tags hell...
5482 @item Handle multiple covers, whether embedded and/or external, resize covers,
5483 discard bad quality ones.
5484 @end itemize\n")
5485       (license license:expat))))
5486
5487 (define-public fmit
5488   (package
5489     (name "fmit")
5490     (version "1.2.14")
5491     (source (origin
5492               (method git-fetch)
5493               (uri (git-reference
5494                     (url "https://github.com/gillesdegottex/fmit/")
5495                     (commit (string-append "v" version))))
5496               (file-name (git-file-name name version))
5497               (sha256
5498                (base32
5499                 "1q062pfwz2vr9hbfn29fv54ip3jqfd9r99nhpr8w7mn1csy38azx"))))
5500     (build-system gnu-build-system)
5501     (arguments
5502      '(#:phases
5503        (modify-phases %standard-phases
5504          (delete 'configure)
5505          (add-before 'build 'qmake
5506            (lambda _
5507              (let ((out (assoc-ref %outputs "out")))
5508                (invoke "qmake"
5509                        "fmit.pro"
5510                        (string-append "PREFIX=" out)
5511                        (string-append "PREFIXSHORTCUT=" out)
5512                        "CONFIG+=acs_qt acs_alsa acs_jack acs_portaudio"))))
5513          (add-after 'install 'wrap-executable
5514            (lambda* (#:key inputs outputs #:allow-other-keys)
5515              (let ((out (assoc-ref outputs "out")))
5516                (wrap-program (string-append out "/bin/fmit")
5517                  `("QT_PLUGIN_PATH" ":" prefix
5518                    ,(map (lambda (label)
5519                            (string-append (assoc-ref inputs label)
5520                                           "/lib/qt5/plugins"))
5521                          '("qtbase" "qtmultimedia" "qtsvg")))
5522                  `("QML2_IMPORT_PATH" ":" prefix
5523                    ,(map (lambda (label)
5524                            (string-append (assoc-ref inputs label)
5525                                           "/lib/qt5/qml"))
5526                          '("qtmultimedia"))))
5527                #t))))))
5528     (inputs
5529      `(("alsa-lib" ,alsa-lib)
5530        ("fftw" ,fftw)
5531        ("jack" ,jack-1)
5532        ("portaudio" ,portaudio)
5533        ("qtbase" ,qtbase-5)
5534        ("qtmultimedia" ,qtmultimedia)
5535        ("qtsvg" ,qtsvg)))
5536     (native-inputs
5537      `(("gettext" ,gettext-minimal)
5538        ("hicolor-icon-theme" ,hicolor-icon-theme)
5539        ("itstool" ,itstool)
5540        ("qttools" ,qttools)))
5541     (synopsis "Musical instrument tuner")
5542     (description "FMIT is a graphical utility for tuning musical instruments,
5543 with error and volume history, and advanced features.")
5544     (home-page "https://gillesdegottex.github.io/fmit/")
5545     ;; Most of the code is under GPL2+, but some abstract or helper classes
5546     ;; are under LGPL2.1.
5547     (license (list license:gpl2+ license:lgpl2.1))))
5548
5549 (define-public mloop
5550   (let ((commit "adebff98b0b4dc5872a03acb82e89c77cb29c127")
5551         (revision "0"))
5552     (package
5553       (name "mloop")
5554       (version (git-version "0.0.1" revision commit))
5555       (source (origin
5556                 (method git-fetch)
5557                 (uri (git-reference
5558                       (url "http://git.fuzzle.org/mloop")
5559                       (commit commit)))
5560                 (file-name (git-file-name name version))
5561                 (sha256
5562                  (base32
5563                   "175gxvg5slq0bllcx1c381rjlq3xpxww8c3kpiw5i2kfr4m52myz"))))
5564       (build-system waf-build-system)
5565       (arguments
5566        `(#:python ,python-2
5567          #:tests? #f))                     ; no "check" target
5568       (inputs
5569        `(("jack" ,jack-1)
5570          ("ncurses" ,ncurses)))
5571       (native-inputs
5572        `(("pkg-config" ,pkg-config)))
5573       (home-page "https://fuzzle.org/~petern/mloop.html")
5574       (synopsis "Live MIDI looper")
5575       (description "mloop is a live MIDI looping system, using jack-midi.
5576 Loops are recorded, optionally with beat quantization, and can then be played
5577 back, either once or looping.  A 'note cache' system is implemented to
5578 remember which notes are pressed and their velocities.  This allows for a loop
5579 to start off with the currently pressed notes, making seamless loops much
5580 easier to perform.  Features include:
5581
5582 @itemize
5583 @item Quantisation; end a loop on a beat exactly.
5584 @item Delayed recording; wait for a MIDI event before starting a loop record.
5585 @item Adjust tempo; Playback speed of loops can be adjusted on the fly.
5586 @end itemize\n")
5587       (license license:gpl2))))
5588
5589 (define-public pragha
5590   (package
5591     (name "pragha")
5592     (version "1.3.4")
5593     (source (origin
5594               (method url-fetch)
5595               (uri (string-append "https://github.com/pragha-music-player/pragha/"
5596                                   "releases/download/v" version "/pragha-" version
5597                                   ".tar.bz2"))
5598               (sha256
5599                (base32
5600                 "19kbhq99bkimx3aqrdzln0vlr4slkpx6kq66j731jvqyq76nlkp5"))))
5601     (build-system glib-or-gtk-build-system)
5602     (native-inputs
5603      `(("intltool" ,intltool)
5604        ("pkg-config" ,pkg-config)))
5605     (inputs
5606      `(("glib" ,glib)
5607        ("grilo" ,grilo)
5608        ("gstreamer" ,gstreamer)
5609        ("gst-plugins-base" ,gst-plugins-base)
5610        ("gst-plugins-good" ,gst-plugins-good)
5611        ("gtk+" ,gtk+)
5612        ("libcddb" ,libcddb)
5613        ("libcdio" ,libcdio)
5614        ("libcdio-paranoia" ,libcdio-paranoia)
5615        ("libgudev" ,libgudev)
5616        ("libnotify" ,libnotify)
5617        ("libpeas" ,libpeas)
5618        ("libsoup" ,libsoup)
5619        ("sqlite" ,sqlite)
5620        ("taglib" ,taglib)))
5621     (arguments
5622      `(#:phases
5623        (modify-phases %standard-phases
5624          (add-after 'install 'wrap-program
5625            (lambda* (#:key inputs outputs #:allow-other-keys)
5626              (let ((out (assoc-ref outputs "out"))
5627                    (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH")))
5628                (wrap-program (string-append out "/bin/pragha")
5629                  `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path)))
5630                #t))))))
5631     (home-page "https://pragha-music-player.github.io")
5632     (synopsis "Music player")
5633     (description "Pragha is a lightweight music player based on Gtk and
5634 sqlite.  It is constructed to be fast, light, and simultaneously tries to be
5635 complete without obstructing your daily work.")
5636     (license license:gpl3+)))
5637
5638 (define-public playerctl
5639   (package
5640     (name "playerctl")
5641     (version "2.2.1")
5642     (source (origin
5643               (method git-fetch)
5644               (uri (git-reference
5645                     (url "https://github.com/altdesktop/playerctl")
5646                     (commit (string-append "v" version))))
5647               (file-name (git-file-name name version))
5648               (sha256
5649                (base32
5650                 "17hi33sw3663qz5v54bqqil31sgkrlxkb2l5bgqk87pac6x2wnbz"))))
5651     (build-system meson-build-system)
5652     (arguments
5653      `(#:configure-flags '("-Dintrospection=false" "-Dgtk-doc=false")))
5654     (inputs `(("python-pygobject" ,python-pygobject)))
5655     (native-inputs
5656      `(("glib:bin" ,glib "bin")
5657        ("pkg-config" ,pkg-config)))
5658     (synopsis "Control MPRIS-supporting media player applications")
5659     (description
5660      "Playerctl is a command-line utility and library for controlling media
5661 players that implement the MPRIS D-Bus Interface Specification.  Playerctl
5662 makes it easy to bind player actions, such as play and pause, to media keys.
5663 You can also get metadata about the playing track such as the artist and title
5664 for integration into status line generators or other command-line tools.")
5665     (home-page "https://github.com/altdesktop/playerctl")
5666     (license license:lgpl3+)))
5667
5668 (define-public artyfx
5669   (package
5670     (name "artyfx")
5671     (version "1.3.1")
5672     (source (origin
5673               (method git-fetch)
5674               (uri (git-reference
5675                     (url
5676                      "https://github.com/openAVproductions/openAV-ArtyFX")
5677                     (commit (string-append "release-" version))))
5678               (file-name (git-file-name name version))
5679               (sha256
5680                (base32
5681                 "0cxikdnxgjk5gp6kmml4dx2jy2cy4x0c837h7bwraj2pfz0nfgqq"))))
5682     (build-system cmake-build-system)
5683     (arguments
5684      `(#:tests? #f                                ; no tests included
5685        #:phases
5686        (modify-phases %standard-phases
5687          (add-after 'unpack 'remove-architecture-specific-flags
5688            (lambda _
5689              (substitute* "CMakeLists.txt"
5690                (("-msse2 -mfpmath=sse") ""))
5691              #t)))))
5692     (inputs
5693      `(("cairo" ,cairo)
5694        ("libsndfile" ,libsndfile)))
5695     (native-inputs
5696      `(("pkg-config" ,pkg-config)
5697        ("lv2" ,lv2)))
5698     (home-page "http://openavproductions.com/artyfx/")
5699     (synopsis "Audio effect LV2 plugin bundle")
5700     (description "ArtyFX is an LV2 plugin bundle of artistic real-time audio
5701 effects.  It contains a bitcrusher, delay, distortion, equalizer, compressor,
5702 and reverb.")
5703     (license license:gpl2+)))
5704
5705 (define-public lsp-plugins
5706   (package
5707     (name "lsp-plugins")
5708     (version "1.1.26")
5709     (source
5710       (origin
5711         (method git-fetch)
5712         (uri (git-reference
5713                (url "https://github.com/sadko4u/lsp-plugins")
5714                (commit (string-append "lsp-plugins-" version))))
5715         (file-name (git-file-name name version))
5716         (sha256
5717          (base32 "1apw8zh3a3il4smkjji6bih4vbsymj0hjs10fgkrd4nazqkjvgyd"))))
5718     (build-system gnu-build-system)
5719     (arguments
5720      `(#:make-flags
5721        (list
5722          (string-append "CC=" ,(cc-for-target))
5723          "BUILD_MODULES=\"lv2 ladspa jack\"" "VST_UI=0"
5724          (string-append "PREFIX=" (assoc-ref %outputs "out"))
5725          (string-append "ETC_PATH=" (assoc-ref %outputs "out") "/etc"))
5726        #:phases
5727        (modify-phases %standard-phases
5728          (delete 'configure))           ; no configure script
5729        #:test-target "test"))
5730     (inputs
5731      `(("cairo" ,cairo)
5732        ("hicolor-icon-theme" ,hicolor-icon-theme)
5733        ("jack" ,jack-1)
5734        ("ladspa" ,ladspa)
5735        ("libsndfile" ,libsndfile)
5736        ("lv2" ,lv2)
5737        ("mesa" ,mesa)))
5738     (native-inputs
5739      `(("pkg-config" ,pkg-config)))
5740     (synopsis "Audio plugin collection")
5741     (description "LSP (Linux Studio Plugins) is a collection of audio
5742 plugins available as LADSPA/LV2 plugins and as standalone JACK
5743 applications.")
5744     (home-page "https://lsp-plug.in/")
5745     (license license:lgpl3)))
5746
5747 (define-public sherlock-lv2
5748   (package
5749     (name "sherlock-lv2")
5750     (version "0.24.0")
5751     (source
5752      (origin
5753        (method url-fetch)
5754        (uri (string-append
5755              "https://git.open-music-kontrollers.ch/lv2/"
5756              "sherlock.lv2/snapshot/sherlock.lv2-"
5757              version ".tar.xz"))
5758        (sha256
5759         (base32
5760          "08gjfx7vrsx9zvj04j8cr3vscxmq6jr2hbdi6dfgp1l1dnnpxsgq"))))
5761     (build-system meson-build-system)
5762     (inputs
5763      `(("glu" ,glu)
5764        ("libx11" ,libx11)
5765        ("mesa" ,mesa)
5766        ("sratom" ,sratom)))
5767     (native-inputs
5768      `(("flex" ,flex)
5769        ("pkg-config" ,pkg-config)))
5770     (synopsis "Investigative LV2 plugin bundle")
5771     (description "The Sherlock plugin bundle contains LV2 plugins for
5772 visualizing LV2 atom, MIDI and OSC events.  They can be used for monitoring
5773 and debugging of event signal flows inside plugin graphs.")
5774     (home-page "https://open-music-kontrollers.ch/lv2/sherlock/")
5775     (license license:artistic2.0)))
5776
5777 (define-public foo-yc20
5778   (package
5779     (name "foo-yc20")
5780     (version "1.3.0")
5781     (source
5782      (origin
5783        (method url-fetch)
5784        (uri (string-append "https://github.com/sampov2/foo-yc20/releases/download/"
5785                            version "/foo-yc20-" version ".tar.bz2"))
5786        (sha256
5787         (base32
5788          "1drzfyr7mzb58pdv0gsqkg6ds6kbgp6g25rrv1yya1611cljgvjh"))))
5789     (build-system gnu-build-system)
5790     (arguments
5791      `(#:make-flags
5792        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
5793        #:tests? #f  ; no automated test
5794        #:phases
5795        (modify-phases %standard-phases
5796          (replace 'configure
5797            (lambda _
5798              (substitute* "Makefile"
5799                (("-mtune=native") "")
5800                (("-march=native") ""))
5801              #t)))))
5802     (inputs
5803      `(("jack" ,jack-1)
5804        ("lv2" ,lv2)
5805        ("cairo" ,cairo)
5806        ("gtk" ,gtk+-2)))
5807     (native-inputs
5808      `(("faust" ,faust)
5809        ("pkg-config" ,pkg-config)))
5810     (home-page "https://foo-yc20.codeforcode.com/")
5811     (synopsis "Implementation of Yamaha YC-20 combo organ from 1969")
5812     (description "This is a Faust implementation of a 1969 designed Yamaha
5813 combo organ, the YC-20.  This package provides an LV2 plugin and a standalone
5814 version.  Processing for the organ is based on original schematics and
5815 measurements from a working specimen.  This instrument simulates the circutry
5816 as a whole to realisticly reproduce the features and flaws of the real deal.")
5817     ;; Note that after 1.3.0 the license was changed.
5818     (license license:gpl3+)))
5819
5820 (define-public spectacle-analyzer
5821   (package
5822     (name "spectacle-analyzer")
5823     (version "1.0")
5824     (source
5825      (origin
5826        (method git-fetch)
5827        (uri (git-reference
5828              (url "https://github.com/jpcima/spectacle")
5829              (commit (string-append "v" version))
5830              ;; Bundles a specific commit of the DISTRHO plugin framework.
5831              (recursive? #t)))
5832        (file-name (git-file-name name version))
5833        (sha256
5834         (base32
5835          "0xiqa6z8g68lcvnwhws4j7c4py35r9d20cirrili7ycyp3a6149a"))))
5836     (build-system gnu-build-system)
5837     (arguments
5838      `(#:tests? #f                      ; no check target
5839        #:make-flags
5840        (list "CC=gcc"
5841              (string-append "PREFIX=" (assoc-ref %outputs "out")))
5842        #:phases
5843        (modify-phases %standard-phases
5844          (delete 'configure))))
5845     (native-inputs
5846      `(("pkg-config" ,pkg-config)
5847        ("xxd" ,xxd)))
5848     (inputs
5849      `(("cairo" ,cairo)
5850        ("fftw" ,fftw)
5851        ("fftwf" ,fftwf)
5852        ("jack" ,jack-1)
5853        ("lv2" ,lv2)
5854        ("mesa" ,mesa)))
5855     (synopsis "Realtime graphical spectrum analyzer")
5856     (description "Spectacle is a real-time spectral analyzer using the
5857 short-time Fourier transform, available as LV2 audio plugin and JACK client.")
5858     (home-page "https://github.com/jpcima/spectacle")
5859     ;; The project is licensed under the ISC license, and files in
5860     ;; sources/plugin carry the Expat license.
5861     (license (list license:isc license:expat))))
5862
5863 (define-public x42-plugins
5864   (package
5865     (name "x42-plugins")
5866     (version "20200714")
5867     (source
5868      (origin
5869        (method url-fetch)
5870        (uri
5871         (string-append "https://gareus.org/misc/x42-plugins/x42-plugins-"
5872                        version ".tar.xz"))
5873        (sha256
5874         (base32 "1av05ykph8x67018hm9zfgh1vk0zi39mvrsxkj6bm4hkarxf0vvl"))))
5875     (build-system gnu-build-system)
5876     (arguments
5877      `(#:tests? #f                      ; no "check" target
5878        #:make-flags
5879        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
5880              "LIBZITACONVOLVER=-lzita-convolver"
5881              (string-append "FONTFILE="
5882                             (assoc-ref %build-inputs "font-dejavu")
5883                             "/share/fonts/truetype/DejaVuSans-Bold.ttf"))
5884        #:phases
5885        (modify-phases %standard-phases
5886          (add-before 'build 'set-CC-variable
5887            (lambda _
5888              (setenv "CC" "gcc")
5889              #t))
5890          (delete 'configure))))
5891     (inputs
5892      `(("cairo" ,cairo)
5893        ("fftwf" ,fftwf)
5894        ("ftgl" ,ftgl)
5895        ("glib" ,glib)
5896        ("glu" ,glu)
5897        ("hicolor-icon-theme" ,hicolor-icon-theme)
5898        ("jack" ,jack-1)
5899        ("libltc" ,libltc)
5900        ("libsamplerate" ,libsamplerate)
5901        ("libx11" ,libx11)
5902        ("pango" ,pango)
5903        ("zita-convolver" ,zita-convolver)))
5904     (native-inputs
5905      `(("help2man" ,help2man)
5906        ("liblo" ,liblo)
5907        ("lv2" ,lv2)
5908        ("font-dejavu" ,font-dejavu)
5909        ("pkg-config" ,pkg-config)))
5910     (synopsis "Collection of LV2/JACK audio/MIDI processing plugins")
5911     (description "x42-plugins is a collection of over 80 cross-platform LV2
5912 audio and MIDI plugins that can also run as standalone JACK applications.")
5913     (home-page "https://x42-plugins.com/x42/")
5914     (license license:gpl2+)))
5915
5916 (define-public zam-plugins
5917   (package
5918     (name "zam-plugins")
5919     (version "3.13")
5920     (source
5921      (origin
5922        (method git-fetch)
5923        (uri
5924         (git-reference
5925          (url "https://github.com/zamaudio/zam-plugins")
5926          (commit version)
5927          ;; Recursive to fetch the DISTRHO plugin framework. This
5928          ;; framework is intended to be included in the sources
5929          ;; and not to be used as a library.
5930          (recursive? #t)))
5931        (file-name (git-file-name name version))
5932        (sha256
5933         (base32 "02blg0iqich4vx5z1ahj6avkh83yqszdiq83p9jd5qwm0i4llqjq"))))
5934     (build-system gnu-build-system)
5935     (arguments
5936      `(#:tests? #f                      ;no "check" target
5937        #:make-flags
5938        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
5939              "HAVE_ZITA_CONVOLVER=true")
5940        #:phases
5941        (modify-phases %standard-phases
5942          (add-before 'build 'set-CC-variable
5943            (lambda _
5944              (setenv "CC" "gcc") #t))
5945          (delete 'configure))))
5946     (inputs
5947      `(("fftwf" ,fftwf)
5948        ("jack" ,jack-1)                 ;for the standalone JACK application
5949        ("liblo" ,liblo)
5950        ("libsamplerate" ,libsamplerate)
5951        ("mesa" ,mesa)
5952        ("zita-convolver" ,zita-convolver)))
5953     (native-inputs
5954      `(("ladspa" ,ladspa)
5955        ("lv2" ,lv2)
5956        ("pkg-config" ,pkg-config)))
5957     (synopsis "Collection of audio processing plugins")
5958     (description
5959      "Zam plugins is a collection of audio processing plugins in the LADSPA,
5960 LV2 and VST2 formats, as well as standalone JACK versions.  The collection
5961 includes ZaMaximX2, ZamAutoSat, ZamComp, ZamCompX2, ZamEQ2, ZamGEQ31,
5962 ZamHeadX2, ZamPhono, ZamGate, ZamGateX2, ZamTube, ZamDelay, ZamDynamicEQ,
5963 ZaMultiComp, ZaMultiCompX2 and ZamSynth.")
5964     (home-page "http://www.zamaudio.com/?p=976")
5965     (license license:gpl2+)))
5966
5967 (define-public geonkick
5968   (package
5969     (name "geonkick")
5970     (version "2.7.0")
5971     (source
5972      (origin
5973        (method git-fetch)
5974        (uri (git-reference
5975              (url "https://gitlab.com/iurie-sw/geonkick")
5976              (commit (string-append "v" version))))
5977        (file-name (git-file-name name version))
5978        (sha256
5979         (base32 "0w1mvqm46qdwldcl81svaykwii4wvx7mcr57kwvnj0iv2qrc891i"))))
5980     (build-system cmake-build-system)
5981     (arguments
5982      `(#:tests? #f                      ;no tests included
5983        #:configure-flags
5984        (list (string-append "-DGKICK_REDKITE_SDK_PATH="
5985                             (assoc-ref %build-inputs "redkite"))
5986              (string-append "-DCMAKE_INSTALL_PREFIX="
5987                             (assoc-ref %outputs "out")))))
5988     (inputs
5989      `(("hicolor-icon-theme" ,hicolor-icon-theme)
5990        ("jack" ,jack-1)                 ;for the standalone JACK application
5991        ("libsndfile" ,libsndfile)
5992        ("libx11" ,libx11)
5993        ("redkite" ,redkite)
5994        ("rapidjson" ,rapidjson)))
5995     (native-inputs
5996      `(("lv2" ,lv2)
5997        ;; Fails with default gcc (#include <filesystem> not found).
5998        ("gcc" ,gcc-9)
5999        ("pkg-config" ,pkg-config)
6000        ("sord" ,sord)))
6001     (synopsis "Percussion synthesizer")
6002     (description "Geonkick is a synthesizer that can synthesize elements
6003 of percussion such as kicks, snares, hit-hats, shakers, claps and sticks.
6004 It can also play and mix samples.")
6005     (home-page "https://gitlab.com/iurie-sw/geonkick")
6006     (license license:gpl3+)))
6007
6008 (define-public mamba
6009   (package
6010    (name "mamba")
6011    (version "2.1")
6012    (source
6013     (origin
6014       (method git-fetch)
6015       (uri
6016        (git-reference
6017         (url "https://github.com/brummer10/Mamba")
6018         (commit (string-append "v" version))
6019         (recursive? #t))) ; references specific commit of libxputty
6020       (file-name (git-file-name name version))
6021       (sha256
6022        (base32
6023         "1bq6sqsij3cdwcsj3wpsnivi4c7jl4l5gwfywhqnib70v60smdja"))))
6024    (build-system gnu-build-system)
6025    (arguments
6026     `(#:tests? #f  ; no "check" target
6027       #:make-flags
6028       (list (string-append "PREFIX="
6029                            (assoc-ref %outputs "out"))
6030             (string-append "CC=" ,(cc-for-target)))
6031       #:phases
6032       (modify-phases %standard-phases
6033         (delete 'configure))))
6034    (inputs
6035     `(("alsa-lib" ,alsa-lib)
6036       ("cairo" ,cairo)
6037       ("fluidsynth" ,fluidsynth)
6038       ("jack" ,jack-1)
6039       ("liblo" ,liblo)
6040       ("libsigc++" ,libsigc++)
6041       ("libsmf" ,libsmf)
6042       ("libx11" ,libx11)))
6043    (native-inputs
6044     `(("pkg-config" ,pkg-config)))
6045    (home-page "https://github.com/brummer10/Mamba")
6046    (synopsis "Virtual MIDI keyboard and MIDI file player/recorder for JACK")
6047    (description "Mamba is a virtual MIDI keyboard and MIDI file
6048 player/recorder for the JACK Audio Connection Kit.  It comes with predefined
6049 keymaps for QWERTZ, QWERTY and AZERTY keyboards and also allows custom
6050 ones.")
6051    (license license:bsd-0)))
6052
6053 (define-public dpf-plugins
6054   (package
6055     (name "dpf-plugins")
6056     (version "1.3")
6057     (source
6058      (origin
6059        (method git-fetch)
6060        (uri
6061         (git-reference
6062          (url "https://github.com/DISTRHO/DPF-Plugins")
6063          (commit (string-append "v" version))))
6064        (file-name (git-file-name name version))
6065        (sha256
6066         (base32
6067          "1hsfmpv3kvpiwk8nfw9xpaipzy0n27i83y2v1yr93lznwm5rqrbs"))))
6068     (build-system gnu-build-system)
6069     (arguments
6070      `(#:tests? #f                      ; no "check" target
6071        #:make-flags
6072        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
6073        #:phases
6074        (modify-phases %standard-phases
6075          (add-before 'build 'set-CC-variable
6076            (lambda _ (setenv "CC" "gcc") #t))
6077          (delete 'configure))))
6078     (inputs
6079      `(("cairo" ,cairo)
6080        ("liblo" ,liblo)                 ; for dssi plugins
6081        ("jack" ,jack-1)                 ; for standalone applications
6082        ("mesa" ,mesa)))
6083     (native-inputs
6084      `(("pkg-config" ,pkg-config)
6085        ("dssi" ,dssi)
6086        ("lv2" ,lv2)))
6087     (home-page "https://github.com/DISTRHO/DPF-Plugins")
6088     (synopsis "Audio plugin collection")
6089     (description "Collection of audio plugins built with the DISTRHO Plugin
6090 Framework (DPF) available in LADSPA, DSSI, LV2 and VST2 formats.  This
6091 package includes the following plugins: glBars, Kars, Max-Gen examples
6092 (MaBitcrush, MaFreeverb, MaGigaverb, MaPitchshift), Mini-Series (3BandEQ,
6093 3BandSplitter, PingPongPan), ndc-Plugs (Amplitude Imposer, Cycle Shifter,
6094 Soul Force), MVerb, Nekobi, and ProM.")
6095     ;; This package consists of several plugins refactored to use the
6096     ;; DISTHRO Plugin Framework (DPF). Different copyrights and licenses
6097     ;; apply to different plugins. The root LICENSE file has a table with
6098     ;; license information for each plugin and paths to each license
6099     (license (list license:isc license:gpl3 license:lgpl3 license:expat license:gpl2))))
6100
6101 (define-public avldrums-lv2
6102   (package
6103     (name "avldrums-lv2")
6104     (version "0.4.1")
6105     (source
6106      (origin
6107        (method git-fetch)
6108        (uri (git-reference
6109              (url "https://github.com/x42/avldrums.lv2")
6110              (commit (string-append "v" version))
6111              ;; This plugin expects the robtk submodule's source files to be
6112              ;; there in order to build.
6113              (recursive? #t)))
6114        (file-name (git-file-name name version))
6115        (sha256
6116         (base32 "1vwdp3d8qzd493qa99ddya7iql67bbfxmbcl8hk96lxif2lhmyws"))))
6117     (build-system gnu-build-system)
6118     (arguments
6119      `(#:tests? #f                      ; no "check" target
6120        #:make-flags
6121        (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
6122        #:phases
6123        (modify-phases %standard-phases
6124          (add-before 'build 'set-CC-variable
6125            (lambda _
6126              (setenv "CC" "gcc") #t))
6127          (delete 'configure))))
6128     (inputs
6129      `(("cairo" ,cairo)
6130        ("dssi" ,dssi)
6131        ("glu" ,glu)
6132        ("mesa" ,mesa)
6133        ("pango" ,pango)))
6134     (native-inputs
6135      `(("pkg-config" ,pkg-config)
6136        ("lv2" ,lv2)))
6137     (home-page "https://x42-plugins.com/x42/x42-avldrums")
6138     (synopsis "Drum sample player LV2 plugin dedicated to the AVLinux Drumkits")
6139     (description "AVLdrums is a drum sample player LV2 plugin dedicated to Glen
6140 MacArthur's AVLdrums.  This plugin provides a convenient way to sequence and mix
6141 MIDI drums and comes as two separate drumkits: Black Pearl and Red Zeppelin.")
6142     (license license:gpl2+)))
6143
6144 (define-public helm
6145   (package
6146     (name "helm")
6147     (version "0.9.0")
6148     (source
6149       (origin
6150         (method git-fetch)
6151         (uri
6152           (git-reference
6153             (url "https://github.com/mtytel/helm")
6154             (commit (string-append "v" version))))
6155         (file-name (git-file-name name version))
6156         (sha256
6157           (base32
6158             "17ys2vvhncx9i3ydg3xwgz1d3gqv4yr5mqi7vr0i0ca6nad6x3d4"))))
6159     (build-system gnu-build-system)
6160     (arguments
6161      `(#:tests? #f  ; no "check" target
6162        #:make-flags
6163        (list (string-append "DESTDIR=" (assoc-ref %outputs "out"))
6164              "lv2" "standalone")
6165        #:phases
6166        (modify-phases %standard-phases
6167          (add-after 'unpack 'include-pnglib-code-and-remove-usr-from-paths
6168            (lambda _
6169              (substitute* "standalone/builds/linux/Makefile"
6170                (("JUCE_INCLUDE_PNGLIB_CODE=0")
6171                 "JUCE_INCLUDE_PNGLIB_CODE=1"))
6172              (substitute* "builds/linux/LV2/Makefile"
6173                (("JUCE_INCLUDE_PNGLIB_CODE=0")
6174                 "JUCE_INCLUDE_PNGLIB_CODE=1"))
6175              (substitute* "Makefile"
6176                (("/usr") ""))
6177              #t))
6178          (add-before 'reset-gzip-timestamps 'make-gz-files-writable
6179            (lambda* (#:key outputs #:allow-other-keys)
6180              (for-each make-file-writable
6181                        (find-files (string-append (assoc-ref outputs "out"))
6182                                    ".*\\.gz$"))
6183              #t))
6184          (delete 'configure))))
6185     (inputs
6186      `(("alsa-lib" ,alsa-lib)
6187        ("curl" ,curl)
6188        ("freetype2" ,freetype)
6189        ("hicolor-icon-theme" ,hicolor-icon-theme)
6190        ("libxcursor" ,libxcursor)
6191        ("libxinerama" ,libxinerama)
6192        ("jack" ,jack-1)
6193        ("mesa" ,mesa)))
6194     (native-inputs
6195      `(("pkg-config" ,pkg-config)
6196        ("lv2" ,lv2)))
6197     (home-page "https://tytel.org/helm/")
6198     (synopsis "Polyphonic synth with lots of modulation")
6199     (description "Helm is a cross-platform polyphonic synthesizer available standalone
6200 and as an LV2 plugin.")
6201     (license license:gpl3+)))
6202
6203 (define-public zrythm
6204   (package
6205     ;; Zrythm contains trademarks and comes with a trademark policy found in
6206     ;; TRADMARKS.md inside the release distribution.  The trademark policy
6207     ;; allows verbatim re-distribution, and it also allows FSF-approved
6208     ;; distros to make necessary changes to integrate the software into the
6209     ;; distribution.
6210     (name "zrythm")
6211     (version "1.0.0-alpha.12.0.1")
6212     (source
6213       (origin
6214         (method url-fetch)
6215         (uri (string-append "https://www.zrythm.org/releases/zrythm-"
6216                             version ".tar.xz"))
6217         (sha256
6218           (base32
6219            "1si4n8rdg0a3frlbj6yqpyzr4f20v3cpl4m6kv0yf7r25psyl5pk"))))
6220    (build-system meson-build-system)
6221    (arguments
6222     `(#:glib-or-gtk? #t
6223       #:configure-flags
6224       `("-Dtests=true"
6225         "-Dmanpage=true"
6226         "-Ddseg_font=false"
6227         "-Dgraphviz=enabled" ; for exporting routing graphs
6228         "-Dguile=enabled" ; for Guile scripting
6229         "-Djack=enabled" ; for JACK audio/MIDI backend
6230         "-Drtmidi=enabled" ; for RtMidi backend (ALSA sequencer)
6231         "-Dsdl=enabled"))) ; for SDL audio backend (which uses ALSA)
6232    (inputs
6233     `(("alsa-lib" ,alsa-lib)
6234       ("jack" ,jack-1)
6235       ("font-dseg" ,font-dseg)
6236       ("fftw" ,fftw)
6237       ("fftwf" ,fftwf)
6238       ("gettext" ,gettext-minimal)
6239       ("glibc" ,glibc)
6240       ("graphviz" ,graphviz)
6241       ("gtk+" ,gtk+)
6242       ("gtksourceview" ,gtksourceview)
6243       ("guile" ,guile-2.2)
6244       ("libaudec" ,libaudec)
6245       ("libcyaml" ,libcyaml)
6246       ("libsamplerate" ,libsamplerate)
6247       ("libsndfile" ,libsndfile)
6248       ("libyaml" ,libyaml)
6249       ("lilv" ,lilv)
6250       ("lv2" ,lv2)
6251       ("pulseaudio" ,pulseaudio)
6252       ("reproc" ,reproc)
6253       ("rubberband" ,rubberband)
6254       ("rtmidi" ,rtmidi)
6255       ("sdl2" ,sdl2)
6256       ("xdg-utils" ,xdg-utils)
6257       ("zstd" ,zstd "lib")))
6258    (native-inputs
6259      `(("pkg-config" ,pkg-config)
6260        ("help2man" ,help2man)
6261        ("glib" ,glib "bin"))) ; for 'glib-compile-resources'
6262    (synopsis "Digital audio workstation focusing on usability")
6263    (description "Zrythm is a digital audio workstation designed to be
6264 featureful and easy to use.  It offers unlimited automation options, LV2
6265 plugin support, JACK support and chord assistance.")
6266    (home-page "https://www.zrythm.org")
6267    (license license:agpl3+)))
6268
6269 (define-public dragonfly-reverb
6270   (package
6271     (name "dragonfly-reverb")
6272     (version "3.2.1")
6273     (source
6274      (origin
6275        (method git-fetch)
6276        (uri
6277         (git-reference
6278          (url "https://github.com/michaelwillis/dragonfly-reverb")
6279          (commit version)
6280          ;; Bundles a specific commit of the DISTRHO plugin framework.
6281          (recursive? #t)))
6282        (file-name (git-file-name name version))
6283        (sha256
6284         (base32 "0vfm2510shah67k87mdyar4wr4vqwii59y9lqfhwm6blxparkrqa"))))
6285     (build-system gnu-build-system)
6286     (arguments
6287      `(#:tests? #f                      ; no check target
6288        #:make-flags (list "CC=gcc")
6289        #:phases
6290        (modify-phases %standard-phases
6291          (delete 'configure)            ;no configure target
6292          (replace 'install              ;no install target
6293            (lambda* (#:key outputs #:allow-other-keys)
6294              (let* ((out (assoc-ref outputs "out"))
6295                     (bin (string-append out "/bin"))
6296                     (lv2 (string-append out "/lib/lv2")))
6297                ;; Install LV2.
6298                (for-each
6299                 (lambda (file)
6300                   (copy-recursively file
6301                                     (string-append lv2 "/" (basename file))))
6302                 (find-files "bin" "\\.lv2$" #:directories? #t))
6303                ;; Install executables.
6304                (for-each
6305                  (lambda (file)
6306                    (install-file file bin))
6307                  (find-files "bin"
6308                              (lambda (name stat)
6309                                (and
6310                                  (equal? (dirname name) "bin")
6311                                  (not (string-suffix? ".so" name))
6312                                  (not (string-suffix? ".lv2" name))))))
6313                #t))))))
6314     (native-inputs
6315      `(("pkg-config" ,pkg-config)))
6316     (inputs
6317      `(("jack" ,jack-1)
6318        ("libx11" ,libx11)
6319        ("mesa" ,mesa)))
6320     (home-page "https://michaelwillis.github.io/dragonfly-reverb/")
6321     (synopsis "Concert hall reverb and room reverb effects")
6322     (description
6323      "Dragonfly Reverb is a bundle of two free audio effects: a concert
6324 hall reverb and a room reverb.  Both are available as LV2 plugins as well
6325 as JACK standalone applications.")
6326     (license license:gpl3+)))
6327
6328 (define-public zplugins
6329   (package
6330     (name "zplugins")
6331     (version "0.1.7")
6332     (source
6333      (origin
6334        (method git-fetch)
6335        (uri
6336         (git-reference
6337          (url "https://git.zrythm.org/git/zplugins")
6338          (commit (string-append "v" version))))
6339        (file-name (git-file-name name version))
6340        (sha256
6341         (base32
6342          "1rkm2xajmyik6289b20rp5a5br9f3sh1xk8nb1bs6qpmcrfirgbs"))))
6343     (build-system meson-build-system)
6344     (inputs
6345       `(("guile" ,guile-2.2)
6346         ("libsndfile" ,libsndfile)
6347         ("lv2" ,lv2)
6348         ("ztoolkit-rsvg" ,ztoolkit-rsvg)))
6349     (native-inputs
6350       `(("pkg-config" ,pkg-config)))
6351     (synopsis "Audio plugin collection")
6352     (description "ZPlugins is a collection of audio DSP plugins intended
6353 to be bundled with the Zrythm @dfn{digital audio workstation} (DAW).")
6354     (home-page "https://www.zrythm.org/en/plugins.html")
6355     (license license:agpl3+)))
6356
6357 (define-public zlfo
6358   ;; The "zlfo" package is now included in zplugins
6359   (deprecated-package "zlfo" zplugins))
6360
6361 (define-public remid-lv2
6362   (package
6363     (name "remid-lv2")
6364     (version "0.3")
6365     (source
6366      (origin
6367        (method git-fetch)
6368        (uri (git-reference
6369              (url "https://github.com/ssj71/reMID.lv2")
6370              (commit (string-append "v" version))))
6371        (file-name (git-file-name name version))
6372        (sha256
6373         (base32
6374          "062kriniidsrhzwrf89kfxm9wb0cmgrl07asnlmgil8vcl7gl9y5"))))
6375     (build-system cmake-build-system)
6376     (arguments
6377      `(#:tests? #f))                    ; no tests included
6378     (inputs
6379      `(("alsa-lib" ,alsa-lib)
6380        ("glib" ,glib)
6381        ("jack" ,jack-1)
6382        ("lv2" ,lv2)))
6383     (native-inputs
6384      `(("pkg-config" ,pkg-config)))
6385     (home-page "https://github.com/ssj71/reMID.lv2")
6386     (synopsis
6387      "MIDI-controlled implementation of the SID 6581 chip used in the
6388 Commodore 64")
6389     (description
6390      "The 6581 SID chip is the sound chip used in the Commodore 64 computer.
6391 reMID is a MIDI implementation of the 6581 SID chip using the reSID library
6392 to provide a virtual SID-based synthesizer, controllable in real-time via
6393 MIDI.  It includes support for scripted instruments that allow complex sonic
6394 control of the chip.")
6395     (license license:gpl2+)))
6396
6397 (define-public vl1-emulator
6398   (package
6399     (name "vl1-emulator")
6400     (version "1.1.0.0")
6401     (source
6402      (origin
6403        (method git-fetch)
6404        (uri (git-reference
6405              (url "https://github.com/linuxmao-org/VL1-emulator")
6406              (commit (string-append "v" version))
6407              ;; bundles a specific commit of the DISTRHO plugin framework
6408              (recursive? #t)))
6409        (file-name (git-file-name name version))
6410        (sha256
6411         (base32
6412          "1npc86vqma8gk1hawa0lii0r2xmnv846plyl1ci3bdswyrdk5chm"))))
6413     (build-system gnu-build-system)
6414     (arguments
6415      `(#:tests? #f                      ;no check target
6416        #:make-flags
6417        (list (string-append "PREFIX=" (assoc-ref %outputs "out"))
6418              "CC=gcc")
6419        #:phases
6420        (modify-phases %standard-phases
6421          (delete 'configure))))         ;no configure target
6422     (inputs
6423      `(("cairo" ,cairo)
6424        ("jack" ,jack-1)
6425        ("mesa" ,mesa)))
6426     (native-inputs
6427      `(("pkg-config" ,pkg-config)))
6428     (home-page "https://github.com/linuxmao-org/VL1-emulator")
6429     (synopsis "Emulator of Casio VL-Tone VL1")
6430     (description "The VL1-Emulator is an emulator of Casio VL-Tone VL1,
6431 based on source code by PolyValens, offered as an LV2 plugin and a
6432 standalone JACK application.")
6433     ;; Expat or CC0
6434     (license (list license:expat license:cc0))))
6435
6436 (define-public regrader
6437   (package
6438     (inherit vl1-emulator)
6439     (name "regrader")
6440     (version "1.0.0")
6441     (source
6442      (origin
6443        (method git-fetch)
6444        (uri (git-reference
6445              (url "https://github.com/linuxmao-org/regrader")
6446              (commit (string-append "v" version))
6447              ;; bundles a specific commit of the DISTRHO plugin framework
6448              (recursive? #t)))
6449        (file-name (git-file-name name version))
6450        (sha256
6451         (base32
6452          "0gl4d5lf2afqknz22jz7hh7029sc9v1xrz6nbz9dlv42bwc0cvl0"))))
6453     (home-page "https://github.com/linuxmao-org/regrader")
6454     (synopsis "Delay effect plugin")
6455     (description
6456      "Regrader is a delay effect where the repeats degrade in resolution.
6457 This is an unofficial port of the Regrader plugin created by Igorski.  It
6458 is available as an LV2 plugin and a standalone JACK application.")
6459     (license license:expat)))
6460
6461 (define-public fogpad
6462   (package
6463     (inherit vl1-emulator)
6464     (name "fogpad")
6465     (version "1.0.0")
6466     (source
6467      (origin
6468        (method git-fetch)
6469        (uri (git-reference
6470              (url "https://github.com/linuxmao-org/fogpad")
6471              (commit (string-append "v" version))
6472              ;; bundles a specific commit of the DISTRHO plugin framework
6473              (recursive? #t)))
6474        (file-name (git-file-name name version))
6475        (sha256
6476         (base32
6477          "1j1hbya2dsqpf22zkpi4kwz3dram9g1ndxzmgfwpmf3i4jd3csgb"))))
6478     (home-page "https://github.com/linuxmao-org/fogpad")
6479     (synopsis "Reverb effect plugin")
6480     (description
6481      "Fogpad is a reverb effect in which the reflections can be frozen,
6482 filtered, pitch shifted and ultimately disintegrated.  This is an unofficial
6483 port of the Regrader plugin created by Igorski.  It is available as an LV2
6484 plugin and a standalone JACK application.")
6485     (license license:expat)))
6486
6487 (define-public tap-lv2
6488   (let ((commit "cab6e0dfb2ce20e4ad34b067d1281ec0b193598a")
6489         (revision "1"))
6490     (package
6491       (name "tap-lv2")
6492       (version (git-version "0.0" revision commit))
6493       (source
6494         (origin
6495           (method git-fetch)
6496           (uri (git-reference
6497                  (url "https://github.com/moddevices/tap-lv2")
6498                  (commit commit)))
6499           (file-name (git-file-name name version))
6500           (sha256
6501             (base32
6502               "0q480djfqd9g8mzrggc4vl7yclrhdjqx563ghs8mvi2qq8liycw3"))))
6503       (build-system gnu-build-system)
6504       (arguments
6505        `(#:tests? #f                      ; no check target
6506          #:make-flags
6507          (list "CC=gcc")
6508          #:phases
6509          (modify-phases %standard-phases
6510            (delete 'configure) ; no configure
6511            (replace 'install
6512              (lambda _
6513                (invoke "make"
6514                (string-append "INSTALL_PATH="
6515                               (assoc-ref %outputs "out")
6516                               "/lib/lv2")
6517                        "install"))))))
6518       (inputs
6519         `(("lv2" ,lv2)))
6520       (native-inputs
6521         `(("pkg-config" ,pkg-config)))
6522       (synopsis "Audio plugin collection")
6523       (description "TAP (Tom's Audio Processing) plugins is a collection of
6524   audio effect plugins originally released as LADSPA plugins.  This package
6525   offers an LV2 version ported by moddevices.")
6526       (home-page "http://tap-plugins.sourceforge.net/")
6527       (license license:gpl2))))
6528
6529 (define-public wolf-shaper
6530   (package
6531     (name "wolf-shaper")
6532     (version "0.1.8")
6533     (source
6534       (origin
6535         (method git-fetch)
6536         (uri (git-reference
6537                (url "https://github.com/pdesaulniers/wolf-shaper")
6538                (commit (string-append "v" version))
6539                ;; Bundles a specific commit of the DISTRHO plugin framework.
6540                (recursive? #t)))
6541         (file-name (git-file-name name version))
6542         (sha256
6543           (base32
6544             "1j9xmh1nkf45ay1c5dz2g165qvrwlanzcq6mvb3nfxar265drd9q"))))
6545     (build-system gnu-build-system)
6546     (arguments
6547      `(#:tests? #f                      ; no check target
6548        #:make-flags (list "CC=gcc")
6549        #:phases
6550        (modify-phases %standard-phases
6551          (delete 'configure)            ;no configure target
6552          (replace 'install              ;no install target
6553            (lambda* (#:key outputs #:allow-other-keys)
6554              (let* ((out (assoc-ref outputs "out"))
6555                     (bin (string-append out "/bin"))
6556                     (lv2 (string-append out "/lib/lv2")))
6557                ;; Install LV2.
6558                (for-each
6559                 (lambda (file)
6560                   (copy-recursively file
6561                                     (string-append lv2 "/" (basename file))))
6562                 (find-files "bin" "\\.lv2$" #:directories? #t))
6563                ;; Install executables.
6564                (for-each
6565                  (lambda (file)
6566                    (install-file file bin))
6567                  (find-files "bin"
6568                              (lambda (name stat)
6569                                (and
6570                                  (equal? (dirname name) "bin")
6571                                  (not (string-suffix? ".so" name))
6572                                  (not (string-suffix? ".lv2" name))))))
6573                #t))))))
6574     (native-inputs
6575      `(("pkg-config" ,pkg-config)))
6576     (inputs
6577       `(("jack" ,jack-1)
6578         ("lv2" ,lv2)
6579         ("mesa" ,mesa)))
6580     (synopsis "Waveshaper plugin")
6581     (description "Wolf Shaper is a waveshaper plugin with a graph editor.
6582 It is provided as an LV2 plugin and as a standalone Jack application.")
6583     (home-page "https://pdesaulniers.github.io/wolf-shaper/")
6584     (license license:gpl3)))
6585
6586 (define-public wolf-spectrum
6587   (package
6588     (inherit wolf-shaper)
6589     (name "wolf-spectrum")
6590     (version "1.0.0")
6591     (source
6592       (origin
6593         (method git-fetch)
6594         (uri (git-reference
6595                (url "https://github.com/pdesaulniers/wolf-spectrum")
6596                (commit (string-append "v" version))
6597                ;; Bundles a specific commit of the DISTRHO plugin framework.
6598                (recursive? #t)))
6599         (file-name (git-file-name name version))
6600         (sha256
6601           (base32
6602             "17db1jlj7vb1xyvkdhhrsvdbwb7jqw6i4168cdvlj3yvn2ra8gpm"))))
6603     (synopsis "2D spectrogram plugin")
6604     (description "Wolf Spectrum is a real-time 2D spectrogram plugin.
6605 It is provided as an LV2 plugin and as a standalone Jack application.")
6606     (home-page "https://github.com/pdesaulniers/wolf-spectrum")
6607     (license license:gpl3)))
6608
6609 (define-public shiru-lv2
6610   (let ((commit "08853f99140012234649e67e5647906fda74f6cc")
6611         (revision "1"))
6612     (package
6613       (name "shiru-lv2")
6614       (version (git-version "0.0" revision commit))
6615       (source
6616         (origin
6617           (method git-fetch)
6618           (uri (git-reference
6619                  (url "https://github.com/linuxmao-org/shiru-plugins")
6620                  (commit commit)
6621                  ;; Bundles a specific commit of the DISTRHO plugin framework.
6622                  (recursive? #t)))
6623           (file-name (git-file-name name version))
6624           (sha256
6625             (base32
6626               "00rf6im3rhg98h60sgl1r2s37za5vr5h14pybwi07h8zbc8mi6fm"))))
6627       (build-system gnu-build-system)
6628       (arguments
6629        `(#:tests? #f                      ; no check target
6630          #:make-flags (list "CC=gcc")
6631          #:phases
6632          (modify-phases %standard-phases
6633            (delete 'configure)            ;no configure target
6634            (replace 'install              ;no install target
6635              (lambda* (#:key outputs #:allow-other-keys)
6636                (let* ((out (assoc-ref outputs "out"))
6637                       (bin (string-append out "/bin"))
6638                       (lv2 (string-append out "/lib/lv2")))
6639                  ;; Install LV2.
6640                  (for-each
6641                   (lambda (file)
6642                     (copy-recursively file
6643                                       (string-append lv2 "/" (basename file))))
6644                   (find-files "bin" "\\.lv2$" #:directories? #t))
6645                  ;; Install executables.
6646                  (for-each
6647                    (lambda (file)
6648                      (install-file file bin))
6649                    (find-files "bin"
6650                                (lambda (name stat)
6651                                  (and
6652                                    (equal? (dirname name) "bin")
6653                                    (not (string-suffix? ".so" name))
6654                                    (not (string-suffix? ".lv2" name))))))
6655                  #t))))))
6656       (native-inputs
6657        `(("pkg-config" ,pkg-config)))
6658       (inputs
6659         `(("cairo" ,cairo)
6660           ("glu" ,glu)
6661           ("jack" ,jack-1)
6662           ("lv2" ,lv2)
6663           ("mesa" ,mesa)
6664           ("pango" ,pango)))
6665       (synopsis "Audio plugin collection")
6666       (description "Shiru plugins is a collection of audio plugins created
6667   by Shiru, ported to LV2 by the Linux MAO project using the DISTRHO plugin
6668   framework.")
6669       (home-page "http://shiru.untergrund.net/software.shtml")
6670       (license license:wtfpl2))))
6671
6672 (define-public a2jmidid
6673   (package
6674     (name "a2jmidid")
6675     (version "9")
6676     (source (origin
6677               (method git-fetch)
6678               (uri (git-reference
6679                     (url "https://github.com/jackaudio/a2jmidid")
6680                     (commit version)))
6681               (sha256
6682                (base32 "1x6rcl3f4nklnx4p5jln9a7fpj9y7agjxs9rw7cccmwnski7pnsq"))
6683               (file-name (git-file-name name version))))
6684     (arguments
6685      `(#:tests? #f      ; No tests.
6686        #:phases
6687        (modify-phases %standard-phases
6688          (add-after 'install 'wrap-programs
6689            (lambda* (#:key inputs outputs #:allow-other-keys)
6690              (let* ((out (assoc-ref outputs "out"))
6691                     (bin (string-append out "/bin/")))
6692                (substitute* (string-append bin "a2j")
6693                  (("a2j_control") (string-append bin "a2j_control")))
6694                (wrap-program (string-append bin "a2j_control")
6695                 `("PYTHONPATH" prefix (,(getenv "PYTHONPATH"))))
6696                #t))))))
6697     (build-system meson-build-system)
6698     (inputs
6699      `(("alsa-lib" ,alsa-lib)
6700        ("bash-minimal" ,bash-minimal)   ; for wrap-program
6701        ("dbus" ,dbus)
6702        ("jack" ,jack-1)
6703        ("python" ,python)
6704        ("python-dbus" ,python-dbus)))
6705     (native-inputs
6706      `(("pkg-config" ,pkg-config)))
6707     (synopsis "ALSA sequencer to JACK MIDI bridging")
6708     (description
6709      "@code{a2jmidid} is a daemon that implements automatic bridging of ALSA
6710 midi devices to JACK midi devices.")
6711     (home-page "https://github.com/jackaudio/a2jmidid")
6712     (license license:gpl2)))