refactor(editor): add nearest-scrollable-container util fn

This commit is contained in:
Andelf
2023-05-16 12:53:35 +08:00
committed by Tienson Qin
parent 5a0ceea018
commit 4eccfdfdad
3 changed files with 13 additions and 4 deletions

View File

@@ -2226,11 +2226,12 @@
(state/set-edit-content! (state/get-edit-input-id)
(str s1 insertion))
;; HACK: save scroll-pos of current pos, then add trailing content
(let [scroll-pos (.-scrollTop (gdom/getElement "main-content-container"))]
(let [scroll-container (util/nearest-scrollable-container input)
scroll-pos (.-scrollTop scroll-container)]
(state/set-edit-content! (state/get-edit-input-id)
(str s1 insertion s2))
(cursor/move-cursor-to input (+ selected-start (count insertion)))
(set! (.-scrollTop (gdom/getElement "main-content-container")) scroll-pos))))))
(set! (.-scrollTop scroll-container) scroll-pos))))))
(defn- keydown-new-line
"Insert newline to current cursor position"