fix: scroll to element

src/main/frontend/util.cljs

@@ -24,6 +24,9 @@
   (-pr-writer [sym writer _]
     (-write writer (str "\"" (.toString sym) "\""))))
 
+;; doms
+(defonce html-node js/document.documentElement)
+
 ;; envs
 (defn mac?
   []
@@ -328,7 +331,7 @@
   (when-not (re-find #"^/\d+$" elem-id)
     (when elem-id
       (when-let [elem (gdom/getElement elem-id)]
-        (.scroll (gdom/getElement "main-content")
+        (.scroll html-node
                  #js {:top (let [top (element-top elem 0)]
                              (if (> top 68)
                                (- top 68)
@@ -337,10 +340,9 @@
 
 (defn scroll-to
   [pos]
-  (when-let [main-content (gdom/getElement "main-content")]
-    (.scroll main-content
+  (.scroll html-node
            #js {:top      pos
-                  :behavior "smooth"})))
+                :behavior "smooth"}))
 
 (defn scroll-to-top
   []