Source file declarative_content.ml

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
open Ezjs_min

class type condition = object end
class type action = object end

class type pageUrl = object
  method hostContains : js_string t optdef prop
  method hostEquals : js_string t optdef prop
  method hostPrefix : js_string t optdef prop
  method hostSuffix : js_string t optdef prop
  method pathContains : js_string t optdef prop
  method pathPrefix : js_string t optdef prop
  method pathSuffix : js_string t optdef prop
  method queryContains : js_string t optdef prop
  method queryEquals : js_string t optdef prop
  method queryPrefix : js_string t optdef prop
  method querySuffix : js_string t optdef prop
  method urlContains : js_string t optdef prop
  method urlEquals : js_string t optdef prop
  method urlMatches : js_string t optdef prop
  method originAndPathMatches : js_string t optdef prop
  method urlPrefix : js_string t optdef prop
  method urlSuffix : js_string t optdef prop
  method schemes : js_string t js_array t optdef prop
  method ports : int js_array t optdef prop
end

class type pageStateMatcher = object
  method pageUrl : pageUrl t optdef prop
  method css : js_string t js_array t optdef prop
  method isBookmarked : bool t optdef prop
end

class type rule = object
  method id : js_string t optdef prop
  method priority : int optdef prop
  method conditions : condition t js_array t prop
  method actions : action t js_array t prop
end

class type declarativeEvent = object
  method addRules : rule t js_array t -> ('a t -> unit) callback -> unit meth
  method removeRules : js_string t js_array t optdef -> ('a t -> unit) callback -> unit meth
  method getRules : js_string t js_array t -> ('a t -> unit) callback -> unit meth
end

class type declarativeContent = object
  method _ShowPageAction : action t constr prop
  method _SetIcon : (js_string t -> action t) constr prop
  method _RequestContentScript :
    (js_string t js_array t optdef ->
     js_string t js_array t optdef -> bool t optdef -> bool t optdef -> action t) constr prop
  method _PageStateMatcher : (pageStateMatcher t -> condition t) constr prop
  method onPageChanged : declarativeEvent t prop
end

let declarativeContent : declarativeContent t = Unsafe.global##.chrome##.declarativeContent

let make_pageUrl
    ?hostContains ?hostEquals ?hostPrefix ?hostSuffix ?pathContains ?pathPrefix
    ?pathSuffix ?queryContains ?queryEquals ?queryPrefix ?querySuffix ?urlContains
    ?urlEquals ?urlMatches ?originAndPathMatches ?urlPrefix ?urlSuffix ?schemes
    ?ports () =
  let url : pageUrl t = Unsafe.obj [||] in
  url##.hostContains := optdef string hostContains;
  url##.hostEquals := optdef string hostEquals;
  url##.hostPrefix := optdef string hostPrefix;
  url##.hostSuffix := optdef string hostSuffix;
  url##.pathContains := optdef string pathContains;
  url##.pathPrefix := optdef string pathPrefix;
  url##.pathSuffix := optdef string pathSuffix;
  url##.queryContains := optdef string queryContains;
  url##.queryEquals := optdef string queryEquals;
  url##.queryPrefix := optdef string queryPrefix;
  url##.querySuffix := optdef string querySuffix;
  url##.urlContains := optdef string urlContains;
  url##.urlEquals := optdef string urlEquals;
  url##.urlMatches := optdef string urlMatches;
  url##.originAndPathMatches := optdef string originAndPathMatches;
  url##.urlPrefix := optdef string urlPrefix;
  url##.urlSuffix := optdef string urlSuffix;
  url##.schemes := optdef (of_listf string) schemes;
  url##.ports := Optdef.option ports;
  url

let make_pageStateMatcher ?pageUrl ?css ?isBookmarked () =
  let state_matcher : pageStateMatcher t = Unsafe.obj [||] in
  state_matcher##.pageUrl := Optdef.option pageUrl;
  state_matcher##.css := optdef (of_listf string) css;
  state_matcher##.isBookmarked := optdef bool isBookmarked;
  state_matcher

let make_condition_base state_matcher =
  let cst = declarativeContent##._PageStateMatcher in
  new%js cst state_matcher

let make_condition ?hostContains ?hostEquals ?hostPrefix ?hostSuffix ?pathContains ?pathPrefix
    ?pathSuffix ?queryContains ?queryEquals ?queryPrefix ?querySuffix ?urlContains
    ?urlEquals ?urlMatches ?originAndPathMatches ?urlPrefix ?urlSuffix ?schemes
    ?ports ?css ?isBookmarked () =
  let pageUrl = make_pageUrl ?hostContains ?hostEquals ?hostPrefix ?hostSuffix ?pathContains ?pathPrefix
    ?pathSuffix ?queryContains ?queryEquals ?queryPrefix ?querySuffix ?urlContains
    ?urlEquals ?urlMatches ?originAndPathMatches ?urlPrefix ?urlSuffix ?schemes
    ?ports () in
  let state_matcher = make_pageStateMatcher ~pageUrl ?css ?isBookmarked () in
  make_condition_base state_matcher

let showPageAction () =
  let cst = declarativeContent##._ShowPageAction in new%js cst
let setIcon path =
  let cst = declarativeContent##._SetIcon in
  new%js cst (string path)
let requestContentScript ?css ?js ?allFrames ?matchAboutBlank () =
  let cst = declarativeContent##._RequestContentScript in
  new%js cst (optdef (of_listf string) css) (optdef (of_listf string) js)
    (optdef bool allFrames) (optdef bool matchAboutBlank)

let make_rule ?id ?priority conditions actions =
  let rule : rule t = Unsafe.obj [||] in
  rule##.conditions := of_list conditions;
  rule##.actions := of_list actions;
  rule##.priority := Optdef.option priority;
  rule##.id := optdef string id;
  rule

let addRules rules f =
  declarativeContent##.onPageChanged##addRules (of_list rules) (wrap_callback f)

let removeRules ?ids f =
  declarativeContent##.onPageChanged##removeRules
    (optdef (of_listf string) ids) (wrap_callback f)