Add `--debug` option to print debug output

Let's keep a way to print WebSocket messages for debugging purposes in
the release build rather than remove the messages completely. Since I've
been struggling with the messages so much it seems like this could be a
useful thing to have.

1 files changed, 9 insertions, 8 deletions

diff --git a/l/src/main.lisp b/l/src/main.lisp
index 6f6ed6b..8df0172 100644
--- a/l/src/main.lisp
+++ b/l/src/main.lisp
@@ -18,6 +18,9 @@
   (:name :reload-current-tab
          :description "pass this to reload the active Chrome tab"
          :long "reload-current-tab")
+  (:name :debug
+         :description "print debug output"
+         :long "debug")
   (:name :help
          :description "print this help menu"
          :short #\h
@@ -42,18 +45,19 @@
                       (ws-on-message
                        message
                        (extension-ids config)
-                       (reload-current-tab config))))
+                       config)))
 
           (websocket-send *client* (target-get-targets-msg
                                     (next-call-id *devtools-root-call-id*)))
 
           (wait-group:wait *wg*))))))
 
-(defun ws-on-message (message extension-ids reload-current-tab)
+(defun ws-on-message (message extension-ids config)
   (let* ((response (jsown:parse message))
          (targets (parse-get-targets-response response)))
-    (format t "Response: ~a~%" response)
-    (format t "~a~%" *wg*)
+    (when (debug-output config)
+      (format t "Response: ~a~%" response)
+      (format t "~a~%" *wg*))
 
     (when targets
       (let ((targets (extension-targets targets)))
@@ -66,9 +70,8 @@
                             (json-obj-get response "params")
                             "sessionId")))
 
-    (when (and reload-current-tab
+    (when (and (reload-current-tab config)
                (runtime-evaluate-msg-p response))
-      (format t "Reloading based on response: ~a~%" response)
       (reload-tab (json-obj-get
                     (json-obj-get response "result")
                     "sessionId")))
@@ -108,7 +111,6 @@
 
 (defun reload-extension (session-id)
   ;; Use call ID "1" as this is the first message sent to the attached target.
-  (format t "reloading EXTENSION~%")
   (setf *last-session-id* session-id)
   (websocket-send
     *client*
@@ -122,7 +124,6 @@
 (defun reload-tab (session-id)
   ;; Use call ID "2" as this will always be sent after a `reload-extension`
   ;; message.
-  (format t "reloading NOW~%")
   (websocket-send
     *client*
     (runtime-evaluate-msg