Xml (virtual_dom.virtual_dom.tyxml.Virtual_dom

module W = Xml_wrap.NoWrap

type 'a wrap = 'a W.t

type 'a list_wrap = 'a W.tlist

type uri = string

val string_of_uri : (uri, string) W.ft

val uri_of_string : (string, uri) W.ft

type aname = string

type event_handler =
  Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t ->
  unit Virtual_dom.Vdom.Effect.t

type mouse_event_handler =
  Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t ->
  unit Virtual_dom.Vdom.Effect.t

type keyboard_event_handler =
  Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t ->
  unit Virtual_dom.Vdom.Effect.t

type touch_event_handler =
  Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t ->
  unit Virtual_dom.Vdom.Effect.t

type attrib

val float_attrib : aname -> float wrap -> attrib

val int_attrib : aname -> int wrap -> attrib

val string_attrib : aname -> string wrap -> attrib

val space_sep_attrib : aname -> string list wrap -> attrib

val comma_sep_attrib : aname -> string list wrap -> attrib

val event_handler_attrib : aname -> event_handler -> attrib

val mouse_event_handler_attrib : aname -> mouse_event_handler -> attrib

val keyboard_event_handler_attrib : aname -> keyboard_event_handler -> attrib

val touch_event_handler_attrib : aname -> touch_event_handler -> attrib

val uri_attrib : aname -> uri wrap -> attrib

val uris_attrib : aname -> uri list wrap -> attrib

type elt = Virtual_dom.Vdom.Node.t

type ename = string

val empty : unit -> elt

val comment : string -> elt

val pcdata : string wrap -> elt

val encodedpcdata : string wrap -> elt

val entity : string -> elt

val leaf : ?a:attrib list -> ename -> elt

val node : ?a:attrib list -> ename -> elt list_wrap -> elt

val cdata : string -> elt

val cdata_script : string -> elt

val cdata_style : string -> elt