ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

installer: Add MSDOS disk label support on UEFI systems.

Browse source 
Fixes: <https://issues.guix.gnu.org/47889>.

* gnu/installer/parted.scm (esp-partition?): Remove the MSDOS check.
(auto-partition!): On MSDOS disks, check if an ESP partition is present. If
that's the case, do not remove it. Otherwise, if UEFI is supported, create
one.
This commit is contained in:
Mathieu Othacehe 2021-04-25 19:06:31 +02:00
parent 2b645e359e
commit c254af8c73
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 19 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
gnu/installer/parted.scm
View file

@ -70,6 +70,7 @@ (define-module (gnu installer parted)
small-freespace-partition? small-freespace-partition?
esp-partition? esp-partition?
boot-partition? boot-partition?
efi-installation?
default-esp-mount-point default-esp-mount-point
with-delay-device-in-use? with-delay-device-in-use?
@ -193,12 +194,8 @@ (define (partition-user-type partition)
(define (esp-partition? partition) (define (esp-partition? partition)
"Return #t if partition has the ESP flag, return #f otherwise." "Return #t if partition has the ESP flag, return #f otherwise."
(let* ((disk (partition-disk partition)) (let* ((disk (partition-disk partition))
(disk-type (disk-disk-type disk)) (disk-type (disk-disk-type disk)))
(has-extended? (disk-type-check-feature
disk-type
DISK-TYPE-FEATURE-EXTENDED)))
(and (data-partition? partition) (and (data-partition? partition)
(not has-extended?)
(partition-is-flag-available? partition PARTITION-FLAG-ESP) (partition-is-flag-available? partition PARTITION-FLAG-ESP)
(partition-get-flag partition PARTITION-FLAG-ESP)))) (partition-get-flag partition PARTITION-FLAG-ESP))))
@ -918,18 +915,14 @@ (define* (auto-partition! disk
;; disk space. Otherwise, set the swap size to 5% of the disk space. ;; disk space. Otherwise, set the swap size to 5% of the disk space.
(swap-size (min default-swap-size five-percent-disk))) (swap-size (min default-swap-size five-percent-disk)))
(if has-extended? ;; Remove everything but esp if it exists.
;; msdos - remove everything.
(disk-remove-all-partitions disk)
;; gpt - remove everything but esp if it exists.
(for-each (for-each
(lambda (partition) (lambda (partition)
(and (data-partition? partition) (and (data-partition? partition)
(disk-remove-partition* disk partition))) (disk-remove-partition* disk partition)))
non-boot-partitions)) non-boot-partitions)
(let* ((start-partition (let* ((start-partition
(and (not has-extended?)
(if (efi-installation?) (if (efi-installation?)
(and (not esp-partition) (and (not esp-partition)
(user-partition (user-partition
@ -941,7 +934,7 @@ (define* (auto-partition! disk
(fs-type 'ext4) (fs-type 'ext4)
(bootable? #t) (bootable? #t)
(bios-grub? #t) (bios-grub? #t)
(size bios-grub-size))))) (size bios-grub-size))))
(new-partitions (new-partitions
(cond (cond
((or (eq? scheme 'entire-root) ((or (eq? scheme 'entire-root)