`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 hint : Format_doc.formatter -> unit
val as_inline_code : 'a Format_doc.printer -> 'a Format_doc.printer
val inline_code : string Format_doc.printer
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`