core.cljc

(e/def !history (e/client (history/new-goog-history)))
(e/def path (e/client (new (m/relieve {} (history/path> !history)))))

#?(:cljs
   (defn navigate! [^js !history href] (.setToken !history href)))

;; then to navigate

(navigate! !history "/some-page")

history.cljc

(ns app.history
  #?(:cljs
     (:import [goog.history Html5History EventType]))
  (:require
   #?(:cljs goog.events)
   [hyperfiddle.electric :as e]
   [hyperfiddle.electric-dom2 :as dom]
   [missionary.core :as m]))

#?(:cljs
   (defn new-goog-history []
     (doto (Html5History. js/window)
       (.setUseFragment true)
       (.setPathPrefix (str js/window.location.protocol
                            "//"
                            js/window.location.host
                            "/app/"))
       (.setEnabled true))))

#?(:cljs
   (defn path> [^js h]
     (m/observe (fn mount [!]
                  (let [k (goog.events/listen h EventType.NAVIGATE (fn [^js e] (! (.-token e))))]
                    (! (.getToken h))
                    (fn unmount []
                      (goog.events/unlistenByKey k)))))))