Browse Source

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.
install-doc-overhaul
Mathieu Othacehe 4 years ago
committed by Ludovic Courtès
parent
commit
5cdb6bd2db
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 2
      gnu/installer/newt/hostname.scm
  2. 4
      gnu/installer/newt/keymap.scm
  3. 8
      gnu/installer/newt/locale.scm
  4. 2
      gnu/installer/newt/network.scm
  5. 2
      gnu/installer/newt/timezone.scm
  6. 2
      gnu/installer/newt/wifi.scm

2
gnu/installer/newt/hostname.scm

@ -23,4 +23,4 @@
(define (run-hostname-page)
(run-input-page (G_ "Please enter the system hostname")
(G_ "Hostname selection")))
(G_ "Hostname")))

4
gnu/installer/newt/keymap.scm

@ -29,7 +29,7 @@
#:export (run-keymap-page))
(define (run-layout-page layouts layout->text)
(let ((title (G_ "Layout selection")))
(let ((title (G_ "Layout")))
(run-listbox-selection-page
#:title title
#:info-text (G_ "Please choose your keyboard layout.")
@ -43,7 +43,7 @@
(&installer-step-abort)))))))
(define (run-variant-page variants variant->text)
(let ((title (G_ "Variant selection")))
(let ((title (G_ "Variant")))
(run-listbox-selection-page
#:title title
#:info-text (G_ "Please choose a variant for your keyboard layout.")

8
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.")

2
gnu/installer/newt/network.scm

@ -56,7 +56,7 @@ Internet and return the selected technology. For now, only technologies with
(run-listbox-selection-page
#:info-text (G_ "The install process requires an internet access.\
Please select a network technology.")
#:title (G_ "Technology selection")
#:title (G_ "Internet access")
#:listbox-items (technology-items)
#:listbox-item->text technology->text
#:button-text (G_ "Cancel")

2
gnu/installer/newt/timezone.scm

@ -55,7 +55,7 @@ returned."
(define (loop path)
(let ((timezones (locate-childrens timezone-tree path)))
(run-listbox-selection-page
#:title (G_ "Timezone selection")
#:title (G_ "Timezone")
#:info-text (G_ "Please select a timezone.")
#:listbox-items timezones
#:listbox-item->text identity

2
gnu/installer/newt/wifi.scm

@ -219,7 +219,7 @@ force a wifi scan."
cancel-button)
(make-wrapped-grid-window
(basic-window-grid info-textbox middle-grid buttons-grid)
(G_ "Wifi selection"))
(G_ "Wifi"))
(receive (exit-reason argument)
(run-form form)

Loading…
Cancel
Save