maxweber

(require '[datomic.api :as d]
         '[clojure.string :as str])

(defn normalize-query
  "Turns a vector formatted Datomic datalog query into a map formatted
   one."
  [query]
  (let [pairs (partition-by keyword? query)]
    (assert (even? (count pairs)))
    (into