Merge pull request #3414 from penpot/azazeln28-improve-layers-autoscroll

  Improve layers autoscroll
This commit is contained in:
Alejandro 2023-07-13 13:14:51 +02:00 committed by GitHub
commit 529ef75058
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
3 changed files with 46 additions and 9 deletions

View file

@ -143,9 +143,16 @@
(when (some? node)
(.-parentElement ^js node)))
(defn get-parent-at
[^js node count]
(when (some? node)
(loop [current node current-count count]
(if (or (nil? current) (= current-count 0))
current
(recur (.-parentElement current) (dec current-count))))))
(defn get-parent-with-selector
[^js node selector]
(loop [current node]
(if (or (nil? current) (.matches current selector))
current
@ -180,6 +187,22 @@
:scroll-top (.-scrollTop event)
:scroll-width (.-scrollWidth event)}))
(defn get-scroll-height-ratio
[^js node]
(when (some? node)
(/ (.-scrollHeight node) (.-clientHeight node))))
(defn get-scroll-distance
[^js node scroll-node]
(when (and (some? node) (some? scroll-node))
(abs (- (.-scrollTop scroll-node) (.-offsetTop node)))))
(defn get-scroll-distance-ratio
[^js node scroll-node]
(let [distance (get-scroll-distance node scroll-node)
height (.-clientHeight scroll-node)]
(/ distance height)))
(def get-target-val (comp get-value get-target))
(def get-target-scroll (comp get-scroll-position get-target))
@ -550,6 +573,13 @@
(when (some? element)
(.scrollIntoView element options))))
;; NOTE: scrollIntoViewIfNeeded is not supported in Firefox
;; because it is not a standard API. BTW it only supports
;; centerIfNeeded as boolean option.
;; @see https://developer.mozilla.org/en-US/docs/Web/API/Element/scrollIntoViewIfNeeded
;; @see https://www.w3.org/Bugs/Public/show_bug.cgi?id=17152
;; @see https://github.com/w3c/csswg-drafts/pull/1805
;; @see https://github.com/w3c/csswg-drafts/pull/5677
(defn scroll-into-view-if-needed!
([^js element]
(scroll-into-view-if-needed! element false))