 (defn build-main []
   (om/root alert-list app-state {:target app-root}))
 
-
 (defn main []
   (current-alerts)
   (build-main))

       {:response-format :json
        :keywords? true
        :handler callback}))


(defn ajax-post [url params callback]

  (render [_]
    (dom/li
     (dom/a {:href "#"
             :onClick #(alert-history
                        key
                        (fn [r]
                          (swap! app-state assoc :history
                                 (get-in r [:hits :hits]))
                          (om/root alert-detail
                                   {:history (get-in r [:hits :hits])}
                                   {:target app-root})))}
            key))))

(defcomponent stats-summary [{:keys [watcher_state]} _]
