模块 Misc.Style

module Style: sig .. end

---

type color = 

|	黑色
|	红色
|	绿色
|	黄色
|	蓝色
|	洋红色
|	青色
|	白色

type style = 

|	FG of color
|	BG of color
|	粗体
|	重置

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