ray/guix-systems
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Configure additional hosts

Browse source
This commit is contained in:
Ray Miller 2025-07-06 15:39:29 +01:00
parent 4bc803ad41
commit bc370e6062
Signed by: ray
GPG key ID: 043F786C4CD681B8
1 changed files with 30 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

32
systems/little-rascal.scm
View file

@ -1,7 +1,9 @@
;; This is an operating system configuration template ;; This is an operating system configuration template
;; for a "bare bones" setup, with no X11 display server. ;; 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-service-modules networking ssh desktop)
(use-package-modules screen ssh containers) (use-package-modules screen ssh containers)
@ -52,7 +54,33 @@ root ALL=(ALL) ALL
(services (append (list (simple-service 'add-extra-hosts (services (append (list (simple-service 'add-extra-hosts
hosts-service-type hosts-service-type
(list (host "192.168.1.110" "limiting-factor" '("forge.1729.org.uk")) (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 (service static-networking-service-type
(list (static-networking (list (static-networking
(addresses (addresses