[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
402/402: gnu: Add gnome-minimal desktop services.
From: |
guix-commits |
Subject: |
402/402: gnu: Add gnome-minimal desktop services. |
Date: |
Tue, 18 Aug 2020 16:48:39 -0400 (EDT) |
dannym pushed a commit to branch wip-desktop
in repository guix.
commit 4a00166d17f8e66089820cd54c971cc75da04e8f
Author: Raghav Gururajan <raghavgururajan@disroot.org>
AuthorDate: Tue Aug 18 11:10:00 2020 -0400
gnu: Add gnome-minimal desktop services.
* gnu/services/desktop.scm (gnome-minimal-desktop-service-type): New
variable.
(%gnome-minimal-desktop-services): New variable.
Signed-off-by: Danny Milosavljevic <dannym@scratchpost.org>
---
gnu/services/desktop.scm | 72 ++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 72 insertions(+)
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 037205e..2c088f0 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -895,6 +895,11 @@ rules.")
gnome-desktop-configuration?
(gnome gnome-package (default gnome)))
+(define-record-type* <gnome-minimal-desktop-configuration>
gnome-minimal-desktop-configuration
+ make-gnome-minimal-desktop-configuration
+ gnome-minimal-desktop-configuration?
+ (gnome-minimal gnome-minimal-package (default gnome-minimal)))
+
(define (gnome-polkit-packages config)
"Return the list of GNOME dependencies that provide polkit actions and
rules."
@@ -909,6 +914,19 @@ rules."
"gvfs"
"gnome-system-monitor"))))
+(define (gnome-minimal-polkit-packages config)
+ "Return the list of GNOME dependencies that provide polkit actions and
+rules."
+ (let ((gnome-minimal (gnome-minimal-package config)))
+ (map (lambda (name)
+ ((package-direct-input-selector name) gnome-minimal))
+ '("accountsservice"
+ "network-manager"
+ "gnome-control-center"
+ "gnome-initial-setup"
+ "gnome-settings-daemon"
+ "gvfs"))))
+
(define (gnome-udev-packages config)
"Return the list of GNOME dependencies that provide udev actions and
rules."
@@ -920,6 +938,17 @@ rules."
"gdm"
"gnome-settings-daemon"))))
+(define (gnome-minimal-udev-packages config)
+ "Return the list of GNOME dependencies that provide udev actions and
+rules."
+ (let ((gnome-minimal (gnome-minimal-package config)))
+ (map (lambda (name)
+ ((package-direct-input-selector name) gnome-minimal))
+ '("network-manager"
+ "upower"
+ "gdm"
+ "gnome-settings-daemon"))))
+
(define (gnome-dbus-packages config)
"Return the list of GNOME dependencies that provide dbus actions and
rules."
@@ -959,6 +988,23 @@ rules."
"nautilus"
"totem"))))
+(define (gnome-minimal-dbus-packages config)
+ "Return the list of GNOME dependencies that provide dbus actions and
+rules."
+ (let ((gnome-minimal (gnome-minimal-package config)))
+ (map (lambda (name)
+ ((package-direct-input-selector name) gnome-minimal))
+ '("accountsservice"
+ "network-manager"
+ "upower"
+ "gdm"
+ "gnome-control-center"
+ "gnome-keyring"
+ "gnome-shell"
+ "gvfs"
+ "rygel"
+ "sushi"))))
+
(define gnome-desktop-service-type
(service-type
(name 'gnome-desktop)
@@ -975,6 +1021,22 @@ rules."
(default-value (gnome-desktop-configuration))
(description "Run the GNOME desktop environment.")))
+(define gnome-minimal-desktop-service-type
+ (service-type
+ (name 'gnome-minimal-desktop)
+ (extensions
+ (list (service-extension polkit-service-type
+ gnome-minimal-polkit-packages)
+ (service-extension udev-service-type
+ gnome-minimal-udev-packages)
+ (service-extension dbus-root-service-type
+ gnome-minimal-udev-packages)
+ (service-extension profile-service-type
+ (compose list
+ gnome-minimal-package))))
+ (default-value (gnome-minimal-desktop-configuration))
+ (description "Run the GNOME desktop environment.")))
+
(define-deprecated (gnome-desktop-service #:key (config
(gnome-desktop-configuration)))
gnome-desktop-service-type
@@ -1353,4 +1415,14 @@ or setting its password with passwd.")))
(modify-services %generic-desktop-services
(delete slim-service-type))))
+(define %gnome-minimal-desktop-services
+ ;; Services for GNOME desktop environment.
+ (append
+ (list
+ (service gdm-service-type)
+ (service gnome-minimal-desktop-service-type)
+ (service gnome-keyring-service-type))
+ (modify-services %generic-desktop-services
+ (delete slim-service-type))))
+
;;; desktop.scm ends here
- 381/402: gnu: evolution-data-server: Include glib-or-gtk and python phases., (continued)
- 381/402: gnu: evolution-data-server: Include glib-or-gtk and python phases., guix-commits, 2020/08/18
- 385/402: gnu: gnome-maps: Remove custom typelib wrap., guix-commits, 2020/08/18
- 387/402: gnu: orca: Remove custom typelib wrap., guix-commits, 2020/08/18
- 388/402: gnu: sushi: Remove custom typelib wrap., guix-commits, 2020/08/18
- 378/402: gnu: mediasdk: Include python phases., guix-commits, 2020/08/18
- 389/402: gnu: gedit: Replace custom typelib and python wraps., guix-commits, 2020/08/18
- 392/402: gnu: gnome-terminal: Enable gnome shell search provider., guix-commits, 2020/08/18
- 393/402: gnu: gst-plugins-bad: Enable wpewebkit support., guix-commits, 2020/08/18
- 394/402: gnu: seed: Disable tests., guix-commits, 2020/08/18
- 399/402: Revert "gnu: gexiv2: Include python phases.", guix-commits, 2020/08/18
- 402/402: gnu: Add gnome-minimal desktop services.,
guix-commits <=