     (> score 180) "Score must be <= 180"
     (> score points) "You cannot score more points than remaining ones. Over?"))
 
-(defn points [player]
+(defn points [player-id]
   (- (:starting-score @game)
-     (reduce + 0 (:rounds (get @game player)))) )
+     (reduce + 0 (:rounds (get @game player-id)))) )
 
 (defn record-score [player new-score]
   (swap! game #(update-in %1 [%2 :rounds] conj (js/parseInt %3))

    (if-let [error (error-message new-score points)]
      (reset! message error)
      (record-score @current-player @score))))

(defn numpad []
  [:div

    [numpad]
    (println @game)]])

(defn select-game-pane []
  [:div
   [:div "Starting score: "
    [:select {:id "score"
              :on-change #(reset! game-score
                                  (.-value (js/document.getElementById "score")))}
     (map (fn [score]
            ^{:key score}
            [:option score])
          [310 410 510])]]])

(defn new-game-page []
  (load-players)
