diff options
Diffstat (limited to 'gnu/packages/music.scm')
| -rw-r--r-- | gnu/packages/music.scm | 107 |
1 files changed, 69 insertions, 38 deletions
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index c5ee4293ba..af2dcf8eaf 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -4,7 +4,7 @@ ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org> ;;; Copyright © 2016 Al McElrath <hello@yrns.org> ;;; Copyright © 2016, 2017 Efraim Flashner <efraim@flashner.co.il> -;;; Copyright © 2016 Leo Famulari <leo@famulari.name> +;;; Copyright © 2016, 2018 Leo Famulari <leo@famulari.name> ;;; Copyright © 2016, 2017 Kei Kebreau <kkebreau@posteo.net> ;;; Copyright © 2016 John J. Foerch <jjfoerch@earthlink.net> ;;; Copyright © 2016 Alex Griffin <a@ajgrf.com> @@ -238,7 +238,8 @@ score, keyboard, guitar, drum and controller views.") "tinysvcmdns")) #t)) (patches (search-patches "clementine-use-openssl.patch" - "clementine-remove-crypto++-dependency.patch")))) + "clementine-remove-crypto++-dependency.patch" + "clementine-fix-sqlite.patch")))) (build-system cmake-build-system) (arguments '(#:test-target "clementine_test" @@ -271,6 +272,8 @@ score, keyboard, guitar, drum and controller views.") ("glu" ,glu) ("gstreamer" ,gstreamer) ("gst-plugins-base" ,gst-plugins-base) + ("gst-plugins-good" ,gst-plugins-good) + ("gst-libav" ,gst-libav) ("libcdio" ,libcdio) ("libmygpo-qt" ,libmygpo-qt) ;; TODO: Package libgpod. @@ -281,8 +284,7 @@ score, keyboard, guitar, drum and controller views.") ("pulseaudio" ,pulseaudio) ("qtbase" ,qtbase) ("qtx11extras" ,qtx11extras) - ("qtwebkit" ,qtwebkit) - ("sqlite" ,sqlite-with-fts3) + ("sqlite" ,sqlite) ("sparsehash" ,sparsehash) ("taglib" ,taglib))) (home-page "http://clementine-player.org") @@ -382,7 +384,7 @@ many input formats and provides a customisable Vi-style user interface.") ;; Denemo's documentation says to use this command to run its ;; testsuite. (lambda _ - (zero? (system* "make" "-C" "tests" "check")))) + (invoke "make" "-C" "tests" "check"))) (add-before 'build 'set-lilypond ;; This phase sets the default path for lilypond to its current ;; location in the store. @@ -409,7 +411,7 @@ many input formats and provides a customisable Vi-style user interface.") "Clarinet in Bb.denemo")) #t))))) (native-inputs - `(("glib:bin" ,glib "bin") ; for gtester + `(("glib:bin" ,glib "bin") ; for gtester ("pkg-config" ,pkg-config))) (inputs `(("alsa-lib" ,alsa-lib) @@ -1287,7 +1289,7 @@ users to select LV2 plugins and run them with jalv.") (define-public synthv1 (package (name "synthv1") - (version "0.9.0") + (version "0.9.2") (source (origin (method url-fetch) (uri @@ -1295,10 +1297,10 @@ users to select LV2 plugins and run them with jalv.") "/synthv1-" version ".tar.gz")) (sha256 (base32 - "1skynjg6ip0qfbqqkybfjh6xcwxagq89ghl08f7sp7j0sz5qdcwp")))) + "1r60l286n8y4a4rrlnbc3h7xk4s2pvqykvskls89prxg0lkpz7kl")))) (build-system gnu-build-system) (arguments - `(#:tests? #f ; There are no tests. + `(#:tests? #f ; there are no tests #:configure-flags '("CXXFLAGS=-std=gnu++11"))) (inputs @@ -1311,7 +1313,7 @@ users to select LV2 plugins and run them with jalv.") ("qttools" ,qttools))) (native-inputs `(("pkg-config" ,pkg-config))) - (home-page "http://synthv1.sourceforge.net") + (home-page "https://synthv1.sourceforge.io") (synopsis "Polyphonic subtractive synthesizer") (description "Synthv1 is an old-school subtractive polyphonic synthesizer with four @@ -1321,7 +1323,7 @@ oscillators and stereo effects.") (define-public drumkv1 (package (name "drumkv1") - (version "0.9.0") + (version "0.9.2") (source (origin (method url-fetch) (uri @@ -1329,10 +1331,10 @@ oscillators and stereo effects.") "/drumkv1-" version ".tar.gz")) (sha256 (base32 - "1vm8lrk3lykdic6fyfpl12jx1xg6rcaid242s8sij30p1ix4zdab")))) + "1z9l43z91d01b9rzam2cj9qmmg6s5y65fjvb83ms4iaa1p0mnwrn")))) (build-system gnu-build-system) (arguments - `(#:tests? #f ; There are no tests. + `(#:tests? #f ; there are no tests #:configure-flags '("CXXFLAGS=-std=gnu++11"))) (inputs @@ -1346,7 +1348,7 @@ oscillators and stereo effects.") (native-inputs `(("pkg-config" ,pkg-config) ("qttools" ,qttools))) - (home-page "http://drumkv1.sourceforge.net") + (home-page "https://drumkv1.sourceforge.io") (synopsis "Drum-kit sampler synthesizer with stereo effects") (description "Drumkv1 is an old-school drum-kit sampler synthesizer with stereo @@ -1356,7 +1358,7 @@ effects.") (define-public samplv1 (package (name "samplv1") - (version "0.9.0") + (version "0.9.2") (source (origin (method url-fetch) (uri @@ -1364,10 +1366,10 @@ effects.") "/samplv1-" version ".tar.gz")) (sha256 (base32 - "0g67vm9ilmq5nlvk0f3abia9pbinr4ck5v4mll6igni1rxz2n7wk")))) + "0rfcp4v971qfhw1hb43hw12wlxmg2q13l0m1h93pyfi5l4mfjkds")))) (build-system gnu-build-system) (arguments - `(#:tests? #f ; There are no tests. + `(#:tests? #f ; there are no tests #:configure-flags '("CXXFLAGS=-std=gnu++11"))) (inputs @@ -1381,7 +1383,7 @@ effects.") (native-inputs `(("pkg-config" ,pkg-config) ("qttools" ,qttools))) - (home-page "http://samplv1.sourceforge.net") + (home-page "https://samplv1.sourceforge.io") (synopsis "Polyphonic sampler synthesizer with stereo effects") (description "Samplv1 is an old-school polyphonic sampler synthesizer with stereo @@ -1391,7 +1393,7 @@ effects.") (define-public padthv1 (package (name "padthv1") - (version "0.9.0") + (version "0.9.2") (source (origin (method url-fetch) (uri @@ -1399,10 +1401,10 @@ effects.") "/padthv1-" version ".tar.gz")) (sha256 (base32 - "0c519qk2g0dk8gqf9ywqfp7dnr4b25lsnxxbf2l1spnnvf8nysvh")))) + "1alfl0l5qdll0w5lwhrwzj5dina1big1zmjg5imi9h06dzhz51xl")))) (build-system gnu-build-system) (arguments - `(#:tests? #f ; There are no tests. + `(#:tests? #f ; there are no tests #:configure-flags '("CXXFLAGS=-std=gnu++11"))) (inputs @@ -1416,7 +1418,7 @@ effects.") (native-inputs `(("pkg-config" ,pkg-config) ("qttools" ,qttools))) - (home-page "http://padthv1.sourceforge.net") + (home-page "https://padthv1.sourceforge.io") (synopsis "Polyphonic additive synthesizer") (description "Padthv1 is an old-school polyphonic additive synthesizer with stereo @@ -1622,7 +1624,7 @@ is subjective.") (define-public tuxguitar (package (name "tuxguitar") - (version "1.5") + (version "1.5.2") (source (origin (method url-fetch) (uri (string-append @@ -1630,19 +1632,12 @@ is subjective.") version "/tuxguitar-" version "-src.tar.gz")) (sha256 (base32 - "1yd5wv17sh6i8pkndxayfd6r2k1ccgnc4w3nda3lpniv8cpjzz3k")) - (modules '((guix build utils))) - (snippet - '(begin - ;; Delete pre-built classes - (delete-file-recursively "TuxGuitar-android-gdrive/bin") - (delete-file-recursively "TuxGuitar-android-gdrive-gdaa/bin") - #t)))) + "10arfpgm2pw7mn922klklzn05lw5ifqx070shdrar81afmkfbbd9")))) (build-system ant-build-system) (arguments `(#:build-target "build" #:jdk ,icedtea-8 - #:tests? #f ; no tests + #:tests? #f ; no tests #:phases (modify-phases %standard-phases (add-after 'unpack 'enter-dir @@ -1661,7 +1656,7 @@ is subjective.") ((assoc-ref %standard-phases 'build) #:build-target "build") (begin - ;; Generate default build.xml + ;; Generate default build.xml. ((@@ (guix build ant-build-system) default-build.xml) (string-append (string-downcase dir) ".jar") (string-append (assoc-ref outputs "out") @@ -1684,15 +1679,15 @@ is subjective.") (lib (string-append share "/java")) (swt (assoc-ref inputs "java-swt"))) (mkdir-p bin) - ;; install all jars + ;; Install all jars. (for-each (lambda (file) (install-file file lib)) (find-files ".." "\\.jar$")) - ;; install all resources + ;; Install all resources. (copy-recursively "share" share) - ;; create wrapper + ;; Create wrapper. (call-with-output-file (string-append bin "/tuxguitar") (lambda (port) (let ((classpath (string-join (append (find-files lib "\\.jar$") @@ -2053,14 +2048,14 @@ improves on support for JACK features, such as JACK MIDI.") (define-public libgig (package (name "libgig") - (version "4.0.0") + (version "4.1.0") (source (origin (method url-fetch) (uri (string-append "http://download.linuxsampler.org/packages/" "libgig-" version ".tar.bz2")) (sha256 (base32 - "1wr8mwjmqpnyz6bx9757lspiii1zzn8zfbqsvn2ipzpgqkxv6kaz")))) + "02xx6bqxzgkvrawwnzrnxx1ypk244q4kpwfd58266f9ji8kq18h6")))) (build-system gnu-build-system) (inputs `(("libuuid" ,util-linux) @@ -4220,3 +4215,39 @@ discard. discard bad quality ones. @end itemize\n") (license license:expat)))) + +(define-public lpd8editor + (package + (name "lpd8editor") + (version "0.0.12") + (source (origin + (method git-fetch) + (uri (git-reference + (url "https://github.com/charlesfleche/lpd8editor.git") + (commit (string-append "v" version)))) + (file-name (git-file-name name version)) + (sha256 + (base32 + "1v3fz8h1zs7kkl80faah79pp6yqwz0j7bkv3dbmh2hp42zbfiz1q")))) + (build-system gnu-build-system) + (arguments + '(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'setenv + (lambda _ + (setenv "INSTALL_PREFIX" + (assoc-ref %outputs "out")))) + (delete 'configure) ; no configure script + (add-before 'build 'qmake + (lambda _ (invoke "qmake")))))) + (native-inputs + `(("pkg-config" ,pkg-config))) + (inputs + `(("alsa" ,alsa-lib) + ("qtbase" ,qtbase) + ("qtsvg" ,qtsvg))) + (synopsis "Graphical editor for the Akai LPD8 MIDI controller") + (description "lpd8editor is a graphical patch editor for the Akai LPD8 MIDI +controller.") + (home-page "https://github.com/charlesfleche/lpd8editor") + (license license:expat))) |