From 5737ba841bd8e21e1cb5dc63e1fc5e09d31482bb Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <m.othacehe@gmail.com>
Date: Sat, 8 Dec 2018 23:52:13 +0900
Subject: installer: Various renamings.
1. s/partitionment/partitioning/
2. s/crypted/encrypted/
* gnu/installer.scm (installer-steps): Apply renamings.
* gnu/installer/newt/partition.scm (run-disk-page): ditto,
* gnu/installer/parted.scm (auto-partition): ditto,
(luks-format-and-open): ditto,
(luks-close): ditto,
(user-partitions->configuration): ditto.
---
gnu/installer/newt/partition.scm | 2 +-
gnu/installer/parted.scm | 28 ++++++++++++++--------------
2 files changed, 15 insertions(+), 15 deletions(-)
(limited to 'gnu/installer')
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm
index f4d1735dda..0bd84be8d9 100644
--- a/gnu/installer/newt/partition.scm
+++ b/gnu/installer/newt/partition.scm
@@ -636,7 +636,7 @@ (define (hotkey-action key listbox-item)
At least one partition must have its mounting point set to '/'."))
(guided-info-text (format #f (G_ "This is the proposed \
-partitionment. It is still possible to edit it or to go back to install menu \
+partitioning. It is still possible to edit it or to go back to install menu \
by pressing the Exit button.~%~%")))
(result
(run-listbox-selection-page
diff --git a/gnu/installer/parted.scm b/gnu/installer/parted.scm
index c7be24051d..1ff17d39d6 100644
--- a/gnu/installer/parted.scm
+++ b/gnu/installer/parted.scm
@@ -940,12 +940,12 @@ (define* (auto-partition disk
(new-partitions
(cond
((or (eq? scheme 'entire-root)
- (eq? scheme 'entire-crypted-root))
- (let ((crypted? (eq? scheme 'entire-crypted-root)))
+ (eq? scheme 'entire-encrypted-root))
+ (let ((encrypted? (eq? scheme 'entire-encrypted-root)))
`(,@(if start-partition
`(,start-partition)
'())
- ,@(if crypted?
+ ,@(if encrypted?
'()
`(,(user-partition
(fs-type 'swap)
@@ -953,19 +953,19 @@ (define* (auto-partition disk
,(user-partition
(fs-type 'ext4)
(bootable? has-extended?)
- (crypt-label (and crypted? "cryptroot"))
+ (crypt-label (and encrypted? "cryptroot"))
(size "100%")
(mount-point "/")))))
((or (eq? scheme 'entire-root-home)
- (eq? scheme 'entire-crypted-root-home))
- (let ((crypted? (eq? scheme 'entire-crypted-root-home)))
+ (eq? scheme 'entire-encrypted-root-home))
+ (let ((encrypted? (eq? scheme 'entire-encrypted-root-home)))
`(,@(if start-partition
`(,start-partition)
'())
,(user-partition
(fs-type 'ext4)
(bootable? has-extended?)
- (crypt-label (and crypted? "cryptroot"))
+ (crypt-label (and encrypted? "cryptroot"))
(size "33%")
(mount-point "/"))
,@(if has-extended?
@@ -973,7 +973,7 @@ (define* (auto-partition disk
(type 'extended)
(size "100%")))
'())
- ,@(if crypted?
+ ,@(if encrypted?
'()
`(,(user-partition
(type (if has-extended?
@@ -986,7 +986,7 @@ (define* (auto-partition disk
'logical
'normal))
(fs-type 'ext4)
- (crypt-label (and crypted? "crypthome"))
+ (crypt-label (and encrypted? "crypthome"))
(size "100%")
(mount-point "/home")))))))
(new-partitions* (force-user-partitions-formating
@@ -1067,7 +1067,7 @@ (define (user-partition-upper-path user-partition)
path)))
(define (luks-format-and-open user-partition)
- "Format and open the crypted partition pointed by USER-PARTITION."
+ "Format and open the encrypted partition pointed by USER-PARTITION."
(let* ((path (user-partition-path user-partition))
(label (user-partition-crypt-label user-partition))
(password (user-partition-crypt-password user-partition)))
@@ -1079,7 +1079,7 @@ (define (luks-format-and-open user-partition)
"--key-file" key-file path label)))))
(define (luks-close user-partition)
- "Close the crypted partition pointed by USER-PARTITION."
+ "Close the encrypted partition pointed by USER-PARTITION."
(let ((label (user-partition-crypt-label user-partition)))
(system* "cryptsetup" "close" label)))
@@ -1260,17 +1260,17 @@ (define (user-partitions->configuration user-partitions)
"Return the configuration field for USER-PARTITIONS."
(let* ((swap-user-partitions (find-swap-user-partitions user-partitions))
(swap-devices (map user-partition-path swap-user-partitions))
- (crypted-partitions
+ (encrypted-partitions
(filter user-partition-crypt-label user-partitions)))
`(,@(if (null? swap-devices)
'()
`((swap-devices (list ,@swap-devices))))
(bootloader ,@(bootloader-configuration user-partitions))
- ,@(if (null? crypted-partitions)
+ ,@(if (null? encrypted-partitions)
'()
`((mapped-devices
(list ,@(map user-partition->mapped-device
- crypted-partitions)))))
+ encrypted-partitions)))))
(file-systems (cons*
,@(user-partitions->file-systems user-partitions)
%base-file-systems)))))
--
cgit v1.2.3