   [:ui/visibility-filter [[e a v]] (= v :done)]
   [:todo/done [[e a v]] (= e ?e)]
   =>
+  (insert! [?e :todo/visible :tag]))
+
+(defrule todo-is-visible-when-a-friday
+  [:exists [:today/is-friday]]
+  [:todo/title [[e a v]] (= ?e e)]
+  =>
+  (println "BOOM")
   (insert! [?e :todo/visible :tag]))
 
 ;(defrule show-active

  ([session a v e] (map #(entity session (:db/id %)) (qave session a v e))))

;(cljs.pprint/pprint (map #(entity session (:db/id %)) (qav session :todo/done :done)))
;(cljs.pprint/pprint (entities-where session :todo/visible :tag))


(def facts
  (apply concat
    [[(random-uuid) :today/is-friday :tag]]
    (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)))))
