diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2018-12-05 14:30:16 +0900 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-01-17 14:04:22 +0100 |
| commit | dc5f3275ecbddc804875899e9e457299a835d7ab (patch) | |
| tree | 1f6b8225e34595f90f184a2cf16264c35f0d0ba7 /gnu/installer/locale.scm | |
| parent | 3ad8f7757c840de290a6035747578a18ff7279da (diff) | |
| download | patches-dc5f3275ecbddc804875899e9e457299a835d7ab.tar patches-dc5f3275ecbddc804875899e9e457299a835d7ab.tar.gz | |
installer: Add configuration formatter.
* gnu/installer.scm (installer-steps): Add configuration-formatter procedures.
* gnu/installer/final.scm: New file.
* gnu/installer/locale.scm (locale->configuration): New exported procedure.
* gnu/installer/newt.scm (newt-installer): Add final page.
* gnu/installer/newt/final.scm: New file.
* gnu/installer/record.scm (installer): Add final-page field.
* gnu/installer/timezone.scm (posix-tz->configuration): New exported
procedure.
* gnu/installer/steps.scm (installer-step): Rename configuration-proc field to
configuration-formatter.
(%installer-configuration-file): New exported parameter,
(%installer-target-dir): ditto,
(%configuration-file-width): ditto,
(format-configuration): new exported procedure,
(configuration->file): new exported procedure.
Diffstat (limited to 'gnu/installer/locale.scm')
| -rw-r--r-- | gnu/installer/locale.scm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gnu/installer/locale.scm b/gnu/installer/locale.scm index 504070d41d..2b45b2200a 100644 --- a/gnu/installer/locale.scm +++ b/gnu/installer/locale.scm @@ -35,7 +35,9 @@ language-code->language-name iso3166->iso3166-territories - territory-code->territory-name)) + territory-code->territory-name + + locale->configuration)) ;;; @@ -197,3 +199,12 @@ territory name corresponding to the given TERRITORY-CODE." territory-code))) territories))) (iso3166-territory-name iso3166-territory))) + + +;;; +;;; Configuration formatter. +;;; + +(define (locale->configuration locale) + "Return the configuration field for LOCALE." + `((locale ,locale))) |