                   a      v}))
     {} tups))
 
+(defquery find-by-attribute-
+  [:?a]
+  [:all [[e a v]] (= e ?e) (= a ?a) (= v ?v)])
+
+(defn find-by-attribute [session kw]
+  (clara-tups->maps
+    (query session find-by-attribute- :?a kw)))
+;(defquery find-visible-todos
+;  []
+;  [?visible-todos <- VisibleTodos])
+;
+;(defquery find-todos
+;  []
+;  [?todos <- (acc/all) :from [Todo]])
+;
+;(defquery find-todo
+;  [:?id])
+;  [?todo <- Todo (= id ?id)])
+;
 (defquery entity- [:?eid]
   [?entity <- :all [[e a v]] (= e ?eid)])
 

(println facts)

(cljs.pprint/pprint (entity session (:db/id (first (clara-tups->maps all-done)))))


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



(cljs.pprint/pprint (clara-tups->maps all-done))

