Module Misc.Color

module Color: sig .. end

---

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 styles = {

	error : style list;
	warning : style list;
	loc : style list;
	hint : style list;

}

val default_styles : styles

val get_styles : unit -> styles

val set_styles : styles -> unit

type setting = 

|	Auto
|	Always
|	Never

val default_setting : setting

val setup : setting option -> unit

val set_color_tag_handling : Format.formatter -> unit