From df43e8d45c6af3235dd66b6d2ffebbbbf0899bda Mon Sep 17 00:00:00 2001 From: Liliana Marie Prikler Date: Mon, 30 May 2022 20:57:37 +0200 Subject: gnu: quodlibet: Correct wrappers. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/music.scm (quodlibet)[#:phases]: Rename ‘wrap-gi-typelib’ to ‘wrap-extra-paths’. Use ‘=’ for GI_TYPELIB_PATH. Add ‘GST_PLUGIN_SYSTEM_PATH’ with suffix binding. --- gnu/packages/music.scm | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/gnu/packages/music.scm b/gnu/packages/music.scm index 9011f262a4..f00fe715c8 100644 --- a/gnu/packages/music.scm +++ b/gnu/packages/music.scm @@ -6919,14 +6919,17 @@ streaming audio server.") (format #t "test suite not run~%")))) (add-after 'install 'glib-or-gtk-wrap ; ensure icons loaded (assoc-ref glib-or-gtk:%standard-phases 'glib-or-gtk-wrap)) - (add-after 'install 'wrap-gi-typelib ; GObject Introspection + (add-after 'install 'wrap-extra-paths (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out")) - (gi-typelib-path (getenv "GI_TYPELIB_PATH"))) - (for-each (lambda (prog) - (wrap-program (string-append out "/bin/" prog) - `("GI_TYPELIB_PATH" ":" prefix (,gi-typelib-path)))) - '("exfalso" "quodlibet")))))))) + (gi-typelib-path (getenv "GI_TYPELIB_PATH")) + (gst-plugins-path (getenv "GST_PLUGIN_SYSTEM_PATH"))) + (for-each + (lambda (prog) + (wrap-program (string-append out "/bin/" prog) + `("GI_TYPELIB_PATH" ":" = (,gi-typelib-path)) + `("GST_PLUGIN_SYSTEM_PATH" ":" suffix (,gst-plugins-path)))) + '("exfalso" "quodlibet")))))))) (native-inputs (list xvfb-run gettext-minimal)) (inputs (list adwaita-icon-theme -- cgit 1.4.1