From bc370e6062dd3e53f731f4ec5d471b2ac9e57c10 Mon Sep 17 00:00:00 2001 From: Ray Miller Date: Sun, 6 Jul 2025 15:39:29 +0100 Subject: [PATCH] Configure additional hosts --- systems/little-rascal.scm | 32 ++++++++++++++++++++++++++++++-- 1 file changed, 30 insertions(+), 2 deletions(-) diff --git a/systems/little-rascal.scm b/systems/little-rascal.scm index fd1bf88..e2818ff 100644 --- a/systems/little-rascal.scm +++ b/systems/little-rascal.scm @@ -1,7 +1,9 @@ ;; This is an operating system configuration template ;; for a "bare bones" setup, with no X11 display server. -(use-modules (gnu)) +(use-modules (gnu) + (gnu system shadow) ;for 'subids-service-type' + (gnu system accounts)) ;for 'subid-range' (use-service-modules networking ssh desktop) (use-package-modules screen ssh containers) @@ -52,7 +54,33 @@ root ALL=(ALL) ALL (services (append (list (simple-service 'add-extra-hosts hosts-service-type (list (host "192.168.1.110" "limiting-factor" '("forge.1729.org.uk")) - (host "192.168.1.167" "cargo-cult" '()))) + (host "192.168.1.167" "cargo-cult" '()) + (host "192.168.1.9" "screw-loose") + (host "192.168.1.57" "control-surface") + (host "192.168.1.83" "grey-area") + (host "192.168.1.81" "zeus"))) + ;; Curretly there's an upper limit of 600100000 on subid-range so this mechanism + ;; does not work. + ;; (simple-service 'container-subids + ;; subids-service-type + ;; (subids-extension + ;; (subgids + ;; (list (subid-range + ;; (name "containers") + ;; (start 2147483647) + ;; (count 2147483648)))) + ;; (subuids + ;; (list (subid-range + ;; (name "containers") + ;; (start 2147483647) + ;; (count 2147483648)))))) + (simple-service 'user-subids + subids-service-type + (subids-extension + (subgids + (list (subid-range (name "ray")))) + (subuids + (list (subid-range (name "ray")))))) (service static-networking-service-type (list (static-networking (addresses