Full circle working sockets

Gopkg.toml

@@ -8,4 +8,9 @@
 
 [[constraint]]
   name = "github.com/gobuffalo/packr"
-  version = "1.13.1"
+  version = "1.13.1"
+
+[[constraint]]
+  name = "github.com/gorilla/websocket"
+  version = "1.4.0"
+

client/src/cljs/cse_client/core.cljs

@@ -1,5 +1,6 @@
 (ns cse-client.core
   (:require [kee-frame.core :as k]
+            [kee-frame.websocket :as websocket]
             [ajax.core :as ajax]
             [re-interval.core :as re-interval]
             [re-frame.core :as rf]))
@@ -16,6 +17,21 @@
                    :start  [:poll/start]
                    :stop   [:poll/stop]})
 
+(k/reg-controller :websocket-controller
+                  {:params #(when (-> % :handler (= :index)) true)
+                   :start  [:start-websockets]
+                   :stop   [:stop-websockets]})
+
+(k/reg-event-fx :start-websockets
+                (fn [_ _]
+                  {::websocket/open {:path     "/ws"
+                                     :dispatch ::socket-message-received
+                                     :format   :json}}))
+
+(k/reg-event-db ::socket-message-received
+                (fn [db event]
+                  db))
+
 (k/reg-chain :poll/tick
              (fn [_ _]
                {:http-xhrio {:method          :get

server.go

@@ -52,6 +52,7 @@ func Server(command chan string) {
 		command <- "pause"
 		json.NewEncoder(w).Encode(Simulator{ID: "id-1", Name: "Clock", Status: "-"})
 	})
+	router.HandleFunc("/ws", WebsocketHandler)
 
 	router.PathPrefix("/static/").Handler(http.StripPrefix("/static/", http.FileServer(box)))
 

websockets.go

@@ -0,0 +1,32 @@
+package main
+
+import (
+	"github.com/gorilla/websocket"
+	"net/http"
+	"log"
+)
+
+var upgrader = websocket.Upgrader{}
+
+func WebsocketHandler(w http.ResponseWriter, r *http.Request) {
+	conn, err := upgrader.Upgrade(w, r, nil)
+	conn.WriteMessage(websocket.TextMessage, []byte("{\"Hello\": \"Mordi\"}"))
+	if err != nil {
+		log.Print("upgrade:", err)
+		return
+	}
+	defer conn.Close()
+	for {
+		mt, message, err := conn.ReadMessage()
+		if err != nil {
+			log.Println("read:", err)
+			break
+		}
+		log.Printf("recv: %s", message)
+		err = conn.WriteMessage(mt, message)
+		if err != nil {
+			log.Println("write:", err)
+			break
+		}
+	}
+}