2015-10-20 12:53:09 +00:00
|
|
|
(ns app.utils.datomic
|
2015-10-20 01:33:56 +00:00
|
|
|
(:require [datomic.api :as d]))
|
|
|
|
|
|
|
|
|
|
(defn entity [conn id]
|
|
|
|
|
(d/entity (d/db conn) id))
|
|
|
|
|
|
|
|
|
|
(defn touch [conn results]
|
|
|
|
|
"takes 'entity ids' results from a query
|
|
|
|
|
e.g. '#{[272678883689461] [272678883689462] [272678883689459] [272678883689457]}'"
|
|
|
|
|
(let [e (partial entity conn)]
|
|
|
|
|
(map #(-> % first e d/touch) results)))
|
