guix/guix
3
5
Fork 0
mirror of git://git.savannah.gnu.org/guix.git synced 2023-12-14 03:33:07 +01:00
Code Issues Releases Wiki Activity

installer: Generate 'set-xorg-configuration' snippet.

Browse source 
* gnu/installer/services.scm (system-services->configuration): Add
'set-xorg-configuration' service.
* gnu/installer/steps.scm (format-configuration): Add 'xorg' service
module.
This commit is contained in:
Ludovic Courtès 2019-04-08 10:36:37 +02:00
parent 7422f5dae1
commit 469e56b4af
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gnu/installer/services.scm
View file

@ -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))))))

2
gnu/installer/steps.scm
View file

@ -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))))