diff options
| author | 宋文武 <iyzsong@member.fsf.org> | 2024-04-22 20:42:13 +0800 |
|---|---|---|
| committer | 宋文武 <iyzsong@member.fsf.org> | 2024-04-29 08:54:36 +0800 |
| commit | 3bd8d238aba718bf949691d0e37fa310e2cfc12a (patch) | |
| tree | a54ac580c0faa585ced6d39e0544a53813661b9a /gnu | |
| parent | 1fbbdef3c9ed074dc25cb40a8621313f9d258203 (diff) | |
| download | guix-master.tar guix-master.tar.gz | |
* gnu/services/desktop.scm (gvfs-service-type): New variable.
(gvfs-configuration, make-gvfs-configuration, gvfs-configuration?,
gvfs-package): New procedures.
(<gvfs-configuration>): New record.
* doc/guix.texi (Desktop Services): Document it.
Change-Id: I584819500e2ce7d2b14e57dac238a96e9888e75e
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services/desktop.scm | 28 |
1 files changed, 28 insertions, 0 deletions
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> + 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. |