01/04: gnu: epiphany: Fix playing of media.

[guix-commits]

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

commit 69e7da457dd6a8bc3092729a1393575a58b61117
Author: Raghav Gururajan <raghavgururajan@disroot.org>
AuthorDate: Tue Sep 1 22:22:45 2020 -0400

    gnu: epiphany: Fix playing of media.
    
    * gnu/packages/gnome.scm (epiphany) [arguments]<#:phases>['wrap-epiphany]: 
New phase.
    [inputs]: Add gstreamer, gst-plugins-bad, gst-plugins-base,
    gst-plugins-good and gst-plugins-ugly.
    
    Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
---
 gnu/packages/gnome.scm | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index c291579..00b36bb 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -7705,7 +7705,13 @@ a secret password store, an adblocker, and a modern UI.")
              (rename-file
               (string-append out "/share/help")
               (string-append help "/share/help"))
-             #t))))))
+             #t)))
+         (add-after 'move-help 'wrap-epiphany
+           (lambda* (#:key inputs outputs #:allow-other-keys)
+             (let* ((out (assoc-ref outputs "out")))
+               (wrap-program (string-append out "/bin/epiphany")
+                 `("GST_PLUGIN_SYSTEM_PATH" = (,(getenv 
"GST_PLUGIN_SYSTEM_PATH")))))
+             #t)))))
     (native-inputs
      `(("desktop-file-utils" ,desktop-file-utils)
        ("glib:bin" ,glib "bin")
@@ -7725,6 +7731,11 @@ a secret password store, an adblocker, and a modern UI.")
        ("glib-networking" ,glib-networking)
        ("gnome-desktop" ,gnome-desktop)
        ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
+       ("gstreamer" ,gstreamer)
+       ("gst-plugins-bad" ,gst-plugins-bad)
+       ("gst-plugins-base" ,gst-plugins-base)
+       ("gst-plugins-good" ,gst-plugins-good)
+       ("gst-plugins-ugly" ,gst-plugins-ugly)
        ("gtk+" ,gtk+)
        ("json-glib" ,json-glib)
        ("iso-codes" ,iso-codes)