   (if-let [d (displayable? (get m k))]
     d
     "N/A"))
+
+(defn profile-column-width []
+  "col-md-3")
+
+(defn header-row [profiles owner]
+  (reify
+    om/IRenderState
+    (render-state [_ state]
+      (html
+       [:div.col-md-12
+        (for [profile profiles]
+          (let [category (get-in profile [:profile_data :category] "Intervention")
+                timestamp (format-time-inst  (:timestamp profile) "yyyy-MM-dd")]
+            [:div {:class (profile-column-width)}
+             [:h3.text-center category [:br ] [:small timestamp]]]))]))))
 
 (defn occupancy-row [profiles owner]
   (reify

       [:div.col-md-12
        (for [profile profiles]
          (let [profile_data (:profile_data profile)]
            [:div.col-md-4
             (bs/panel
              "Occupancy"
              [:dl

        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))))
