 (defmethod touch-tap
   :chrome
   [driver q]
-  (with-resp driver :post
-    [:session (:session @driver) :touch :click]
-    {:element (query driver q)} _))
+  (execute {:driver driver
+            :method :post
+            :path [:session (:session @driver) :touch :click]
+            :data {:element (query driver q)}}))
 
 (defmulti touch-down dispatch-driver)
 

(defmethod fill-active*
  :chrome
  [driver text & more]
  (with-resp driver :post
    [:session (:session @driver) :keys]
    {:value (apply make-input* text more)} _))

(defmethod fill-active*
  :firefox

;;

(defn click-el [driver el]
  (execute {:driver driver
            :method :post
            :path [:session (:session @driver) :element el :click]}))

(defn click
  "Clicks on an element (a link, a button, etc)."
