diff options
| author | Raghav Gururajan <raghavgururajan@disroot.org> | 2020-08-16 07:05:02 -0400 |
|---|---|---|
| committer | Danny Milosavljevic <dannym@scratchpost.org> | 2020-08-19 19:04:09 +0200 |
| commit | 80efa758cf520efd9665d4bafe0d8baa1400d601 (patch) | |
| tree | 15dfcf16be961800d9e5ca4377703b9bc9cf0b65 | |
| parent | 56755efff3df3677b81f854bdc539238061562a3 (diff) | |
services: Add udev rules and dbus services to gnome-desktop-service-type.
* 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>
| -rw-r--r-- | gnu/services/desktop.scm | 67 |
1 files changed, 62 insertions, 5 deletions
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm index 9e45743586..ef4b21d418 100644 --- a/gnu/services/desktop.scm +++ b/gnu/services/desktop.scm @@ -895,23 +895,80 @@ rules.") 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)))) |