diff options
| -rw-r--r-- | systems/mcdowell.scm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/systems/mcdowell.scm b/systems/mcdowell.scm index c1d53e0..f75e3e7 100644 --- a/systems/mcdowell.scm +++ b/systems/mcdowell.scm @@ -30,6 +30,9 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(define bootloader-target-mcdowell + "/mnt/boot") + (define (desktop-services-mcdowell) (use-modules (suweren system)) %suweren-services) @@ -44,6 +47,13 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +(define (bootloader-mcdowell) + (use-modules (gnu bootloader grub)) + ((@ (gnu bootloader) bootloader-configuration) + (bootloader grub-efi-removable-bootloader) + (keyboard-layout keyboard-layout-mcdowell) + (targets (list bootloader-target-mcdowell)))) + (define services-mcdowell (append (desktop-services-mcdowell) (list guix-home))) @@ -55,9 +65,9 @@ (suweren system)) (let* ((timezone* "Europe/Warsaw")) ((@ (gnu system) operating-system) + (bootloader (bootloader-mcdowell)) (kernel kernel*) (keyboard-layout keyboard-layout-mcdowell) - (bootloader (bootloader-configuration* keyboard-layout-mcdowell)) (initrd initrd*) (firmware firmware*) (host-name host-name*) |