[client] Factor websocket connection out into Realtime store

client/source/Chat.mint

@@ -1,13 +1,41 @@
+store Realtime {
+  state shouldConnect = false
+  state socket : Maybe(WebSocket) = Maybe::Nothing
+
+  fun connect {
+    next {
+      shouldConnect = true
+    }
+  }
+
+  fun disconnect {
+    next {
+      shouldConnect = false
+    }
+  }
+
+  fun closeSocket {
+    next {
+      socket = Maybe::Nothing
+    }
+  }
+
+  fun openSocket(socket : WebSocket) {
+    next {
+      socket = Maybe::Just(socket)
+    }
+  }
+}
+
 component Chat {
   connect Api exposing { ws }
   connect Messages exposing { list, update }
   connect Theme exposing { theme }
   connect Characters exposing { character }
+  connect Realtime exposing { shouldConnect, socket }
 
   property room : Room
   property roomKey : String
-  state socket : Maybe(WebSocket) = Maybe::Nothing
-  state shouldConnect = true
 
   use Provider.WebSocket {
     url = "#{ws}/chat/#{room.id}?key=#{roomKey}",
@@ -47,14 +75,10 @@ component Chat {
     }
   }
   fun handleClose {
-    next {
-      socket = Maybe::Nothing
-    }
+    Realtime.closeSocket()
   }
   fun handleOpen(socket : WebSocket) {
-    next {
-      socket = Maybe::Just(socket)
-    }
+    Realtime.openSocket(socket)
   }
 
   style chat {