Execute js every x seconds

do-every-x-seconds.cljs

(defn the-loop
  [pred-fn todo-fn count]
  (.setTimeout
    js/window
    (fn []
      (todo-fn count)
      (let [count (* 2 count)]
        (when-not (pred-fn count)
          (the-loop pred-fn todo-fn count))))
    3000))

;;(the-loop (fn [count] (> 0 )) (fn [count] (js/console.log "count: " count)) 5)