23 lines
754 B
Clojure
23 lines
754 B
Clojure
(ns sliva.ctl
|
|
(:require [chord.client :refer [ws-ch]]
|
|
[cljs.core.async :refer [<! >! put! close! chan]])
|
|
(:require-macros [cljs.core.async.macros :refer [go go-loop]]))
|
|
|
|
(def vtic (atom (chan)))
|
|
|
|
(defn websocket-init []
|
|
(console.log "init webscoket")
|
|
(go (let [{:keys [ws-channel error]} (<! (ws-ch "ws://localhost:3449/ws"))]
|
|
(if-not error
|
|
(do
|
|
(reset! vtic ws-channel)
|
|
(>! ws-channel "Hello server")
|
|
|
|
;; (go-loop []
|
|
;; (let [{:keys [message]} (<! ws-channel)]
|
|
;; (console.log "got msg" message)
|
|
;; (socket-handler message)
|
|
;; (recur))))
|
|
)
|
|
(js/console.log "Fejl websocket: " (pr-str error))))))
|