From e61dc546497481b059461dc411f840408acda3e6 Mon Sep 17 00:00:00 2001
From: Gabriel Simmer <gabriel@gitgalaxy.com>
Date: Tue, 7 Sep 2021 23:03:42 +0100
Subject: [PATCH] none efi bootloader for virtual.

---
 .config/guix/systems/base-system.scm |  4 ++--
 .config/guix/systems/virtual.scm     |  6 +++++-
 base.org                             | 10 +++++++---
 3 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/.config/guix/systems/base-system.scm b/.config/guix/systems/base-system.scm
index 2563b6a..ac44680 100644
--- a/.config/guix/systems/base-system.scm
+++ b/.config/guix/systems/base-system.scm
@@ -80,7 +80,7 @@ EndSection
 		  (file-system
 		   (device "/dev/sda2")
 		   (mount-point "/")
-		   (type "ext4")) %base-file-systems)))))
+		   (type "ext4")) %base-file-systems)))
 
    (users (cons (user-account
 		 (name "gsimmer")
@@ -114,4 +114,4 @@ EndSection
 			    (xorg-configuration
 			     (keyboard-layout keyboard-layout))))
 		     %desktop-services))
-   (name-service-switch %mdns-host-lookup-nss)))
+   (name-service-switch %mdns-host-lookup-nss))
diff --git a/.config/guix/systems/virtual.scm b/.config/guix/systems/virtual.scm
index 785fe45..10b89e7 100644
--- a/.config/guix/systems/virtual.scm
+++ b/.config/guix/systems/virtual.scm
@@ -4,4 +4,8 @@
 
 (operating-system
  (inherit base-operating-system)
- (host-name "virtual"))
+ (host-name "virtual")
+ (bootloader (bootloader-configuration
+	      (bootloader grub-bootloader)
+	      (target "/boot")
+	      (keyboard-layout keyboard-layout))))
diff --git a/base.org b/base.org
index 4b099ec..c5d005a 100644
--- a/base.org
+++ b/base.org
@@ -123,7 +123,7 @@ in a typing install of Guix/Linux.
 		  (file-system
 		   (device "/dev/sda2")
 		   (mount-point "/")
-		   (type "ext4")) %base-file-systems)))))
+		   (type "ext4")) %base-file-systems)))
 
    (users (cons (user-account
 		 (name "gsimmer")
@@ -157,7 +157,7 @@ in a typing install of Guix/Linux.
 			    (xorg-configuration
 			     (keyboard-layout keyboard-layout))))
 		     %desktop-services))
-   (name-service-switch %mdns-host-lookup-nss)))
+   (name-service-switch %mdns-host-lookup-nss))
 #+end_src
 
 ** Individual Systems
@@ -203,5 +203,9 @@ This applies to any random Guix VM I spin up, usually for testing configurations
 
 (operating-system
  (inherit base-operating-system)
- (host-name "virtual"))
+ (host-name "virtual")
+ (bootloader (bootloader-configuration
+	      (bootloader grub-bootloader)
+	      (target "/boot")
+	      (keyboard-layout keyboard-layout))))
 #+end_src