vmfest manager with sata

gistfile1.clj

(defn attach-hard-disk [m uuid]
  {:pre [(model/Machine? m)]}
  (session/with-vbox (:server m) [_ vbox]
    (let [medium (vbox/find-medium vbox uuid)]
      (session/with-session m :shared [_ vb-m]
        (try
          (attach-device vb-m "SATA Controller" 0 0 :hard-disk medium)
          (catch clojure.contrib.condition.Condition _
            (attach-device vb-m "IDE Controller" 0 0 :hard-disk medium)))
        (.saveSettings vb-m)))))