 (defn find-source [id]
   (mc/find-maps (:db @mongo-state) "urls" {$and [{:article id} {:source {$ne nil}}]} [:source :tweet :ts]))
 
+
 (comment
 
   ;; TODO update on server

    :ts ts}))


(defn store-origin [{:keys [article record ts source ancestors]}]
  (mc/insert-and-return
   (:db @mongo-state)
   "origins"

    :article article
    :source source
    :ancestors ancestors
    :root root
    :ts ts}))


