From 5737ba841bd8e21e1cb5dc63e1fc5e09d31482bb Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe 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.scm | 4 ++-- gnu/installer/newt/partition.scm | 2 +- gnu/installer/parted.scm | 28 ++++++++++++++-------------- 3 files changed, 17 insertions(+), 17 deletions(-) (limited to 'gnu') diff --git a/gnu/installer.scm b/gnu/installer.scm index fd66359cbe..2ae139b13f 100644 --- a/gnu/installer.scm +++ b/gnu/installer.scm @@ -209,11 +209,11 @@ (define (installer-steps) (compute (lambda _ (#$keymap-step current-installer)))) - ;; Run a partitionment tool allowing the user to modify + ;; Run a partitioning tool allowing the user to modify ;; partition tables, partitions and their mount points. (installer-step (id 'partition) - (description (G_ "Partitionment")) + (description (G_ "Partitioning")) (compute (lambda _ ((installer-partition-page current-installer)))) (configuration-formatter user-partitions->configuration)) 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