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.
This commit is contained in:
parent
22345a8ed7
commit
b27ce4164a
1 changed files with 12 additions and 4 deletions
|
@ -780,15 +780,23 @@ accountsservice web site} for more information."
|
||||||
gnome-desktop-configuration
|
gnome-desktop-configuration
|
||||||
(gnome-package gnome-package (default gnome)))
|
(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
|
(define gnome-desktop-service-type
|
||||||
(service-type
|
(service-type
|
||||||
(name 'gnome-desktop)
|
(name 'gnome-desktop)
|
||||||
(extensions
|
(extensions
|
||||||
(list (service-extension polkit-service-type
|
(list (service-extension polkit-service-type
|
||||||
(compose list
|
gnome-polkit-settings)
|
||||||
(package-direct-input-selector
|
|
||||||
"gnome-settings-daemon")
|
|
||||||
gnome-package))
|
|
||||||
(service-extension profile-service-type
|
(service-extension profile-service-type
|
||||||
(compose list
|
(compose list
|
||||||
gnome-package))))))
|
gnome-package))))))
|
||||||
|
|
Reference in a new issue