diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-04-02 16:04:12 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-04-02 16:07:12 +0200 |
| commit | 9bdb0fee012cb8bae0080c3d398842cad612070a (patch) | |
| tree | 2841f3d0dfec6c471930dd1360bd591adc591ebc | |
| parent | 8a5cdc078c17d3789e156b259d6b3a8335cc9a7b (diff) | |
| download | guix-9bdb0fee012cb8bae0080c3d398842cad612070a.tar.gz | |
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.
| -rw-r--r-- | gnu/services/desktop.scm | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 16ee4d3537..7300ff5f4a 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)))) |