 
 ;(defrecord Showing [key])
 ;
-(defn showing-tx [id kw]
+(defn visibility-filter-tx [id kw]
   {:db/id                id
    :ui/visibility-filter kw})
 

;  []
;  [?showing <- Showing])
;
;(defquery find-visible-todos
;  []
;  [?visible-todos <- VisibleTodos])
;
;(defquery find-todos
;  []
;  [?todos <- (acc/all) :from [Todo]])
;
;(defquery find-todo
;  [:?id])
;  [?todo <- Todo (= id ?id)])
;
(defn entity-tuples->entity-map
  "Takes list of tuples for a single entity and returns single map"
  [tups]
  (reduce
    (fn [acc [e a v]]

(println facts)

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

(cljs.pprint/pprint (find-by-attribute session :ui/visibility-filter))
