me/guix
Archived
1
0
Fork 0
Code Activity

services: gnome-polkit-settings: Add spice-gtk.

Browse source 
* 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.

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

23
gnu/services/desktop.scm
View file

@ -3,7 +3,7 @@
;;; Copyright © 2015 Andy Wingo <wingo@igalia.com> ;;; Copyright © 2015 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2015 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2016 Sou Bunnbu <iyzsong@gmail.com> ;;; 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 © 2017 Nikita <nikita@n0.is>
;;; Copyright © 2018, 2020, 2022 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2018, 2020, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net>
@ -183,11 +183,19 @@
(define (bool value) (define (bool value)
(if value "true\n" "false\n")) (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) (lambda (package)
(match (assoc-ref (package-direct-inputs package) input) (let loop ((tree (if (pair? tree)
((package . _) package)))) 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 @@ rules."
'("gnome-settings-daemon" '("gnome-settings-daemon"
"gnome-control-center" "gnome-control-center"
"gnome-system-monitor" "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 (define gnome-desktop-service-type
(service-type (service-type