with-redefs-async.cljs

(defmacro with-redefs-async
  [bindings & body]
  (let [names (take-nth 2 bindings)
             vals (take-nth 2 (drop 1 bindings))
             orig-val-syms (map (comp gensym #(str % "-orig-val__") name) names)
             temp-val-syms (map (comp gensym #(str % "-temp-val__") name) names)
             binds (map vector names temp-val-syms)
             resets (reverse (map vector names orig-val-syms))
             bind-value (fn [[k v]] (list 'set! k v))]
    `(let [~@(interleave orig-val-syms names)
           ~@(interleave temp-val-syms vals)]
       ~@(map bind-value binds)
       (promesa.core/-> (promesa.core/do! ~@body)
                        (promesa.core/finally
                          (fn []
                            ~@(map bind-value resets)))))))