mount/test/clj/tapp/utils/datomic.clj

15 lines
386 B
Clojure
Raw Normal View History

2015-12-16 23:16:17 +00:00
(ns tapp.utils.datomic
2015-12-09 03:07:26 +00:00
(:require [datomic.api :as d]))
2015-12-16 23:16:17 +00:00
(alter-meta! *ns* assoc ::load false)
2015-12-09 03:07:26 +00:00
(defn entity [conn id]
(d/entity (d/db conn) id))
(defn touch
2015-12-09 03:07:26 +00:00
"takes 'entity ids' results from a query
e.g. '#{[272678883689461] [272678883689462] [272678883689459] [272678883689457]}'"
[conn results]
2015-12-09 03:07:26 +00:00
(let [e (partial entity conn)]
(map #(-> % first e d/touch) results)))