From mboxrd@z Thu Jan 1 00:00:00 1970 From: Cyril Roelandt Subject: [PATCH 6/6] gnu: Add eog. Date: Sat, 30 Nov 2013 02:13:36 +0100 Message-ID: <1385774016-1418-7-git-send-email-tipecaml@gmail.com> References: <1385774016-1418-1-git-send-email-tipecaml@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:32919) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VmZ7N-0005pF-HF for guix-devel@gnu.org; Fri, 29 Nov 2013 20:13:14 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VmZ7I-0003Wb-TZ for guix-devel@gnu.org; Fri, 29 Nov 2013 20:13:09 -0500 Received: from mail-wg0-x235.google.com ([2a00:1450:400c:c00::235]:47604) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VmZ7I-0003WQ-KA for guix-devel@gnu.org; Fri, 29 Nov 2013 20:13:04 -0500 Received: by mail-wg0-f53.google.com with SMTP id k14so7393403wgh.20 for ; Fri, 29 Nov 2013 17:13:04 -0800 (PST) In-Reply-To: <1385774016-1418-1-git-send-email-tipecaml@gmail.com> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * 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