tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

installer: partition: Force msdos on Hurd.

Browse Source 
Since Hurd always uses Legacy BIOS bootloader, do not offer GPT label.

* gnu/installer/newt/partition.scm (run-label-page): Force MSDOS for Hurd
target.

Change-Id: Ib8bb1175f85e8f6084683a747303e3e19f20be42
Signed-off-by: Rutherther <rutherther@ditigal.xyz>
This commit is contained in:
Rutherther
2026-01-10 22:24:32 +01:00
parent 9448ec6fb2
commit 056dd112aa
1 changed files with 16 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -108,20 +108,23 @@ all data on disk will be lost, are you sure you want to proceed?") item)
(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."
;; Force the GPT label if UEFI is supported. ;; Force the GPT label if UEFI is supported.
(if (efi-installation?) (cond ((efi-installation?)
((run-label-confirmation-page button-callback) "gpt") ((run-label-confirmation-page button-callback) "gpt"))
(run-listbox-selection-page ;; Force the MSDOS label on Hurd.
#:info-text (G_ "Select a new partition table type. \ ((target-hurd?)
((run-label-confirmation-page button-callback) "msdos"))
(else (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-default-item (if (target-hurd?) "msdos" "gpt") #:listbox-default-item (if (target-hurd?) "msdos" "gpt")
#:listbox-item->text identity #:listbox-item->text identity
#:listbox-callback-procedure #:listbox-callback-procedure
(run-label-confirmation-page button-callback) (run-label-confirmation-page button-callback)
#: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."