Ottenere l'ID di un'entità inserita in datomic?

Question

Dopo aver eseguito una transazione in datomic per inserire un valore, come posso utilizzare il valore restituito della transazione per ottenere gli ID di qualsiasi entità che è stata creata?

Ecco un esempio del valore di ritorno ottengo dopo un inserimento:

#<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 ..... 

posso vedere i Riferimenti alla base ... come posso estrarre i loro valori?

Answer 1

Usa d/resolve-tempid. Se dovessi effettuare una transazione con una singola entità, l'operazione :tx-data funzionerebbe ma se la transazione contenesse più di un'entità, non si conoscerà l'ordine in cui compaiono in :tx-data.

Che cosa si dovrebbe fare è dare id temporanei ai tuoi entità (prima di transazioni) utilizzando (d/tempid) o la sua rappresentazione letterale #db/id[:db.part/user _negativeId_] e quindi utilizzare d/resolve-tempid di andare dal vostro ID temporaneo al reale id proposta dal database. Il codice dovrebbe essere simile:

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

Per un codice di esempio completo , vedere questo gist.

Answer 2

Ah, ho capito.

ho dovuto Deref la promessa Clojure, e poi sono stato in grado di tirare fuori i valori che volevo:

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

Answer 3

Ha scritto una funzione rapida basata sulla risposta di a2ndrade. La denominazione non è l'ideale e potrei commettere un passo falso idiomatico; i suggerimenti sono molto graditi

(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)) 

Esempio utilizzo:

(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

The Tupelo Datomic library ha una funzione (td/eids tx-result) per estrarre facilmente l'identità elettroniche create in una transazione. Ad esempio:

; 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) 
    ]