• Home
• org.cloudhoist
• pallet-vmfest
• 0.3.0-alpha.1
• source code
• properties.clj

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

pallet.compute.vmfest.properties.clj Maven / Gradle / Ivy

(ns pallet.compute.vmfest.properties
  "Namespace to guess the vbox.home system property"
  (:use
   [clojure.java.io :only [file]]))

;;; This has to be loaded before the vbox libs are initialised

(def vbox-install-locations
  ["/Applications/VirtualBox.app/Contents/MacOS/"
   "/usr/lib/virtualbox"])

(defn guess-vbox-home []
  (first (filter #(.isDirectory %) (map file vbox-install-locations))))

(when-let [vbox-home (or (System/getProperty "vbox.home") (guess-vbox-home))]
  (System/setProperty "vbox.home" (.getAbsolutePath vbox-home)))