package eliom
module W : sig ... end
val uri_of_string : uri -> string
val string_of_uri : string -> uri
val uri_of_fun : (unit -> string) -> uri
type caml_event_handler =
| CE_registered_closure of string * Eliom_lib.poly
| CE_client_closure of Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit
| CE_client_closure_mouse of Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t -> unit
| CE_client_closure_keyboard of Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t -> unit
| CE_client_closure_touch of Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t -> unit
| CE_call_service of ([ `A | `Form_get | `Form_post ] * (bool * string list) option * string option * Ocsigen_lib.poly) option Eliom_lazy.request
type event_handler = Js_of_ocaml.Dom_html.event Js_of_ocaml.Js.t -> unit
type mouse_event_handler =
Js_of_ocaml.Dom_html.mouseEvent Js_of_ocaml.Js.t ->
unit
type keyboard_event_handler =
Js_of_ocaml.Dom_html.keyboardEvent Js_of_ocaml.Js.t ->
unit
type touch_event_handler =
Js_of_ocaml.Dom_html.touchEvent Js_of_ocaml.Js.t ->
unit
val internal_event_handler_of_service :
([ `A | `Form_get | `Form_post ]
* (bool * string list) option
* string option
* Eliom_lib.poly)
option
Eliom_lazy.request ->
internal_event_handler
type acontent = private
| AFloat of float
| AInt of int
| AStr of string
| AStrL of separator * string list
type racontent =
| RA of acontent
| RAReact of acontent option React.signal
| RACamlEventHandler of caml_event_handler
| RALazyStr of string Eliom_lazy.request
| RALazyStrL of separator * string Eliom_lazy.request list
| RAClient of string * attrib option * Eliom_lib.poly
val internal_event_handler_attrib : aname -> internal_event_handler -> 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 pcdata : string -> elt
val encodedpcdata : string -> elt
val entity : string -> elt
val empty : unit -> elt
val comment : string -> elt
val lazy_node : ?a:attrib list -> ename -> elt list Eliom_lazy.request -> elt
val cdata : string -> elt
val cdata_script : string -> elt
val cdata_style : string -> elt
val string_of_node_id : node_id -> string
val make_dom : ?id:node_id -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t -> elt
val force_lazy : elt -> unit
val make_react : ?id:node_id -> elt React.signal -> elt
type node =
| DomNode of Js_of_ocaml.Dom.node Js_of_ocaml.Js.t
| TyXMLNode of econtent
| ReactNode of elt React.signal
| ReactChildren of econtent * elt ReactiveData.RList.t
val set_dom_node : elt -> Js_of_ocaml.Dom.node Js_of_ocaml.Js.t -> unit
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>