ff.clj

(ns ff.core
  (require [clj-webdriver.taxi :as taxi]
           [clj-webdriver.firefox :as ff]))


(def path-firebug "ff-extensions/firebug@software.joehewitt.com.xpi")

(defn init-firefox-local-driver
  "Initializes Firefox driver.
   And sets a global implicit-wait"
  [wait-timeout]
  (taxi/set-driver! {:browser-name :firefox
                     :profile (doto (ff/new-profile)
                                (ff/set-preferences {"app.update.enabled" false})
                                (ff/set-preferences {"extensions.firebug.showFirstRunPage" false})
                                (ff/enable-extension path-firebug))})
  (taxi/implicit-wait wait-timeout))

(init-firefox-local-driver 3000)