Clojurians Log v2

Has anyone written a macro for making all inner forms interruptible? I’m imagining a global channel that can be closed:

(go
  (allowing-interrupt my-global-close-ch
    (loop []
      ...
      (

(go
  (try
    (loop []
      ...
      (alt! my-global-close-ch (throw (ex-info "interrupted" {:type :my-interrupt}))
            (timeout 1000) ([v] v)
            :priority true)
      (let [m (alt! my-global-close-ch (throw (ex-info "interrupt" {:type :my-interrupt}))
                    in-ch ([v] v)
                    :priority true)]
        ...))
    (catch Exception ex
      (if (= :my-interrupt (:type (ex-data ex)))
        (log/info "exiting on interrupt")
        (throw ex)))))