module Color:sig
..end
type
color =
| |
Black |
| |
Red |
| |
Green |
| |
Yellow |
| |
Blue |
| |
Magenta |
| |
Cyan |
| |
White |
type
style =
| |
FG of |
| |
BG of |
| |
Bold |
| |
Reset |
val ansi_of_style_l : style list -> string
type
styles = {
|
error : |
|
warning : |
|
loc : |
val default_styles : styles
val get_styles : unit -> styles
val set_styles : styles -> unit
type
setting =
| |
Auto |
| |
Always |
| |
Never |
val setup : setting -> unit
val set_color_tag_handling : Format.formatter -> unit