14 lines
386 B
Clojure
14 lines
386 B
Clojure
(ns tapp.utils.datomic
|
|
(:require [datomic.api :as d]))
|
|
|
|
(alter-meta! *ns* assoc ::load false)
|
|
|
|
(defn entity [conn id]
|
|
(d/entity (d/db conn) id))
|
|
|
|
(defn touch
|
|
"takes 'entity ids' results from a query
|
|
e.g. '#{[272678883689461] [272678883689462] [272678883689459] [272678883689457]}'"
|
|
[conn results]
|
|
(let [e (partial entity conn)]
|
|
(map #(-> % first e d/touch) results)))
|