File tree 9 files changed +235
-226
lines changed
9 files changed +235
-226
lines changed Original file line number Diff line number Diff line change 52
52
(go-loop [] (tweets/add-tweet (<! combined-tweets-chan) app-state word-cloud) (recur ))
53
53
54
54
; ;; The app starts with the search string encoded in the URI location hash.
55
- (tweets/start-search app-state (util/search-hash ) tweets-chan)
55
+ (defn start-search [search] (tweets/start-search app-state search tweets-chan))
56
+ (start-search (util/search-hash ))
Original file line number Diff line number Diff line change 61
61
(aset js/window " location" " hash" (js/encodeURIComponent s))
62
62
(swap! app assoc :stream (js/EventSource. (str " /tweetFeed?q=" s)))
63
63
(.addEventListener (:stream @app) " message" #(receive-sse tweets-chan %) false )
64
- (doall (for [x (range 5 )] (ajax/prev-search " *" 500 (* 500 x))))))
64
+ (doall (for [x (range 10 )] (ajax/prev-search search 100 (* 100 x))))))
65
+ ;
You can’t perform that action at this time.
0 commit comments