 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; projects
-(defn slugify-project "Create a slug for projects in the UI"
-  [project]
-  (assoc project :slug (:name project)))
-
 (defmulti projects-table-html (fn [projects owner] (:fetching projects)))
 (defmethod projects-table-html :fetching [projects owner]
   (fetching-row projects))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; properties
(defn slugify-property
  "Create a slug for a property in the UI"
  [property]
  (assoc property :slug (apply str (interpose ", " (->> (vector (:property_code property) (:address_street_two property))
                                                        (keep identity)
                                                        (remove empty?))))))

(defmulti properties-table-html (fn [properties owner] (:fetching properties)))
(defmethod properties-table-html :fetching [properties owner]
  (fetching-row properties))


(defn projects-div [data owner]
  (reify
    om/IRender
    (render [_]
      (let [{:keys [programmes projects active-components]} data
