                         :trader "Goods for money"
                         :builder "Buy buildings"
                         :settler "Get quarry/field(s)"
-                        :mayor "Get colonists"
+                        :mayor "Get workers"
                         :craftsman "Produce goods"})
 
 
 (def common-state
   {:roles (set (keys role-descriptions))
-   :goods [:coffee 9 :tobacco 9 :corn 10 :sugar 11 :indigo 11]
    :buildings common/initial-buildings
    :trader []
    :governor 0

   [:div.box {:class type}]
   [:div.clearfix]])

(defn player-board [player]
  [:div
   (if (:role player)
     [:div.rolecard (name (:role player))])
   [:div.well
    [:div.pull-left (:name player)]
    [:span.pull-right (gold (:gold player))]
    [:span.pull-right (vp (:vp player))]
    [:div.clearfix]
    [:h5 "Buildings"]
    (for [building (:buildings player)]
      [:div (:name building)])
    [:h5 "Fields"]
    (for [field (:fields player)]
      [:div.field {:class (name field)} (name field)])
    ]])

(defn player-boards []
  [:div.row
   (for [player (:players @game)]
     [:div.col-md-3
      (player-board player)])])


(defn add-to-turn [event]
  (swap! game update-in [:turns] add-event-to-turn event))

(defn do-mayor [cstate]
  (swap! estream conj 
         [:rolepick :mayor]
         [:worker :bank -1]
         [:worker (nth (:order cstate) (:role-picker cstate)) 1])
  )

(defn action-done []
  (swap! estream conj [:actiondone])) 

(defn do-settler [field-type i]
  (when true
