aboutsummaryrefslogtreecommitdiffstats
path: root/l/src
AgeCommit message (Collapse)Author
2021-01-30main.lisp: Use `find-if` in `requested-extension-p`Teddy Wing
I've been reading Practical Common Lisp's "Collections" chapter (http://www.gigamonkeys.com/book/collections.html) and it seemed like `find-if` would be nicer here than what I wrote before.
2021-01-30main.lisp: Change `filter` to use `remove-if-not`Teddy Wing
Just learned about `remove-if-not`. Really cleans up this function. Not even really necessary to keep `filter`, but I guess I'll hold on to it for now.
2021-01-30extension-targets: Use `string=` instead of `equal`Teddy Wing
Just learned that `string=` exists, and that seems to describe the intent better than `equal`.
2021-01-30main.lisp: Update temporary WebSocket URLTeddy Wing
2021-01-24main.lisp: Reload extensionsTeddy Wing
Send DevTools Protocol messages to reload extensions. Not easy to do things sequentially since the responses have to be handled in `ws-on-message`. Once we filter the list of extensions wanted to reload, attach to their DevTools targets, then send them JavaScript evaluation messages that tells the extensions to reload.
2021-01-24main.lisp: Rename `get-targets-msg` to `target-get-targets-msg`Teddy Wing
Prefix the function name with the name of the DevTools domain to distinguish Target message functions from Runtime functions.
2021-01-24filter: Fix `let` binding syntaxTeddy Wing
2021-01-24main.lisp: Filter DevTools targets to chosen extensionsTeddy Wing
Filter a list of extension background page targets. The extension IDs should come from the command line, but I've hard-coded the list here. Increased the `sleep` time to allow time for the messages to be sent & received before the program exits. Will need to figure out a proper way to do this later.
2021-01-24main.lisp: Parse `Target.getTargets` responseTeddy Wing
Use `jsown` to parse the response from the `Target.getTargets` message. Get a list of `targetInfos` from the response. Extracting keys from the JSON result with `jsown:val` raises an `error` exception when the key is not present. Turn the exception into `nil` with the `json-obj-get` function.
2021-01-23Send `Target.getTargets` messageTeddy Wing
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.
2021-01-23Define Lisp packageTeddy Wing
Define the package so we can define things inside it.
2021-01-23main.lisp: Update testing WebSocket URLTeddy Wing
2021-01-20Add a foundation for a Common Lisp versionTeddy Wing
Trying to see if I can write the program in Common Lisp. Learned how to set up an .asd project file and started with some websocket client code based on the example in: https://github.com/fukamachi/websocket-driver#client-side Need to work out how to set up JSON interaction.