                                        (= (get-in ui
                                                [:sessions session-id :highlighted])
                                           "true")
-                                       "lightgray"
-                                       "white"
+                                       "darkgray"
+                                       (if active
+                                         "lightgray"
+                                         "white")
                                        )
                                      }
 

(defn playback-session [& {:keys
                           [session-id]}]
  (go
   (let [
            init-state  (<! (neo4j "match (n:WebSession) where
                                   n.session_id={session_id}

    (render-state
     [this {:keys [highlight unhighlight]}]
      (let [
              session-id   (get-in data ["session_id"])
              browser      (get-in data ["browser"])
              start-time   (js/Date. (get-in data ["start_time"]))
              full-time    (/ (get-in data ["time"]) 1000)
              active       (= session-id current-session)
            ]
       (dom/div nil

