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.

2 files changed, 10 insertions, 2 deletions

diff --git a/l/extreload.asd b/l/extreload.asd
index ac86c66..b5e62b4 100644
--- a/l/extreload.asd
+++ b/l/extreload.asd
@@ -1,6 +1,7 @@
 (asdf:defsystem extreload
   :version "0.0.1"
-  :depends-on (:websocket-driver-client)
+  :depends-on (:jsown
+               :websocket-driver-client)
   :components ((:module "src"
                 :serial t
                 :components ((:file "package")
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"))))