         (dom/button
           #js {:onClick
                (fn [_]
-                 (om/update! data :new-projection (not (:new-projection data))))}
+                 (om/update! data :new-projection
+                             (not (:new-projection data))))}
           "+ New Projection")
         (if (:new-projection data)
           (do

                          :new-projection false}))

(defn clj->str [c]
  (let [res (clojure.string/replace (with-out-str (fipp/pprint c {:width 80})) #"}nil" "}")]
    (.log js/console res)
    res))


      {:events []})
    om/IDidMount
    (did-mount [this]
      (go (let [response
                (:body (<! (client/get
                            (str "/stream/" (:stream data)))))]
            (om/update-state!
             owner
             #(assoc % :events (:results response))))))
    om/IDidUpdate
    (did-update [_ _ _]
      (dorun (map #(.highlightBlock js/hljs %) ($ "code"))))
