Datomic REPL helpers

datomic-repl.clj

;; Makes it easier to work from the REPL
;;
;; Don't use these from production functions

(defonce !c (atom nil))

(defn rdc []
  (let [c @!c]
    (assert c "Database not connected")
    c))

(defn rdb
  "Repl Datomic Db"
  [] (->> (rdc) d/db))

(defn rdq
  "Repl Datomic Query"
  [x & more]
  (apply d/q x (rdb) more))

(defn rdp
  "Repl Datomic Pretty-Print"
  [v]
  (->> v (into {}) pprint))

(defn rde
  "Repl Datomic Entity"
  [& args]
  (when-let [e (apply d/entity (rdb) args)]
    (d/touch e)))

(defn rdi
  "Repl Datomic entity Id"
  [& args] (apply d/entid (rdb) args))

(defn rdu
  "Repl Datomic pull"
  ([entid]
   (d/pull (rdb) '[*] entid))
  ([pattern entid]
   (d/pull (rdb) pattern entid)))

(defn rdoit!
  ([] (rdoit! *1))
  ([txs]
   @(d/transact-async (rdc) txs)))