summary refs log tree commit diff
path: root/gnu/packages/music.scm
diff options
context:
space:
mode:
authorLiliana Marie Prikler <liliana.prikler@gmail.com>2022-05-30 20:57:37 +0200
committerLiliana Marie Prikler <liliana.prikler@gmail.com>2022-05-30 21:28:53 +0200
commitdf43e8d45c6af3235dd66b6d2ffebbbbf0899bda (patch)
treecd725eedd08973c480c3ac7fc9120efdc0c22ed1 /gnu/packages/music.scm
parentfed51b26141548a5bae349a5e1d8d6f681320f4f (diff)
downloadguix-df43e8d45c6af3235dd66b6d2ffebbbbf0899bda.tar.gz
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.
Diffstat (limited to 'gnu/packages/music.scm')
-rw-r--r--gnu/packages/music.scm15
1 files 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