             [obb-demo.processor :as processor]
             [obb-demo.views.power-bar :as power-bar]
             [obb-rules.math :as math]
+            [obb-rules.laws :as laws]
             [obb-rules.evaluator :as evaluator]
             [obb-rules.turn :as turn]
             [obb-rules.result :as result]

    (let [game (-> (processor/deployed-game)
                   (game/state :p1))
          game-data {:game game
                     :action-points 0
                     :turn-num 0}]
      (state/set-page-data! game-data)

    [:a "Turn "
     [:span.badge (:turn-num game-data)]]]])

(defn- action-points
  "Displays the current turn"
  [game-data]
  [:ul.nav.nav-pills {:style {:margin-bottom "10px"}}
   [:li
    [:a "Action Points "
     [:span.badge (- laws/max-action-points (:action-points game-data))]]]])

(defn- reset-turn
  "Resets the actions on the current turn"
  [game-data]
  (state/set-page-data! {:game (:original-game game-data)
                         :original-game (:original-game game-data)
                         :action-points 0
                         :turn-num 0}))

(defn render
  [state]
  (let [game-data (get-game-data state)
