Module Looks

type color = int * int * int
type align =
  1. | Left
  2. | Center
  3. | Right
type t = {
  1. size : float;
  2. bold : bool;
  3. italic : bool;
  4. underline : bool;
  5. strike : bool;
  6. monospace : bool;
  7. color : color;
  8. pre : bool;
  9. align : align;
  10. visited_color : color;
  11. base : float;
  12. extensions : bool;
}
val root : ?extensions:bool -> size:float -> unit -> t
val color_of_string : string -> color option
val font_scale : string -> float option
val leading : float
val look : t -> Dom.element -> t
type display =
  1. | Block
  2. | Inline
  3. | Rule
  4. | Hidden
type box = {
  1. display : display;
  2. margin_top : float;
  3. margin_bottom : float;
  4. indent : float;
  5. right : float;
  6. background : color option;
}
val box : t -> Dom.element -> box
val styled : parent:t -> t -> (string * string) list -> t
val styled_box : t -> box -> (string * string) list -> box
val length : em:float -> ?percent:float -> string -> float option