From cae6553a731d27b470bb62437c44561e291ac797 Mon Sep 17 00:00:00 2001 From: Tienson Qin Date: Fri, 16 Apr 2021 00:09:06 +0800 Subject: [PATCH] chore: remove batch fn --- src/main/frontend/modules/outliner/file.cljs | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/src/main/frontend/modules/outliner/file.cljs b/src/main/frontend/modules/outliner/file.cljs index d723d627c..723504711 100644 --- a/src/main/frontend/modules/outliner/file.cljs +++ b/src/main/frontend/modules/outliner/file.cljs @@ -32,19 +32,3 @@ (async/put! write-chan page-db-id)) (util/batch write-chan batch-write-interval write-files!) - -(defn batch [in max-time handler] - (async/go-loop [buf [] t (async/timeout max-time)] - (let [[v p] (async/alts! [in t])] - (cond - (= p t) - (do - (handler buf) - (recur [] (async/timeout max-time))) - - (nil? v) ; stop - (when (seq buf) - (handler buf)) - - :else - (recur (conj buf v) t)))))