summaryrefslogtreecommitdiff
path: root/gnu/installer
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2018-12-05 22:08:33 +0900
committerLudovic Courtès <ludo@gnu.org>2019-01-17 14:04:25 +0100
commitd700d131be31bd2838206bfc13ddd418affb185b (patch)
tree1d34cd6984b8f22b8df4414465cc7378c2eeed36 /gnu/installer
parentcbeb27025f39694b8d12e07ee7e5ce8031690c4e (diff)
downloadpatches-d700d131be31bd2838206bfc13ddd418affb185b.tar
patches-d700d131be31bd2838206bfc13ddd418affb185b.tar.gz
installer: Make sure every sentence is dot terminated.
gnu/installer/newt/hostname.scm: Finish sentences by a dot. gnu/installer/newt/network.scm: Ditto. gnu/installer/newt/page.scm: Ditto. gnu/installer/newt/partition.scm: Ditto. gnu/installer/newt/user.scm: Ditto. gnu/installer/newt/wifi.scm: Ditto.
Diffstat (limited to 'gnu/installer')
-rw-r--r--gnu/installer/newt/hostname.scm2
-rw-r--r--gnu/installer/newt/network.scm2
-rw-r--r--gnu/installer/newt/page.scm2
-rw-r--r--gnu/installer/newt/partition.scm12
-rw-r--r--gnu/installer/newt/user.scm2
-rw-r--r--gnu/installer/newt/wifi.scm2
6 files changed, 11 insertions, 11 deletions
diff --git a/gnu/installer/newt/hostname.scm b/gnu/installer/newt/hostname.scm
index a8209bc2de..7783fa6360 100644
--- a/gnu/installer/newt/hostname.scm
+++ b/gnu/installer/newt/hostname.scm
@@ -22,5 +22,5 @@
#:export (run-hostname-page))
(define (run-hostname-page)
- (run-input-page (G_ "Please enter the system hostname")
+ (run-input-page (G_ "Please enter the system hostname.")
(G_ "Hostname")))
diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm
index 64fab2ae9f..f263b7df9d 100644
--- a/gnu/installer/newt/network.scm
+++ b/gnu/installer/newt/network.scm
@@ -113,7 +113,7 @@ FULL-VALUE tentatives, spaced by 1 second."
(let* ((full-value 5))
(run-scale-page
#:title (G_ "Checking connectivity")
- #:info-text (G_ "Waiting internet access is established")
+ #:info-text (G_ "Waiting internet access is established.")
#:scale-full-value full-value
#:scale-update-proc
(lambda (value)
diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm
index 98cbbb9c05..c6577c8a8c 100644
--- a/gnu/installer/newt/page.scm
+++ b/gnu/installer/newt/page.scm
@@ -98,7 +98,7 @@ enters an empty input."
(add-components-to-form form text-box input-entry ok-button)
(make-wrapped-grid-window grid title)
(let ((error-page (lambda ()
- (run-error-page (G_ "Please enter a non empty input")
+ (run-error-page (G_ "Please enter a non empty input.")
(G_ "Empty input")))))
(let loop ()
(receive (exit-reason argument)
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index 04d6192cd0..a3d48eef21 100644
--- a/gnu/installer/newt/partition.scm
+++ b/gnu/installer/newt/partition.scm
@@ -98,7 +98,7 @@ Be careful, all data on the disk will be lost.")
'()
'(extended)))))
(run-listbox-selection-page
- #:info-text (G_ "Please select a partition type")
+ #:info-text (G_ "Please select a partition type.")
#:title (G_ "Partition type")
#:listbox-items items
#:listbox-item->text symbol->string
@@ -109,7 +109,7 @@ Be careful, all data on the disk will be lost.")
(define (run-fs-type-page)
"Run a page asking the user to select a file-system type."
(run-listbox-selection-page
- #:info-text (G_ "Please select the file-system type for this partition")
+ #:info-text (G_ "Please select the file-system type for this partition.")
#:title (G_ "File-system type")
#:listbox-items '(ext4 btrfs fat32 swap)
#:listbox-item->text user-fs-type-name
@@ -123,17 +123,17 @@ calling CAN-CREATE-PARTITION? procedure. If an exception is raised, catch it
an inform the user with an appropriate error-page and return #f."
(guard (c ((max-primary-exceeded? c)
(run-error-page
- (G_ "Primary partitions count exceeded")
+ (G_ "Primary partitions count exceeded.")
(G_ "Creation error"))
#f)
((extended-creation-error? c)
(run-error-page
- (G_ "Extended partition creation error")
+ (G_ "Extended partition creation error.")
(G_ "Creation error"))
#f)
((logical-creation-error? c)
(run-error-page
- (G_ "Logical partition creation error")
+ (G_ "Logical partition creation error.")
(G_ "Creation error"))
#f))
(can-create-partition? user-partition)))
@@ -625,7 +625,7 @@ At least one partition must have its mounting point set to '/'.")
(guard
(c ((no-root-mount-point? c)
(run-error-page
- (G_ "No root mount point found")
+ (G_ "No root mount point found.")
(G_ "Missing mount point"))
#f))
(check-user-partitions user-partitions))))
diff --git a/gnu/installer/newt/user.scm b/gnu/installer/newt/user.scm
index c043f53def..f65dbb30e5 100644
--- a/gnu/installer/newt/user.scm
+++ b/gnu/installer/newt/user.scm
@@ -72,7 +72,7 @@
title)
(let ((error-page
(lambda ()
- (run-error-page (G_ "Empty inputs are not allowed")
+ (run-error-page (G_ "Empty inputs are not allowed.")
(G_ "Empty input")))))
(receive (exit-reason argument)
(run-form form)
diff --git a/gnu/installer/newt/wifi.scm b/gnu/installer/newt/wifi.scm
index c744e826a9..59e40e327e 100644
--- a/gnu/installer/newt/wifi.scm
+++ b/gnu/installer/newt/wifi.scm
@@ -86,7 +86,7 @@ nmc_wifi_strength_bars."
(define (run-wifi-password-page)
"Run a page prompting user for a password and return it."
- (run-input-page (G_ "Please enter the wifi password")
+ (run-input-page (G_ "Please enter the wifi password.")
(G_ "Password required")))
(define (run-wrong-password-page service-name)