Aleph websocket simplest client

aleph-ws-client.clj

(require '[aleph.http :as http])
(require '[manifold.stream :as s])
(require '[manifold.deferred :as d])

;; connection will hold duplex stream
;; deref will block while client is connecting
(defonce connection @(http/websocket-client "wss://url/"))

;; calls provided callback with every message on websocket
(s/consume
  (fn [e]
    (println e))
  connection)

;; sends data to websocket
(s/put! connection
        "test string")

;; closes connection
(s/close! connection)