Send `Target.getTargets` message

Add a `sleep` just in case we need that to have time to print the
message.

Use the `jsown` project for JSON encoding and decoding.

1 files changed, 8 insertions, 1 deletions

diff --git a/l/src/main.lisp b/l/src/main.lisp
index 78c5970..d78f027 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -9,6 +9,13 @@
           (lambda (message)
             (format t "~&Got: ~A~%" message)))
 
-  (wsd:send *client* "msg")
+  (wsd:send *client* (get-targets-msg 1))
+
+  (sleep 1)
 
   (wsd:close-connection *client*))
+
+(defun get-targets-msg (call-id)
+  (jsown:to-json
+    `(:obj ("id" . ,call-id)
+           ("method" . "Target.getTargets"))))