nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

installer: Add missing i18n in the partitioning pages. 

* gnu/installer/newt/partition.scm (run-scheme-page): Add missing 'G_'
for ITEMS.
(run-partioning-page): Likewise.
(run-partition-page): Move misplaced call to 'G_'.
This commit is contained in:
Ludovic Courtès 2019-04-27 19:30:22 +02:00
parent 339586e402
commit 7dbdbbfd6e
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/installer/newt/partition.scm
View File

@ -42,8 +42,8 @@
(define (run-scheme-page) (define (run-scheme-page)
"Run a page asking the user for a partitioning scheme." "Run a page asking the user for a partitioning scheme."
(let* ((items (let* ((items
'((root . "Everything is one partition") `((root . ,(G_ "Everything is one partition"))
(root-home . "Separate /home partition"))) (root-home . ,(G_ "Separate /home partition"))))
(result (run-listbox-selection-page (result (run-listbox-selection-page
#:info-text (G_ "Please select a partitioning scheme.") #:info-text (G_ "Please select a partitioning scheme.")
#:title (G_ "Partition scheme") #:title (G_ "Partition scheme")
@ -429,10 +429,10 @@ partition. Leave this field empty if you don't want to set a mounting point.")
(run-listbox-selection-page (run-listbox-selection-page
#:info-text #:info-text
(if creation? (if creation?
(G_ (format #f "Creating ~a partition starting at ~a of ~a." (format #f (G_ "Creating ~a partition starting at ~a of ~a.")
type-str start file-name)) type-str start file-name)
(G_ (format #f "You are currently editing partition ~a." (format #f (G_ "You are currently editing partition ~a.")
number-str))) number-str))
#:title (if creation? #:title (if creation?
(G_ "Partition creation") (G_ "Partition creation")
(G_ "Partition edit")) (G_ "Partition edit"))
@ -724,9 +724,9 @@ by pressing the Exit button.~%~%")))
"Run a page asking the user for a partitioning method." "Run a page asking the user for a partitioning method."
(define (run-page devices) (define (run-page devices)
(let* ((items (let* ((items
'((entire . "Guided - using the entire disk") `((entire . ,(G_ "Guided - using the entire disk"))
(entire-encrypted . "Guided - using the entire disk with encryption") (entire-encrypted . ,(G_ "Guided - using the entire disk with encryption"))
(manual . "Manual"))) (manual . ,(G_ "Manual"))))
(result (run-listbox-selection-page (result (run-listbox-selection-page
#:info-text (G_ "Please select a partitioning method.") #:info-text (G_ "Please select a partitioning method.")
#:title (G_ "Partitioning method") #:title (G_ "Partitioning method")