01/01: gnu: Add nautilus.

[???]

iyzsong pushed a commit to branch master
in repository guix.

commit 8b8775454b90acedda2d0aa669a6584ea306e7f3
Author: Rene Saavedra <address@hidden>
Date:   Mon Feb 8 13:31:27 2016 +0800

    gnu: Add nautilus.
    
    * gnu/packages/gnome.scm (nautilus): New variable.
    
    Co-authored-by: 宋文武 <address@hidden>
---
 gnu/packages/gnome.scm |   43 ++++++++++++++++++++++++++++++++++++++++++-
 1 files changed, 42 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm
index 63121d4..49e6197 100644
--- a/gnu/packages/gnome.scm
+++ b/gnu/packages/gnome.scm
@@ -4,7 +4,7 @@
 ;;; Copyright © 2014 Ian Denhardt <address@hidden>
 ;;; Copyright © 2014 Eric Bavier <address@hidden>
 ;;; Copyright © 2014, 2015 Federico Beffa <address@hidden>
-;;; Copyright © 2015 Sou Bunnbu <address@hidden>
+;;; Copyright © 2015, 2016 Sou Bunnbu <address@hidden>
 ;;; Copyright © 2015 Mathieu Lirzin <address@hidden>
 ;;; Copyright © 2015 Andy Wingo <address@hidden>
 ;;; Copyright © 2015 David Hashe <address@hidden>
@@ -12,6 +12,7 @@
 ;;; Copyright © 2015, 2016 Mark H Weaver <address@hidden>
 ;;; Copyright © 2015 David Thompson <address@hidden>
 ;;; Copyright © 2015, 2016 Efraim Flashner <address@hidden>
+;;; Copyright © 2016 Rene Saavedra <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -4607,3 +4608,43 @@ applications, for instance the Vinagre client, GNOME 
Boxes and virt-viewer.
 GTK-VNC implements client side RFB protocol and authentication extensions such
 as SASL, TLS and VeNCrypt.  Additionally it supports encoding extensions.")
     (license license:lgpl2.1+)))
+
+(define-public nautilus
+  (package
+    (name "nautilus")
+    (version "3.18.2") ; XXX: later version require gtk+-3.0 >= 3.18.5
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnome/sources/" name "/"
+                                  (version-major+minor version) "/"
+                                  name "-" version ".tar.xz"))
+              (sha256
+               (base32
+                "0jj23n8vmmyc4gp5xhiz7slsxwksydp26blxi5m154yaw9lgdp38"))))
+    (build-system glib-or-gtk-build-system)
+    (arguments
+     '(#:configure-flags '("--disable-tracker") ; XXX: not packaged
+       ;; XXX: FAIL: check-nautilus
+       ;;   Settings schema 'org.gnome.nautilus.preferences' is not installed
+       #:tests? #f))
+    (native-inputs
+     `(("glib:bin" ,glib "bin") ; for glib-mkenums, etc.
+       ("gobject-introspection" ,gobject-introspection)
+       ("intltool" ,intltool)
+       ("pkg-config" ,pkg-config)))
+    (propagated-inputs
+     `(("gtk+" ,gtk+))) ; required by libnautilus-extension.pc
+    (inputs
+     ;; TODO: add gvfs support.
+     `(("dconf" ,dconf)
+       ("exempi" ,exempi)
+       ("gnome-desktop" ,gnome-desktop)
+       ("libexif" ,libexif)
+       ("libxml2" ,libxml2)))
+    (synopsis "File manager for GNOME")
+    (home-page "https://wiki.gnome.org/Apps/Nautilus";)
+    (description
+     "Nautilus (Files) is a file manager designed to fit the GNOME desktop
+design and behaviour, giving the user a simple way to navigate and manage its
+files.")
+    (license license:gpl2+)))