          (taxi/quit)
          @file-names)
        (catch Exception e (taxi/quit)
-                          [{:FAILED e}])))
+                          :FAILED)))
 
 (defn compare-cards
   "Compares screenshots in the expected and actual directories (generates the actual).


(defn capture-cards
  "Take screen shots of every devcard and write them to the output-dir
  dir. Returns a vector of the file names of all the images captured."
  [output-dir]
  (try (let [driver             (start-browser)
             _                  (touch-dir output-dir)

                 card-title (taxi/text (str selector " span:nth-child(2)"))]
             (taxi/click selector)
             (timbre/info "navigated to " selector)
             (Thread/sleep 1000)
             (let [cards     (taxi/elements "div.com-rigsomelight-devcards-panel-heading > a")
                   subtitles (mapv (fn [e] (-> e :webelement .getText)) cards)]
               (timbre/info "found " (count cards) " titled " subtitles)
               (doseq [subtitle subtitles]
                 (let [img-path (str output-dir card-title "-" subtitle ".png")]
                   (timbre/info "navigating to " subtitle)
                   (taxi/get-url (str "http://localhost:8001/visuals.html#!/" card-title "/" subtitle))
                   (Thread/sleep 1000)
