From b5c2f3a6ed194245e9c584f25b28d8f7c8f90218 Mon Sep 17 00:00:00 2001
From: Teddy Wing
Date: Wed, 3 Feb 2021 19:12:40 +0100
Subject: config: Initialise a new websocket-driver client on new config

Add a new `make-config` function to construct a `config` object. This
creates a new websocket-driver client and stores it in the `ws-client`
slot in the `config`.

Before this, I thought about using a writer method on the `socket-url`
slot that creates a new client. This didn't work in `make-instance`
though. Perhaps there's a way to have the `:initarg` use the writer, but
I'm not sure.
---
 l/src/main.lisp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'l/src/main.lisp')

diff --git a/l/src/main.lisp b/l/src/main.lisp
index afa79d8..a84e0cd 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -26,6 +26,8 @@
     ;; TODO: error if no `socket-url`
   (with-websocket-connection (*client*)
     (wsd:on :message *client* #'ws-on-message)
+    ; (wsd:on :message *client* #'(lambda (message) (ws-on-message message)))
+    ;; TODO: Maybe defvar *config* and store client in the config
 
     (websocket-send *client* (target-get-targets-msg 1))
 
-- 
cgit v1.2.3