                          :discard-pile []}
   )
 
-(defonce app-state (atom initial-game-state))
+(defonce app-state (atom nil))
 
 (defn to-scale [n]
   (* 1.65 n))

                       :r (to-scale 4)
                       :fill color-name
                       :on-click (fn jail-click [e]
                                   (pirate-click @app-state pirate-color 0))}]))))))))

;; TODO: this looks almost exactly like jail
(defn ship []

          :width (to-scale 501)
          :height (to-scale 301)}]
        (into (static-board))
        (into (normal-spaces))
        (into (jail))
        (into (ship))
        )]
   (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
          [:tr
           [:td "Player"]
           [:td player-name]]]
         [:tr
          [:td "Color"]
          [:td
           [:svg
            {:width (to-scale 20)
             :height (to-scale 20)}
            [:circle
             {:cx (to-scale 10)
              :cy (to-scale 10)
              :r (to-scale 7)
              :fill (name color)}]]
           [:span {:style {:color (name color)}} (name color)]]]
         [:tr
          [:td "Actions Remaining"]
          [:td (:actions-remaining @app-state)]]
         [:tr
          [:td "Cards"]
          [:td (for [[card num] card-groups]
                 ^{:key card}
                 [:span {:style {:float "left"}}
                  [:figure
                   [:img
                    {:src (card icon-images)
                     :width (to-scale 30)
                     :height (to-scale 30)
                     :on-click (fn ship-click [e]
                                 (card-click card))}]
                   [:center [:figcaption num]]]])]]]]))])


(defn ^:export main []
