[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
67/68: installer: "formating" → "formatting".
From: |
guix-commits |
Subject: |
67/68: installer: "formating" → "formatting". |
Date: |
Thu, 17 Jan 2019 08:05:22 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 85caf5f3239a60039eb4593687eed03ba423e52d
Author: Ludovic Courtès <address@hidden>
Date: Wed Jan 16 19:20:26 2019 +0100
installer: "formating" → "formatting".
* gnu/installer/newt/partition.scm,
gnu/installer/parted.scm: Replace "formating" with "formatting".
---
gnu/installer/newt/partition.scm | 18 +++++++++---------
gnu/installer/parted.scm | 26 +++++++++++++-------------
2 files changed, 22 insertions(+), 22 deletions(-)
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index 1c3ce80..c22e1c0 100644
--- a/gnu/installer/newt/partition.scm
+++ b/gnu/installer/newt/partition.scm
@@ -52,10 +52,10 @@
#:button-callback-procedure button-exit-action)))
(car result)))
-(define (draw-formating-page)
+(define (draw-formatting-page)
"Draw a page to indicate partitions are being formated."
(draw-info-page
- (format #f (G_ "Partition formating is in progress, please wait."))
+ (format #f (G_ "Partition formatting is in progress, please wait."))
(G_ "Preparing partitions")))
(define (run-device-page devices)
@@ -288,13 +288,13 @@ by USER-PART, if it is applicable for the partition type."
(G_ "Encryption label")))))
(user-partition
(inherit target-user-partition)
- (need-formating? #t)
+ (need-formatting? #t)
(crypt-label new-label))))
- ((need-formating?)
+ ((need-formatting?)
(user-partition
(inherit target-user-partition)
- (need-formating?
- (not (user-partition-need-formating?
+ (need-formatting?
+ (not (user-partition-need-formatting?
target-user-partition)))))
((size)
(let* ((old-size (user-partition-size target-user-partition))
@@ -392,7 +392,7 @@ partition. Leave this field empty if you don't want to set
a mounting point.")
(and new-partition
(user-partition
(inherit new-user-partition)
- (need-formating? #t)
+ (need-formatting? #t)
(file-name (partition-get-path new-partition))
(disk-file-name (device-path device))
(parted-object new-partition))))
@@ -758,8 +758,8 @@ by pressing the Exit button.~%~%")))
(user-partitions (run-page non-install-devices))
(user-partitions-with-pass (prompt-luks-passwords
user-partitions))
- (form (draw-formating-page)))
- ;; Make sure the disks are not in use before proceeding to formating.
+ (form (draw-formatting-page)))
+ ;; Make sure the disks are not in use before proceeding to formatting.
(free-parted non-install-devices)
(format-user-partitions user-partitions-with-pass)
(destroy-form-and-pop form)
diff --git a/gnu/installer/parted.scm b/gnu/installer/parted.scm
index 40054c0..187311e 100644
--- a/gnu/installer/parted.scm
+++ b/gnu/installer/parted.scm
@@ -55,7 +55,7 @@
user-partition-start
user-partition-end
user-partition-mount-point
- user-partition-need-formating?
+ user-partition-need-formatting?
user-partition-parted-object
find-esp-partition
@@ -154,7 +154,7 @@
(default #f))
(mount-point user-partition-mount-point ;string
(default #f))
- (need-formating? user-partition-need-formating? ; boolean
+ (need-formatting? user-partition-need-formatting? ; boolean
(default #f))
(parted-object user-partition-parted-object ; <partition> from parted
(default #f)))
@@ -541,7 +541,7 @@ determined by MAX-LENGTH-COLUMN procedure."
(fs-type-name (user-fs-type-name fs-type))
(bootable? (user-partition-bootable? user-partition))
(esp? (user-partition-esp? user-partition))
- (need-formating? (user-partition-need-formating? user-partition))
+ (need-formatting? (user-partition-need-formatting? user-partition))
(crypt-label (user-partition-crypt-label user-partition))
(size (user-partition-size user-partition))
(mount-point (user-partition-mount-point user-partition)))
@@ -585,9 +585,9 @@ determined by MAX-LENGTH-COLUMN procedure."
,@(if (or (freespace-partition? partition)
(eq? fs-type 'swap))
'()
- `((need-formating?
+ `((need-formatting?
. ,(string-append "Format the partition? : "
- (if need-formating? "Yes" "No")))))
+ (if need-formatting? "Yes" "No")))))
,@(if (or (eq? type 'extended)
(eq? fs-type 'swap))
'()
@@ -871,13 +871,13 @@ partition."
(error
(format #f "Unable to create partition ~a~%" name)))))))))
-(define (force-user-partitions-formating user-partitions)
+(define (force-user-partitions-formatting user-partitions)
"Set the NEED-FORMATING? fields to #t on all <user-partition> records of
USER-PARTITIONS list and return the updated list."
(map (lambda (p)
(user-partition
(inherit p)
- (need-formating? #t)))
+ (need-formatting? #t)))
user-partitions))
(define* (auto-partition disk
@@ -992,7 +992,7 @@ swap partition, a root partition and a home partition."
(crypt-label (and encrypted? "crypthome"))
(size "100%")
(mount-point "/home")))))))
- (new-partitions* (force-user-partitions-formating
+ (new-partitions* (force-user-partitions-formatting
new-partitions)))
(create-adjacent-partitions disk
new-partitions*
@@ -1091,8 +1091,8 @@ USER-PARTITION if it is encrypted, or the plain file-name
otherwise."
NEED-FORMATING? field set to #t."
(for-each
(lambda (user-partition)
- (let* ((need-formating?
- (user-partition-need-formating? user-partition))
+ (let* ((need-formatting?
+ (user-partition-need-formatting? user-partition))
(type (user-partition-type user-partition))
(crypt-label (user-partition-crypt-label user-partition))
(file-name (user-partition-upper-file-name user-partition))
@@ -1102,11 +1102,11 @@ NEED-FORMATING? field set to #t."
(case fs-type
((ext4)
- (and need-formating?
+ (and need-formatting?
(not (eq? type 'extended))
(create-ext4-file-system file-name)))
((fat32)
- (and need-formating?
+ (and need-formatting?
(not (eq? type 'extended))
(create-fat32-file-system file-name)))
((swap)
@@ -1293,7 +1293,7 @@ from (gnu system mapped-devices) and return it."
(define (free-parted devices)
"Deallocate memory used for DEVICES in parted, force sync them and wait for
the devices not to be used before returning."
- ;; XXX: Formating and further operations on disk partition table may fail
+ ;; XXX: Formatting and further operations on disk partition table may fail
;; because the partition table changes are not synced, or because the device
;; is still in use, even if parted should have finished editing
;; partitions. This is not well understood, but syncing devices and waiting
- 19/68: gnu: Add guile-parted., (continued)
- 19/68: gnu: Add guile-parted., guix-commits, 2019/01/17
- 16/68: build: syscalls: Add device-in-use?., guix-commits, 2019/01/17
- 18/68: gnu: guile-newt: Update to revision 4., guix-commits, 2019/01/17
- 62/68: installer: keymap: Put English layout and international variant ahead., guix-commits, 2019/01/17
- 12/68: installer: Rewrite welcome page., guix-commits, 2019/01/17
- 64/68: syscalls: 'device-in-use?' does not create a port., guix-commits, 2019/01/17
- 14/68: installer: Fix locale installation., guix-commits, 2019/01/17
- 68/68: installer: Fix manual partitioning., guix-commits, 2019/01/17
- 66/68: installer: Adjust messages on the final page., guix-commits, 2019/01/17
- 65/68: syscalls: 'device-in-use?' returns #f upon EINVAL., guix-commits, 2019/01/17
- 67/68: installer: "formating" → "formatting".,
guix-commits <=
- 63/68: installer: partition: Add encryption password confirmation., guix-commits, 2019/01/17
- 03/68: services: kmscon: Remove virtual-terminal requirement., guix-commits, 2019/01/17
- 04/68: gnu: kmscon: Add runtime keymap update support., guix-commits, 2019/01/17
- 02/68: guile: newt: Update revision to 3., guix-commits, 2019/01/17
- 01/68: gnu: Add ghc-tldr., guix-commits, 2019/01/17
- 21/68: installer: Remove "selection" from all titles., guix-commits, 2019/01/17
- 20/68: file-systems: Export read-partition-label and read-partition-uuid., guix-commits, 2019/01/17
- 22/68: installer: Add new utils., guix-commits, 2019/01/17
- 33/68: installer: Reorder POTFILES.in, guix-commits, 2019/01/17
- 31/68: installer: Add user module., guix-commits, 2019/01/17