diff options
author | Timo Wilken | 2023-11-01 22:30:30 +0100 |
---|---|---|
committer | Timo Wilken | 2023-11-01 22:30:30 +0100 |
commit | 9b57cf604c1544ca63dea1a454f696b02002c8f3 (patch) | |
tree | ab45018bd66f2e95f5f3903a27d06b9632f64549 /tw/system/installer/nonfree.scm | |
parent | bc67572084726572972170f0f2133f4050e8136d (diff) |
Add a simple test script
This only evaluates each home and system config to make sure they're valid.
Move the "nonfree installer" declaration to a subdirectory since evaluating it
does too much -- it seems to trigger a "guix pull" somehow.
Diffstat (limited to 'tw/system/installer/nonfree.scm')
-rw-r--r-- | tw/system/installer/nonfree.scm | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/tw/system/installer/nonfree.scm b/tw/system/installer/nonfree.scm new file mode 100644 index 00000000..433d4302 --- /dev/null +++ b/tw/system/installer/nonfree.scm @@ -0,0 +1,36 @@ +(define-module (tw system installer nonfree) + #:use-module (gnu packages admin) + #:use-module (gnu packages linux) + #:use-module (gnu packages package-management) + #:use-module (gnu services) + #:use-module (gnu services ssh) + #:use-module (gnu system) + #:use-module ((guix gexp) #:select (local-file)) + #:use-module ((nongnu system install) + #:select (installation-os-nonfree)) + #:use-module ((srfi srfi-26) #:select (cut))) + +(operating-system + (inherit installation-os-nonfree) + (packages + (cons* efibootmgr htop guix + (operating-system-packages installation-os-nonfree))) + (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)))))) |