triboard.view.scores.cljs

(defn- player->css-style
  [player highlight?]
  (let [player-class (str "score--" (name player))
        score-class (if (highlight? player) "score--is-current" "score")]
    (str player-class " " score-class)))

(defn- player->score-text
  [player score]
  (str (str/capitalize (name player)) " - " score))

(defn- show-scores
  [scores highlight?]
  (for [player player/all :let [score (get scores player)]]
    ^{:key player}
    [:div
     {:class (player->css-style player highlight?)}
     (player->score-text player score)]))