Improved thumbnails handling

This commit is contained in:
alonso.torres 2021-12-28 17:33:22 +01:00
parent 39c7bfb49f
commit d5886123d8
8 changed files with 124 additions and 97 deletions

View file

@ -186,7 +186,8 @@
(defn query
[el query]
(.querySelector el query))
(when (some? el)
(.querySelector el query)))
(defn get-client-position
[event]

View file

@ -44,11 +44,15 @@
(def ^:private cancel-idle-callback #(js/clearTimeout %))))
(defn schedule-on-idle
[func]
(let [sem (request-idle-callback #(func))]
(reify rx/IDisposable
(-dispose [_]
(cancel-idle-callback sem)))))
([ms func]
;; Schedule on idle after `ms` time
(schedule ms #(schedule-on-idle func)))
([func]
(let [sem (request-idle-callback #(func))]
(reify rx/IDisposable
(-dispose [_]
(cancel-idle-callback sem))))))
(def ^:private request-animation-frame
(or (and (exists? js/window) (.-requestAnimationFrame js/window))