;;; 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 record)
  #:use-module (guix records)
  #:use-module (srfi srfi-1)
  #:export (<installer>
            installer
            make-installer
            installer?
            installer-name
            installer-init
            installer-exit
            installer-exit-error
            installer-final-page
            installer-keymap-page
            installer-locale-page
            installer-menu-page
            installer-network-page
            installer-timezone-page
            installer-hostname-page
            installer-user-page
            installer-partition-page
            installer-services-page
            installer-welcome-page))


;;;
;;; Installer record.
;;;

;; The <installer> record contains pages that will be run to prompt the user
;; for the system configuration. The goal of the installer is to produce a
;; complete <operating-system> record and install it.

(define-record-type* <installer>
  installer make-installer
  installer?
  ;; symbol
  (name installer-name)
  ;; procedure: void -> void
  (init installer-init)
  ;; procedure: void -> void
  (exit installer-exit)
  ;; procedure (key arguments) -> void
  (exit-error installer-exit-error)
  ;; procedure void -> void
  (final-page installer-final-page)
  ;; procedure (layouts) -> (list layout variant)
  (keymap-page installer-keymap-page)
  ;; procedure: (#:key supported-locales iso639-languages iso3166-territories)
  ;; -> glibc-locale
  (locale-page installer-locale-page)
  ;; procedure: (steps) -> step-id
  (menu-page installer-menu-page)
  ;; procedure void -> void
  (network-page installer-network-page)
  ;; procedure (zonetab) -> posix-timezone
  (timezone-page installer-timezone-page)
  ;; procedure void -> void
  (hostname-page installer-hostname-page)
  ;; procedure void -> void
  (user-page installer-user-page)
  ;; procedure void -> void
  (partition-page installer-partition-page)
  ;; procedure void -> void
  (services-page installer-services-page)
  ;; procedure (logo) -> void
  (welcome-page installer-welcome-page))
date to 1.6.6.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-10-20 19:22:41 -0400'>2020-10-20</span></td><td><a href='/guix/commit/gnu/packages/photo.scm?id=022d90cd9e1ac145fddb7fe81c8d5f6cf11c4584'>gnu: perl-image-exiftool: Update to 12.00.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2020-10-14 16:31:44 +0200'>2020-10-14</span></td><td><a href='/guix/commit/gnu/packages/photo.scm?id=81f3adb4d192cc75eca465bc95883fff1f46e1a6'>gnu: gphoto2: Update to 2.5.26.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-10-14 16:31:44 +0200'>2020-10-14</span></td><td><a href='/guix/commit/gnu/packages/photo.scm?id=ce7548e69112f67580f529ad78d4a053ed133b63'>gnu: libgphoto2: Update to 2.5.26.</a><span class='msg-avail'>...</span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-09-04 11:29:51 +0200'>2020-09-04</span></td><td><a href='/guix/commit/gnu/packages/photo.scm?id=9db1b3786feb5669bed67199365d98f97226ba91'>gnu: darktable: Add dependency on libavif, ocl-icd.</a><span class='msg-avail'>...</span></td><td>Vinicius Monego</td></tr>
<tr><td><span title='2020-09-04 11:29:51 +0200'>2020-09-04</span></td><td><a href='/guix/commit/gnu/packages/photo.scm?id=c49025480e00f68f42efe9f018521d15819c02a6'>gnu: darktable: Update to 3.2.1.</a><span class='msg-avail'>...</span></td><td>Vinicius Monego</td></tr>
<tr><td><span title='2020-08-16 09:16:53 +0200'>2020-08-16</span></td><td><a href='/guix/commit/gnu/packages/photo.scm?id=0c73eed36b6a7e3c2d15a8f989eb9cebb44cc16e'>gnu: Add entangle.</a><span class='msg-avail'>...</span></td><td>Vinicius Monego</td></tr>
<tr><td><span title='2020-07-24 21:08:34 +0200'>2020-07-24</span></td><td><a href='/guix/commit/gnu/packages/photo.scm?id=271f27864096728ebd05b61d2015ef3fade1dde6'>gnu: LibRaw: Update to 0.20.0 [fixes CVE-2020-15503].</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-06-30 00:18:28 +0200'>2020-06-30</span></td><td><a href='/guix/commit/gnu/packages/photo.scm?id=172ca314c3ad866b6dcb0896ef1a0b0b1e558ea0'>gnu: darktable: Add dependency on GMIC and OpenCL headers.</a><span class='msg-avail'>...</span></td><td>Vinicius Monego</td></tr>
<tr><td><span title='2020-06-24 22:10:58 +0200'>2020-06-24</span></td><td><a href='/guix/commit/gnu/packages/photo.scm?id=c53d529f1da483fbbd5ebde7e39a7d15b90b55ae'>gnu: Add photoflare.</a><span class='msg-avail'>...</span></td><td>Vinicius Monego</td></tr>
<tr><td><span title='2020-06-22 23:52:55 +0200'>2020-06-22</span></td><td><a href='/guix/commit/gnu/packages/photo.scm?id=9305dfb9fd8a83fa6fb7c49700a9099dc32342da'>gnu: darktable: Update to 3.0.2.</a><span class='msg-avail'>...</span></td><td>Vinicius Monego</td></tr>