 (defn player-boards []
   [:div.row
    (for [player (:players @game)]
-     [:div.col-md-3 {:on-click #(swap! players dissoc player)}
+     [:div.col-md-3
         (player-board player)])])
 
 (defn supply-board []


(def game (atom (apply create-game ["Kanwei" "Lauren" "Ted"])))

(def buildings (atom initial-buildings))

(defn building-tile [b-name]
    (let [building (b-name @buildings)]
      [:div.building {:class (:resource building)}
       [:h5 (name b-name)]
       [:i.fa.fa-money.pull-right (:cost building)]

(def common
  {:roles [:captain :trader :builder :settler :mayor :craftsman]
   :goods [:coffee 9 :tobacco 9 :corn 10 :sugar 11 :indigo 11]
   :buildings initial-buildings
   :trader []
   :fields [:quarry 8 :coffee 8 :tobacco 9 :corn 10 :sugar 11 :indigo 12]})

