在 Datomic 中查找最后一笔交易的实体 ID？

Question

我想知道如何在 Datomic 中找到被最新事务修改/创建/删除的实体的 ID。我该怎么做？

Answer 1

对于这种读取​​模式（基于时间），您需要使用Log API。请注意：

1. 可能有多个实体受到上一次交易的影响。
2. 实际上，事务本身由为该事务创建的实体表示，您可能希望从结果中过滤掉该实体。

这是一个示例实现：

(defn affected-entities
  "Given a Datomic connection, returns the set of entity ids that were affected
  by the last transaction (in e position), excluding the entity representing the 
  transaction itself."
  [conn]
  (let [db (d/db conn)]
    (->>
      (d/q '[:find [?e ...] :in ?log ?t1 ?t2 :where
             [(tx-ids ?log ?t1 ?t2) [?tx ...]] ;; binds the last tx 
             [(tx-data ?log ?tx) [[?e]]]]
        (d/log conn) (d/basis-t db) (d/next-t db))
      ;; filtering out the transaction entity
      (remove (fn [eid]
                (->> eid d/part (d/ident db) (= :db.part/tx))))
      set)))