(defn setup-hetzner-kvm-server
"Set up a fresh hetzner box to act as a KVM server"
[hostname]
(println (format "Performing initial setup for %s" hostname))
(hetzner-initial-setup hostname)
(println "Sleeping 2mins to enable remote host to reboot..")
(Thread/sleep (* 2 60 1000)) ;; wait for the host to reboot
(println (format "Setting up %s as a KVM server.." hostname))
(configure-kvm-server hostname)
(println (format "Done with %s" hostname)))