gistfile1.clj

(ns so.hard.core
  (:require [cljs.core.async :as async, :refer [<! >!]]
            [om.core :as om, :include-macros true]
            [om.dom :as dom, :include-macros true])
  (:require-macros [cljs.core.async.macros :refer [go go-loop]]))

(defn random-event []
  {:time (js/Date.)
   :description (if (< 0.1 (.random js/Math)) "ping ok" "ping error")})

(defn events-view [events]
  (reify om/IRender
    (render [_] (apply dom/ul nil (map #(dom/li nil (:description %)) events)))))

(defn get-events [chan]
  (js/setInterval #(go (>! chan (random-event))) 1000))

(defn main [state]
  (let [chan (async/chan)]
    (get-events chan)
    (go-loop []
      (let [event (<! chan)]
        (swap! state #(update-in % [:events] conj event)))
      (recur)))
  (om/root (fn [state owner] (events-view (:events state)))
           state
           {:target (.getElementById js/document "application")}))

(js/addEventListener "load" #(main (atom {:events []})))