other fixes

2021-12-19 13:05:23 -08:00
parent be31c7164b
commit 27ae8a15b7
7 changed files with 269 additions and 165 deletions
--- a/src/cljc/auto_ap/utils.cljc
+++ b/src/cljc/auto_ap/utils.cljc
@@ -69,3 +69,13 @@
      (last vs))))

 (def default-pagination-size 20)
+
+(defn allow-once [f]
+  (let [in-progress? (atom false)]
+    (fn []
+      (when (= false @in-progress?)
+        (try 
+          (reset! in-progress? true)
+          (f)
+          (finally
+            (reset! in-progress? false)))))))