 
 (defn render-ship [size type]
   [:div.ship
-    (repeat size [:div.box {:class type}])
-    [:div.clearfix]])
+   (repeat size [:div.box {:class type}])
+   [:div.clearfix]])
 
 (defn render-trader [trader]
   [:div.ship
-    [:div.box {:class type}]
-    [:div.box {:class type}]
-    [:div.box {:class type}]
-    [:div.box {:class type}]
-    [:div.clearfix]])
+   [:div.box {:class type}]
+   [:div.box {:class type}]
+   [:div.box {:class type}]
+   [: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)])
-        ]])
+   [: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 current-role []
   (let [last-role-event
-      (first 
-          (filter
-            (fn [event]
-              (contains? #{:rolestart :roleend} (first event)))
-            (rseq (:log @game))))]
-      (println last-role-event)
-      (if (= :rolestart (first last-role-event))
-          (second last-role-event))))
+        (first
+         (filter
+          (fn [event]
+            (contains? #{:rolestart :roleend} (first event)))
+          (rseq (:log @game))))]
+    (println last-role-event)
+    (if (= :rolestart (first last-role-event))
+      (second last-role-event))))
 
 (defn player-boards []
   [:div.row
    (for [player (:players @game)]
      [:div.col-md-3
-        (player-board player)])])
+      (player-board player)])])
 
 (defn game-log []
-    [:div
-  (for [event (:log @game)]
-    [:div (pr-str event)])])
+  [:div
+   (for [event (:log @game)]
+     [:div (pr-str event)])])
 
 (defn get-field [field-type i]
   (when (= :settler (current-role))


(defn randomize-fields []
  (->> (for [[field-type field-num] (:fields @game)]
        (repeat field-num field-type))
      flatten
      shuffle
      (take (inc (:n-player @game)))
      vec))

(defn vec-remove
  "remove elem in coll"

   :quarry 8
   :fields {:coffee 8 :tobacco 9 :corn 10 :sugar 11 :indigo 12}})

(defn create-game
  ([p1 p2 p3]
   (merge common
          {:n-player 3
           :vp 75 :colonists 55 :ships [4 5 6]
           :colonist-ship 3
