         ;; TODO sort out duplication here, wrap (on/build table ...) calls probably.
         ;;
         (let [{:keys [programmes projects properties devices sensors sensor-select]} tables]
-          (println ">>>> Sensors: " sensors)
           ;; (println "Tables: " tables)
           (html [:div
                  ;;(om/build clear-tables data)
-                 [:h1 {:id "programmes"} (:title data)]
-                 (om/build programmes-table programmes)
-
-                 [:h2 {:id "projects"} "Projects"]
-                 [:ul {:class "breadcrumb"}
-                  [:li (title-for programmes)]]
-                 (om/build table projects {:opts {:histkey :projects}})
+                 ;; [:div {:id "programmes"}
+                 ;;  [:h1 (:title data)]
+                 ;;  (om/build programmes-table programmes)]
+                 (om/build programmes-div programmes)
+
+                 ;; [:div {:id "projects"}
+                 ;;  [:h2 "Projects"]
+                 ;;  [:ul {:class "breadcrumb"}
+                 ;;   [:li (title-for programmes)]]
+                 ;;  (om/build table projects {:opts {:histkey :projects}})]
+                 (om/build projects-div tables)
 
                  [:h2  {:id "properties"} "Properties"]
                  [:ul {:class "breadcrumb"}

  (let [[type _] (str/split selected #"-")]
    type))

(defn programmes-table [cursor owner]
  (reify
    om/IRender

                                                       selection-key
                                                       template
                                                       nav-event)]
      (doseq [a active-components]
        (om/update! data (vector a :active) true))
      
      ;; (println "Nav Event: " nav-event)
      ;; (println "To Clear: " to-clear)
      ;; (println "URI: " uri " for path " path " selection-key " selection-key)
      (doseq [c to-clear]
        (om/update! data (vector c :active) false)
        (om/update! data (vector c :data) [])
        (om/update! data (vector c :selected) nil))
      
