~ruther/guix-local: services: gnome: Register more polkit actions.

b27ce4164a18e1451eb1d5edc189331fe6df34c1 — Ludovic Courtès 8 years ago 22345a8

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
<https://lists.gnu.org/archive/html/help-guix/2016-09/msg00059.html>),
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.

patch browse .tar.gz

1 files changed, 12 insertions(+), 4 deletions(-)

M gnu/services/desktop.scm

M gnu/services/desktop.scm => gnu/services/desktop.scm +12 -4

@@ 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))))))