       (let [comm (chan)]
         (om/set-state! owner :comm comm)
           (go
-           (load-data comm)
-           (while true
-            (let [ [t value] (<! comm)]
-              (handle-comm-event t app value))))))
+            (load-data comm)
+            (while true
+              (let [ [t value] (<! comm)]
+                (handle-comm-event t app value))))))
 
     om/IRenderState
     (render-state [_ {:keys [comm]}]
-      (dom/div #js {:className "commentBox"}
-        (dom/h1 nil "Comments")
-        (render-comment-list app)
-        (om/build comment-form nil {:init-state {:comm comm}})))))
+      (html
+        [:div {:class "commentBox"}
+          [:h1 "Comments"]
+          (render-comment-list app)
+          (om/build comment-form nil {:init-state {:comm comm}})]))))
 
 (om/root
   comment-box

     :keywords? true
     :handler (partial get-comments #(put! comm [:init %] ))
     :error-handler error-handler}))

(defn save-commemnt [new-comment]
  (POST "http://localhost:3000/comments"


    om/IRenderState
    (render-state [_ {:keys [comm] :as state}]
      (html [:form {:class "commentForm"
                    :on-submit #(add-comment % owner state)}
        [:input {:type "text"
                :placeholder "Your name"
                :value (:author state)
                :on-change #(handle-change % owner "author")}]
        [:input  {:type "text"
                  :placeholder "Say something"
                  :value (:text state)
                  :on-change #(handle-change % owner "text")}]
        [:input {:type "submit" :value "Post"}]]))))

;;main component

(defn handle-comm-event [t app val]
  (case t
    :add (om/transact! app :comments #(conj % val))
    :init (om/update! app [:comments] val)
    nil))

(defn render-comment-list [{:keys [comments]}]
