~ruther/guix-local: system: image: Factor out testing for grub-efi bootloader.

5df3514ab0fe36915539c93023f444194087388c — Efraim Flashner 3 months ago f8d9981

system: image: Factor out testing for grub-efi bootloader.

* gnu/system/image.scm (system-disk-image)[partition-image]: When
testing if a partition needs to be GPT formatted, factor out the test
for an grub-efi based bootloader.
(bootloader-uses-grub-efi?): New variable.

Change-Id: I62de5962b1246dcec15f0851e58234497d1426d9

patch browse .tar.gz

1 files changed, 6 insertions(+), 2 deletions(-)

M gnu/system/image.scm

M gnu/system/image.scm => gnu/system/image.scm +6 -2

@@ 355,6 355,11 @@ set to the given OS."
   "Return the index of the root partition of the given IMAGE."
   (1+ (srfi-1:list-index root-partition? (image-partitions image))))
 
+(define (bootloader-uses-grub-efi? bootloader)
+  "Return true if the bootloader-name contains grub-efi."
+  (memq (bootloader-name bootloader)
+        (list grub-efi grub-efi32 grub-efi-removable-bootloader)))
+
 
 ;;
 ;; Disk image.


@@ 547,8 552,7 @@ used in the image."
                 (image-partition-table-type image)))
        (else "")))
 
-    (when (and (memq (bootloader-name bootloader)
-                     '(grub-efi grub-efi32 grub-efi-removable-bootloader))
+    (when (and (bootloader-uses-grub-efi? bootloader)
                (not
                 (gpt-image? image)))
       (raise