Subject: [bug#38911] gnu: Add sushi.

From: Raghav Gururajan <[email-masked]>
Date: Fri, 03 Jan 2020 20:36:37 -0500

Hello Guix!

Please find the attached patch to add sushi.

NOTE: This patch depends on the patch #38909.

Regards,
RG.
From 090aede2a479bff1cd976875a6e462a7e5f1961c Mon Sep 17 00:00:00 2001
From: Raghav Gururajan <[email-masked]>
Date: Fri, 3 Jan 2020 20:28:26 -0500
Subject: [PATCH] gnu: Add sushi.

* gnu/packages/gnome.scm (sushi): New variable.
---
 gnu/packages/gnome.scm | 54 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index ac1bea1f45..b665d02f33 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -9432,6 +9432,60 @@ and a high score table.")
     (home-page "https://wiki.gnome.org/Apps/Mahjongg")
     (license license:gpl2+)))
 
+(define-public sushi
+  (package
+   (name "sushi")
+   (version "3.32.1")
+   (source (origin
+            (method url-fetch)
+            (uri (string-append "mirror://gnome/sources/" name "/"
+                                (version-major+minor version) "/"
+                                name "-" version ".tar.xz"))
+            (sha256
+             (base32
+              "02idvqjk76lii9xyg3b1yz4rw721709bdm5j8ikjym6amcghl0aj"))))
+   (build-system meson-build-system)
+   (arguments
+    `(#:glib-or-gtk? #t
+      #:phases
+      (modify-phases %standard-phases
+        (add-after 'glib-or-gtk-wrap 'wrap-typelib
+          (lambda* (#:key outputs #:allow-other-keys)
+            (let ((prog (string-append (assoc-ref outputs "out")
+                                       "/bin/sushi")))
+              ;; put existing typelibs before sushi's deps, so as to correctly
+              ;; infer gdk-pixbuf
+              (wrap-program prog
+                `("GI_TYPELIB_PATH" suffix (,(getenv "GI_TYPELIB_PATH"))))
+              #t))))))
+   (native-inputs
+    `(("glib:bin" ,glib "bin")
+      ("gettext" ,gettext-minimal)
+      ("gobject-introspection" ,gobject-introspection)
+      ("pkg-config" ,pkg-config)))
+   (inputs
+    `(("clutter" ,clutter)
+      ("clutter-gst" ,clutter-gst)
+      ("clutter-gtk" ,clutter-gtk)
+      ("evince" ,evince)
+      ("freetype" ,freetype)
+      ("gdk-pixbuf" ,gdk-pixbuf)
+      ("gjs" ,gjs)
+      ("gst-plugins-base" ,gst-plugins-base)
+      ("gstreamer" ,gstreamer)
+      ("gtksourceview" ,gtksourceview-3)
+      ("harfbuzz" ,harfbuzz)
+      ("libepoxy" ,libepoxy)
+      ("libmusicbrainz" ,libmusicbrainz)
+      ("libxml2" ,libxml2)
+      ("neon" ,neon)
+      ("webkitgtk" ,webkitgtk)))
+   (synopsis "File previewer for GNOME desktop")
+   (description "Sushi is a dbus-activated service that allows
+applications to preview files on GNOME desktop.")
+   (home-page "https://gitlab.gnome.org/GNOME/sushi")
+   (license license:gpl2)))
+
 (define-public gnome-themes-extra
   (package
     (name "gnome-themes-extra")
-- 
2.24.1