summaryrefslogtreecommitdiff
path: root/gnu/installer/newt/locale.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2018-12-05 14:19:28 +0900
committerLudovic Courtès <ludo@gnu.org>2019-01-17 14:04:22 +0100
commit5cdb6bd2db0b465fa616a9fd36760b14844d5c48 (patch)
treec16c30040bdcd596c38019b5144d32947b825594 /gnu/installer/newt/locale.scm
parent983abd2cf9bd419eef6b8b45d36722f1cd683b25 (diff)
installer: Remove "selection" from all titles.
* gnu/installer/newt/hostname.scm (run-hostname-page): Remove selection from page title, (run-variant-page): ditto. * gnu/installer/newt/keymap.scm (run-layout-page): Ditto. * gnu/installer/newt/locale.scm (run-layout-page): Ditto, (run-territory-page): ditto, (run-codeset-page): ditto, (run-modifier-page): ditto * gnu/installer/newt/network.scm (run-territory-page): Ditto. * gnu/installer/newt/timezone.scm (run-timezone-page): Ditto. * gnu/installer/newt/wifi.scm (run-wifi-page): Ditto.
Diffstat (limited to 'gnu/installer/newt/locale.scm')
-rw-r--r--gnu/installer/newt/locale.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/gnu/installer/newt/locale.scm b/gnu/installer/newt/locale.scm
index 5444a07598..599a6b0ecf 100644
--- a/gnu/installer/newt/locale.scm
+++ b/gnu/installer/newt/locale.scm
@@ -30,7 +30,7 @@
#:export (run-locale-page))
(define (run-language-page languages language->text)
- (let ((title (G_ "Language selection")))
+ (let ((title (G_ "Language")))
(run-listbox-selection-page
#:title title
#:info-text (G_ "Choose the language to be used for the installation \
@@ -46,7 +46,7 @@ language for the installed system.")
(&installer-step-abort)))))))
(define (run-territory-page territories territory->text)
- (let ((title (G_ "Location selection")))
+ (let ((title (G_ "Location")))
(run-listbox-selection-page
#:title title
#:info-text (G_ "Choose your location. This is a shortlist of locations \
@@ -61,7 +61,7 @@ based on the language you selected.")
(&installer-step-abort)))))))
(define (run-codeset-page codesets)
- (let ((title (G_ "Codeset selection")))
+ (let ((title (G_ "Codeset")))
(run-listbox-selection-page
#:title title
#:info-text (G_ "Choose your codeset. If UTF-8 is available, it should be \
@@ -77,7 +77,7 @@ preferred.")
(&installer-step-abort)))))))
(define (run-modifier-page modifiers modifier->text)
- (let ((title (G_ "Modifier selection")))
+ (let ((title (G_ "Modifier")))
(run-listbox-selection-page
#:title title
#:info-text (G_ "Choose your modifier.")