WebSocket with http.async.client sample

web-socket-sample.clj

(require '[http.async.client :as http])

;; create clients
(def client (http/create-client))

;; websocket
(let [latch (promise)
      ws (http/websocket
          client "ws://localhost:8108/socket"
          ;; text message callback
          :text (fn [msg]
                  (println msg)
                  (deliver latch true)))]
  (println "sending")
  (http/send ws :text "testing12")
  (println "sent")
  @latch
  (http/close ws)
  (println "closed"))

;; close client
(http/close c)