         first
         :profiles))
 
+(defn format-time-inst [t format]
+  (if (nil? t)
+    "Undated"
+    (let [date (tc/from-date t)]
+      (tf/unparse (tf/formatter format) date))))
+
 (defn displayable? [d]
   (and d
        (not (re-find #"\w" d))))

  (if-let [d (displayable? (get m k))]
    d
    "N/A"))

(defn occupancy-row [profiles owner]
  (reify

       [:div.col-md-12
        (for [profile profiles]
          (let [profile_data (:profile_data profile)]
            [:div {:class (profile-column-width)}
             (bs/panel
              "Occupancy"
              [:dl
