 (defrecord Publication [source reactions])
 
 
-
-
 (defn find-reactions [pid]
   (let [reactions (mc/find-maps @db "reactions" {:source pid})]
     (Publication. pid (vec (pmap #(find-reactions (:publication %)) reactions)))))

                            (t/interval (-> loc zip/node :source :ts) pub-time))]
           (conj delays (t/in-seconds post-delay)))
         delays)
       (zip/next loc)))))



       (sort-by second >)
       (take 50))


  (->> @full-summaries
       (pmap analyze-hashtags)
       )

  )
