       :on-click (fn button-click [e]
                   (new-game!))}
      "New Game"]]
+   (when (and @app-state (:game-over @app-state))
+     [:div
+      [:h2 "WE HAVE A WINNER!"]
+      [:h3 (str "Congratulations, " (:name (active-player @app-state)) "!")]])
    [:div
+    {:style {:float "left" :margin-left 10 :margin-right 10}}
     (-> [:svg
          {:view-box (str "0 0 " (to-scale 501) " " (to-scale 301))
           :width (to-scale 501)

   (when-let [active-player (active-player @app-state)]
     (let [{:keys [color cards] player-name :name} active-player
           card-groups (frequencies cards)]
       [:div
        [:table
         {:class "t1"}
         [:tbody

            [ajax.core :as ajax]))

(enable-console-print!)

(defonce app-state (atom nil))

