 (defn render-roles []
   [:div
    (for [role (:roles @game)]
-     [:button.btn.btn-default.rolecard {:on-click #(player-pick-role role)}
+     [:button.btn.btn-default.rolecard {:on-click #(player-pick-role role (calc-state))}
       (name role)
       [:span " - " (role role-descriptions)]])])
 

    (or (nil? current-turn)
        (= :end (first current-turn)))))

(defn player-pick-role [role]
  (case role
    :mayor (do-mayor (calc-state))
    nil)
  )

(defn whose-turn []
  (let [current-turn (peek (:turns @game))

(defn bank-buildings []
  (into {}
        (for [[bname bdesc] common/initial-buildings]
          [bname (select-keys bdesc [:count :cost :column])])))

(swap! estream conj
       [:good :bank :coffee 9]
