                           :events []
                           :connected false
                           :players []
-                          :auto-complete-results []}))
+                          :auto-complete-results []
+                          :ac-chan (chan)}))
 
 (defn submit-new-text [data owner]
   (let [new-text (-> (om/get-node owner "new-text") .-value)]

          nil)
        (recur (:event (<! ch-chsk))))))

(defn update-player-search [value app]
  (if (empty? value)
    (om/update! app :auto-complete-results [])
    (let [pattern (re-pattern value)
           results (filter
                     #(re-find pattern (clojure.string/lower-case %)) (:players app))]
        (om/update! app :auto-complete-results results))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


                                                  :onInput #(update-player-search (.. % -target -value) app)}))
                               (g/row {:class "player-search-results"}
                                      (dom/h2 "Results")
                                      (if (not (empty? (:auto-complete-results @app-state)))
                                        (dom/ul
                                         (map
                                          #(dom/li %)
