   Object
   (render [this]
           #_(println "Render Person" (-> this om/props :fname))
-          (let [{:keys [fname lname] :as props} (om/props this)]
+          (let [{:keys [fname lname] :as props} (om/props this)
+                style {:style {:border "1px" :borderStyle "solid"}}]
             (html
-             [:li
-              [:label (str fname " " lname)]]))))
+             [:tr
+              [:td style fname]
+              [:td style lname]]))))
 
 (def threep (om/factory ThreeP {:keyfn :fname}))
 

          #_(println "Render ThreePListView" (-> this om/path first))
          (let [list (om/props this)]
            (html
             [:ul
              (map threep list)]))))

(def threep-list-view (om/factory ThreePListView))


       (list-view one)
       [:h2 "List B"]
       (list-view two)
       [:h2 "Table ThreeP"]
       ;; TODO transact from 'outside'
       (threep-list-view three)
       [:button
