diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-03-27 09:50:24 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-03-27 11:54:05 +0100 |
| commit | c73e554c3fe609ee2d66628f7f09cf7fa6c8d4a6 (patch) | |
| tree | cfb554b9ea2ff9f8837e38d70f8eacf3b372cca1 /gnu/installer/newt/partition.scm | |
| parent | 50247be5f4633a4c3446cddbd3515d027853ec0d (diff) | |
| download | patches-c73e554c3fe609ee2d66628f7f09cf7fa6c8d4a6.tar patches-c73e554c3fe609ee2d66628f7f09cf7fa6c8d4a6.tar.gz | |
installer: Ask for confirmation before formatting partitions.
* gnu/installer/newt/page.scm (run-confirmation-page): New procedure.
* gnu/installer/newt/partition.scm (draw-formatting-page): Call it.
Diffstat (limited to 'gnu/installer/newt/partition.scm')
| -rw-r--r-- | gnu/installer/newt/partition.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm index d4c91edc66..373aedd24c 100644 --- a/gnu/installer/newt/partition.scm +++ b/gnu/installer/newt/partition.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com> +;;; Copyright © 2019 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -53,7 +54,12 @@ (car result))) (define (draw-formatting-page) - "Draw a page to indicate partitions are being formated." + "Draw a page asking for confirmation, and then indicating that partitions +are being formatted." + (run-confirmation-page (G_ "We are about to format your hard disk. All \ +its data will be lost. Do you wish to continue?") + (G_ "Format disk?") + #:exit-button-procedure button-exit-action) (draw-info-page (format #f (G_ "Partition formatting is in progress, please wait.")) (G_ "Preparing partitions"))) |