Look up a transaction by its uuid (will match uuid in logs)

lookup-tx-by-uuid.clj

(require '[datomic.api :as d])

(defn tx-maps [log start]
    (into [] (map #(into {} %) (d/tx-range log start nil))))

(defn txid-match? [uuid]
  (fn [tx-map]
    (= uuid (:id tx-map))))

(defn lookup-tx [log uuid-val]
  (let [txes (tx-maps log nil)
    (filter (txid-match? uuid-val) txes)))
  
(comment
  (d/connect "YOUR-URI-HERE")
  (lookup-tx (d/log conn) #uuid "54a6c755-4624-4aa3-807f-16e99d8dd199")
)