          [:div {:class "row"}
           [:div {:class "col-sm-12"}
            [:button
-            {:class "btn btn-default"
+            {:class "btn btn-info"
              :on-click #(put! player-added-c true)}
             "Add a new player"]]])))))
 

             :on-click #(put! level-changed-c ::inc)}
            "+"]]])))))

(defmulti change-level identity)
(defmethod change-level ::inc [op] (fn [l] (if (< l 10) (inc l) l)))
(defmethod change-level ::dec [op] (fn [l] (if (> l 1) (dec l) l)))

  [{:keys [name level] :as player} owner]
  (reify
    om/IInitState
    (init-state [_]
      {:level-changed (chan)})
    om/IWillMount
    (will-mount [_]
      (let [level-changed-c (om/get-state owner :level-changed)]
