   (om/update! data [:properties :fetching] :fetching)
   (GET (str "/4/projects/" project-id "/properties/")
        {:handler  (fn [x]
-                    ;; (println "Fetching properties for project: " project-id)
+                    (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]}]

  (om/update! data [:programmes :fetching] :fetching)
  (GET (str "/4/programmes/")
       {:handler  (fn [x]
                    ;; (println "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]}]

     [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]
