                             (do
                               (log/debug "Caching unseen tag:" tag)
                               (swap! tags assoc tag 1)))) (:tags md))
-          (log/debug "Adding metadata for" key-name)
           (assoc video :meta md))
         video))))
 

      (let [{:keys [app-id app-secret page-id]} facebook
            tags (atom (load-tags! database bucket-segments default-tags))
            md-keys (set (db/list-keys database metadata-bucket))
            records (->> (fetch app-id app-secret page-id)
                         (filter :embeddable)
                         (map scrub)

    (try
      (with-open [in (io/input-stream uri)
                  out (io/output-stream file)]
        (io/copy in out))
      (if-let [img (ImageIO/read file)]
        [(.getWidth img) (.getHeight img)]
        (throw (Exception. (str "Couldn't create ImageIO!"))))
      (catch Throwable e (log/warn (str "Failed to process dimensions for " uri " - " (.getMessage e))))
      (finally (fs/delete file)))))

(defn coerce-time
