guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

services: gnome-desktop-service-type: Extend setuid-program-service-type.

Browse source 
* gnu/services/desktop.scm (gnome-setuid-programs): New variable.
(gnome-desktop-service-type): Extend setuid-program-service-type with it.

Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
This commit is contained in:
Maxim Cournoyer 2023-02-17 00:41:15 -05:00
parent abadd0f81f
commit dd31263eb4
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/services/desktop.scm
View file

@ -1379,6 +1379,14 @@ rules."
;; in GNOME Boxes.
("gnome-boxes" "spice-gtk")))))
(define (gnome-setuid-programs config)
"Return the list of GNOME setuid programs."
(let* ((gnome (gnome-desktop-configuration-gnome config))
(spice-gtk (gnome-package gnome '("gnome-boxes" "spice-gtk"))))
(map file-like->setuid-program
(list (file-append spice-gtk
"/libexec/spice-client-glib-usb-acl-helper")))))
(define gnome-desktop-service-type
(service-type
(name 'gnome-desktop)
@ -1387,6 +1395,8 @@ rules."
gnome-udev-rules)
(service-extension polkit-service-type
gnome-polkit-settings)
(service-extension setuid-program-service-type
gnome-setuid-programs)
(service-extension profile-service-type
(compose list gnome-desktop-configuration-gnome))))
(default-value (gnome-desktop-configuration))