1 files changed, 24 insertions, 0 deletions

diff --git a/epistemia/bootloader.scm b/epistemia/bootloader.scm
new file mode 100644
index 0000000..90137a3
--- /dev/null
+++ b/epistemia/bootloader.scm
@@ -0,0 +1,24 @@
+;;; SPDX-License-Identifier: GPL-3.0-or-later
+(define-module (epistemia bootloader)
+  #:use-module (guix gexp)
+  #:use-module (guix utils)
+  #:use-module (gnu bootloader)
+  #:use-module (gnu bootloader grub)
+  #:export (grub-zfs))
+
+(define grub-zfs
+  (bootloader
+    (inherit grub-efi-bootloader)
+    (name 'grub-zfs)
+    (installer
+     #~(lambda (bootloader targets mount-point)
+         (use-modules (guix build utils))
+         (let ((standard-installer #$(bootloader-installer grub-efi-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/")))))))