me/guix
Archived
1
0
Fork 0
Code Activity

services: Add gvfs-service-type.

Browse source 
* 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
This commit is contained in:
宋文武 2024-04-22 20:42:13 +08:00
parent 1fbbdef3c9
commit 3bd8d238ab
No known key found for this signature in database
GPG key ID: D415BF253B515976
2 changed files with 47 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
doc/guix.texi
View file

@ -24941,6 +24941,25 @@ Package object for UDisks.
@end table @end table
@end deftp @end deftp
@defvar gvfs-service-type
Type for the service that provides virtual file systems for GIO
applicaitons, which enables support for @code{trash:///}, @code{ftp://},
@code{sftp://} and many other location schemas in file managers like
Nautilus (GNOME Files) and Thunar.
The value for this service is a @code{<gvfs-configuration>} object.
@end defvar
@deftp {Data Type} gvfs-configuration
Data type representing the configuration for @code{gvfs-service-type}.
@table @asis
@item @code{gvfs} (default: @code{gvfs}) (type: file-like)
Package object for GVfs.
@end table
@end deftp
@defvar colord-service-type @defvar colord-service-type
This is the type of the service that runs @command{colord}, a system This is the type of the service that runs @command{colord}, a system
service with a D-Bus service with a D-Bus

28
gnu/services/desktop.scm
View file

@ -109,6 +109,10 @@
udisks-service ; deprecated udisks-service ; deprecated
udisks-service-type udisks-service-type
gvfs-configuration
gvfs-configuration?
gvfs-service-type
colord-service-type colord-service-type
geoclue-application geoclue-application
@ -989,6 +993,30 @@ include the @command{udisksctl} command, part of UDisks, and GNOME Disks."
(service udisks-service-type (service udisks-service-type
(udisks-configuration (udisks udisks)))) (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. ;;; Elogind login and seat management service.