From dd31263eb4cd42188c1d4685f03bb075c5f73469 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Fri, 17 Feb 2023 00:41:15 -0500 Subject: 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 --- gnu/services/desktop.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'gnu/services/desktop.scm') diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 5ddfbb9e53..2034b3d099 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -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)) -- cgit v1.2.3