(require '[reagent.core :as reagent])
(require '[goog.object :as gobject])

(def socket (js/WebSocket. "wss://echo.websocket.org"))

(gobject/set socket "onopen" #(prn "Socket Open"))
(gobject/set socket "onmessage" #(prn "New Message" (.-data %)))

(defn send-message [msg]
  (.send socket msg))

(defn id->value [id]
  (.-value (js/document.getElementById id)))

(defn websocket []
  [:div
   [:input {:type "text" :placeholder "Write your message"
            :id "textinput"}]
   [:button {:onClick #(send-message (id->value "textinput"))}
      "Send"]])

(reagent/render [websocket] js/klipse-container)