nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Mathieu Othacehe 2018-12-05 22:08:33 +09:00 committed by Ludovic Courtès
parent cbeb27025f
commit d700d131be
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
6 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
gnu/installer/newt/hostname.scm
View File

@ -22,5 +22,5 @@
#:export (run-hostname-page)) #:export (run-hostname-page))
(define (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"))) (G_ "Hostname")))

2
gnu/installer/newt/network.scm
View File

@ -113,7 +113,7 @@ FULL-VALUE tentatives, spaced by 1 second."
(let* ((full-value 5)) (let* ((full-value 5))
(run-scale-page (run-scale-page
#:title (G_ "Checking connectivity") #: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-full-value full-value
#:scale-update-proc #:scale-update-proc
(lambda (value) (lambda (value)

2
gnu/installer/newt/page.scm
View File

@ -98,7 +98,7 @@ enters an empty input."
(add-components-to-form form text-box input-entry ok-button) (add-components-to-form form text-box input-entry ok-button)
(make-wrapped-grid-window grid title) (make-wrapped-grid-window grid title)
(let ((error-page (lambda () (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"))))) (G_ "Empty input")))))
(let loop () (let loop ()
(receive (exit-reason argument) (receive (exit-reason argument)

12
gnu/installer/newt/partition.scm
View File

@ -98,7 +98,7 @@ Be careful, all data on the disk will be lost.")
'() '()
'(extended))))) '(extended)))))
(run-listbox-selection-page (run-listbox-selection-page
#:info-text (G_ "Please select a partition type") #:info-text (G_ "Please select a partition type.")
#:title (G_ "Partition type") #:title (G_ "Partition type")
#:listbox-items items #:listbox-items items
#:listbox-item->text symbol->string #:listbox-item->text symbol->string
@ -109,7 +109,7 @@ Be careful, all data on the disk will be lost.")
(define (run-fs-type-page) (define (run-fs-type-page)
"Run a page asking the user to select a file-system type." "Run a page asking the user to select a file-system type."
(run-listbox-selection-page (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") #:title (G_ "File-system type")
#:listbox-items '(ext4 btrfs fat32 swap) #:listbox-items '(ext4 btrfs fat32 swap)
#:listbox-item->text user-fs-type-name #: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." an inform the user with an appropriate error-page and return #f."
(guard (c ((max-primary-exceeded? c) (guard (c ((max-primary-exceeded? c)
(run-error-page (run-error-page
(G_ "Primary partitions count exceeded") (G_ "Primary partitions count exceeded.")
(G_ "Creation error")) (G_ "Creation error"))
#f) #f)
((extended-creation-error? c) ((extended-creation-error? c)
(run-error-page (run-error-page
(G_ "Extended partition creation error") (G_ "Extended partition creation error.")
(G_ "Creation error")) (G_ "Creation error"))
#f) #f)
((logical-creation-error? c) ((logical-creation-error? c)
(run-error-page (run-error-page
(G_ "Logical partition creation error") (G_ "Logical partition creation error.")
(G_ "Creation error")) (G_ "Creation error"))
#f)) #f))
(can-create-partition? user-partition))) (can-create-partition? user-partition)))
@ -625,7 +625,7 @@ At least one partition must have its mounting point set to '/'.")
(guard (guard
(c ((no-root-mount-point? c) (c ((no-root-mount-point? c)
(run-error-page (run-error-page
(G_ "No root mount point found") (G_ "No root mount point found.")
(G_ "Missing mount point")) (G_ "Missing mount point"))
#f)) #f))
(check-user-partitions user-partitions)))) (check-user-partitions user-partitions))))

2
gnu/installer/newt/user.scm
View File

@ -72,7 +72,7 @@
title) title)
(let ((error-page (let ((error-page
(lambda () (lambda ()
(run-error-page (G_ "Empty inputs are not allowed") (run-error-page (G_ "Empty inputs are not allowed.")
(G_ "Empty input"))))) (G_ "Empty input")))))
(receive (exit-reason argument) (receive (exit-reason argument)
(run-form form) (run-form form)

2
gnu/installer/newt/wifi.scm
View File

@ -86,7 +86,7 @@ nmc_wifi_strength_bars."
(define (run-wifi-password-page) (define (run-wifi-password-page)
"Run a page prompting user for a password and return it." "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"))) (G_ "Password required")))
(define (run-wrong-password-page service-name) (define (run-wrong-password-page service-name)