+
+ ;; Entry is via little router box.
+ (dmz :net dmz)
+ (guvnor (dmz :a guvnor.dmz))
+ (gate (dmz :a gate.dmz))
+ (nat (dmz :a nat.dmz))
+
+ ;; Wireless gateway.
+ (wireless :net wireless)
+ (evolution (safe :a evolution.safe))
+ (evolution :alias evo)
+
+ ;; Colocated services.
+ ((irc vox) (colo :svc jazz.colo)
+ (jump :svc jazz.jump))
+ ((git www mail) (colo :svc stratocaster.colo)
+ (jump :svc stratocaster.jump))
+ :svc #+view/inside stratocaster.colo
+ #-view/inside stratocaster.jump
+ (cabal :svc stratocaster.colo)
+ ((db ftp) (colo :svc telecaster.colo)
+ (jump :svc telecaster.jump))
+
+ ;; Local services.
+ (rawk (unsafe :svc artist.unsafe)
+ (dmz :svc artist.dmz))
+ (pifi (untrusted :cname orange.dhcp)
+ (dmz :svc artist.dmz))
+ (mirror (dmz :svc roadstar.dmz)
+ (unsafe :svc roadstar.unsafe))
+ ((wiki bugs old-mail i2p) :svc vampire)
+
+ ;; Internal services.
+ #+view/inside ((news lpr) :svc vampire.unsafe)
+
+ ;; Anonymity services.
+ (anon (colo :svc jazz.colo)
+ (unsafe :svc vampire.unsafe)
+ (jump :a anon.jump)
+ (dmz :a anon.dmz))
+
+ ;; Fancy connectivity.
+ (iodine (jump :a jazz.jump))
+
+ ;; Colocated hosts.
+ (colo :net colo)
+ (jump :net jump)
+ (fender (colo :a fender.colo)
+ (jump :a fender.jump))
+ (precision (colo :a precision.colo)
+ (jump :a precision.jump))
+ (telecaster (colo :a telecaster.colo)
+ (jump :a telecaster.jump))
+ (telecaster :alias tele)
+ (stratocaster (colo :a stratocaster.colo)
+ (jump :a stratocaster.jump))
+ (stratocaster :alias strat)
+ (jazz (colo :a jazz.colo)
+ (jump :a jazz.jump)
+ (iodine :a jazz.iodine))
+
+ ;; Media server (on loan to Good Technology HSTG).
+ (jaguar (jump :a jaguar.jump))
+
+ ;; Nicko's server.
+ (richmond (jump :a richmond.jump))
+
+ ;; Wired ethernet.
+ (unsafe :net unsafe)
+ (safe :net safe)