                               "/clear-database"))}
                      "Clear database")
                    (dom/label nil (str "Crawled and imported " (pr-str (:import-count (:crawl-result app))) " users."))
-                   #_(dom/textarea #js {:value (pr-str (:users app))}))
-          (dom/div nil
-                   (dom/h1 nil "Github")
-                   (dom/h3 nil (count (:users app)) " users")
-                   (apply dom/ul nil
-                          (map #(dom/li nil (pr-str %)) (:users app)))))
-        )))
+                   #_(dom/textarea #js {:value (pr-str (:users app))})
+                   (om/build users-view (:users app)))
+          ))))
   app-state
   {:target (. js/document (getElementById "app"))})
+
+
 
 
 (defn foo [v]

     :on-complete cb}))


(om/root
  (fn [app owner]
    (reify

                          (fn [_]
                            (call-server
                              (fn [res]
                                (println "Start crawling github for users")
                                (om/transact! app :crawl-result (fn [_] res))
                                (println "Crawled github, found " (:crawl-result @app)))
                              "/crawl"))}
                     "Crawl Github")
                   (dom/button
