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