mirror of
https://github.com/penpot/penpot.git
synced 2025-05-09 21:56:39 +02:00
63 lines
1.5 KiB
Clojure
63 lines
1.5 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) UXBOX Labs SL
|
|
|
|
(ns app.util.timers
|
|
(:require
|
|
[beicon.core :as rx]
|
|
[promesa.core :as p]))
|
|
|
|
(defn schedule
|
|
([func]
|
|
(schedule 0 func))
|
|
([ms func]
|
|
(let [sem (js/setTimeout #(func) ms)]
|
|
(reify rx/IDisposable
|
|
(-dispose [_]
|
|
(js/clearTimeout sem))))))
|
|
|
|
(defn dispose!
|
|
[v]
|
|
(rx/dispose! v))
|
|
|
|
(defn asap
|
|
[f]
|
|
(-> (p/resolved nil)
|
|
(p/then f)))
|
|
|
|
(defn interval
|
|
[ms func]
|
|
(let [sem (js/setInterval #(func) ms)]
|
|
(reify rx/IDisposable
|
|
(-dispose [_]
|
|
(js/clearInterval sem)))))
|
|
|
|
(if (and (exists? js/window) (.-requestIdleCallback js/window))
|
|
(do
|
|
(def ^:private request-idle-callback #(js/requestIdleCallback %))
|
|
(def ^:private cancel-idle-callback #(js/cancelIdleCallback %)))
|
|
(do
|
|
(def ^:private request-idle-callback #(js/setTimeout % 100))
|
|
(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)))))
|
|
|
|
(def ^:private request-animation-frame
|
|
(or (and (exists? js/window) (.-requestAnimationFrame js/window))
|
|
#(js/setTimeout % 16)))
|
|
|
|
(defn raf
|
|
[f]
|
|
(request-animation-frame f))
|
|
|
|
(defn idle-then-raf
|
|
[f]
|
|
(schedule-on-idle #(raf f)))
|
|
|