           [:h2 "Projects"]
           [:ul {:class "breadcrumb"}
            [:li [:a
-                 {:onClick (fn projects-div-history-change
-                             [_ _]
-                             (history/update-token-ids! history :programmes nil)
-                             (fixed-scroll-to-element "programmes-div"))}
+                 {:onClick (back-to-programmes history)}
                  (title-for programmes)]]]
           (om/build projects-table projects {:opts {:histkey :projects}})])))))
 

          ;; (ajax (tap-history) tables [:properties] {:template      "/4/projects/:projects/properties/"
          ;;                                           :content-type "application/json"
          ;;                                           :selection-key :properties})
          (ajax (tap-history) tables [:devices] {:template      "/4/entities/:properties/devices/"
                                                 :content-type  "application/json"
                                                 :selection-key :devices})
          (ajax (tap-history) tables [:sensors] {:template "/4/entities/:properties/devices/:devices"
                                                 :content-type "application/json"
                                                 :selection-key :sensors} (:chart data))

        (let [history     (om/get-shared owner :history)
              m           (mult (history/set-chan! history (chan)))
              tap-history #(tap m (chan))]

          ;; handle navigation changes
          (history-loop (tap-history) tables)
          
          ;; (ajax (tap-history) tables [:programmes] {:template      "/4/programmes/"
          ;;                                           :content-type  "application/edn"
