            [:button
             {:class "btn btn-success btn-lg btn-block"
              :on-click #(put! level-changed-c ::inc)}
+            [:i {:class "glyphicon glyphicon-chevron-up"}]]]])))))
+
+(defn strength-indicator
+  "Editable strength indicator."
+  [player owner]
+  (reify
+    om/IRenderState
+    (render-state [_ state]
+      (let [strength-changed-c (:strength-changed state)
+            strength (max (+ (:level player) (:strength player)) 1)]
+        (html
+         [:div {:class "row"}
+          [:div {:class "col-sm-2"}
+           [:button
+            {:class "btn btn-info btn-lg btn-block"
+             :on-click #(put! strength-changed-c ::dec)}
+            "-"]]
+          [:div {:class "col-sm-8"}
+           [:div {:class "progress"}
+            [:div {:class "progress-bar progress-bar-warning"
+                   :role "progressbar"
+                   :aria-valuenow strength
+                   :aria-valuemin "0"
+                   :aria-valuemax "50"
+                   :style {:width (str (* strength 2) "%")}}
+             strength]]]
+          [:div {:class "col-sm-2"}
+           [:button
+            {:class "btn btn-info btn-lg btn-block"
+             :on-click #(put! strength-changed-c ::inc)}
             "+"]]])))))
 
 (defn editable-label

(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)))

(defn player-info
  "Row with info about the player."
  [{: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)]
        (go (loop []
              (let [op (<! level-changed-c)]
                (om/transact! player :level (change-level op))
                (recur))))))
    om/IRenderState
    (render-state [_ state]
      (html
       [:div {:class "row"}
        (om/build (editable-label :name) player)
        (om/build level-counter
                  level
                  {:init-state (select-keys state [:level-changed])})
        [:hr]]))))

(defn players-list

           [:button
            {:class "btn btn-danger btn-lg btn-block"
             :on-click #(put! level-changed-c ::dec)}
            [:i {:class "glyphicon glyphicon-chevron-down"}]]]
          [:div {:class "col-sm-8"}
           [:div {:class "progress"}
            [:div {:class "progress-bar"
