[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#61576] [PATCH 17/21] services: gnome-polkit-settings: Add spice-gtk
From: |
Maxim Cournoyer |
Subject: |
[bug#61576] [PATCH 17/21] services: gnome-polkit-settings: Add spice-gtk. |
Date: |
Fri, 17 Feb 2023 12:00:58 -0500 |
* gnu/services/desktop.scm (gnome-polkit-settings): Add spice-gtk to the GNOME
packages providing polkit rules.
(package-direct-input-selector): Allow passing a list corresponding to the
dependency tree, so that non-propagated transitive inputs can be specified.
---
gnu/services/desktop.scm | 23 +++++++++++++++++------
1 file changed, 17 insertions(+), 6 deletions(-)
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index fe1f0fd20a..189334dc23 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -3,7 +3,7 @@
;;; Copyright © 2015 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com>
-;;; Copyright © 2017, 2020, 2022 Maxim Cournoyer <maxim.cournoyer@gmail.com>
+;;; Copyright © 2017, 2020, 2022, 2023 Maxim Cournoyer
<maxim.cournoyer@gmail.com>
;;; Copyright © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2018, 2020, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
@@ -183,11 +183,19 @@ (define-module (gnu services desktop)
(define (bool value)
(if value "true\n" "false\n"))
-(define (package-direct-input-selector input)
+(define (package-direct-input-selector tree)
+ "Return a procedure that selects TREE from the inputs of PACKAGE. If TREE
+is a list, it recursively searches it until it locates the last item of TREE."
(lambda (package)
- (match (assoc-ref (package-direct-inputs package) input)
- ((package . _) package))))
-
+ (let loop ((tree (if (pair? tree)
+ tree
+ (list tree)))
+ (package package))
+ (if (null? tree)
+ package
+ (loop (cdr tree)
+ (car (assoc-ref (package-direct-inputs package)
+ (car tree))))))))
;;;
@@ -1360,7 +1368,10 @@ (define (gnome-polkit-settings config)
'("gnome-settings-daemon"
"gnome-control-center"
"gnome-system-monitor"
- "gvfs")))
+ "gvfs"
+ ;; spice-gtk provides polkit actions for USB redirection
+ ;; in GNOME Boxes.
+ ("gnome-boxes" "spice-gtk"))))
(define gnome-desktop-service-type
(service-type
--
2.39.1
- [bug#61576] [PATCH 20/21] gnu: gnome-boxes: Mention extra configuration requirements., (continued)
- [bug#61576] [PATCH 20/21] gnu: gnome-boxes: Mention extra configuration requirements., Maxim Cournoyer, 2023/02/17
- [bug#61576] [PATCH 10/21] gnu: spice: Update to 0.15.1., Maxim Cournoyer, 2023/02/17
- [bug#61576] [PATCH 05/21] gnu: spice-gtk: Propagate libjpeg-turbo, lz4, opus, and usbredir., Maxim Cournoyer, 2023/02/17
- [bug#61576] [PATCH 14/21] gnu: spice-gtk: Enable support for polkit, webdav and others., Maxim Cournoyer, 2023/02/17
- [bug#61576] [PATCH 02/21] gnu: spice-gtk: Remove input labels., Maxim Cournoyer, 2023/02/17
- [bug#61576] [PATCH 19/21] services: gnome-desktop-service-type: Extend setuid-program-service-type., Maxim Cournoyer, 2023/02/17
- [bug#61576] [PATCH 11/21] gnu: spice-vdagent: Update to 0.22.1., Maxim Cournoyer, 2023/02/17
- [bug#61576] [PATCH 16/21] gnu: gnome-boxes: Update to 43.3., Maxim Cournoyer, 2023/02/17
- [bug#61576] [PATCH 07/21] gnu: usbredir: Update to 0.13.0., Maxim Cournoyer, 2023/02/17
- [bug#61576] [PATCH 17/21] services: gnome-polkit-settings: Add spice-gtk.,
Maxim Cournoyer <=
- [bug#61576] [PATCH 21/21] gnu: spice-gtk: Adjust the default file name of the ACL helper binary., Maxim Cournoyer, 2023/02/17
- bug#61576: [PATCH 00/21] Allow USB redirection as an unprivileged user in in GNOME Boxes, Maxim Cournoyer, 2023/02/25