enhance: add c.m/<? macro

pull/11433/head
rcmerci 2024-07-16 16:22:02 +08:00
parent 6cea3624ec
commit d7b85d964b
2 changed files with 8 additions and 1 deletions

View File

@ -0,0 +1,7 @@
(ns frontend.common.missionary-util
(:require [missionary.core :as m]))
(defmacro <?
"Like m/?, but async channel as arg"
[c]
`(m/? (<! ~c)))

View File

@ -1,5 +1,6 @@
(ns frontend.common.missionary-util
"Utils based on missionary."
(:require-macros [frontend.common.missionary-util])
(:require [clojure.core.async :as a]
[missionary.core :as m])
;; (:import [missionary Cancelled])
@ -71,7 +72,6 @@
completing with value when take is accepted, or nil if port was closed."
[c] (doto (m/dfv) (->> (a/take! c))))
(defn await-promise
"Returns a task completing with the result of given promise"
[p]