me/guix
Archived
1
0
Fork 0
Code Activity

installer: Reorder partitionment step.

Browse source 
* gnu/installer.scm (installer-steps): Run partitionment step after keymap
step, so that the keyboard is correctly mapped when filling the mount-point
entry in partitionment page.
This commit is contained in:
Mathieu Othacehe 2018-12-05 17:49:56 +09:00 • committed by Ludovic Courtès
parent 54754efc91
commit 5bfdde503e
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
gnu/installer.scm
View file

@ -174,15 +174,6 @@ selected keymap."
((installer-welcome-page current-installer) ((installer-welcome-page current-installer)
#$(local-file "installer/aux-files/logo.txt"))))) #$(local-file "installer/aux-files/logo.txt")))))
;; Run a partitionment tool allowing the user to modify
;; partition tables, partitions and their mount points.
(installer-step
(id 'partition)
(description (G_ "Partitionment"))
(compute (lambda _
((installer-partition-page current-installer))))
(configuration-formatter user-partitions->configuration))
;; Ask the user to choose a locale among those supported by ;; Ask the user to choose a locale among those supported by
;; the glibc. Install the selected locale right away, so that ;; the glibc. Install the selected locale right away, so that
;; the user may benefit from any available translation for the ;; the user may benefit from any available translation for the
@ -217,6 +208,15 @@ selected keymap."
(compute (lambda _ (compute (lambda _
(#$keymap-step current-installer)))) (#$keymap-step current-installer))))
;; Run a partitionment tool allowing the user to modify
;; partition tables, partitions and their mount points.
(installer-step
(id 'partition)
(description (G_ "Partitionment"))
(compute (lambda _
((installer-partition-page current-installer))))
(configuration-formatter user-partitions->configuration))
;; Ask the user to input a hostname for the system. ;; Ask the user to input a hostname for the system.
(installer-step (installer-step
(id 'hostname) (id 'hostname)