gnu/packages/music.scm

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