From 12a7c9d446f9b3e2d768ee6dc6de24683a8ebd84 Mon Sep 17 00:00:00 2001 From: Sisiutl Date: Thu, 3 Oct 2024 19:47:45 +0200 Subject: Remove cryptodisks. It's a job for the initrd, really. --- sigils/bootloader/grub.scm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) (limited to 'sigils/bootloader/grub.scm') diff --git a/sigils/bootloader/grub.scm b/sigils/bootloader/grub.scm index 4c442ba..f969245 100644 --- a/sigils/bootloader/grub.scm +++ b/sigils/bootloader/grub.scm @@ -16,13 +16,14 @@ ;; Thanks to Rutherther (https://github.com/Rutherther/guix-config/blob/main/modules/ruther/bootloader/grub.scm) ;; for most of the implementation. -(define (grub-copy-configuration-file config entries . args) +(define* (grub-copy-configuration-file config entries . args) (let-keywords args #t ((locale #f) (system (%current-system)) - (old-entries '()) (store-crypto-devices '())) + (old-entries '())) - (let* ((grub (bootloader-package (bootloader-configuration-bootloader config))) + (let* ((args (append args '(#:store-crypto-devices ()))) + (grub (bootloader-package (bootloader-configuration-bootloader config))) (image ((@@ (gnu bootloader grub) grub-background-image) config)) (layout (bootloader-configuration-keyboard-layout config)) (locales (and locale ((@@ (gnu bootloader grub) grub-locale-directory) grub))) @@ -57,11 +58,7 @@ (display "insmod lvm\n" port) (display - ;; Let's get straight to the point. - (string-replace-substring - (call-with-input-file #$original-grub-cfg get-string-all) - "search --label --set rootfs" ;; to replace with something working on all systems - "search --label --set bootfs") + (call-with-input-file #$original-grub-cfg get-string-all) port) (display "\n\n" port) -- cgit v1.2.3