diff options
author | Timo Wilken | 2023-11-21 22:28:09 +0100 |
---|---|---|
committer | Timo Wilken | 2023-11-21 22:37:06 +0100 |
commit | 839723165e48e077378aa94a779fc32a0496e6b4 (patch) | |
tree | d1eb07f3c92ee1b07f1fce768283da1b526fa0f5 /tw/system/installer/free.scm | |
parent | 3ce92c3c7a1d80cea0cb3063265e6b0f0ccfc837 (diff) |
Update installer systems
As used during installation of frm.twilken.net.
Diffstat (limited to 'tw/system/installer/free.scm')
-rw-r--r-- | tw/system/installer/free.scm | 42 |
1 files changed, 42 insertions, 0 deletions
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)))))) |