me
/
guix
Archived
1
0
Fork 0
Code

installer: Force GPT disk label when UEFI is supported. 

* gnu/installer/newt/partition.scm (run-label-page): Force the GPT disk label
when UEFI is supported.
master
Mathieu Othacehe 2021-04-27 17:39:42 +02:00
parent f01b3cd063
commit 3f8ea83e2a
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -95,14 +95,17 @@ DEVICES list."
(define (run-label-page button-text button-callback)
"Run a page asking the user to select a partition table label."
(run-listbox-selection-page
#:info-text (G_ "Select a new partition table type. \
;; Force the GPT label if UEFI is supported.
(if (efi-installation?)
"gpt"
(run-listbox-selection-page
#:info-text (G_ "Select a new partition table type. \
Be careful, all data on the disk will be lost.")
#:title (G_ "Partition table")
#:listbox-items '("msdos" "gpt")
#:listbox-item->text identity
#:button-text button-text
#:button-callback-procedure button-callback))
#:title (G_ "Partition table")
#:listbox-items '("msdos" "gpt")
#:listbox-item->text identity
#:button-text button-text
#:button-callback-procedure button-callback)))
(define (run-type-page partition)
"Run a page asking the user to select a partition type."