 (defn tableau
   "Display the playing area (the tableau)."
   []
-  (let [{:keys [dealer-hand player-hand playing dealer-feedback player-feedback
+  (let [{:keys [dealer-hand player-hand playing player-feedback feedback-color
                 player-money current-bet]} @game]
   [:div
-   [:h2 "Dealer’s Cards " [:span {:class "dealerFeedback"} dealer-feedback]]
+   [:h2 "Dealer’s Cards"]
    [show-cards dealer-hand]
    [:hr]
-   [:h2 "Your Cards " [:span {:class "playerFeedback"} player-feedback]]
+   [:h2 "Your Cards" [:span {:style {:color feedback-color}} player-feedback]]
    [show-cards player-hand]
    [:p
     [:input {:type "button"

    (swap! game assoc :player-money new-money :current-bet (max 0 (min current-bet new-money)))))

(defn feedback
  "Given feedback for the dealer and player, update the reactive fields."
  [dealer player]
  (swap! game assoc :dealer-feedback dealer :player-feedback player))

(defn end-game
  "Evaluate the dealer's and player's hands when the

  [event]
  (let [{:keys [deck discard-pile dealer-hand player-hand current-bet]} @game
        [player1 disc0] (discard [player-hand discard-pile])
        [dealer1 disc1] (discard [dealer-hand disc0])
        [deck2 dealer2 disc2] (deal (deal [deck dealer1 disc1] :up) :down)
        [deck3 player2 disc3] (deal (deal [deck2 player1 disc2] :up) :up)]
    (swap! game assoc :playing true :discard-pile disc3 :player-hand player2
           :dealer-hand dealer2 :deck deck3 :player-feedback "" :feedback-color :black)
    (if (immediate-win dealer2 player2)
      (do
        (swap! game assoc :dealer-hand (reveal dealer2))
        (end-game dealer2 player2)))))

(defn hit-me
  "Deal a card face up to the player, and evaluate the hand.
