diff options
| author | Teddy Wing | 2021-02-27 16:44:58 +0100 |
|---|---|---|
| committer | Teddy Wing | 2021-02-27 16:44:58 +0100 |
| commit | 17426317b3d6b51b1d453e6c56f59d7d90290677 (patch) | |
| tree | e80f3de79fd79bfab57d416b8c03a77d4add8b56 /l | |
| parent | 5b95c9f8eddb1054926f8feddbd9b2e4d4e32dbb (diff) | |
| download | extreload-17426317b3d6b51b1d453e6c56f59d7d90290677.tar.bz2 | |
devtools-protocol: Add documentation
Diffstat (limited to 'l')
| -rw-r--r-- | l/src/devtools-protocol.lisp | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/l/src/devtools-protocol.lisp b/l/src/devtools-protocol.lisp index 3923eaf..8b41330 100644 --- a/l/src/devtools-protocol.lisp +++ b/l/src/devtools-protocol.lisp @@ -1,11 +1,15 @@ +;;;; DevTools Protocol messages. + (in-package :extreload) (defun target-get-targets-msg (call-id) + "DevTools Protocol `Target.getTargets` message." (jsown:to-json `(:obj ("id" . ,call-id) ("method" . "Target.getTargets")))) (defun target-attach-to-target-msg (call-id target-id) + "DevTools Protocol `Target.attachToTarget` message." (jsown:to-json `(:obj ("id" . ,call-id) ("method" . "Target.attachToTarget") @@ -13,11 +17,13 @@ ("flatten" . t)))))) (defun target-attached-to-target-msg-p (message) + "Returns true if `message` is `Target.attachedToTarget`." (equal (json-obj-get message "method") "Target.attachedToTarget")) (defun runtime-evaluate-msg (call-id session-id expression) + "DevTools Protocol `Runtime.evaluate` message." (jsown:to-json `(:obj ("id" . ,call-id) ("sessionId" . ,session-id) @@ -25,9 +31,11 @@ ("params" . (:obj ("expression" . ,expression)))))) (defun runtime-evaluate-msg-p (message) + "Returns true if `message` is a response to `Runtime.evaluate`." (jsown:keyp (json-obj-get message "result") "sessionId")) (defun parse-get-targets-response (response) + "Parses a list of target info objects from the response to `Target.getTargets`." (let* ((result (json-obj-get response "result")) (targetInfos (json-obj-get result "targetInfos"))) targetInfos)) |