missionary promise interop with abort

promise.clj

(ns promise)

(defmacro with-abort "
Returns a task evaluating `body` with symbol `a` bound to a fresh `AbortSignal` that is aborted when the task is
cancelled. The task completes with the result of returned promise.
" [a & body]
  `(fn [s# f#]
     (let [c# (js/AbortController.)
           ~a (.-signal c#)]
       (try (.then (do ~@body) s# f#)
            (catch :default e# (f# e#)))
       #(.abort c#))))

usage.cljs

(ns usage
  (:require-macros [promise :refer [with-abort]]))

(defn fetch "
Returns a task fetching resource at given `path`.
" [path]
  (with-abort abort
    (js/fetch path (js-obj "signal" abort))))