     (doseq [f fs]
       (binding [*crison-file* f]
         (doseq [t (read-string (slurp f))] (decode t))
-        (screenshot)))))
+        (screenshot)
+        (source)))))
 
 (defn drive [input-d output-d]
   (binding [*input-dir* input-d

      (wc/get-screenshot driver :file s-file)))
  ([] (screenshot nil)))

(defn title [] (wc/title driver))

(defn title? [x] (is (= x (title)) x))


(defmulti decode (fn[x] (ffirst x)))

(defmethod decode :url! [x]
  (go (:url! x))
  (screenshot (:screenshot x))
  (source (:source x)))

(defmethod decode :click! [x]
  (let [e (:click! x)]
