summary refs log tree commit diff
path: root/gnu/installer/services.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/installer/services.scm')
-rw-r--r--gnu/installer/services.scm11
1 files changed, 10 insertions, 1 deletions
diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm
index 640224688e..1036b21070 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))))))