From eb3188c95b7dcbe938b7c2926b735e3c2fc2828d Mon Sep 17 00:00:00 2001
From: Rutherther <rutherther@ditigal.xyz>
Date: Sun, 26 Jan 2025 12:32:10 +0100
Subject: [PATCH] chore: add grub bootloader with lvm support

---
 modules/ruther/bootloader/grub.scm | 36 ++++++++++++++++++++++++++++--
 1 file changed, 34 insertions(+), 2 deletions(-)

diff --git a/modules/ruther/bootloader/grub.scm b/modules/ruther/bootloader/grub.scm
index 215eb18..12e2551 100644
--- a/modules/ruther/bootloader/grub.scm
+++ b/modules/ruther/bootloader/grub.scm
@@ -4,8 +4,7 @@
   #:use-module (gnu bootloader grub)
   #:use-module (gnu packages bootloaders)
   #:use-module (guix utils)
-  #:use-module (gnu system locale)
-  )
+  #:use-module (gnu system locale))
 
 (define install-grub-efi-copy
   (with-imported-modules '((guix build utils))
@@ -135,3 +134,36 @@
    (disk-image-installer #f)
    (configuration-file (@@ (gnu bootloader grub) grub-cfg))
    (configuration-file-generator grub-copy-configuration-file)))
+
+(define* (grub-lvm-configuration-file config entries
+                                       #:key
+                                       (locale #f)
+                                       (system (%current-system))
+                                       (old-entries '())
+                                       (store-crypto-devices '())
+                                       store-directory-prefix)
+  (let* ((original-grub-cfg
+          ((@@ (gnu bootloader grub) make-grub-configuration)
+           grub-efi config entries
+           #:locale locale
+           #:system system
+           #:old-entries old-entries
+           #:store-crypto-devices store-crypto-devices
+           #:store-directory-prefix store-directory-prefix))
+
+         (builder
+          #~(call-with-output-file #$output
+              (lambda (port)
+                (use-modules (ice-9 textual-ports))
+                ;; Sneek in insmod lvm at beginning of the file
+                (display "insmod lvm\n" port)
+                ;; After, copy the original file.
+                (display (call-with-input-file #$original-grub-cfg get-string-all) port)))))
+    (computed-file "grub.cfg" builder
+                   #:options '(#:local-build? #t
+                               #:substitutable? #f))))
+
+(define-public grub-lvm-bootloader
+  (bootloader
+   (inherit grub-efi-removable-bootloader)
+   (configuration-file-generator grub-lvm-configuration-file)))
-- 
2.48.1