 ;; Queries
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defquery find-all-done []
-  [:all [[e a v]] (= e ?e) (= a ?a) (= v ?v)]
+(def-tuple-query find-all-done []
+  [[?e ?a ?v]]
   [:test (= (attr-ns ?a) "todo")])
 
-(defquery find-done-count []
+(def-tuple-query find-done-count []
   [?count <- (acc/count) :from [:todo/done]])
 
 (def-tuple-session todos 'todomvc.rules)

                                  qa
                                  clara-tups->maps]]
            [clara.rules.accumulators :as acc]
            [todomvc.tuplerules :refer-macros [def-tuple-session def-tuple-rule]]))

(defn todo-tx [id title done]
  (merge

(ns todomvc.rules
  (:require [clara.rules :refer [insert insert-all insert! insert-all!
                                 insert-unconditional!
                                 insert-all-unconditional!
