diff options
| author | Rutherther <rutherther@ditigal.xyz> | 2026-01-10 22:24:32 +0100 |
|---|---|---|
| committer | Rutherther <rutherther@ditigal.xyz> | 2026-01-14 10:46:41 +0100 |
| commit | 056dd112aa4e67bfccb7e19709da54e249b5d512 (patch) | |
| tree | aa155e0aeed2699427608925d561c2bd032d21a7 /gnu/installer | |
| parent | 9448ec6fb20a737a852e8624b5611950886feaaa (diff) | |
installer: partition: Force msdos on Hurd.
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>
Diffstat (limited to 'gnu/installer')
| -rw-r--r-- | gnu/installer/newt/partition.scm | 29 |
1 files changed, 16 insertions, 13 deletions
diff --git a/gnu/installer/newt/partition.scm b/gnu/installer/newt/partition.scm index 3a7e6795776..eb99f9860fc 100644 --- a/gnu/installer/newt/partition.scm +++ b/gnu/installer/newt/partition.scm | |||
| @@ -108,20 +108,23 @@ all data on disk will be lost, are you sure you want to proceed?") item) | |||
| 108 | 108 | ||
| 109 | (define (run-label-page button-text button-callback) | 109 | (define (run-label-page button-text button-callback) |
| 110 | "Run a page asking the user to select a partition table label." | 110 | "Run a page asking the user to select a partition table label." |
| 111 | ;; Force the GPT label if UEFI is supported. | 111 | ;; Force the GPT label if UEFI is supported. |
| 112 | (if (efi-installation?) | 112 | (cond ((efi-installation?) |
| 113 | ((run-label-confirmation-page button-callback) "gpt") | 113 | ((run-label-confirmation-page button-callback) "gpt")) |
| 114 | (run-listbox-selection-page | 114 | ;; Force the MSDOS label on Hurd. |
| 115 | #:info-text (G_ "Select a new partition table type. \ | 115 | ((target-hurd?) |
| 116 | ((run-label-confirmation-page button-callback) "msdos")) | ||
| 117 | (else (run-listbox-selection-page | ||
| 118 | #:info-text (G_ "Select a new partition table type. \ | ||
| 116 | Be careful, all data on the disk will be lost.") | 119 | Be careful, all data on the disk will be lost.") |
| 117 | #:title (G_ "Partition table") | 120 | #:title (G_ "Partition table") |
| 118 | #:listbox-items '("msdos" "gpt") | 121 | #:listbox-items '("msdos" "gpt") |
| 119 | #:listbox-default-item (if (target-hurd?) "msdos" "gpt") | 122 | #:listbox-default-item (if (target-hurd?) "msdos" "gpt") |
| 120 | #:listbox-item->text identity | 123 | #:listbox-item->text identity |
| 121 | #:listbox-callback-procedure | 124 | #:listbox-callback-procedure |
| 122 | (run-label-confirmation-page button-callback) | 125 | (run-label-confirmation-page button-callback) |
| 123 | #:button-text button-text | 126 | #:button-text button-text |
| 124 | #:button-callback-procedure button-callback))) | 127 | #:button-callback-procedure button-callback)))) |
| 125 | 128 | ||
| 126 | (define (run-type-page partition) | 129 | (define (run-type-page partition) |
| 127 | "Run a page asking the user to select a partition type." | 130 | "Run a page asking the user to select a partition type." |