me/guix
Archived
1
0
Fork 0
Code Activity

installer: Force GPT disk label when UEFI is supported.

Browse source 
* gnu/installer/newt/partition.scm (run-label-page): Force the GPT disk label
when UEFI is supported.
This commit is contained in:
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."