branch master updated: gnu: quodlibet: Correct wrappers.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

lilyp pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new df43e8d45c gnu: quodlibet: Correct wrappers.
df43e8d45c is described below

commit df43e8d45c6af3235dd66b6d2ffebbbbf0899bda
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Mon May 30 20:57:37 2022 +0200

    gnu: quodlibet: Correct wrappers.
    
    * 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