 
 (go-loop []
          (let [chunk (<! c/prev-chunks-chan)]
-           (doseq [t chunk]
-             (put! c/prev-tweets-chan t))
+           (doseq [t chunk] (put! c/prev-tweets-chan t))
            (<! (timeout 50))
            (recur)))


(go-loop [] (let [t (<! c/prev-tweets-chan)]
              (add-tweet! t state/app)
;              (ignore-tweet! t state/app)
              (recur)))

(go-loop []

  (swap! app
         assoc-in [tweets-map (keyword (:id_str tweet))]
         tweet))

(defn swap-when-larger
  "swaps item in priority-map when new value is larger than old value"
