diff --git a/.clj-kondo/nubank/state-flow/nubank/state_flow.clj b/.clj-kondo/nubank/state-flow/nubank/state_flow.clj index 692dd9c..02332d2 100644 --- a/.clj-kondo/nubank/state-flow/nubank/state_flow.clj +++ b/.clj-kondo/nubank/state-flow/nubank/state_flow.clj @@ -1,4 +1,5 @@ (ns nubank.state-flow + (:refer-clojure :exclude [with-redefs]) (:require [clj-kondo.hooks-api :as hooks])) (defn- normalize-mlet-binds @@ -33,3 +34,25 @@ (do-let body)])] {:node (with-meta new-node (meta node)) :defined-by 'state-flow.cljtest/defflow})) + +#_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]} +(defn with-redefs + "This transformation hook converts + + (state-flow.labs.state/with-redefs [bindings & flows]) + + into + + (clojure.core/with-redefs bindings + (state-flow.core/flow \"state-flow.labs.state/with-redefs\" flows))" + [{:keys [node]}] + (let [[bindings & flows] (rest (:children node)) + new-node (hooks/list-node + [(hooks/token-node 'clojure.core/with-redefs) + bindings + (hooks/list-node + (concat [(hooks/token-node 'state-flow.api/flow) + (hooks/string-node "state-flow.labs.state/with-redefs")] + flows))])] + {:node (with-meta new-node (meta node)) + :defined-by 'state-flow.labs.state/with-redefs})) diff --git a/deps.edn b/deps.edn index eba3666..f0c1b76 100644 --- a/deps.edn +++ b/deps.edn @@ -1,7 +1,7 @@ {:paths ["src" "resources"] :deps {org.clojure/clojure {:mvn/version "1.11.3"} - com.github.parenthesin/components {:mvn/version "0.2.5" + com.github.parenthesin/components {:mvn/version "0.3.0" :exclusions [metosin/malli]} aero/aero {:mvn/version "1.1.6"} com.github.seancorfield/honeysql {:mvn/version "2.6.1147"}