Ermitteln der ID einer eingefügten Entität in Datomic?

Question

Nachdem ich eine Transaktion in Datomic ausführen, um einen Wert einzufügen, wie kann ich den Rückgabewert der Transaktion verwenden, um die IDs von Entitäten zu erhalten, die erstellt wurden? Hier

ist eine Probe des Rückgabewertes I nach einem Einsatz kommen:

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

Ich kann das zugrunde liegende datum sieht ... wie kann ich ihre Werte extrahiere?

Answer 1

Verwendung. Wenn Sie eine einzige Entität abwickeln würden, würde die Suche nach :tx-data funktionieren, aber wenn Ihre Transaktion mehr als eine Entität enthielt, dann würden Sie die Reihenfolge nicht kennen, in der sie in :tx-data erscheinen.

Was Sie tun sollten, ist nur vorübergehend IDs Ihre Entitäten geben (vor ihnen Transaktionen) unter Verwendung von entweder (d/tempid) oder seiner wörtlichen Darstellung #db/id[:db.part/user _negativeId_] und dann d/resolve-tempid verwenden von temporären ID in die reale ID von der Datenbank gegeben zu gehen. Der Code würde in etwa so aussehen:

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

Für ein vollständiges Codebeispiel finden Sie in diesen gist.

Answer 2

Ah, habe es herausgefunden.

Ich hatte das Clojure Versprechen, deref und dann die Werte ausreißen konnte ich mich wollte: d/resolve-tempid

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

Answer 3

Schrieb eine schnelle Funktion basierend auf a2ndrade's Antwort. Die Benennung ist nicht ideal und ich begehe vielleicht idiomatische Fauxpas; Vorschläge sind sehr willkommen.

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

Verwendungsbeispiel:

(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 hat eine Funktion (td/eids tx-result) leicht den Eid in einer Transaktion erstellt zu extrahieren. Zum Beispiel:

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