amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Add services page.

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

12
gnu/installer.scm
View file

@ -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."