 ;;
 
 (defn fill* [driver el text]
-  (with-resp driver :post
-    [:session (:session @driver) :element el :value]
-    {:value (vec 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))

;;
;; human actions
;;

;;
;; screenshot


(defmulti get-element-location* dispatch-driver)

(defmethods get-element-location*
  [:chrome :phantom :safari]
  [driver el]
  (with-resp driver :get
