gnu: Add nautilus.

* gnu/packages/gnome.scm (nautilus): New variable.

Co-authored-by: 宋文武 <iyzsong@gmail.com>
This commit is contained in:
Rene Saavedra 2016-02-08 13:31:27 +08:00 committed by 宋文武
parent 16095d2729
commit 8b8775454b
1 changed files with 42 additions and 1 deletions

View File

@ -4,7 +4,7 @@
;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net> ;;; Copyright © 2014 Ian Denhardt <ian@zenhack.net>
;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2014, 2015 Federico Beffa <beffa@fbengineering.ch> ;;; Copyright © 2014, 2015 Federico Beffa <beffa@fbengineering.ch>
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com> ;;; Copyright © 2015, 2016 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org> ;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org>
;;; Copyright © 2015 Andy Wingo <wingo@igalia.com> ;;; Copyright © 2015 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com> ;;; Copyright © 2015 David Hashe <david.hashe@dhashe.com>
@ -12,6 +12,7 @@
;;; Copyright © 2015, 2016 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015, 2016 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2015, 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Rene Saavedra <rennes@openmailbox.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; 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 GTK-VNC implements client side RFB protocol and authentication extensions such
as SASL, TLS and VeNCrypt. Additionally it supports encoding extensions.") as SASL, TLS and VeNCrypt. Additionally it supports encoding extensions.")
(license license:lgpl2.1+))) (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+)))