installer: Add services page.

Add a page to select services, for now only desktop environments choice is
available.

* gnu/installer.scm (steps): Add services step.
* gnu/installer/newt.scm (newt-installer): Add services-page field.
* gnu/installer/newt/services.scm: New file.
* gnu/installer/record.scm (installer): Add services-page field.
* gnu/installer/services.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add new files.
* po/guix/POTFILES.in: Add new files.
This commit is contained in:
Mathieu Othacehe 2018-12-05 14:41:48 +09:00 committed by Ludovic Courtès
parent c088b2e47f
commit b51bde71a9
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
7 changed files with 128 additions and 3 deletions

View file

@ -25,6 +25,7 @@
#:use-module (gnu installer newt locale)
#:use-module (gnu installer newt menu)
#:use-module (gnu installer newt network)
#:use-module (gnu installer newt services)
#:use-module (gnu installer newt timezone)
#:use-module (gnu installer newt user)
#:use-module (gnu installer newt utils)
@ -80,6 +81,9 @@
(define (user-page)
(run-user-page))
(define (services-page)
(run-services-page))
(define newt-installer
(installer
(name 'newt)
@ -94,4 +98,5 @@
(timezone-page timezone-page)
(hostname-page hostname-page)
(user-page user-page)
(services-page services-page)
(welcome-page welcome-page)))