         :headers {"Accept" "application/edn"}
         :response-format :text}))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; History loop - this drives the fetches and clear downs
 (defn history-loop [history-channel data]
   (go-loop []
     (let [nav-event (<! history-channel)

        (println "Setting selected project to: " projects)
        (om/update! data [:projects :selected] projects)
        (fetch-properties projects data))
      
      ;; Update the new active components
      (om/update! data :active-components (-> nav-event :args :ids)))
    (recur)))

(defn property-loop [property-chan data]
  (go-loop []
    (let [property-details (<! property-chan)]
      (om/update! data [:property-details :data] property-details))))

(defn selected-range-change
  [selected selection-key {{ids :ids search :search} :args}]


(defmethod properties-table-html :has-data [properties owner]
  (let [table-id "properties-table"
        history  (om/get-shared owner :history)]
    [:div.col-md-12
     [:table {:className "table table-hover"}
      [:thead
