From 3bd8d238aba718bf949691d0e37fa310e2cfc12a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E5=AE=8B=E6=96=87=E6=AD=A6?= Date: Mon, 22 Apr 2024 20:42:13 +0800 Subject: services: Add gvfs-service-type. * gnu/services/desktop.scm (gvfs-service-type): New variable. (gvfs-configuration, make-gvfs-configuration, gvfs-configuration?, gvfs-package): New procedures. (): New record. * doc/guix.texi (Desktop Services): Document it. Change-Id: I584819500e2ce7d2b14e57dac238a96e9888e75e --- gnu/services/desktop.scm | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) (limited to 'gnu') diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 02a7802d58..d0b9728d4a 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -109,6 +109,10 @@ udisks-service ; deprecated udisks-service-type + gvfs-configuration + gvfs-configuration? + gvfs-service-type + colord-service-type geoclue-application @@ -989,6 +993,30 @@ include the @command{udisksctl} command, part of UDisks, and GNOME Disks." (service udisks-service-type (udisks-configuration (udisks udisks)))) + + +;;; +;;; GVfs virtual file system. +;;; + +(define-record-type* + gvfs-configuration make-gvfs-configuration + gvfs-configuration? + (gvfs gvfs-package (default gvfs))) + +(define gvfs-service-type + (service-type (name 'gvfs) + (extensions + (list + (service-extension profile-service-type + (compose list gvfs-package)) + ;; Required for gvfs-udisks2-volume-monitor. + (service-extension udisks-service-type (const #t)))) + (description + "Make GVfs virtual file systems (Trash, SFTP, SMB, HTTP, +and many other) available for GIO applications.") + (default-value (gvfs-configuration)))) + ;;; ;;; Elogind login and seat management service. -- cgit v1.2.3