   =>
   (println "Mark done via toggle complete:" ?e)
   (insert-unconditional! [?e :todo/status :done]))
- ; and todos/status :done count === num of todos
+; and todos/status :done count === num of todos
 
 (defrule remove-toggle
   [?toggle <- :ui/toggle-complete [[e a v]] (= v true)]

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


(defsession todos 'todomvc.rules

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

;(defrecord VisibleTodos [todos])
;
;(defrecord ToggleComplete [])
;
(defn toggle-tx [id bool]
  {:db/id              id
   :ui/toggle-complete bool})

;(defrule show-all
