     [:br]
     [:span "Player 2: " (points 1)]]
    [:div
-    [:br ]
+    [:br]
     (str "Player " (+ 1 @current-player) " turn")
     [:br]
     [:input {:type :text

(def score (atom ""))
(def current-player (atom 0))

(defn valid-score? [score points]
  (and (<= score 180)
       (<= score points)))

(defn points [player]
  (- (:starting-score @game)

(defn submit-score []
  (let [new-score (js/parseInt @score)
        points (points @current-player)]
    (if-let [error (error-message new-score points)]
      (reset! message error)
      (record-score @current-player @score))))

(defn numpad []
  [:div
   (map (fn [n]
          ^{:key n}
          [:button
           {:on-click (fn []
                        (swap! score str n)
                        (clear-message))}
           n])
        (range 10))
   [:button {:on-click (fn []
                         (swap! score #(subs % 0 (dec (count %)))))} "←"]
