summary refs log tree commit diff
path: root/gnu/installer
diff options
context:
space:
mode:
authorMathieu Othacehe <m.othacehe@gmail.com>2018-12-08 23:52:13 +0900
committerLudovic Courtès <ludo@gnu.org>2019-01-17 14:04:26 +0100
commit5737ba841bd8e21e1cb5dc63e1fc5e09d31482bb (patch)
tree522daf155979ead48f2a039998fce7914b42152e /gnu/installer
parent59e8f3c3accb51c9b7dc4e012f40b9235b317efc (diff)
downloadguix-5737ba841bd8e21e1cb5dc63e1fc5e09d31482bb.tar.gz
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.
Diffstat (limited to 'gnu/installer')
-rw-r--r--gnu/installer/newt/partition.scm2
-rw-r--r--gnu/installer/parted.scm28
2 files changed, 15 insertions, 15 deletions
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 @@ partition, select a free space area and press ENTER.
 
 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 @@ 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)))))