 (defn action
   "Translates an action for a given player focus"
   [focus action]
-  (if (= :p1 focus)
+  (if (default-focus? focus)
     action
     (convert-action action)))
 

(ns obb-rules.translator
  (:require [obb-rules.board :as board]
            [obb-rules.element :as element]))

(def max-coordinate (+ 1 board/default-board-w))

(defn coordinate
  "Translates a coordinate for a given player focus"
  [focus [x y]]
  (if (= :p1 focus)
    [x y]
    [(- max-coordinate x) (- max-coordinate y)]))

(defn direction
  "Translates a direction for a given player focus"
  [focus dir]
  (if (= :p1 focus)
    dir
    (cond
      (= (keyword dir) :south) :north

(defn board
  "Translates a full board to a given player focus"
  [focus board]
  (if (default-focus? focus)
    board
    (convert-board board)))
