          (sort-by second >)
          (take 25))))
 
+
 (defn users-of-the-day
   "Get user with most posts of given date"
   [date]

       time)




  )

   (find-reactions pub)))


(defn find-full-reactions
  "extended reaction tree recursion"
  [pid]
  (let [publication (mc/find-map-by-id @db "publications" pid)
        reactions (mc/find-maps @db "reactions" {:source pid})]
    (Publication. publication (vec (pmap #(find-full-reactions (:publication %)) reactions)))))


(defn full-reaction-tree [pub]
  (zip/zipper
   (fn [node] true)
   (fn [node] (:reactions node))
   (fn [node new-children] (assoc-in node [:reactions] new-children))
   (find-reactions pub)))


(defn summary [tree]
  (loop [size 0
         max-path 0
         delays []
         loc tree]
    (if (zip/end? loc)
      {:size size
       :delays delays
       :height max-path}
      (recur
       (if (zip/node loc) (inc size) size)
