 ;; submit
 ;;
 
+(defn submit [driver q]
+  (fill driver q keys/enter))
+
 ;;
 ;; forms
 ;;

;;
;; human actions
;;

;;
;; screenshot

;;

(defn fill* [driver el text]
  (let [keys (if (char? text)
               (str text)
               text)]
    (with-resp driver :post
      [:session (:session @driver) :element el :value]
      {:value (vec keys)} _)))

(defn fill [driver q text]
  (fill* driver (find driver q) text))
