blob: 22cd7f01847a748b8538b8907d8ef3881132f40f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
(in-package :extreload)
(defvar *client* (wsd:make-client "ws://127.0.0.1:55755/devtools/browser/93f390a0-8ba9-4469-8e2d-69c9feb171bc"))
(defun main ()
(wsd:start-connection *client*)
(wsd:on :message *client* #'ws-on-message)
(wsd:send *client* (get-targets-msg 1))
(sleep 5)
(wsd:close-connection *client*))
(defun get-targets-msg (call-id)
(jsown:to-json
`(:obj ("id" . ,call-id)
("method" . "Target.getTargets"))))
(defun ws-on-message (message)
(let* ((response (jsown:parse message))
(targets (parse-get-targets-response response)))
(if targets
(reload-extensions
(extension-targets targets)
'("pacpdcpgfbpkdpmhfaljffnfbdanmblh")))))
(defun parse-get-targets-response (response)
(let* ((result (json-obj-get response "result"))
(targetInfos (json-obj-get result "targetInfos")))
targetInfos))
(defun json-obj-get (obj key)
(handler-case
(jsown:val obj key)
(simple-error (e)
(let ((s (format nil "~A" e)))
(if (search "not available" s)
nil)))))
(defun reload-extensions (targets extension-ids)
(labels ((requested-extension-p (target)
(dolist (id extension-ids)
(if (uiop:string-prefix-p
(concatenate 'string "chrome-extension://" id)
(json-obj-get target "url"))
(return-from requested-extension-p t)))
nil))
(filter #'requested-extension-p targets)))
(defun extension-targets (targets)
(labels ((extensionp (target)
(equal (json-obj-get target "type")
"background_page")))
(filter #'extensionp targets)))
(defun filter (predicate list-form)
(let (newl '())
(dolist (el list-form)
(if (funcall predicate el)
(push el newl)))
newl))
|
