session.clj

;; When using the XPCOM Bridge, we don't create a session with the
;; server, instead, we just instantiate a singleton of the VBM
(def ^VirtualBoxManager instance* (atom nil))

(defn ^VirtualBoxManager instance
  "If the loaded vbox library is xpcom, it will create an instance of
  the xpcom service if it doesn't exist already"
  []
  (when (xpcom?)
    (if-let [the-instance @instance*]
      the-instance
      (swap! instance* (constantly (VirtualBoxManager/createInstance nil))))))