[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#68716] [PATCH v5 5/8] services: Extend polkit capabilities of gnome
From: |
Liliana Marie Prikler |
Subject: |
[bug#68716] [PATCH v5 5/8] services: Extend polkit capabilities of gnome-desktop-service. |
Date: |
Fri, 16 Feb 2024 13:08:11 +0100 |
As with our udev extension, this makes it so that all inputs are considered
modulo a new ignorelist.
* gnu/services/desktop.scm (gnome-desktop-configuration): Add
polkit-ignorelist.
(gnome-polkit-settings): Adjust accordingly.
---
gnu/services/desktop.scm | 44 ++++++++++++++++++++++++----------------
1 file changed, 27 insertions(+), 17 deletions(-)
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 0631571c49..b3c0f4fc41 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -1425,7 +1425,12 @@ (define-configuration/no-serialization
gnome-desktop-configuration
"A list of regular expressions denoting udev rules or hardware file names
provided by any package that should not be installed. By default, every udev
rule and hardware file specified by any package referenced in the other fields
-are installed."))
+are installed.")
+ (polkit-ignorelist
+ (list-of-strings '())
+ "A list of regular expressions denoting polkit rules provided by any package
+that should not be installed. By default, every polkit rule added by any
package
+referenced in the other fields are installed."))
(define (gnome-package gnome name)
"Return the package NAME among the GNOME package inputs. NAME can be a
@@ -1467,22 +1472,27 @@ (define (gnome-udev-configuration-files config)
(define (gnome-polkit-settings config)
"Return the list of GNOME dependencies that provide polkit actions and
rules."
- (let ((gnome (gnome-desktop-configuration-gnome config))
- (shell (gnome-desktop-configuration-shell config)))
- (or (any (match-lambda ((and pkg (= package-name "gvfs")) (list pkg))
- (_ #f))
- shell)
- (and (maybe-value-set? gnome)
- (gnome-packages gnome
- '("gnome-settings-daemon"
- "gnome-control-center"
- "gnome-system-monitor"
- "gvfs")))
- (raise
- (condition
- (&error-location
- (location (gnome-desktop-configuration-source-location config)))
- (&message (message (G_ "Missing gvfs"))))))))
+ (list
+ (computed-file
+ "gnome-polkit-settings"
+ (with-imported-modules
+ (source-module-closure '((guix build utils)
+ (guix build union)))
+ #~(let ((output (string-append #$output "/share/polkit-1")))
+ (use-modules (guix build utils)
+ (guix build union))
+ (mkdir-p (dirname output))
+ (union-build output
+ (search-path-as-list
+ (list "share/polkit-1")
+ (list #$@(gnome-profile config)))
+ #:create-all-directories? #t)
+ (for-each
+ (lambda (pattern)
+ (for-each
+ delete-file-recursively
+ (find-files output pattern)))
+ (list #$@(gnome-desktop-configuration-polkit-ignorelist
config))))))))
(define (gnome-profile config)
"Return a list of packages propagated through CONFIG."
--
2.41.0
- [bug#68716] [PATCH v5 1/8] gnu: Split gnome into more meta-packages., Liliana Marie Prikler, 2024/02/17
- [bug#68716] [PATCH v5 2/8] gnu: gnome: Add core packages for GNOME 44., Liliana Marie Prikler, 2024/02/17
- [bug#68716] [PATCH v5 7/8] gnu: Deprecate gnome meta-package., Liliana Marie Prikler, 2024/02/17
- [bug#68716] [PATCH v5 3/8] services: Modularise gnome-desktop-configuration., Liliana Marie Prikler, 2024/02/17
- [bug#68716] [PATCH v5 8/8] gnu: gnome: Update synopsis and description., Liliana Marie Prikler, 2024/02/17
- [bug#68716] [PATCH v5 6/8] services: desktop: Remove unused imports., Liliana Marie Prikler, 2024/02/17
- [bug#68716] [PATCH v5 4/8] services: Extend udev capabilities of gnome-desktop-service., Vivien Kraus, 2024/02/17
- [bug#68716] [PATCH v5 5/8] services: Extend polkit capabilities of gnome-desktop-service.,
Liliana Marie Prikler <=
- bug#68716: [PATCH v5 1/8] gnu: Split gnome into more meta-packages., Liliana Marie Prikler, 2024/02/24