feat(js_utils): Add HTMLElement.title support

Author: erikmd

src/utils/js_utils.ml

@@ -455,6 +455,18 @@ module Manip = struct
       elt##.oninput := (bool_cb f)
   end
 
+  module HTMLElement = struct
+    let title elt =
+      let elt = get_elt "HTMLElement.title" elt in
+      Js.to_string (elt##.title)
+  end
+
+  module SetHTMLElement = struct
+    let title elt v =
+      let elt = get_elt "HTMLElement.title" elt in
+      elt##.title := Js.string v
+  end
+
   module Attr = struct
     let clientWidth elt =
       let elt = get_elt "Attr.clientWidth" elt in

src/utils/js_utils.mli

@@ -118,6 +118,16 @@ module Manip : sig
     val oninput: ('a,Dom_html.event) ev
   end
 
+  (** Read the properties of DOM elements. *)
+  module HTMLElement : sig
+    val title: 'a elt -> string
+  end
+
+  (** Modify the properties of DOM elements. *)
+  module SetHTMLElement : sig
+    val title: 'a elt -> string -> unit
+  end
+
   module Attr : sig
     val clientWidth: 'a elt -> int
     val clientHeight: 'a elt -> int