(defn element
  ([q] (element *driver* q))
  ([driver q]
     (if (element-like? q)
       q
       (let [e (first (*finder-fn* driver q))]
         (when (:webelement e) e)))))

(defn text [q]
  (let [e (element q)]
    (when e
      (attribute e :text))))