Получение идентификатора вставленной сущности в datomic?

Question

После запуска транзакции в datomic для вставки значения, как я могу использовать возвращаемое значение транзакции, чтобы получить идентификаторы любых созданных сущностей?

Вот пример возвращаемого значения, которое я получаю после вставки:

#<promise$settable_future$reify__4841@7c92b2e9: {:db-before datomic.db.Db@62d0401f, :db-after datomic.db.Db@bba61dfc,
 :tx-data [#Datum{:e 13194139534331 :a 50 
:v #inst "2013-06-19T11:38:08.025-00:00" 
:tx 13194139534331 :added true} #Datum{:e 17592186045436 .....

Я могу видеть базовые данные... как я могу извлечь их значения?

Answer 1

Используйте d / resolve-tempid. Если бы вы заключили сделку с одним лицом, глядя на :tx-data будет работать, но если ваша транзакция содержит более одной сущности, вы не будете знать порядок, в котором они появляются в :tx-data,

То, что вы должны сделать, это дать временные идентификаторы вашим сущностям (до их совершения) с (d/tempid) или его буквальное представление #db/id[:db.part/user _negativeId_] а затем использовать d/resolve-tempid перейти от вашего временного идентификатора к реальному идентификатору, заданному базой данных. Код будет выглядеть примерно так:

(d/resolve-tempid (d/db conn) (:tempids tx) (d/tempid :db.part/user _negativeId_))

Полный пример кода см. В этой сути.

Answer 2

Ах, понял это.

Мне пришлось разорвать обещание Clojure, и тогда я смог найти те ценности, которые хотел:

 (:e (second (:tx-data @(transact! conn query))))

Answer 3

Написал быструю функцию, основанную на ответе a2ndrade. Называние не идеальное, и я, возможно, совершаю идиоматические ошибки; предложения очень приветствуются.

(ns my.datomic.util
  (:require [datomic.api :as d]))

(defn transact-and-get-id
  "Transact tx and return entity id."
  [conn tx]
  (let [tempid (:db/id tx)
        post-tx @(d/transact conn [tx])
        db (:db-after post-tx)
        entid (d/resolve-tempid db (:tempids post-tx) tempid)]
    entid))

Пример использования:

(def my-conn
  (d/connect (str "datomic:sql://datomic?jdbc:postgresql://"
                  "127.0.1:5432/datomic?user=datomic&password=somepw")

(defn thing-tx
  "Create transaction for new thing."
  [name]
  {:db/id (d/tempid :db.part/user)
   :thing/name name})

(transact-and-get-id my-conn (thing-tx "Bob")) ;; => 17592186045502

Answer 4

Библиотека Tupelo Datomic имеет функцию (td/eids tx-result) легко извлечь EID, созданные в транзакции. Например:

  ; Create Honey Rider and add her to the :people partition
  (let [tx-result   @(td/transact *conn* 
                        (td/new-entity :people ; <- partition is first arg (optional) to td/new-entity 
                          { :person/name "Honey Rider" :location "Caribbean" :weapon/type #{:weapon/knife} } ))
        [honey-eid]  (td/eids tx-result)  ; retrieve Honey Rider's EID from the seq (destructuring)
  ]