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