From 8e5f71712a28c206d4d937e4d9794a487bb5188a Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sun, 13 Oct 2024 17:06:21 +0200 Subject: refactor(mcdowell): create dynamic reference to the system device for grub --- systems/mcdowell.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'systems') diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index feb088e..0d20837 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -11,8 +11,9 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define bootloader-target-mcdowell - "/dev/sdb") +(define (bootloader-target-mcdowell) + (use-modules (machines amd64)) + (bootloader-device-path host-name*)) (define (desktop-services-mcdowell) (use-modules (suweren system)) @@ -41,7 +42,7 @@ ((@ (gnu bootloader) bootloader-configuration) (bootloader (grub-mkrescue-bootloader-mcdowell)) (keyboard-layout keyboard-layout-mcdowell) - (targets (list bootloader-target-mcdowell)))) + (targets (list (bootloader-target-mcdowell))))) (define services-mcdowell (append (desktop-services-mcdowell) -- cgit v1.2.3