   [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])]
-    (let [[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 :dealer-feedback "" :player-feedback "")
-      (if (immediate-win dealer2 player2)
-        (do
-          (swap! game assoc :dealer-hand (reveal dealer2))
-          (end-game dealer2 player2))))))
+        [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.

                     :current-bet 10
                     :playing false
                     :player-feedback ""
                     :dealer-feedback ""}))

(defn deal
  "Deal one card from the deck to a hand in the given

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