07/08: installer: Generate 'set-xorg-configuration' snippet.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 469e56b4afc7a6bfdc070faf162f9fed42eca1d5
Author: Ludovic Courtès <address@hidden>
Date:   Mon Apr 8 10:36:37 2019 +0200

    installer: Generate 'set-xorg-configuration' snippet.
    
    * gnu/installer/services.scm (system-services->configuration): Add
    'set-xorg-configuration' service.
    * gnu/installer/steps.scm (format-configuration): Add 'xorg' service
    module.
---
 gnu/installer/services.scm | 11 ++++++++++-
 gnu/installer/steps.scm    |  2 +-
 2 files changed, 11 insertions(+), 2 deletions(-)

diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm
index 6402246..1036b21 100644
--- a/gnu/installer/services.scm
+++ b/gnu/installer/services.scm
@@ -102,4 +102,13 @@
                        '%base-services)))
     (if (null? snippets)
         `((services ,base))
-        `((services (cons* ,@snippets ,base))))))
+        `((services (cons* ,@snippets
+
+                           ,@(if desktop?
+                                 ;; XXX: Assume 'keyboard-layout' is in scope.
+                                 '((set-xorg-configuration
+                                    (xorg-configuration
+                                     (keyboard-layout keyboard-layout))))
+                                 '())
+
+                           ,base))))))
diff --git a/gnu/installer/steps.scm b/gnu/installer/steps.scm
index 96cfdd0..1483cdc 100644
--- a/gnu/installer/steps.scm
+++ b/gnu/installer/steps.scm
@@ -215,7 +215,7 @@ found in RESULTS."
                   '())))
           steps))
         (modules '((use-modules (gnu))
-                   (use-service-modules desktop networking ssh))))
+                   (use-service-modules desktop networking ssh xorg))))
     `(,@modules
       ()
       (operating-system ,@configuration))))