;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2020 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2020 Florian Pelz <pelzflorian@pelzflorian.de>
;;;
;;; 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-parameters-menu
            installer-parameters-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 context) -> (list layout variant options)
  (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)
  ;; procedure (menu-proc) -> void
  (parameters-menu installer-parameters-menu)
  ;; procedure (keyboard-layout-selection) -> void
  (parameters-page installer-parameters-page))
f5fcb1301'>gnu: toot: Update to 0.36.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/mastodon.scm (toot): Update to 0.36.0.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2023-03-08 08:54:31 +0200'>2023-03-08</span></td><td><a href='/guix/commit/gnu/packages/mastodon.scm?id=034a5f2e861cb85a1a3b2108b0cee37ae28fd3f5'>gnu: toot: Update to 0.35.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/mastodon.scm (toot): Update to 0.35.0.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2022-12-18 21:44:15 +0200'>2022-12-18</span></td><td><a href='/guix/commit/gnu/packages/mastodon.scm?id=710c8f159f314e58c3328eae076ae84a5b4960c4'>gnu: toot: Update to 0.32.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/mastodon.scm (toot): Update to 0.32.1.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2022-12-06 10:58:08 +0200'>2022-12-06</span></td><td><a href='/guix/commit/gnu/packages/mastodon.scm?id=f34ccd506e6594ad253f3f8d1c03171e7520a4b9'>gnu: toot: Update to 0.30.1.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/mastodon.scm (toot): Update to 0.30.1.
[arguments]: Add a phase to remove integration tests.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2022-01-05 23:44:18 +0100'>2022-01-05</span></td><td><a href='/guix/commit/gnu/packages/mastodon.scm?id=282197b52158764889bcc56955dc98940947d493'>gnu: tootle: Remove trailing #t in phases.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/mastodon.scm (tootle)[arguments]: Remove trailing #t.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-05 23:44:18 +0100'>2022-01-05</span></td><td><a href='/guix/commit/gnu/packages/mastodon.scm?id=f2d304ac98738ebea8ddb584890cc6fe46f393fc'>gnu: tootle: Simplify inputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/mastodon.scm (tootle)[native-inputs]: Simplify.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-01-05 23:44:18 +0100'>2022-01-05</span></td><td><a href='/guix/commit/gnu/packages/mastodon.scm?id=b0d25a711816d039ba9ec0febc956e7bdf270178'>gnu: tootle: Fix build.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/patches/tootle-glib-object-naming.patch,
gnu/packages/patches/tootle-reason-phrase.patch: New files.
* gnu/local.mk (dist_patch_DATA): Add them.
* gnu/packages/mastodon.scm (tootle)[source]: Use them.
[inputs]: Use LIBSOUP-MINIMAL-2 instead of LIBSOUP.

Co-authored-by: Ludovic Courtès &lt;ludo@gnu.org&gt;
</span></span></td><td>Taiju HIGASHI</td></tr>
<tr><td><span title='2021-12-13 17:48:25 +0100'>2021-12-13</span></td><td><a href='/guix/commit/gnu/packages/mastodon.scm?id=8394619baceb118df92e355377fd543bb1aa501a'>gnu: Simplify package inputs.</a><span class='msg-avail'>...<span class='msg-tooltip'>This commit was obtained by running:

  ./pre-inst-env guix style

without any additional argument.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-12-05 19:17:41 +0100'>2021-12-05</span></td><td><a href='/guix/commit/gnu/packages/mastodon.scm?id=9bc0f45df5d6aed217020b1183dca54989844fb0'>Merge remote-tracking branch 'origin/master' into core-updates-frozen</a></td><td>Ricardo Wurmus</td></tr>
<tr><td><span title='2021-11-26 15:52:57 +0200'>2021-11-26</span></td><td><a href='/guix/commit/gnu/packages/mastodon.scm?id=3d6040c13522122df496c862c0ca2ddf8b28b71c'>gnu: toot: Honor the #:tests? flag.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/mastodon.scm (toot)[arguments]: Adjust custom 'check
phase to honor the #:tests? flag.
</span></span></td><td>Efraim Flashner</td></tr>
<tr><td><span title='2021-11-26 15:52:10 +0200'>2021-11-26</span></td><td><a href='/guix/commit/gnu/packages/mastodon.scm?id=ac4c0b193315d9c61b71749370ad55091154bfdb'>gnu: toot: Update to 0.28.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/mastodon.scm (toot): Update to 0.28.0.
</span></span></td><td>Efraim Flashner</td></tr>
it was obtained by running:

  ./pre-inst-env guix style

without any additional argument.
</span></span></td><td>Ludovic Courtès</td></tr>