 
 
 
-  (let [messages (mc/find-maps @db "messages" {:ts {$gt (t/date-time 2015 3 18 8)
-                                                    $lt (t/date-time 2015 3 18 8 10)}})
-        retweets (map  (fn [{:keys [_id text]}]
-                         [text (mc/find-maps @db "retweets" {:target _id})]) messages)]
-    )
+  (def users )
+
+
+
 
 
   )


(def links ["mentions" "shares" "replies" "retweets" "urlrefs" "tagrefs" "unknown"])



(defn dispatch-request
  "Dispatch incoming requests"
  [{:keys [topic data]}]
  (case topic
    :graph {:nodes [10 20 30] :links [[10 20] [20 30] [30 10]]}
    :unrelated))



            [compojure.handler :refer [site api]]
            [taoensso.timbre :refer [info debug error warn] :as timbre]
            [org.httpkit.server :refer [with-channel on-receive on-close run-server send!]]))


(timbre/refer-timbre)

