diff options
| author | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-11 18:37:51 +0200 |
|---|---|---|
| committer | Marek Paśnikowski <marek@marekpasnikowski.pl> | 2024-10-11 18:37:51 +0200 |
| commit | 2b90323aae59302ba6d675a913c5d280ff03c481 (patch) | |
| tree | fa9d16d612ef0442746378696e406ecaa4b9ba3d /systems | |
| parent | 13713d63f1f19b39097589f34080c61a3095aa3f (diff) | |
refactor(mcdowell): isolate (bootloader-mcdowell)
Diffstat (limited to 'systems')
| -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*) |