Datomic helpers

datomic.clj

(ns com.larrystaton.datomic
  (:require [datomic.api :as d]))

;; (find-entity-id :person/name "Larry Staton" (d/db conn))
(defn find-entity-id
  "Query Datomic for the entity ID with ATTR and VAL in DBVAL"
  [attr val dbval]
  (ffirst
    (d/q '[:find ?e
           :in $ ?a ?v
           :where [?e ?a ?v _]]
         dbval
         attr val)))

;; (reveal 12345678909876 (d/db conn))
(defn reveal
  "Touch the ENTITY-ID in DBVAL to reveal the attributes and values"
  [entity-id dbval]
  (d/touch (d/entity dbval entity-id)))