spack-tacular.clj

TypeResolver
  (resolve-types [_]))

(extend-protocol TypeResolver
  clojure.lang.Keyword
  (resolve-types [type]
    (when-let [spec (spark.spec-tacular/get-spec type)]
      (resolve-types spec)))
  clojure.lang.Var
  (resolve-types [var]
    (let [meta (meta var)
          type (or (:spec-tacular/spec meta)
                   (:spec-tacular/union meta))]
      (when type
        (resolve-types type))))
  spark.spec_tacular.spec.Spec
  (resolve-types [spec]
    #{(:name spec)})
  spark.spec_tacular.spec.UnionSpec
  (resolve-types [spec]
    (reduce into #{} (map resolve-types (:elements spec)))))

(defn load-datoms
  [db type]
  (let [types (resolve-types type)]
    (when (seq types)
      (->> (d/q '[:find ?datom
                  :in $ [?types ...] ?attr
                  :where [?datom ?attr ?types]]
                db types spark.spec-tacular.datomic/spark-type-attr)
           (reduce concat)
           (mapv (comp d/touch (partial d/entity db)))))))