;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018 Mathieu Othacehe <m.othacehe@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (gnu installer newt final)
  #:use-module (gnu installer final)
  #:use-module (gnu installer parted)
  #:use-module (gnu installer steps)
  #:use-module (gnu installer utils)
  #:use-module (gnu installer newt page)
  #:use-module (gnu installer newt utils)
  #:use-module (guix i18n)
  #:use-module (srfi srfi-34)
  #:use-module (srfi srfi-35)
  #:use-module (newt)
  #:export (run-final-page))

(define (run-config-display-page)
  (let ((width (%configuration-file-width))
        (height (nearest-exact-integer
                 (/ (screen-rows) 2))))
    (run-file-textbox-page
     #:info-text (G_ "We're now ready to proceed with the installation! \
A system configuration file has been generated, it is displayed below.  \
The new system will be created from this file once you've pressed OK.  \
This will take a few minutes.")
     #:title (G_ "Configuration file")
     #:file (%installer-configuration-file)
     #:info-textbox-width width
     #:file-textbox-width width
     #:file-textbox-height height
     #:exit-button-callback-procedure
     (lambda ()
       (raise
        (condition
         (&installer-step-abort)))))))

(define (run-install-success-page)
  (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.")))

(define (run-install-failed-page)
  (choice-window
   (G_ "Installation failed")
   (G_ "Restart installer")
   (G_ "Retry system install")
   (G_ "The final system installation step failed.  You can retry the \
last step, or restart the installer.")))

(define (run-install-shell)
  (clear-screen)
  (newt-suspend)
  (let ((install-ok? (install-system)))
    (newt-resume)
    install-ok?))

(define (run-final-page result prev-steps)
  (let* ((configuration (format-configuration prev-steps result))
         (user-partitions (result-step result 'partition))
         (install-ok?
          (with-mounted-partitions
           user-partitions
           (configuration->file configuration)
           (run-config-display-page)
           (run-install-shell))))
    (if install-ok?
        (run-install-success-page)
        (run-install-failed-page))))
/td><td><a href='/guix/commit/gnu/installer/final.scm?id=9b6703eabee07068328a5e489deb3d532f242daa'>installer: final: Stop guix-daemon before accessing store database.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-10-20 10:50:50 +0200'>2022-10-20</span></td><td><a href='/guix/commit/gnu/installer/final.scm?id=96bb00d20336f43fac2c42662e4b1d300e624738'>installer: Run the "guix system init" command in a PTY.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2022-02-02 16:46:44 +0100'>2022-02-02</span></td><td><a href='/guix/commit/gnu/installer/final.scm?id=4943ac86e4f95a2e14fd209f3fdaac74a0d9ca2e'>installer: Use system-wide guix for system init.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2022-02-02 16:46:44 +0100'>2022-02-02</span></td><td><a href='/guix/commit/gnu/installer/final.scm?id=112ef30b84744872b3a7617d9e54b3df5db95560'>installer: Turn passwords into opaque records.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2022-02-02 16:46:43 +0100'>2022-02-02</span></td><td><a href='/guix/commit/gnu/installer/final.scm?id=c57ec6ed1ee5f2367833c3e11ae7074f114dbf02'>installer: Remove specific logging code.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2022-02-02 16:46:43 +0100'>2022-02-02</span></td><td><a href='/guix/commit/gnu/installer/final.scm?id=2f7f1d11e9dd8dcf32c2f171f746f087e9354934'>installer: Keep PATH inside the install container.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2022-02-02 16:46:43 +0100'>2022-02-02</span></td><td><a href='/guix/commit/gnu/installer/final.scm?id=4f2fd33b4f27f590ec2337daef339cf3e2337dab'>installer: Use new installer-log-line everywhere.</a><span class='msg-avail'>...</span></td><td>Josselin Poiret</td></tr>
<tr><td><span title='2022-01-14 14:29:19 +0100'>2022-01-14</span></td><td><a href='/guix/commit/gnu/installer/final.scm?id=e92723452d2f1e7639579ea327d3fff6fa25ef4c'>installer: Install the locale before mounting the cow-store.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2022-01-14 14:29:15 +0100'>2022-01-14</span></td><td><a href='/guix/commit/gnu/installer/final.scm?id=0c9693d8b3f9ecd40732ec86b732bbf99f8e8b4d'>installer: Do not set the locale in run-command.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>
<tr><td><span title='2022-01-14 14:29:12 +0100'>2022-01-14</span></td><td><a href='/guix/commit/gnu/installer/final.scm?id=7c923e6cf4412db3ef22792d639b98f8fbf7f037'>installer: Remove an unused procedure.</a><span class='msg-avail'>...</span></td><td>Mathieu Othacehe</td></tr>