[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

01/02: services: gnome: Register more polkit actions.

From: Ludovic Courtès
Subject: 01/02: services: gnome: Register more polkit actions.
Date: Wed, 11 Oct 2017 17:00:56 -0400 (EDT)

civodul pushed a commit to branch master
in repository guix.

commit b27ce4164a18e1451eb1d5edc189331fe6df34c1
Author: Ludovic Courtès <address@hidden>
Date:   Wed Oct 11 22:21:50 2017 +0200

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

diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 527a310..4b5100c 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -780,15 +780,23 @@ accountsservice web site} for more information."
   (gnome-package gnome-package (default gnome)))
+(define (gnome-polkit-settings config)
+  "Return the list of GNOME dependencies that provide polkit actions and
+  (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
    (name 'gnome-desktop)
     (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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]