me
/
guix
Archived
1
0
Fork 0
Code

services: polkit: Choose between polkit-mozjs and polkit-duktape. 

* gnu/services/dbus.scm (%default-polkit): New variable.
(<polkit-configuration>)[polkit]: Default to it.
master
Ludovic Courtès 2021-11-27 22:29:00 +01:00
parent 26ebd111bc
commit 72b0c5a3f2
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/services/dbus.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com> ;;; Copyright © 2015 Sou Bunnbu <iyzsong@gmail.com>
;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be> ;;; Copyright © 2021 Maxime Devos <maximedevos@telenet.be>
;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re> ;;; Copyright © 2021 Brice Waegeneire <brice@waegenei.re>
@ -301,10 +301,19 @@ tuples, are all set as environment variables when the bus daemon launches it."
polkit-configuration make-polkit-configuration polkit-configuration make-polkit-configuration
polkit-configuration? polkit-configuration?
(polkit polkit-configuration-polkit ;<package> (polkit polkit-configuration-polkit ;<package>
(default polkit)) (default %default-polkit))
(actions polkit-configuration-actions ;list of <package> (actions polkit-configuration-actions ;list of <package>
(default '()))) (default '())))
(define %default-polkit
;; The default polkit package.
(let-system (system target)
;; Since mozjs depends on Rust, which is currently x86_64-only, use
;; polkit-duktape on other systems.
(if (string-prefix? "x86_64-" (or target system))
polkit-mozjs
polkit-duktape)))
(define %polkit-accounts (define %polkit-accounts
(list (user-group (name "polkitd") (system? #t)) (list (user-group (name "polkitd") (system? #t))
(user-account (user-account