1 files changed, 18 insertions, 0 deletions

diff --git a/epistemia/bootloader.scm b/epistemia/bootloader.scm
index dd14fdf..413b0d7 100644
--- a/epistemia/bootloader.scm
+++ b/epistemia/bootloader.scm
@@ -21,3 +21,21 @@
               "set root=(hd0,gpt2)")
              ((" /store/") 
               " /gnu/@/store/")))))))
+
+;; TODO combine into previous with an argument?
+(define-public grub-zfs-bios
+  (bootloader
+    (inherit grub-bootloader)
+    (name 'grub-zfs)
+    (installer
+     #~(lambda (bootloader targets mount-point)
+         (use-modules (guix build utils))
+         (let ((standard-installer #$(bootloader-installer grub-bootloader)))
+           (standard-installer bootloader targets mount-point))
+         (let ((grub-cfg (string-append mount-point "/boot/grub/grub.cfg")))
+           (chmod grub-cfg #o644)
+           (substitute* grub-cfg
+             (("search --label --set [^ ]+")
+              "set root=(hd0,gpt2)")
+             ((" /store/")
+              " /gnu/@/store/")))))))