                (map threep list)]]))))
 
 (def threep-list-view (om/factory ThreePListView))
-
-(defui ListView
-  Object
-  (render [this]
-          #_(println "Render ListView" (-> this om/path first))
-          (let [list (om/props this)]
-            (html
-             [:ul
-              (map person list)]))))
-
-(def list-view (om/factory ListView))
-
 
 (defn add-person! [widget {:keys [id fname lname] :as prm}]
   (println "prm" prm)

                 ]} (om/props this)]
     (html
      [:div
       ;; [:h2 "List A"]
       ;; (list-view one)
       ;; [:h2 "List B"]
       ;; (list-view two)
       [:h2 "Table ThreeP"]
       ;; TODO transact from 'outside'
       (threep-list-view three)

  static om/IQuery
  (query
   [this]
   (let [qthreep (om/get-query ThreeP) qtvals (om/get-query TCols)]
     `[{:list/three ~qthreep} {:list/tvals ~qtvals}]))

  Object
  (render
