Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-13 10:38:13 -05:00
Code Issues Activity

Add better impl for util timers.

Browse source
This commit is contained in:
Andrey Antukh 2017-02-26 20:46:19 +01:00
parent 3bb991da0b
commit 653e0b5669
No known key found for this signature in database
GPG key ID: 4DFEBCB8316A8B95
1 changed files with 13 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
frontend/src/uxbox/util/timers.cljs
View file

@ -4,8 +4,19 @@
;; ;;
;; Copyright (c) 2016-2017 Andrey Antukh <niwi@niwi.nz> ;; Copyright (c) 2016-2017 Andrey Antukh <niwi@niwi.nz>
(ns uxbox.util.timers) (ns uxbox.util.timers
(:require [beicon.core :as rx]))
(defn schedule (defn schedule
[ms func] [ms func]
(js/setTimeout func ms)) (let [sem (js/setTimeout #(func) ms)]
(reify rx/ICancellable
(-cancel [_]
(js/clearTimeout sem)))))
(defn interval
[ms func]
(let [sem (js/setInterval #(func) ms)]
(reify rx/ICancellable
(-cancel [_]
(js/clearInterval sem)))))