Misc.Style
type color =
| Black
| Red
| Green
| Yellow
| Blue
| Magenta
| Cyan
| White
type style =
| FG of color
| BG of color
| Bold
| Reset
type Format.stag +=
| Style of style list
val ansi_of_style_l : style list -> string
type tag_style = {
ansi : style list;
text_open : string;
text_close : string;
}
type styles = {
error : tag_style;
warning : tag_style;
loc : tag_style;
hint : tag_style;
inline_code : 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 : styles
val get_styles : unit -> styles
val set_styles : styles -> unit
val setup : Color.setting option -> unit
val set_tag_handling : Format.formatter -> unit