foo.clj

(defn news-list-view [app owner opts]
  (reify
    om/IInitState
    (init-state [_]
                {:star (chan)})
    om/IWillMount
    (will-mount [_]
                (let [star (om/get-state owner :star)]
                  (go (loop []
                        (let [news-item (<! star)]
                          (.log js/console (pr-str news-item))
                          (recur)))))
                (go (loop []
                      (let [widgets (<! (fetch-widgets (:url opts)))]
                        (om/update! app [:widgets] widgets))
                      (<! (timeout (:poll-interval opts))))))