From 839723165e48e077378aa94a779fc32a0496e6b4 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Tue, 21 Nov 2023 22:28:09 +0100
Subject: Update installer systems

As used during installation of frm.twilken.net.
---
 tw/system/installer/free.scm | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 tw/system/installer/free.scm

(limited to 'tw/system/installer/free.scm')

diff --git a/tw/system/installer/free.scm b/tw/system/installer/free.scm
new file mode 100644
index 00000000..24fef52b
--- /dev/null
+++ b/tw/system/installer/free.scm
@@ -0,0 +1,42 @@
+;; To build this image:
+;; guix system image -t iso9660 --label="GUIX_CUSTOM_$(date -Idate)" tw/system/installer/free.scm
+
+(define-module (tw system installer free)
+  #:use-module (gnu packages admin)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages package-management)
+  #:use-module (gnu packages version-control)
+  #:use-module (gnu services)
+  #:use-module (gnu services ssh)
+  #:use-module (gnu system)
+  #:use-module (gnu system install)
+  #:use-module ((guix gexp) #:select (local-file))
+  #:use-module ((srfi srfi-26) #:select (cut)))
+
+(operating-system
+  (inherit installation-os)
+  (host-name "guixinstall")
+  (timezone "Europe/Paris")
+  (locale "en_GB.utf8")
+  (packages
+   (cons* efibootmgr htop git
+          (operating-system-packages installation-os)))
+  (services
+   (cons*
+    ;; Add an SSH server to facilitate remote installs.
+    (service openssh-service-type
+      (openssh-configuration
+       (port-number 22)
+       (%auto-start? #t)
+       (permit-root-login #t)
+       ;; The root account is passwordless, so make sure
+       ;; a password is set before allowing logins.
+       (allow-empty-passwords? #f)
+       (password-authentication? #f)
+       (authorized-keys
+        `(("root" ,(local-file "../files/timo.pub"))))))
+    ;; Make sure to remove the SSH service from the base services,
+    ;; so we can override it fully.
+    (filter
+     (compose not (cut eq? openssh-service-type <>) service-kind)
+     ((@@ (gnu system install) %installation-services))))))
-- 
cgit v1.2.3