Dom_html: add window.matchMedia & MediaQueryList

Author: toastal

lib/js_of_ocaml/dom_html.ml

@@ -2312,6 +2312,16 @@ class type _URL = object
   method revokeObjectURL : js_string t -> unit meth
 end
 
+class type mediaQueryList = object
+  method media :  js_string t prop
+
+  method matches : bool readonly_prop
+
+  method onchange : (mediaQueryList t, event t) event_listener prop
+
+  inherit eventTarget
+end
+
 class type window = object
   inherit eventTarget
 
@@ -2428,6 +2438,8 @@ class type window = object
   method _URL : _URL t readonly_prop
 
   method devicePixelRatio : number_t readonly_prop
+
+  method matchMedia : js_string t -> mediaQueryList t meth
 end
 
 let window : window t = Js.Unsafe.global

lib/js_of_ocaml/dom_html.mli

@@ -2164,6 +2164,16 @@ class type _URL = object
   method revokeObjectURL : js_string t -> unit meth
 end
 
+class type mediaQueryList = object
+  method media :  js_string t prop
+
+  method matches : bool readonly_prop
+
+  method onchange : (mediaQueryList t, event t) event_listener prop
+
+  inherit eventTarget
+end
+
 (** Specification of window objects *)
 class type window = object
   inherit eventTarget
@@ -2285,6 +2295,8 @@ class type window = object
   method _URL : _URL t readonly_prop
 
   method devicePixelRatio : number_t readonly_prop
+
+  method matchMedia : js_string t -> mediaQueryList t meth
 end
 
 val window : window t