Browse Source

gnu: Fix some typos in the installer.

* gnu/installer/connman.scm (connman-connect-with-auth): Fix typo in
documentation.
* gnu/installer/newt/keymap.scm (sort-variants): Likewise.
* gnu/installer/newt/page.scm (run-listbox-selection-page): Likewise.
* gnu/installer/parted.scm (mkpart): Likewise.
* gnu/installer/newt/utils.scm (destroy-form-and-pop): Likewise.
* gnu/installer/newt/wifi.scm (run-unknown-error-page): Fix typo.
(wifi-listbox-heigth): Rename to…
(wifi-listbox-height): …this, and adjust caller.
* gnu/installer/timezone.scm (locate-childrens): Rename to…
(locate-children): …this.  Adjust all callers.
gn-latest-20200428
Tobias Geerinckx-Rice 3 years ago
parent
commit
b83e4a93a2
No known key found for this signature in database GPG Key ID: DB0FF884F556D79
  1. 2
      gnu/installer/connman.scm
  2. 2
      gnu/installer/newt/keymap.scm
  3. 2
      gnu/installer/newt/page.scm
  4. 4
      gnu/installer/newt/timezone.scm
  5. 2
      gnu/installer/newt/utils.scm
  6. 8
      gnu/installer/newt/wifi.scm
  7. 6
      gnu/installer/parted.scm
  8. 10
      gnu/installer/timezone.scm

2
gnu/installer/connman.scm

@ -299,7 +299,7 @@ to merge stdout and stderr using bash redirection. Then error messages are
extracted from connmanctl output using a regexp. This makes the whole
procedure even more unreliable.
Raise &connman-connection-error if an error occured during connection. Raise
Raise &connman-connection-error if an error occurred during connection. Raise
&connman-password-error if the given password is incorrect."
(define connman-error-regexp (make-regexp "Error[ ]*([^\n]+)\n"))

2
gnu/installer/newt/keymap.scm

@ -71,7 +71,7 @@
(cut append <> <>)))
(define (sort-variants variants)
"Sort VARIANTS list by putting the internation variant ahead and return it."
"Sort VARIANTS list by putting the international variant ahead and return it."
(call-with-values
(lambda ()
(partition

2
gnu/installer/newt/page.scm

@ -188,7 +188,7 @@ If SORT-LISTBOX-ITEMS? is set to #t, the listbox items are sorted using
'string<=' procedure (after being converted to text).
If ALLOW-DELETE? is #t, the form will return if the <DELETE> key is pressed,
otherwise nothing will happend.
otherwise nothing will happen.
Each time the listbox current item changes, call SKIP-ITEM-PROCEDURE? with the
current listbox item as argument. If it returns #t, skip the element and jump

4
gnu/installer/newt/timezone.scm

@ -30,7 +30,7 @@
#:use-module (newt)
#:export (run-timezone-page))
;; Heigth of the listbox displaying timezones.
;; Height of the listbox displaying timezones.
(define timezone-listbox-heigth (make-parameter 20))
;; Information textbox width.
@ -53,7 +53,7 @@ returned."
(define (run-page timezone-tree)
(define (loop path)
(let ((timezones (locate-childrens timezone-tree path)))
(let ((timezones (locate-children timezone-tree path)))
(run-listbox-selection-page
#:title (G_ "Timezone")
#:info-text (G_ "Please select a timezone.")

2
gnu/installer/newt/utils.scm

@ -30,7 +30,7 @@
(define screen-rows (make-parameter 0))
(define (destroy-form-and-pop form)
"Destory the given FORM and pop the current window."
"Destroy the given FORM and pop the current window."
(destroy-form form)
(pop-window))

8
gnu/installer/newt/wifi.scm

@ -100,7 +100,7 @@ nmc_wifi_strength_bars."
"Run a page to inform user that a connection error happened."
(run-error-page
(format #f
(G_ "An error occured while trying to connect to ~a, please retry.")
(G_ "An error occurred while trying to connect to ~a, please retry.")
service-name)
(G_ "Connection error")))
@ -160,8 +160,8 @@ of <service-item> records present in LISTBOX."
;; Maximum length of a wifi service name.
(define service-name-max-length (make-parameter 20))
;; Heigth of the listbox displaying wifi services.
(define wifi-listbox-heigth (make-parameter 20))
;; Height of the listbox displaying wifi services.
(define wifi-listbox-height (make-parameter 20))
;; Information textbox width.
(define info-textbox-width (make-parameter 40))
@ -188,7 +188,7 @@ network when the corresponding listbox entry is selected. A button allow to
force a wifi scan."
(let* ((listbox (make-listbox
-1 -1
(wifi-listbox-heigth)
(wifi-listbox-height)
(logior FLAG-SCROLL FLAG-BORDER FLAG-RETURNEXIT)))
(form (make-form))
(buttons-grid (make-grid 1 1))

6
gnu/installer/parted.scm

@ -677,7 +677,7 @@ otherwise."
(define* (mkpart disk user-partition
#:key (previous-partition #f))
"Create the given USER-PARTITION on DISK. The PREVIOUS-PARTITION argument as
to be set to the partition preceeding USER-PARTITION if any."
to be set to the partition preceding USER-PARTITION if any."
(define (parse-start-end start end)
"Parse start and end strings as positions on DEVICE expressed with a unit,
@ -734,8 +734,8 @@ cause them to cross."
(< start-distance 3))
(+ start-sector start-offset)
start-sector)))
;; This is a hackery but parted almost always fails to create optimally
;; aligned partitions (unless specifiying percentages) because, the
;; This is a hack. Parted almost always fails to create optimally
;; aligned partitions (unless specifying percentages) because the
;; default range of 1MB centered on the start sector is not enough when
;; the optimal alignment is 2048 sectors of 512KB.
(extend-ranges! start-range end-range #:offset start-offset)

10
gnu/installer/timezone.scm

@ -25,7 +25,7 @@
#:use-module (srfi srfi-35)
#:use-module (ice-9 match)
#:use-module (ice-9 receive)
#:export (locate-childrens
#:export (locate-children
timezone->posix-tz
timezone-has-child?
zonetab->timezone-tree
@ -94,15 +94,15 @@ timezones."
(loop (remove-first same-region))
(loop other-region))))))))
(define (locate-childrens tree path)
"Return the childrens of the timezone indicated by PATH in the given
(define (locate-children tree path)
"Return the children of the timezone indicated by PATH in the given
TREE. Raise a condition if the PATH could not be found."
(let ((extract-proc (cut map car <>)))
(match path
(() (sort (extract-proc tree) string<?))
((region . rest)
(or (and=> (assoc-ref tree region)
(cut locate-childrens <> rest))
(cut locate-children <> rest))
(raise
(condition
(&message
@ -111,7 +111,7 @@ TREE. Raise a condition if the PATH could not be found."
(define (timezone-has-child? tree timezone)
"Return #t if the given TIMEZONE any child in TREE and #f otherwise."
(not (null? (locate-childrens tree timezone))))
(not (null? (locate-children tree timezone))))
(define* (zonetab->timezone-tree zonetab)
"Return the timezone tree corresponding to the given ZONETAB file."

Loading…
Cancel
Save