44/67: installer: Make sure every sentence is dot terminated.

[guix-commits]

civodul pushed a commit to branch wip-newt-installer
in repository guix.

commit 8f9215dd32b0d6cc3f00104f951c848ec4f31b6d
Author: Mathieu Othacehe <address@hidden>
Date:   Wed Dec 5 22:08:33 2018 +0900

    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.
---
 gnu/installer/newt/hostname.scm  |  2 +-
 gnu/installer/newt/network.scm   |  2 +-
 gnu/installer/newt/page.scm      |  2 +-
 gnu/installer/newt/partition.scm | 12 ++++++------
 gnu/installer/newt/user.scm      |  2 +-
 gnu/installer/newt/wifi.scm      |  2 +-
 6 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/gnu/installer/newt/hostname.scm b/gnu/installer/newt/hostname.scm
index a8209bc..7783fa6 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 64fab2a..f263b7d 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 98cbbb9..c6577c8 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 04d6192..a3d48ee 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 c043f53..f65dbb3 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 c744e82..59e40e3 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)