[bug#38911] Sushi v2

["Raghav Gururajan" <raghavgururajan@disroot.org>]

[-- Attachment #1: Type: text/plain, Size: 10 bytes --]

Sushi v2

[-- Attachment #2: sushi.patch --]
[-- Type: application/octet-stream, Size: 2812 bytes --]

From c988b8eece06357e26adbb748cb55e1c6b640314 Mon Sep 17 00:00:00 2001
From: Raghav Gururajan <raghavgururajan@disroot.org>
Date: Tue, 14 Jan 2020 17:18:28 -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 8f62f47207..7ce9972460 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -246,6 +246,60 @@ Desktop.  It is designed to be as simple as possible and has some unique
 features to enable users to create their discs easily and quickly.")
     (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)      ; For file previewing.
+      ("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 rygel
   (package
    (name "rygel")
-- 
2.24.1