02/08: gnu: totem: Also wrap GI_TYPELIB_PATH.

[guix-commits]

lilyp pushed a commit to branch master
in repository guix.

commit 7e0440255fd1c5d954a7d22fed7e0438edf76b83
Author: Liliana Marie Prikler <liliana.prikler@gmail.com>
AuthorDate: Fri Jul 8 21:10:08 2022 +0200

    gnu: totem: Also wrap GI_TYPELIB_PATH.
    
    * gnu/packages/gnome.scm (totem)[wrap-totem]: Add GI_TYPELIB_PATH with a
    suffix capturing the build path.
---
 gnu/packages/gnome.scm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index bb503fb371..f4e7b76a27 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -6209,9 +6209,11 @@ discovery protocols.")
           'install 'wrap-totem
           (lambda* (#:key inputs outputs #:allow-other-keys)
             (let ((out             (assoc-ref outputs "out"))
+                  (gi-typelib-path (getenv "GI_TYPELIB_PATH"))
                   (gst-plugin-path (getenv "GST_PLUGIN_SYSTEM_PATH"))
                   (grl-plugin-path (getenv "GRL_PLUGIN_PATH")))
               (wrap-program (string-append out "/bin/totem")
+                `("GI_TYPELIB_PATH"        ":" suffix (,gi-typelib-path))
                 `("GST_PLUGIN_SYSTEM_PATH" ":" prefix (,gst-plugin-path))
                 `("GRL_PLUGIN_PATH"        ":" prefix (,grl-plugin-path)))
               (wrap-program (string-append out "/bin/totem-video-thumbnailer")