TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gnu: zrythm: Update to 1.0.0-beta.4.12.5. 

* gnu/packages/music.scm (zrythm): Update to 1.0.0-beta.4.12.5.
[arguments]: Update disabled tests; remove patching of helper.
[inputs]: Remove libaudec; add lsp-dsp-lib, pcre, and soxr.

Change-Id: Id13a04aa270526ca8e105d5d4429d6ecbafe13c4
This commit is contained in:
Ricardo Wurmus 2024-04-01 16:33:26 +02:00
parent b292a172ac
commit 235adb4f6b
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 56 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

109
gnu/packages/music.scm
View File

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014, 2019 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014, 2019 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2015-2023 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015-2024 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org> ;;; Copyright © 2015 Paul van der Walt <paul@denknerd.org>
;;; Copyright © 2016 Al McElrath <hello@yrns.org> ;;; Copyright © 2016 Al McElrath <hello@yrns.org>
;;; Copyright © 2016, 2017, 2019, 2021-2023 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2019, 2021-2023 Efraim Flashner <efraim@flashner.co.il>
@ -6723,7 +6723,7 @@ and as an LV2 plugin.")
;; distros to make necessary changes to integrate the software into the ;; distros to make necessary changes to integrate the software into the
;; distribution. ;; distribution.
(name "zrythm") (name "zrythm")
(version "1.0.0-beta.4.9.1") (version "1.0.0-beta.4.12.5")
(source (source
(origin (origin
(method url-fetch) (method url-fetch)
@ -6731,49 +6731,46 @@ and as an LV2 plugin.")
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"0skdb4bpw4v5175yw9wijrc6j36mxjq8i7p8nn9650lipxg6bshd")))) "1kixf8rlim5qvkhcm65rf35mxkxv3hij039jc9rvh710vl2xxm0g"))))
(build-system meson-build-system) (build-system meson-build-system)
(arguments (arguments
(list #:glib-or-gtk? #t (list
#:configure-flags #:glib-or-gtk? #t
#~(list "-Dtests=true" #:configure-flags
"-Dmanpage=false" ;fish-completions breaks this '(list "-Dtests=true"
"-Ddseg_font=false" "-Dmanpage=false" ;fish-completions breaks this
"-Dextra_optimizations=false" ;machine-specific "-Ddseg_font=false"
"-Dgraphviz=enabled" ;for exporting routing graphs "-Dextra_optimizations=false" ;machine-specific
"-Dguile=enabled" ;for Guile scripting "-Dgraphviz=enabled" ;for exporting routing graphs
"-Djack=enabled" ;for JACK audio/MIDI backend "-Dguile=enabled" ;for Guile scripting
"-Drtaudio=enabled" ;for RtAudio backend (ALSA) "-Djack=enabled" ;for JACK audio/MIDI backend
"-Drtmidi=enabled" ;for RtMidi backend (ALSA sequencer) "-Drtaudio=enabled" ;for RtAudio backend (ALSA)
"-Dsdl=enabled") ;for SDL audio backend (which uses ALSA) "-Drtmidi=enabled" ;for RtMidi backend (ALSA sequencer)
#:phases "-Dsdl=enabled") ;for SDL audio backend (which uses ALSA)
#~(modify-phases %standard-phases #:phases
(add-after 'unpack 'patch-tests #~(modify-phases %standard-phases
(lambda _ (add-after 'unpack 'patch-tests
;; io_mkdir must be called with a GError value, not plain (lambda _
;; NULL, or else the assertion in io_mkdir segfaults. ;; zrythm: fails because curl wants to access the internet.
(substitute* "tests/helpers/zrythm.h" ;; project: unknown failure XXX
(("success = io_mkdir \\(tmp_log_dir, NULL\\);" m) ;; The other tests fail with this error:
(string-append "err = NULL; ;; error: attempt to map invalid URI `'
success = io_mkdir (tmp_log_dir, &err);"))) ;; This means that lilv is given an empty LV2 plugin URI.
;; This is probably because we don't provide all LV2
;; zrythm: fails because curl wants to access the internet. ;; plugins that are needed for running the tests.
;; project: unknown failure XXX (substitute* "tests/meson.build"
;; The other tests fail with this error: (("foreach name, info : tests")
;; error: attempt to map invalid URI `' "\
;; This means that lilv is given an empty LV2 plugin URI.
;; This is probably because we don't provide all LV2
;; plugins that are needed for running the tests.
(substitute* "tests/meson.build"
(("foreach name, info : tests")
"\
disabled_tests = { disabled_tests = {
'zrythm': 0,
'project': 0,
'audio/midi_track': 0,
'integration/recording': 0,
'actions/mixer_selections_action': 0, 'actions/mixer_selections_action': 0,
'actions/tracklist_selections': 0 'actions/tracklist_selections': 0,
'dsp/audio_region': 0,
'dsp/audio_track': 0,
'dsp/midi_track': 0,
'dsp/pool': 0,
'integration/recording': 0,
'project': 0,
'zrythm': 0
} }
enabled_tests = {} enabled_tests = {}
foreach name, info : tests foreach name, info : tests
@ -6781,17 +6778,21 @@ success = io_mkdir (tmp_log_dir, &err);")))
enabled_tests += {name: info} enabled_tests += {name: info}
endif endif
endforeach endforeach
foreach name, info : enabled_tests")))) foreach name, info : enabled_tests"))
(add-before 'build 'disable-guile-auto-compilation ;; Requires internet access
(lambda _ (substitute* "data/meson.build"
(setenv "GUILE_AUTO_COMPILE" "0"))) (("if appstream.*\\(\\)")
(add-after 'install 'wrap-program "if false"))))
(lambda _ (add-before 'build 'disable-guile-auto-compilation
(wrap-program (string-append #$output "/bin/zrythm") (lambda _
;; Wrapping GDK_PIXBUF_MODULE_FILE allows Zrythm to load (setenv "GUILE_AUTO_COMPILE" "0")))
;; its own SVG icons in pure environments. (add-after 'install 'wrap-program
`("GDK_PIXBUF_MODULE_FILE" = (lambda _
(,(getenv "GDK_PIXBUF_MODULE_FILE"))))))))) (wrap-program (string-append #$output "/bin/zrythm")
;; Wrapping GDK_PIXBUF_MODULE_FILE allows Zrythm to load
;; its own SVG icons in pure environments.
`("GDK_PIXBUF_MODULE_FILE" =
(,(getenv "GDK_PIXBUF_MODULE_FILE")))))))))
(inputs (inputs
(list alsa-lib (list alsa-lib
boost boost
@ -6810,7 +6811,6 @@ success = io_mkdir (tmp_log_dir, &err);")))
jack-2 jack-2
json-glib json-glib
libadwaita libadwaita
libaudec
(module-ref (module-ref
(resolve-interface '(gnu packages debug)) 'libbacktrace) (resolve-interface '(gnu packages debug)) 'libbacktrace)
libcyaml libcyaml
@ -6820,8 +6820,10 @@ success = io_mkdir (tmp_log_dir, &err);")))
libsndfile libsndfile
libyaml libyaml
lilv lilv
lsp-dsp-lib
lv2 lv2
pango pango
pcre
pipewire pipewire
pulseaudio pulseaudio
reproc reproc
@ -6829,6 +6831,7 @@ success = io_mkdir (tmp_log_dir, &err);")))
rtmidi rtmidi
rubberband rubberband
sdl2 sdl2
soxr
vamp vamp
xdg-utils xdg-utils
xxhash xxhash