fix: container scrolling on sidebar editing

pull/6854/head
Konstantinos Kaloutas 2022-09-28 16:47:57 +03:00 committed by Tienson Qin
parent ba91c9615b
commit aa85b7bf18
1 changed files with 9 additions and 4 deletions

View File

@ -40,8 +40,13 @@
(-write writer (str "\"" (.toString sym) "\""))))) (-write writer (str "\"" (.toString sym) "\"")))))
#?(:cljs (defonce ^js node-path utils/nodePath)) #?(:cljs (defonce ^js node-path utils/nodePath))
#?(:cljs (defn app-scroll-container-node [] #?(:cljs (defn app-scroll-container-node
(gdom/getElement "main-content-container"))) ([]
(gdom/getElement "main-content-container"))
([el]
(if (.closest el "#main-content-container")
(app-scroll-container-node)
(gdom/getElementByClass "sidebar-item-list")))))
#?(:cljs #?(:cljs
(defn safe-re-find (defn safe-re-find
@ -1300,7 +1305,7 @@
header-height (-> (gdom/getElementByClass "cp__header") header-height (-> (gdom/getElementByClass "cp__header")
.-clientHeight) .-clientHeight)
main-node (app-scroll-container-node) main-node (app-scroll-container-node el)
scroll-top (.-scrollTop main-node) scroll-top (.-scrollTop main-node)
current-pos (get-selection-start el) current-pos (get-selection-start el)
@ -1326,7 +1331,7 @@
(< cursor-y header-height) (< cursor-y header-height)
(let [_ (.scrollIntoView el true) (let [_ (.scrollIntoView el true)
main-node (app-scroll-container-node) main-node (app-scroll-container-node el)
scroll-top (.-scrollTop main-node)] scroll-top (.-scrollTop main-node)]
(set! (.-scrollTop main-node) (- scroll-top (/ vw-height 4)))) (set! (.-scrollTop main-node) (- scroll-top (/ vw-height 4))))