 ;; conditinal decorator
 ;; with window decorator
 ;; todo add local html test
+;; custom HTML files for tests
 ;;
 
 (def ^:dynamic *server*)

(defmacro with-xpath [& body]
  `(with-locator "xpath"
     ~@body))

;;
;; windowing


;; todo multi-form
;; todo fill form human
;; todo submit form
(defn fill-form [form]
  (doseq [[field text] form]
    (let [term (format "//input[@name='%s']" (name field))]
