summaryrefslogtreecommitdiff
path: root/gnu/services
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/services')
-rw-r--r--gnu/services/desktop.scm16
1 files changed, 12 insertions, 4 deletions
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 527a3101cf..4b5100c27a 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -780,15 +780,23 @@ accountsservice web site} for more information."
gnome-desktop-configuration
(gnome-package gnome-package (default gnome)))
+(define (gnome-polkit-settings config)
+ "Return the list of GNOME dependencies that provide polkit actions and
+rules."
+ (let ((gnome (gnome-package config)))
+ (map (lambda (name)
+ ((package-direct-input-selector name) gnome))
+ '("gnome-settings-daemon"
+ "gnome-control-center"
+ "gnome-system-monitor"
+ "gvfs"))))
+
(define gnome-desktop-service-type
(service-type
(name 'gnome-desktop)
(extensions
(list (service-extension polkit-service-type
- (compose list
- (package-direct-input-selector
- "gnome-settings-daemon")
- gnome-package))
+ gnome-polkit-settings)
(service-extension profile-service-type
(compose list
gnome-package))))))