33/34: services: mate: Provide all the polkit actions.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 9bdb0fee012cb8bae0080c3d398842cad612070a
Author: Ludovic Courtès <address@hidden>
AuthorDate: Thu Apr 2 16:04:12 2020 +0200

    services: mate: Provide all the polkit actions.
    
    * gnu/services/desktop.scm (mate-polkit-extension): New procedure.
    (mate-desktop-service-type): Use it when extending POLKIT-SERVICE-TYPE.
---
 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 16ee4d3..7300ff5 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -932,15 +932,23 @@ and extends polkit with the actions from 
@code{gnome-settings-daemon}."
   mate-desktop-configuration?
   (mate-package mate-package (default mate)))
 
+(define (mate-polkit-extension config)
+  "Return the list of packages for CONFIG's MATE package that extend polkit."
+  (let ((mate (mate-package config)))
+    (map (lambda (input)
+           ((package-direct-input-selector input) mate))
+         '("mate-system-monitor"                  ;kill, renice processes
+           "mate-settings-daemon"                 ;date/time settings
+           "mate-power-manager"                   ;modify brightness
+           "mate-control-center"                  ;RandR, display properties 
FIXME
+           "mate-applets"))))                     ;CPU frequency scaling
+
 (define mate-desktop-service-type
   (service-type
    (name 'mate-desktop)
    (extensions
     (list (service-extension polkit-service-type
-                             (compose list
-                                      (package-direct-input-selector
-                                       "mate-settings-daemon")
-                                      mate-package))
+                             mate-polkit-extension)
           (service-extension profile-service-type
                              (compose list
                                       mate-package))))