                        :r (to-scale 4)
                        :fill color-name
                        :on-click (fn ship-click [e]
-                                   (pirate-click @app-state pirate-color 37))}]))))))))
+                                   (pirate-click pirate-color 37))}]))))))))
 
 (defn normal-space [x y]
   [:rect

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