me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Ludovic Courtès 2020-04-02 16:04:12 +02:00
parent 8a5cdc078c
commit 9bdb0fee01
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gnu/services/desktop.scm
View File

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