Incr_dom.Js_miscThis module has a small collection of helpful bits of javascript that have no other obvious home.
module Rect : sig ... endval viewport_rect : unit -> int Rect.tviewport_rect () gives you the rectangle that corresponds to the size of the entire browser window
val viewport_rect_of_element :
Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
float Rect.tviewport_rect_of_element el gives you the bounding box rectangle for a single element
val client_rect : unit -> int Rect.tclient_rect () gives you the rectangle that corresponds to the size of the entire browser window without the scroll bars.
val client_rect_of_element :
Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
float Rect.tclient_rect_of_element el gives you the inner box rectangle for a single element, not including its scroll bars if it has any.
val element_is_in_viewport :
Js_of_ocaml.Dom_html.element Js_of_ocaml.Js.t ->
boolReturns true iff the element in question is in view.
Find an element with an id (default as "keep-in-view"), and, if it exists, scrolls the UI so that that element is in view.
val sexp_of_rows_or_columns : rows_or_columns -> Sexplib0.Sexp.tval rows_or_columns_of_sexp : Sexplib0.Sexp.t -> rows_or_columnsval bin_shape_rows_or_columns : Core.Bin_prot.Shape.tval bin_size_rows_or_columns : rows_or_columns Core.Bin_prot.Size.sizerval bin_write_rows_or_columns : rows_or_columns Core.Bin_prot.Write.writerval bin_writer_rows_or_columns :
rows_or_columns Core.Bin_prot.Type_class.writerval bin_read_rows_or_columns : rows_or_columns Core.Bin_prot.Read.readerval __bin_read_rows_or_columns__ :
(int -> rows_or_columns) Core.Bin_prot.Read.readerval bin_reader_rows_or_columns :
rows_or_columns Core.Bin_prot.Type_class.readerval bin_rows_or_columns : rows_or_columns Core.Bin_prot.Type_class.tval rows : rows_or_columnsval columns : rows_or_columnsval is_rows : rows_or_columns -> boolval is_columns : rows_or_columns -> boolval rows_val : rows_or_columns -> unit optionval columns_val : rows_or_columns -> unit optionmodule Variants_of_rows_or_columns : sig ... endval compare_rows_or_columns : rows_or_columns -> rows_or_columns -> intval find_visible_range :
length:int ->
nth_element_id:(int -> string) ->
rows_or_columns ->
(int * int) optionfind_visible_range ~length ~nth_element_id layout is useful to find visible rows or columns of a table. The time cost is O(log(length)). It assumes the rows/columns are non-overlapping and arranged monotonically, though the order doesn't matter. It's assumed that the rows are laid out from 0 to length - 1.
If no row is visible, then None is returned. Otherwise, the inclusive upper and lower bounds of the visible rows are returned.
val get_scroll_container :
Js_of_ocaml.Dom.node Js_of_ocaml.Js.t ->
Js_of_ocaml.Dom.node Js_of_ocaml.Js.tscroll_container node finds the closest scrollable ancestor in the DOM tree. If there is no scrollable element above the node passed in, then the document will be returned