diff options
Diffstat (limited to 'gnu/packages/music.scm')
| -rw-r--r-- | gnu/packages/music.scm | 160 |
1 files changed, 93 insertions, 67 deletions
diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index 1706b0d649..8e7394946e 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -537,27 +537,34 @@ enables iPod support in music players such as Clementine.") #:directories? #t)))))) (build-system cmake-build-system) (arguments - '(#:test-target "clementine_test" - #:configure-flags - (list ;; Requires unpackaged "projectm" - "-DENABLE_VISUALISATIONS=OFF" - ;; Otherwise it may try to download a non-free library at run-time. - ;; TODO In an origin snippet, remove the code that performs the - ;; download. - "-DHAVE_SPOTIFY_DOWNLOADER=FALSE" - ;; Clementine checks that the taglib version is higher than 1.11, - ;; because of https://github.com/taglib/taglib/issues/864. Remove - ;; this flag when 1.12 is released. - "-DUSE_SYSTEM_TAGLIB=TRUE") - #:phases - (modify-phases %standard-phases - (add-after 'install 'wrap-program - (lambda* (#:key inputs outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out")) - (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))) - (wrap-program (string-append out "/bin/clementine") - `("GST_PLUGIN_SYSTEM_PATH" ":" prefix - (,gst-plugin-path))))))))) + (list + #:configure-flags + #~(list ;; Requires unpackaged "projectm" + "-DENABLE_VISUALISATIONS=OFF" + ;; Otherwise it may try to download a non-free library at run-time. + ;; TODO In an origin snippet, remove the code that performs the + ;; download. + "-DHAVE_SPOTIFY_DOWNLOADER=FALSE" + ;; Clementine checks that the taglib version is higher than 1.11, + ;; because of https://github.com/taglib/taglib/issues/864. Remove + ;; this flag when 1.12 is released. + "-DUSE_SYSTEM_TAGLIB=TRUE") + #:modules '((guix build cmake-build-system) + ((guix build gnu-build-system) #:prefix gnu:) + (guix build utils)) + #:phases + #~(modify-phases %standard-phases + (replace 'check + (lambda* (#:rest args) + (apply (assoc-ref gnu:%standard-phases 'check) + #:test-target "clementine_test" args))) + (add-after 'install 'wrap-program + (lambda* (#:key inputs outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out")) + (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))) + (wrap-program (string-append out "/bin/clementine") + `("GST_PLUGIN_SYSTEM_PATH" ":" prefix + (,gst-plugin-path))))))))) (native-inputs (list gettext-minimal googletest @@ -620,7 +627,6 @@ playing your music.") (build-system cmake-build-system) (arguments (list - #:cmake cmake ;needs 3.25 #:tests? #false ;there are none #:phases #~(modify-phases %standard-phases @@ -769,24 +775,31 @@ Winamp/XMMS skins.") #:directories? #t)))))) (build-system qt-build-system) (arguments - `(#:qtbase ,qtbase - #:test-target "run_strawberry_tests" - #:configure-flags - `("-DBUILD_WITH_QT6=ON") - #:phases - (modify-phases %standard-phases - (add-after 'install 'wrap-program - (lambda* (#:key outputs #:allow-other-keys) - (wrap-program (search-input-file outputs "bin/strawberry") - `("GST_PLUGIN_SYSTEM_PATH" ":" prefix - (,(getenv "GST_PLUGIN_SYSTEM_PATH")))))) - (add-before 'check 'pre-check - (lambda* (#:key native-inputs inputs #:allow-other-keys) - (system (format #f "~a :1 &" - (search-input-file (or native-inputs inputs) - "bin/Xvfb"))) - (setenv "DISPLAY" ":1") - (setenv "HOME" (getcwd))))))) + (list + #:qtbase qtbase + #:configure-flags + #~(list "-DBUILD_WITH_QT6=ON") + #:modules '((guix build qt-build-system) + ((guix build gnu-build-system) #:prefix gnu:) + (guix build utils)) + #:phases + #~(modify-phases %standard-phases + (add-before 'check 'pre-check + (lambda* (#:key native-inputs inputs #:allow-other-keys) + (system (format #f "~a :1 &" + (search-input-file (or native-inputs inputs) + "bin/Xvfb"))) + (setenv "DISPLAY" ":1") + (setenv "HOME" (getcwd)))) + (replace 'check + (lambda* (#:rest args) + (apply (assoc-ref gnu:%standard-phases 'check) + #:test-target "run_strawberry_tests" args))) + (add-after 'install 'wrap-program + (lambda* (#:key outputs #:allow-other-keys) + (wrap-program (search-input-file outputs "bin/strawberry") + `("GST_PLUGIN_SYSTEM_PATH" ":" prefix + (,(getenv "GST_PLUGIN_SYSTEM_PATH"))))))))) (native-inputs (list bash-minimal gettext-minimal @@ -1009,7 +1022,7 @@ settings (aliasing, linear interpolation and cubic interpolation).") (base32 "1i5gz5zck8s0kskjgnx9c75gh7zx0kbjsqzl2765f99p9svprirq")))) (build-system qt-build-system) (arguments - `(#:test-target "tests" + `(#:tests? #f ; require audio subsystem #:phases (modify-phases %standard-phases (add-after 'unpack 'fix-data-directory @@ -5992,10 +6005,7 @@ the electronic or dubstep genre.") "0zn9v4lxjpnpdlpnv2px8ch3z0xagmqlvff5pd39pss3mxfp32g0")))) (build-system cmake-build-system) (arguments - (list #:configure-flags - (if (%current-target-system) - #~(list "-DBUILD_TESTING=OFF") - #~(list "-DBUILD_TESTING=ON")))) + (list #:tests? (not (%current-target-system)))) ; run unless cross-compiling (native-inputs (list googletest)) (home-page "https://github.com/pedrolcl/sonivox") @@ -6083,7 +6093,14 @@ for the DSSI Soft Synth Interface. A brief list of features: version ".tar.gz")) (sha256 (base32 "10mj1hwv1598nsi7jw5di0pfcwk36g4rr6kl7gi45m7ak8f8ypnx")))) - (arguments `(#:test-target "check")) + (arguments + (list + #:modules '((guix build cmake-build-system) + ((guix build gnu-build-system) #:prefix gnu:) + (guix build utils)) + #:phases + #~(modify-phases %standard-phases + (replace 'check (assoc-ref gnu:%standard-phases 'check))))) (build-system cmake-build-system) (home-page "https://musicbrainz.org/doc/libdiscid") (synopsis "Disc id reader library") @@ -7971,28 +7988,31 @@ midi devices to JACK midi devices.") (file-name (git-file-name name version)))) (arguments (list - #:test-target "check" + #:modules '((guix build cmake-build-system) + ((guix build gnu-build-system) #:prefix gnu:) + (guix build utils)) #:phases #~(modify-phases %standard-phases - ;; This package does not use the perl-build-system, so we have to - ;; manually set up the Perl environment used by the test suite. - (add-before 'check 'setup-perl-environment - (lambda* (#:key inputs #:allow-other-keys) - (let* ((perl-list-moreutils-lib - (string-append #$(this-package-native-input "perl-list-moreutils") - "/lib/perl5/site_perl/" - #$(package-version perl))) - (perl-exporter-tiny-lib - (string-append #$(this-package-native-input "perl-exporter-tiny") - "/lib/perl5/site_perl/" - #$(package-version perl))) - (perl-test-deep-lib - (string-append #$(this-package-native-input "perl-test-deep") - "/lib/perl5/site_perl/" - #$(package-version perl)))) - (setenv "PERL5LIB" (string-append perl-list-moreutils-lib ":" - perl-exporter-tiny-lib ":" - perl-test-deep-lib)))))))) + ;; This package does not use the perl-build-system, so we have to + ;; manually set up the Perl environment used by the test suite. + (add-before 'check 'setup-perl-environment + (lambda* (#:key inputs #:allow-other-keys) + (let* ((perl-list-moreutils-lib + (string-append #$(this-package-native-input "perl-list-moreutils") + "/lib/perl5/site_perl/" + #$(package-version perl))) + (perl-exporter-tiny-lib + (string-append #$(this-package-native-input "perl-exporter-tiny") + "/lib/perl5/site_perl/" + #$(package-version perl))) + (perl-test-deep-lib + (string-append #$(this-package-native-input "perl-test-deep") + "/lib/perl5/site_perl/" + #$(package-version perl)))) + (setenv "PERL5LIB" (string-append perl-list-moreutils-lib ":" + perl-exporter-tiny-lib ":" + perl-test-deep-lib))))) + (replace 'check (assoc-ref gnu:%standard-phases 'check))))) (build-system cmake-build-system) (inputs (list libogg)) @@ -8226,13 +8246,19 @@ Renoise, VCV Rack, or SuperCollider.") (build-system qt-build-system) (arguments (list #:tests? #f ;no tests + #:modules '((guix build qt-build-system) + ((guix build gnu-build-system) #:prefix gnu:) + (guix build utils)) #:phases #~(modify-phases %standard-phases (replace 'configure (lambda _ (substitute* "samplebrain.pro" (("\\/usr") #$output)) - (invoke "qmake")))))) + (invoke "qmake"))) + (replace 'build (assoc-ref gnu:%standard-phases 'build)) + (replace 'check (assoc-ref gnu:%standard-phases 'check)) + (replace 'install (assoc-ref gnu:%standard-phases 'install))))) (inputs (list fftw liblo libsndfile portaudio)) (home-page "https://thentrythis.org/projects/samplebrain/") (synopsis "Sample mashing synthesizer designed by Aphex Twin") |