ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 42ac8da474
commit 2b645e359e
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 @@ (define (device-items)
(define (run-label-page button-text button-callback) (define (run-label-page button-text button-callback)
"Run a page asking the user to select a partition table label." "Run a page asking the user to select a partition table label."
(run-listbox-selection-page ;; Force the GPT label if UEFI is supported.
#:info-text (G_ "Select a new partition table type. \ (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.") Be careful, all data on the disk will be lost.")
#:title (G_ "Partition table") #:title (G_ "Partition table")
#:listbox-items '("msdos" "gpt") #:listbox-items '("msdos" "gpt")
#:listbox-item->text identity #:listbox-item->text identity
#:button-text button-text #:button-text button-text
#:button-callback-procedure button-callback)) #:button-callback-procedure button-callback)))
(define (run-type-page partition) (define (run-type-page partition)
"Run a page asking the user to select a partition type." "Run a page asking the user to select a partition type."