 
 (cljs.pprint/pprint (clara-tups->maps all-done))
 
+(cljs.pprint/pprint (entity session (:db/id (first (clara-tups->maps all-done)))))
+
 
 (println "Done count: " (query session find-done-count))
 


@(def session (fire-rules (insert-all todos facts)))

@(def all-done (query session find-all-done))

(defn clara-tups->maps
  [tups]

;  [?todos <- (acc/all) :from [Todo (= done true)]])
;
(defquery find-all-done []
  [:all [[e a v]] (= e ?e) (= a ?a) (= v ?v)]
  [:test (= (attr-ns ?a) "todo")])


;(defquery find-done-count
;  []
