gnu: showtime: Harden wrapper a bit.

* gnu/packages/gnome.scm (showtime) [#:phases]
{gi-wrap}: Wrap libgstgtk4.so first in GST_PLUGIN_SYSTEM_PATH.
[inputs]: Add gst-plugins-base and gst-plugins-good.  Remove gst-plugins-rs.

Change-Id: I190456ca08f3cdfd3128c1823364a646a67fd0cd

1 files changed, 14 insertions, 3 deletions

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index f596875332b..de3846c571e 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -6543,12 +6543,22 @@ discovery protocols.")
           (add-after 'add-install-to-pythonpath 'wrap-python
             (assoc-ref py:%standard-phases 'wrap))
           (add-after 'wrap-python 'gi-wrap
-            (lambda _
+            (lambda* (#:key inputs #:allow-other-keys)
               (wrap-program (string-append #$output "/bin/showtime")
                 `("GI_TYPELIB_PATH" prefix
                   (,(getenv "GI_TYPELIB_PATH")))
                 `("GST_PLUGIN_SYSTEM_PATH" prefix
-                  (,(getenv "GST_PLUGIN_SYSTEM_PATH")))))))))
+                  ,(map (lambda (x)
+                          (dirname (search-input-file
+                                    inputs
+                                    (string-append "lib/gstreamer-1.0/" x))))
+                        ;; libgstgtk4.so appears to be sensitive to ordering;
+                        ;; ensure it comes first in the plugin path.
+                        (list "libgstgtk4.so"     ;gst-plugins-rs:video
+                              "libgstopengl.so"   ;gst-plugins-base
+                              "libgstmatroska.so" ;gst-plugins-good
+                              "libgstmpegpsdemux.so"))))))))) ;gst-plugins-bad
+
     (native-inputs
      (list blueprint-compiler
            desktop-file-utils
@@ -6559,8 +6569,9 @@ discovery protocols.")
     (inputs
      (list bash-minimal
            gstreamer
+           gst-plugins-base
            gst-plugins-bad              ;for GstPlay
-           gst-plugins-rs
+           gst-plugins-good
            `(,gst-plugins-rs "video")
            gobject-introspection        ;for cairo-1.0.typelib
            gtk