From a88bd5d49291c9bfab36ae5f30c13a3cb7e7ea88 Mon Sep 17 00:00:00 2001
From: Freya Murphy <freya@freyacat.org>
Date: Thu, 12 Dec 2024 15:20:14 -0500
Subject: [PATCH] build-installer script

---
 scripts/build-installer | 5 +++++
 systems/installer.scm   | 3 +--
 2 files changed, 6 insertions(+), 2 deletions(-)
 create mode 100755 scripts/build-installer

diff --git a/scripts/build-installer b/scripts/build-installer
new file mode 100755
index 0000000..e3c4fcb
--- /dev/null
+++ b/scripts/build-installer
@@ -0,0 +1,5 @@
+#!/bin/sh
+repo="$HOME/.config/guix"
+date="$(date -Iseconds)"
+image=$(guix-retry guix system -L "$repo/modules" image -t iso9660 "$repo/systems/installer.scm")
+cp $image "./guix-installer-$date.iso"
diff --git a/systems/installer.scm b/systems/installer.scm
index 6d072fa..c868119 100644
--- a/systems/installer.scm
+++ b/systems/installer.scm
@@ -15,8 +15,7 @@
     ;; Explicitly allow for empty passwords.
     (base-pam-services #:allow-empty-passwords? #t))
   (services (cons* (cow-store-service)
-		   (operating-system-services
-		     %base-freya-operating-system)))
+		   %base-freya-services))
   (bootloader (bootloader-configuration
 		(bootloader grub-bootloader)
 		(targets '("/dev/sda")))))