From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Subject: [PATCH] gnu: Add GVFS. Date: Sun, 26 Jul 2015 22:09:33 +0800 Message-ID: <1437919773-27878-1-git-send-email-iyzsong@gmail.com> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:40243) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZJMbe-0005Gj-HZ for guix-devel@gnu.org; Sun, 26 Jul 2015 10:08:47 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ZJMbX-0001iT-T4 for guix-devel@gnu.org; Sun, 26 Jul 2015 10:08:46 -0400 Received: from mail-pa0-x232.google.com ([2607:f8b0:400e:c03::232]:36070) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ZJMbX-0001i3-MA for guix-devel@gnu.org; Sun, 26 Jul 2015 10:08:39 -0400 Received: by pachj5 with SMTP id hj5so37397400pac.3 for ; Sun, 26 Jul 2015 07:08:38 -0700 (PDT) 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 (gvfs): New variable. --- gnu/packages/gnome.scm | 55 ++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 55 insertions(+) diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index 0feb5b4..d44cb80 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -83,6 +83,9 @@ #:use-module (gnu packages backup) #:use-module (gnu packages nettle) #:use-module (gnu packages ncurses) + #:use-module (gnu packages video) + #:use-module (gnu packages cdrom) + #:use-module (gnu packages samba) #:use-module (srfi srfi-1)) (define-public brasero @@ -3107,3 +3110,55 @@ supports image conversion, rotation, and slideshows.") "This library provides GObject bindings for libudev. It was originally part of udev-extras, then udev, then systemd. It's now a project on its own.") (license license:lgpl2.1+))) + +(define-public gvfs + (package + (name "gvfs") + (version "1.24.1") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnome/sources/" name "/" + (version-major+minor version) "/" + name "-" version ".tar.xz")) + (sha256 + (base32 + "1ygiknnd24qgzds8wif3jns981mqr65lgjlxs5pw65cl3376g0yk")))) + (build-system gnu-build-system) + (arguments + '(#:tests? #f)) ; XXX: requiring `pidof' + (native-inputs + `(("glib:bin" ,glib "bin") ; for glib-genmarshal, etc. + ("intltool" ,intltool) + ("pkg-config" ,pkg-config) + ("xsltproc" ,libxslt))) + (inputs + `(("avahi" ,avahi) + ("docbook-xml" ,docbook-xml-4.2) + ("docbook-xsl" ,docbook-xsl) + ("dbus" ,dbus) + ("fuse" ,fuse) + ("glib" ,glib) + ("libarchive" ,libarchive) + ("libbluray" ,libbluray) + ("libcdio-paranoia" ,libcdio-paranoia) + ("libgcrypt" ,libgcrypt) + ("libgphoto2" ,libgphoto2) + ("libgudev" ,libgudev) + ("libmtp" ,libmtp) + ("libsecret" ,libsecret) + ("libsoup" ,libsoup) + ("libxml2" ,libxml2) + ("nettle" ,nettle) ; XXX: required by libarchive.pc + ("libsmbclient" ,samba) + ("udisks" ,udisks))) + (home-page "https://wiki.gnome.org/gvfs/") + (synopsis "Userspace virtual filesystem for GIO") + (description + "GVFS is a userspace virtual filesystem designed to work with the I/O +abstraction of GIO. It contains a GIO module that seamlessly adds GVFS support +to all applications using the GIO API. It also supports exposing the GVFS +mounts to non-GIO applications using FUSE. + +GVFS comes with a set of backends, including trash support, SFTP, SMB, HTTP, +DAV, and others.") + (license license:lgpl2.0+))) -- 2.4.3