implement chain

verberktstan · Dec 1, 2024 · 1092490 · 1092490
1 parent 97e4e36
commit 1092490
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src/swark/core.cljc b/src/swark/core.cljc
@@ -107,6 +107,17 @@
         result {:result result :retries-left retries-left :n n}
         :else (recur (dec retries-left))))))
 
+(letfn [(chain-effect [f effect]
+          (comp f #(doto % effect)))]
+  (defn chain [f & effects]
+    (-> f ifn? assert)
+    (or
+      (some->> effects
+        (filter fn?)
+        seq
+        (reduce chain-effect f))
+      f)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Regarding strings