From fb0ac479c8fb9ef16e2803883e30a7f2cfe173bb Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sun, 13 Oct 2024 17:27:38 +0200 Subject: refactor(mcdowell): modernize module imports for bootloader stack --- systems/mcdowell.scm | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) (limited to 'systems') diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index 0d20837..92df5a7 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -11,19 +11,21 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define (bootloader-target-mcdowell) - (use-modules (machines amd64)) - (bootloader-device-path host-name*)) +(define bootloader-target-mcdowell + ((@ (machines amd64) bootloader-device-path) + host-name*)) (define (desktop-services-mcdowell) (use-modules (suweren system)) %suweren-services) -(define (grub-mkrescue-bootloader-mcdowell) - (use-modules (gnu packages bootloaders)) - ((@ (gnu bootloader) bootloader) - (inherit grub-bootloader) - (package grub-hybrid))) +(define grub-mkrescue-bootloader-mcdowell + (let + ((grub-bootloader (@ (gnu bootloader grub) grub-bootloader)) + (grub-hybrid (@ (gnu packages bootloaders) grub-hybrid))) + ((@ (gnu bootloader) bootloader) + (inherit grub-bootloader) + (package grub-hybrid)))) (define keyboard-layout-mcdowell ((@ (gnu system keyboard) keyboard-layout) @@ -37,12 +39,11 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(define (bootloader-mcdowell) - (use-modules (gnu bootloader grub)) +(define bootloader-mcdowell ((@ (gnu bootloader) bootloader-configuration) - (bootloader (grub-mkrescue-bootloader-mcdowell)) + (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) @@ -63,7 +64,7 @@ (kernel-loadable-modules (list)) (kernel-arguments %default-kernel-arguments) (hurd #f) - (bootloader (bootloader-mcdowell)) + (bootloader bootloader-mcdowell) (keyboard-layout keyboard-layout-mcdowell) (initrd initrd*) (firmware firmware*) -- cgit v1.2.3