guix-commits
[Top][All Lists]
Advanced

[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
    <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.
---
 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-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))))))



reply via email to

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