diff options
| -rw-r--r-- | gnu/installer/newt/hostname.scm | 2 | ||||
| -rw-r--r-- | gnu/installer/newt/network.scm | 2 | ||||
| -rw-r--r-- | gnu/installer/newt/page.scm | 2 | ||||
| -rw-r--r-- | gnu/installer/newt/partition.scm | 12 | ||||
| -rw-r--r-- | gnu/installer/newt/user.scm | 2 | ||||
| -rw-r--r-- | 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 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) |