[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: services: gnome: Register more polkit actions.
From: |
Ludovic Courtès |
Subject: |
01/02: services: gnome: Register more polkit actions. |
Date: |
Wed, 11 Oct 2017 17:00:56 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit b27ce4164a18e1451eb1d5edc189331fe6df34c1
Author: Ludovic Courtès <address@hidden>
Date: Wed Oct 11 22:21:50 2017 +0200
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.
---
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 527a310..4b5100c 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -780,15 +780,23 @@ accountsservice web site} for more information."
gnome-desktop-configuration
(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
(service-type
(name 'gnome-desktop)
(extensions
(list (service-extension polkit-service-type
- (compose list
- (package-direct-input-selector
- "gnome-settings-daemon")
- gnome-package))
+ gnome-polkit-settings)
(service-extension profile-service-type
(compose list
gnome-package))))))