aboutsummaryrefslogtreecommitdiff
path: root/tests/base32.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/base32.scm')
0 files changed, 0 insertions, 0 deletions
generated by cgit
e) #:edit-button? #t #:editor-locale locale #:info-textbox-width width #:file-textbox-width width #:file-textbox-height height #:exit-button-callback-procedure (lambda () (abort-to-prompt 'installer-step 'abort))))) (define (run-install-success-page) (match (current-clients) (() (message-window (G_ "Installation complete") (G_ "Reboot") (G_ "Congratulations! Installation is now complete. \ You may remove the device containing the installation image and \ press the button to reboot."))) (_ ;; When there are clients connected, send them a message and keep going. (send-to-clients '(installation-complete)))) ;; Return success so that the installer happily reboots. 'success) (define (run-install-failed-page) (match (current-clients) (() (match (ternary-window (G_ "Installation failed") (G_ "Resume") (G_ "Restart the installer") (G_ "Report the failure") (G_ "The final system installation step failed. You can resume from \ a specific step, or restart the installer.")) (1 (abort-to-prompt 'installer-step 'abort)) (2 ;; Keep going, the installer will be restarted later on. #t) (3 (raise (condition (&user-abort-error)))))) (_ (send-to-clients '(installation-failure)) #t))) (define* (run-install-shell locale #:key (users '())) (clear-screen) (newt-suspend) (let ((install-ok? (install-system locale #:users users))) (newt-resume) install-ok?)) (define (run-final-page result prev-steps) (define (wait-for-clients) (unless (null? (current-clients)) (installer-log-line "waiting with clients before starting final step") (send-to-clients '(starting-final-step)) (match (select (current-clients) '() '()) (((port _ ...) _ _) (read-line port))))) ;; Before generating the configuration file, give clients a chance to do ;; things such as changing the swap partition label. (wait-for-clients) (installer-log-line "proceeding with final step") (let* ((configuration (format-configuration prev-steps result)) (user-partitions (result-step result 'partition)) (locale (result-step result 'locale)) (users (result-step result 'user)) (install-ok? (with-mounted-partitions user-partitions (configuration->file configuration) (run-config-display-page #:locale locale) (run-install-shell locale #:users users)))) (if install-ok? (run-install-success-page) (run-install-failed-page))))
generated by cgit