 
 (def all-done (query session find-all-done))
 
-(defn clara-tups->maps
-  [tups]
-  (->> (group-by :?e tups)
-    (mapv (fn [[id ent]]
-            (into {:db/id id}
-              (reduce (fn [m tup] (assoc m (:?a tup) (:?v tup)))
-                {} ent))))))
-
-
-(defn attr-ns [attr]
-  (subs (first (clojure.string/split attr "/")) 1))
+
 
 (cljs.pprint/pprint (clara-tups->maps all-done))
 

(println facts)

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

(def facts
  (apply concat
    (map->tuple (toggle-tx (random-uuid) true))
    (map->tuple (visibility-filter-tx (random-uuid) :all))
    (mapv map->tuple (repeatedly 5 #(todo-tx (random-uuid) "TODO" nil)))))


