Make DevTools Protocol call ID auto-incrementing

Remove the hard-coded call IDs and replace them with a class that keeps
track of the current call ID and allows for easy incrementing to get the
next ID.

This should allow us to give multiple extension IDs on the command line
and send messages with properly incrementing call IDs.

Didn't touch the `runtime-evaluate-msg` message call ID because that one
is local to the target it's attached to, so we can keep it at ID "1".

1 files changed, 7 insertions, 2 deletions

diff --git a/l/src/main.lisp b/l/src/main.lisp
index 9a0ea79..fbe3357 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -1,6 +1,7 @@
 (in-package :extreload)
 
 (defvar *wg* (wait-group:make-wait-group))
+(defvar *devtools-root-call-id* (make-instance 'call-id))
 
 (opts:define-opts
   (:name :socket-url
@@ -30,7 +31,8 @@
       ; (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))
+      (websocket-send *client* (target-get-targets-msg
+                                 (next-call-id *devtools-root-call-id*)))
 
       (wait-group:wait *wg*))))
 
@@ -73,9 +75,12 @@
 (defun attach-to-target (extension)
   (let ((target-id (json-obj-get extension "targetId")))
     (websocket-send *client*
-              (target-attach-to-target-msg 2 target-id))))
+              (target-attach-to-target-msg
+                (next-call-id *devtools-root-call-id*)
+                target-id))))
 
 (defun reload-extension (session-id)
+  ;; Use call ID "1" as this is the first message sent to the attached target.
   (websocket-send *client*
             (runtime-evaluate-msg 1 session-id "chrome.runtime.reload()")))