 
       (when (and (not= programmes old-programmes)
                  programmes)
-        ;; (println "Setting selected programme to: " programmes)
+        (log "Setting selected programme to: " programmes)
         (om/update! data [:programmes :selected] programmes)
         (om/update! data [:projects :programme_id] programmes)
         (fetch-projects programmes data))
 
       (when (and (not= projects old-projects)
                  projects)
-        ;; (println "Setting selected project to: " projects)
+        (log "Setting selected project to: " projects)
         (om/update! data [:projects :selected] projects)
         (om/update! data [:properties :project_id] projects)
         (fetch-properties projects data))
 
       (when (and (not= properties old-properties)
                  properties)
-        ;; (println "Setting property details to: " properties)
+        (log "Setting property details to: " properties)
         (om/update! data [:properties :selected] properties))
 
       (when sensors

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

     [kixi.hecuba.model :refer (app-model)]
     [sablono.core :as html :refer-macros [html]]))

(when (or (not agent/IE)
          (agent/isVersionOrHigher 9))
  (enable-console-print!))

(defn log [& msgs]
  (when (or (not agent/IE)
            (agent/isVersionOrHigher 9))
    (apply println msgs)))

;; our banner is 50px so we need to tweak the scrolling
(defn fixed-scroll-to-element [element]
