        [(* q 32) (* r 26)]
        [(+ 16 (* q 32)) (+ 26 (* (- r 1) 26))]))))
 
-(defn tile-border [{:keys [conn] :as app} q r]
+(defn tile-border [{:as view-ctx :keys [conn]} q r]
   (let [[x y] (offset->pixel q r)]
     [:g {:id (str "border-" q "," r)}
      (cond

        [:a {:href "https://www.kickstarter.com/projects/311016908/zetawar/posts/1608417"} "here"]
        "."])]))

(defn faction-list [{:keys [conn dispatch] :as app}]
  (into [:ul.list-group]
        (for [faction @(subs/factions conn)]
          (let [faction-eid (e faction)

        (get-in [:unit/type :unit-type/image])
        (string/replace "COLOR" color-name))))

(defn board-unit [{:as view-ctx :keys [conn dispatch]} q r]
  (when-let [unit @(subs/unit-at conn q r)]
    (let [[x y] (offset->pixel q r)
          image (unit-image unit)]
