     (add-watch conn  :rerender (fn [_ _ _ _] (request-render))))
   
   (doto history
-    (events/listen EventType/NAVIGATE (fn [e] (swap! state assoc :path (.-token e))))
+    (events/listen EventType/NAVIGATE
+      (fn [e]
+        (swap! state assoc :path (.-token e))))
     (.setUseFragment true)
     (.setPathPrefix "#")
     (.setEnabled true))

                    :on-click (fn [_] (d/transact! conn [[:db.fn/retractEntity (:db/id msg)]])) }
          (:message/text msg)]))))

(r/defc application [db]
  (let [path   (:path @state)
        index? (str/blank? path)]
    (s/html
      [:.window
        (header index?)
        (when-not (:first-load? @state)
          (list

  (set! (.-title js/document) (if title (str title " — " *title-suffix*) *title-suffix*)))

(defn go! [& path]
  (scroll-to-top)
  (.setToken history (apply str path)))


