From b27ce4164a18e1451eb1d5edc189331fe6df34c1 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 11 Oct 2017 22:21:50 +0200 Subject: services: gnome: Register more polkit actions. This should allow more operations such as changing the system date and time via the Control Center (reported at ), performing "file operations" via gvfs, and interacting with processes using the System Monitor. * gnu/services/desktop.scm (gnome-polkit-settings): New procedure. (gnome-desktop-service-type): Use it in POLKIT-SERVICE-TYPE extension. --- gnu/services/desktop.scm | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) (limited to 'gnu/services/desktop.scm') 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 @@ (define-record-type* gnome-desktop-configuration 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)))))) -- cgit v1.2.3