    (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)

       time)




  )

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


(defn users-of-the-day
  "Get user with most posts of given date"
  [date]
