Entity Summary

entity-summary.clj

(require '[datomic.api :as d])
(defn entity-summary
  "Returns a map with

     :eavt   vector of all eavt history datoms with eid
     :log    vector of all log entries containing those datoms"
  [conn eid]
  (let [log (d/log conn)
        db (d/db conn)
        hist (d/history db)
        eavt (into [] (d/datoms hist :eavt eid))
        txids (into (sorted-set) (map :tx eavt))]
    {:eavt eavt
     :log (mapv (fn [txid]
                  (first (d/tx-range log txid (inc txid))))
                txids)}))