mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: Add udev rules and dbus services to gnome-desktop-service-type.

Browse source 
* gnu/services/desktop.scm (gnome-polkit-settings): Rename to...
(gnome-polkit-packages): ...this.  Update inpput list.
(gnome-udev-packages): New procedure.
(gnome-dbus-packages): New procedure.
(gnome-desktop-service-type)[extensions]: Add udev rules and dbus services.

Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
This commit is contained in:
Raghav Gururajan 2020-08-16 07:05:02 -04:00 committed by Danny Milosavljevic
parent 56755efff3
commit 80efa758cf
No known key found for this signature in database
GPG key ID: E71A35542C30BAA5
1 changed files with 62 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

67
gnu/services/desktop.scm
View file

@ -895,23 +895,80 @@ (define-record-type* <gnome-desktop-configuration> gnome-desktop-configuration
gnome-desktop-configuration?
(gnome gnome-package (default gnome)))
(define (gnome-polkit-settings config)
(define (gnome-polkit-packages config)
"Return the list of GNOME dependencies that provide polkit actions and
rules."
(let ((gnome (gnome-package config)))
(map (lambda (name)
((package-direct-input-selector name) gnome))
'("gnome-settings-daemon"
'("accountsservice"
"network-manager"
"gnome-control-center"
"gnome-system-monitor"
"gvfs"))))
"gnome-initial-setup"
"gnome-settings-daemon"
"gvfs"
"gnome-system-monitor"))))
(define (gnome-udev-packages config)
"Return the list of GNOME dependencies that provide udev actions and
rules."
(let ((gnome (gnome-package config)))
(map (lambda (name)
((package-direct-input-selector name) gnome))
'("network-manager"
"upower"
"gdm"
"gnome-settings-daemon"))))
(define (gnome-dbus-packages config)
"Return the list of GNOME dependencies that provide dbus actions and
rules."
(let ((gnome (gnome-package config)))
(map (lambda (name)
((package-direct-input-selector name) gnome))
'("accountsservice"
"network-manager"
"upower"
"gdm"
"gnome-control-center"
"gnome-keyring"
"gnome-shell"
"gvfs"
"rygel"
"sushi"
"baobab"
"cheese"
"epiphany"
"evince"
"file-roller"
"gedit"
"gnome-boxes"
"gnome-calclulator"
"gnome-calendar"
"gnome-characters"
"gnome-clocks"
"gnome-contacts"
"gnome-disk-utility"
"gnome-font-viewer"
"gnome-maps"
"gnome-music"
"gnome-photos"
"gnome-screenshot"
"gnome-terminal"
"gnome-weather"
"nautilus"
"totem"))))
(define gnome-desktop-service-type
(service-type
(name 'gnome-desktop)
(extensions
(list (service-extension polkit-service-type
gnome-polkit-settings)
gnome-polkit-packages)
(service-extension udev-service-type
gnome-udev-packages)
(service-extension dbus-root-service-type
gnome-udev-packages)
(service-extension profile-service-type
(compose list
gnome-package))))