 ;;    (println "Player:" player ptotal pstatus)
 ;;    (println "Dealer:" dealer dtotal dstatus)
     (cond
-      (> ptotal 21) (feedback "Dealer wins." "Sorry, you busted.")
-      (> dtotal 21) (feedback "Dealer goes bust." "You win!")
-      (= ptotal dtotal) (feedback "" "Tie.")
-      (= pstatus :blackjack) (feedback "" "You win with blackjack!")
-      (= dstatus :blackjack) (feedback "Dealer has blackjack." "")
-      (< ptotal dtotal) (feedback "Dealer wins." "")
-      (> ptotal dtotal) (feedback "" "You win!")
-      :else (feedback "" "Unknown result (Shouldn't happen.)"))
+      (> ptotal 21) (feedback "Sorry, you busted." :red)
+      (> dtotal 21) (feedback "Dealer goes bust. You win!" :green)
+      (= ptotal dtotal) (feedback "Tie game." :black)
+      (= pstatus :blackjack) (feedback "You win with blackjack!" :green)
+      (= dstatus :blackjack) (feedback "Dealer has blackjack." :red)
+      (< ptotal dtotal) (feedback "Dealer wins." :red)
+      (> ptotal dtotal) (feedback "You win!" :green)
+      :else (feedback "Unknown result (Shouldn't happen.)" :gray))
     (update-money dtotal dstatus ptotal pstatus)
     (swap! game assoc :playing false)))
 

  [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))))))

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

(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"
