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/parted.scm | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'gnu/installer/parted.scm')

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 @@ swap partition, a root partition and a home partition."
            (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 @@ swap partition, a root partition and a home partition."
                   ,(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 @@ swap partition, a root partition and a home partition."
                             (type 'extended)
                             (size "100%")))
                         '())
-                  ,@(if crypted?
+                  ,@(if encrypted?
                         '()
                         `(,(user-partition
                             (type (if has-extended?
@@ -986,7 +986,7 @@ swap partition, a root partition and a home partition."
                               '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 @@ if it is encrypted, or the plain path otherwise."
         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 @@ if it is encrypted, or the plain path otherwise."
                 "--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 @@ from (gnu system mapped-devices) and return it."
   "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