type color =
  1. | Black
  2. | Red
  3. | Green
  4. | Yellow
  5. | Blue
  6. | Magenta
  7. | Cyan
  8. | White
type style =
  1. | FG of color
  2. | BG of color
  3. | Bold
  4. | Reset
type Format.stag +=
  1. | Style of style list
val ansi_of_style_l : style list -> string
type tag_style = {
  1. ansi : style list;
  2. text_open : string;
  3. text_close : string;
}
type styles = {
  1. error : tag_style;
  2. warning : tag_style;
  3. loc : tag_style;
  4. hint : tag_style;
  5. inline_code : tag_style;
}
val as_inline_code : (Format.formatter -> 'a -> unit) as 'printer -> 'printer
val inline_code : Format.formatter -> string -> unit
val default_styles : styles
val get_styles : unit -> styles
val set_styles : styles -> unit
val setup : Color.setting option -> unit
val set_tag_handling : Format.formatter -> unit