me
/
guix
Archived
1
0
Fork 0
Code

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

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