Installation of a new OS on Virtualbox

gistfile1.clj

(use '[vmfest.manager :only [server]])
(def my-server (server "http://localhost:18083"))

(use '[visaje.core :only [install-os]])
(install-os my-server
                {:name "debian-test-2"
                 :disk-location "/tmp/debian-test-2.vdi"
                 :disk-size (* 4 1024)
                 :os-iso-location
                 "/Users/tbatchelli/Desktop/ISOS/debian-6.0.2.1-amd64-netinst.iso"
                 :vbox-iso-location
                 "/Users/tbatchelli/Desktop/ISOS/VBoxGuestAdditions.iso"
                 :preseed (slurp "/Users/tbatchelli/deb-preseed.cfg")
                 :user "vmfest"
                 :password "vmfest"})

this:

• creates a new VM with an empty disk
• installs the OS with the preseed file
• installs VirtualBox guest additions on the image
• removes the VM
• compacts the drive image
• makes the drive image immutable and ready to be used as a base for lightweight
  cloud-like cloning in with vmfest