01/05: services: gdm: Add default value.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 01b3625df6721d27c0b224ee9e58d8edf2cbc4ce
Author: Ludovic Courtès <address@hidden>
Date:   Wed Jan 9 22:52:16 2019 +0100

    services: gdm: Add default value.
    
    * gnu/services/xorg.scm (<gdm-configuration>)[x-server]: Add default
    value.
    (gdm-service-type)[default-value, description]: New fields.
    (gdm-service): Mark as deprecated.
---
 gnu/services/xorg.scm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/gnu/services/xorg.scm b/gnu/services/xorg.scm
index b3c2474..4d1674f 100644
--- a/gnu/services/xorg.scm
+++ b/gnu/services/xorg.scm
@@ -1,6 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2017 Andy Wingo <address@hidden>
-;;; Copyright © 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <address@hidden>
+;;; Copyright © 2013, 2014, 2015, 2016, 2017, 2019 Ludovic Courtès 
<address@hidden>
 ;;; Copyright © 2015 Sou Bunnbu <address@hidden>
 ;;; Copyright © 2018 Timothy Sample <address@hidden>
 ;;;
@@ -628,7 +628,8 @@ makes the good ol' XlockMore usable."
   (allow-empty-passwords? gdm-configuration-allow-empty-passwords? (default 
#t))
   (auto-login? gdm-configuration-auto-login? (default #f))
   (default-user gdm-configuration-default-user (default #f))
-  (x-server gdm-configuration-x-server))
+  (x-server gdm-configuration-x-server
+            (default (xorg-wrapper))))
 
 (define (gdm-etc-service config)
   (define gdm-configuration-file
@@ -719,12 +720,17 @@ makes the good ol' XlockMore usable."
                        (service-extension etc-service-type
                                           gdm-etc-service)
                        (service-extension dbus-root-service-type
-                                          (compose list 
gdm-configuration-gdm))))))
+                                          (compose list
+                                                   gdm-configuration-gdm))))
+                (default-value (gdm-configuration))
+                (description
+                 "Run the GNOME Desktop Manager (GDM), a program that allows
+you to log in in a graphical session, whether or not you use GNOME.")))
 
 ;; This service isn't working yet; it gets as far as starting to run the
 ;; greeter from gnome-shell but doesn't get any further.  It is here because
 ;; it doesn't hurt anyone and perhaps it inspires someone to fix it :)
-(define* (gdm-service #:key (gdm gdm)
+(define* (gdm-service #:key (gdm gdm)             ;deprecated
                        (allow-empty-passwords? #t)
                        (x-server (xorg-wrapper)))
   "Return a service that spawns the GDM graphical login manager, which in turn