 (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

  [query db & args]
  (->> (apply d/q query db args)
       (mapv (fn [items]
	       (mapv (partial d/entity db) items)))))

(defn find-all-by
  "Returns all entities possessing attr."
  [db attr]
  (qes '[:find ?e
	 :in $ ?attr
	 :where [?e ?attr]]
       db attr))

(defprotocol Eid

                                  :db/index       true}})

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ## Utility Functions

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