       (for [c (find-header-or-data-cells r)]
         (failsafe-text c)))))
 
+(def ffilter (comp first filter))
 
 (defn some-what 
   "works like some, but returns the value which satisfied the predicate"


(defn index-tables []
  (for [t (find-elements [{:tag :table}])]
    (map vector (range) (index-table-text t))
    )
  )

(defn match? [re x]
  (try

; and then it should add a :results section to the siteinfo map
; which contains a map of keynames and scraped data
(defn find-data [siteinfo page]
  (reset! itables (index-tables))
  (assoc siteinfo :data (into {} (let [items (page (:datamatcher siteinfo))]
    (for [[keyname item] items]
        [keyname (dispatch-location item)]
        )))))

