diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-08 10:36:37 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-08 10:42:51 +0200 |
| commit | 469e56b4afc7a6bfdc070faf162f9fed42eca1d5 (patch) | |
| tree | c96d6820482b35068f3028338296359fad63f173 /gnu/installer/services.scm | |
| parent | 7422f5dae17d61c8a8e94d60723a33783160dd38 (diff) | |
| download | guix-469e56b4afc7a6bfdc070faf162f9fed42eca1d5.tar.gz | |
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.
Diffstat (limited to 'gnu/installer/services.scm')
| -rw-r--r-- | gnu/installer/services.scm | 11 |
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)))))) |