Module Misc.Style

module Style: 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 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 as_inline_code : (Format.formatter -> 'a -> unit) ->
       Format.formatter -> 'a -> unit

val inline_code : Format.formatter -> string -> unit

val default_styles : styles

val get_styles : unit -> styles

val set_styles : styles -> unit

val setup : Misc.Color.setting option -> unit

val set_tag_handling : Format.formatter -> unit