   (with-http-error
     (let [q (format "//*[contains(text(),'%s')]" text)]
       (with-xpath driver
-        (find driver q)
+        (query driver q)
         true))))
 
 (defn has-class* [driver el class]

    (map? q)
    ["xpath" (q-xpath q)]))

(defmulti find* dispatch-driver)

(defmethod find* :firefox [driver locator term]
  (with-resp driver :post
    [:session (:session @driver) :element]
    {:using locator :value term}
    resp
    (-> resp :value first second)))

(defmethod find* :default [driver locator term]
  (with-resp driver :post
    [:session (:session @driver) :element]
    {:using locator :value term}
    resp
    (-> resp :value :ELEMENT)))

(defn find [driver q]
  (let [[locator term] (q-discover q)
        locator (or locator (:locator @driver))]
    (find* driver locator term)))

;;
;; mouse

      (wait-key))))

(defn fill-human [driver q text]
  (fill-human* driver (query driver q) text))

;;
;; screenshot
