                        :r (to-scale 4)
                        :fill color-name
                        :on-click (fn jail-click [e]
-                                   (pirate-click @app-state pirate-color 0))}]))))))))
+                                   (pirate-click pirate-color 0))}]))))))))
 
 ;; TODO: this looks almost exactly like jail
 (defn ship []

                         :discard-pile []}
  )

(defonce app-state (atom initial-game-state))

(defn to-scale [n]
  (* 1.65 n))

               [space image]
               )))))


(defn card-click [card]
  (do
    (println "card-click" card)
    (reset! app-state (assoc @app-state :selected-card card))))
