From 4c39fb7f906637b4bc2cf6808e8a7e83df043ee8 Mon Sep 17 00:00:00 2001
From: Vineet Kumar <git@vineetk.net>
Date: Fri, 8 May 2026 09:54:48 -0400
Subject: saklas: temporarily fix dedicated server config

---
 epistemia/bootloader.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'epistemia/bootloader.scm')

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/")))))))
-- 
cgit v1.2.3