In clojure, call a function returning a promise and convert it to a channel

promise-async.clj

(defn- <promise
  "Call a function that returns a promise and convert it into a channel"
  [f & args]
  (let [out  (a/chan)
        done (fn [& _] (a/close! out))]

    (.then (apply f args) done done)

    out))
    
(a/<!! (<promise (fn [& args] (apply promise-style-f args)))

(a/<!! (<promise promise-style-f 1 2 3)))