   (om/update! data [:programmes :fetching] :fetching)
   (GET (str "/4/programmes/")
        {:handler  (fn [x]
-                    ;; (println "Fetching programmes.")
+                    (log "Fetching programmes.")
                     (om/update! data [:programmes :data] (mapv slugify-programme x))
                     (om/update! data [:programmes :fetching] (if (empty? x) :no-data :has-data)))
         :error-handler (fn [{:keys [status status-text]}]

          old-programmes (:programmes old-nav)
          old-projects (:projects old-nav)
          old-properties (:properties old-nav)]
      ;; (println "Old Programmes: " old-programmes " Old Projects: " old-projects " Old Properties: " old-properties)
      ;; (println "New Programmes: " programmes " New Projects: " projects " New Properties: " properties)

      ;; Clear down
      (when (or (nil? programmes)
                (empty? (-> @data :programmes :data)))
        ;; (println "Clearing projects.")
        (om/update! data [:programmes :selected] nil)
        (om/update! data [:projects :data] [])
        (om/update! data [:projects :programme_id] nil)
        (fetch-programmes data))

      (when-not projects
        ;; (println "Clearing properties.")
        (om/update! data [:projects :selected] nil)
        (om/update! data [:properties :data] [])
        (om/update! data [:properties :project_id] nil))

      (when-not properties
        ;; (println "Clearing devices, sensors and measurements.")
        (om/update! data [:properties :selected] nil)
        (om/update! data [:property-details :data] {})
        (om/update! data [:property-details :property_id] nil)

  (om/update! data [:properties :fetching] :fetching)
  (GET (str "/4/projects/" project-id "/properties/")
       {:handler  (fn [x]
                    (log "Fetching properties for project: " project-id)
                    (om/update! data [:properties :data] (mapv slugify-property x))
                    (om/update! data [:properties :fetching] (if (empty? x) :no-data :has-data)))
        :error-handler (fn [{:keys [status status-text]}]
