 ;; test-area
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (def-tuple-rule subs-footer-controls
-  [:exists [:sub/footer]]
+  [:exists [_ :sub [:footer]]]
   [[_ :done-count ?done-count]]
   [[_ :active-count ?active-count]]
   =>
-  (insert-all! [[-1 :lens/footer {:active-count ?active-count
-                                  :done-count ?done-count}]]))
+  (insert! [:lens [:footer] {:active-count ?active-count :done-count ?done-count}]))
 
 (def-tuple-rule subs-task-list
   [:exists [:sub/task-list]]

(query (:session @state) find-all-facts)
(def my-sub (subscribe [[:task-list] [:footer]]))
(subscribe [[:task-list] [:footer]])
store
(:session @state)
(:subscriptions @state)

; Repeatable ;;;;
(def next-session (util/insert (:session @state)

      (do
        (println "Found existing subscription" existing)
        existing)
      (let [lens (lens store (vector path))
            inserted-sub (swap! state update :session
                           (fn [old] (-> old (util/insert [(util/guid) :sub path]))))
            ;_ (println "Facts after register" inserted-sub)];;(query inserted-sub find-all-facts)
            _ (println "inserted sub" inserted-sub)]
        (println "Registering new" path)
