[PATCH 6/6] gnu: Add eog.

[Cyril Roelandt <tipecaml@gmail.com>]

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

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 7d483be..029f756 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -21,6 +21,7 @@
   #:use-module (guix packages)
   #:use-module (guix download)
   #:use-module (guix build-system gnu)
+  #:use-module (gnu packages compression)
   #:use-module (gnu packages glib)
   #:use-module (gnu packages gnupg)
   #:use-module (gnu packages gstreamer)
@@ -34,6 +35,7 @@
   #:use-module (gnu packages perl)
   #:use-module (gnu packages pkg-config)
   #:use-module (gnu packages python)
+  #:use-module (gnu packages shared-mime-info)
   #:use-module (gnu packages xml)
   #:use-module (gnu packages xorg))
 
@@ -72,6 +74,75 @@ 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 gpl2+)))
 
+(define-public eog
+  (package
+    (name "eog")
+    (version "3.10.0")
+    (source (origin
+             (method url-fetch)
+             (uri (string-append "mirror://gnome/sources/eog/"
+                   (string-copy version 0 (string-rindex version #\.)) "/"
+                   "eog-" version ".tar.xz"))
+             (sha256
+              (base32
+               "1nm126gskhq7p2b2a8vl7sc5rvgzyah7hxzikafhnimcm3xsnjfl"))))
+    (build-system gnu-build-system)
+    (arguments
+     `(; TODO: The compilation fails when using libjpeg. Find why.
+       #:configure-flags '("--without-libjpeg")
+       #:phases
+        (alist-replace
+         'configure
+         (lambda* (#:key inputs #:allow-other-keys #:rest args)
+          (let ((configure (assoc-ref %standard-phases 'configure))
+                (gir-path (lambda (pkg-name)
+                           (string-append
+                            (assoc-ref inputs pkg-name)
+                            "/share/gir-1.0"))))
+           (substitute* "src/Makefile.in"
+            (("@HAVE_INTROSPECTION_TRUE@INTROSPECTION_SCANNER_ARGS")
+             (string-append
+              "@HAVE_INTROSPECTION_TRUE@INTROSPECTION_COMPILER_ARGS ="
+              " --includedir=" (gir-path "atk")
+              " --includedir=" (gir-path "gdk-pixbuf")
+              " --includedir=" (gir-path "gtk+")
+              " --includedir=" (gir-path "pango")
+              "\n@HAVE_INTROSPECTION_TRUE@INTROSPECTION_SCANNER_ARGS ="
+              " --add-include-path=" (gir-path "atk")
+              " --add-include-path=" (gir-path "gdk-pixbuf")
+              " --add-include-path=" (gir-path "gtk+")
+              " --add-include-path=" (gir-path "pango"))))
+           (apply configure args)))
+         %standard-phases)))
+    (inputs
+     `(("atk" ,atk)
+       ("gdk-pixbuf" ,gdk-pixbuf)
+       ("glib" ,glib)
+       ("gnome-desktop" ,gnome-desktop)
+       ("gnome-icon-theme" ,gnome-icon-theme)
+       ("gobject-introspection" ,gobject-introspection)
+       ("gsettings-desktop-schemas" ,gsettings-desktop-schemas)
+       ("gtk+" ,gtk+)
+       ("intltool" ,intltool)
+       ("itstool" ,itstool)
+       ("libffi" ,libffi)
+       ("libpeas" ,libpeas)
+       ("libxkbfile" ,libxkbfile)
+       ("pango" ,pango)
+       ("pkg-config" ,pkg-config)
+       ("shared-mime-info" ,shared-mime-info)
+       ("zlib" ,zlib)))
+    (home-page "https://projects.gnome.org/eog/")
+    (synopsis "The Eye of GNOME image viewer.")
+    (description
+     "The Eye of GNOME image viewer is the official image viewer for the GNOME
+Desktop environment. With it, you can view single image files, as well as large
+image collections.
+
+The Eye of GNOME supports a variety of image file formats. The GdkPixbuf
+library determines which file formats Eye of GNOME can load and save.")
+    (license gpl2+)))
+
 (define-public gnome-desktop
   (package
     (name "gnome-desktop")
-- 
1.8.4.rc3