From b51bde71a9385f4e81fbea258bfb9e8ff48be119 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Wed, 5 Dec 2018 14:41:48 +0900 Subject: 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. --- gnu/installer.scm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'gnu/installer.scm') diff --git a/gnu/installer.scm b/gnu/installer.scm index 4a587eb35b..1b9aeaa217 100644 --- a/gnu/installer.scm +++ b/gnu/installer.scm @@ -229,16 +229,22 @@ selected keymap." ((installer-user-page current-installer)))) (configuration-formatter users->configuration)) + ;; Ask the user to choose one or many desktop environment(s). + (installer-step + (id 'services) + (description (G_ "Services")) (compute (lambda _ - ((installer-user-page current-installer))))) + ((installer-services-page current-installer)))) + (configuration-formatter + desktop-environments->configuration)) - (installer-step + (installer-step (id 'final) (description (G_ "Configuration file")) (compute (lambda (result prev-steps) ((installer-final-page current-installer) - result prev-steps))))))) + result prev-steps)))))))) (define (installer-program) "Return a file-like object that runs the given INSTALLER." -- cgit v1.2.3