 (ns zetawar.db
   (:require
-    [zetawar.util :refer [ssolo]]
-    [datascript.core :as d]))
+   [zetawar.util :refer [ssolo]]
+   [datascript.core :as d]))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Schema
+;;; ## Schema
 
 ;; TODO: add unit/terrain
 (def schema

                                  :db/index       true}})

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Util

(defn qe
  "Returns the single entity returned by a query."

  "Returns the unique entity identified by attr and val."
  [db attr val]
  (qe '[:find ?e
        :in $ ?attr ?val
        :where  [?e ?attr ?val]]
      db attr val))

(defn qes
