04/04: gnu: rygel: Fix launching of the application and loading of gstreamer-plugins.

[guix-commits]

dannym pushed a commit to branch wip-desktop
in repository guix.

commit 1a1c0904b849d13535acce6f841b48081e31a4e9
Author: Raghav Gururajan <raghavgururajan@disroot.org>
AuthorDate: Thu Aug 27 21:22:50 2020 -0400

    gnu: rygel: Fix launching of the application and loading of 
gstreamer-plugins.
    
    * gnu/packages/gnome.scm (rygel) [inputs]: Add gsettings-desktop-schemas.
    [arguments]<#:phases>['wrap-rygel]: New phase.
    
    Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
---
 gnu/packages/gnome.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index fcd023c..fdbfd01 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -1810,7 +1810,13 @@ preview files on the GNOME desktop.")
                (rename-file
                 (string-append out "/share/gtk-doc")
                 (string-append doc "/share/gtk-doc"))
-               #t))))))
+               #t)))
+         (add-after 'move-help 'wrap-rygel
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out")))
+               (wrap-program (string-append out "/bin/rygel")
+                 `("GST_PLUGIN_SYSTEM_PATH" = (,(getenv 
"GST_PLUGIN_SYSTEM_PATH")))))
+             #t)))))
     (native-inputs
      `(("docbook-xml" ,docbook-xml)
        ("docbook-xml-4.3" ,docbook-xml-4.3)
@@ -1825,6 +1831,7 @@ preview files on the GNOME desktop.")
        ("xsltproc" ,libxslt)))
     (inputs
      `(("gdk-pixbuf" ,gdk-pixbuf+svg)
+       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
        ("gssdp" ,gssdp)
        ("gst-libav" ,gst-libav)
        ("gst-plugins-bad" ,gst-plugins-bad)