ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: mate: Provide all the polkit actions.

Browse source 
* gnu/services/desktop.scm (mate-polkit-extension): New procedure.
(mate-desktop-service-type): Use it when extending POLKIT-SERVICE-TYPE.
This commit is contained in:
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 @@ (define-record-type* <mate-desktop-configuration> mate-desktop-configuration
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))))