* 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
