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.
This commit is contained in:
parent
7422f5dae1
commit
469e56b4af
2 changed files with 11 additions and 2 deletions
|
@ -102,4 +102,13 @@
|
||||||
'%base-services)))
|
'%base-services)))
|
||||||
(if (null? snippets)
|
(if (null? snippets)
|
||||||
`((services ,base))
|
`((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))))))
|
||||||
|
|
|
@ -215,7 +215,7 @@ found in RESULTS."
|
||||||
'())))
|
'())))
|
||||||
steps))
|
steps))
|
||||||
(modules '((use-modules (gnu))
|
(modules '((use-modules (gnu))
|
||||||
(use-service-modules desktop networking ssh))))
|
(use-service-modules desktop networking ssh xorg))))
|
||||||
`(,@modules
|
`(,@modules
|
||||||
()
|
()
|
||||||
(operating-system ,@configuration))))
|
(operating-system ,@configuration))))
|
||||||
|
|
Reference in a new issue