 
 
 (defn store
-  "Stores the given tweet in mongodb"
+  "Store the tweet"
   [tweet]
   (let [oid (ObjectId.)
         doc (update-in tweet [:created_at] (fn [x] (f/parse custom-formatter x)))

    :ts ts}))


(defn store-article [{:keys [url content-type ts] :as expanded-url}]
  (let [raw-html (slurp url)
        html-title (-> (java.io.StringReader. raw-html) enlive/html-resource (enlive/select [:head :title]) first :content first)]
    (mc/insert-and-return

                                    :content-type content-type})))))))


(defn store-origin
  "Store relationship between article and tweet"
  [{:keys [article record ts source]}]
  (mc/insert-and-return
   db
   "origins"
