mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 05:57:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: gnome: Add udev rules.

Browse source 
Fixes: <https://issues.guix.gnu.org/32166>.

* gnu/services/desktop.scm (gnome-packages, gnome-udev-rules): New procedures.
(gnome-polkit-settings): Use the gnome-packages procedure.
(gnome-desktop-service-type): Add an udev service extension.
This commit is contained in:
Mathieu Othacehe 2022-01-03 20:22:02 +01:00
parent 2e691011bf
commit cd4092b7a3
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 20 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
gnu/services/desktop.scm
View file

@ -868,22 +868,34 @@ (define-record-type* <gnome-desktop-configuration> gnome-desktop-configuration
gnome-desktop-configuration?
(gnome gnome-package (default gnome)))
(define (gnome-polkit-settings config)
"Return the list of GNOME dependencies that provide polkit actions and
rules."
(define (gnome-packages config packages)
"Return the list of GNOME dependencies from CONFIG which names are part of
the given PACKAGES list."
(let ((gnome (gnome-package config)))
(map (lambda (name)
((package-direct-input-selector name) gnome))
packages)))
(define (gnome-udev-rules config)
"Return the list of GNOME dependencies that provide udev rules."
(gnome-packages config '("gnome-settings-daemon")))
(define (gnome-polkit-settings config)
"Return the list of GNOME dependencies that provide polkit actions and
rules."
(gnome-packages config
'("gnome-settings-daemon"
"gnome-control-center"
"gnome-system-monitor"
"gvfs"))))
"gvfs")))
(define gnome-desktop-service-type
(service-type
(name 'gnome-desktop)
(extensions
(list (service-extension polkit-service-type
(list (service-extension udev-service-type
gnome-udev-rules)
(service-extension polkit-service-type
gnome-polkit-settings)
(service-extension profile-service-type
(compose list