From 2b90323aae59302ba6d675a913c5d280ff03c481 Mon Sep 17 00:00:00 2001
From: Marek Paśnikowski <marek@marekpasnikowski.pl>
Date: Fri, 11 Oct 2024 18:37:51 +0200
Subject: refactor(mcdowell): isolate (bootloader-mcdowell)

---
 systems/mcdowell.scm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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*)
-- 
cgit v1.2.3