type color = Melange_wrapper.Misc.Style.color =
| Black
| Red
| Green
| Yellow
| Blue
| Magenta
| Cyan
| White
type style =
| FG of color
| BG of color
| Bold
| Reset
| Dim
type Stdlib.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;
}
val as_inline_code :
(Stdlib.Format.formatter -> 'a -> unit) as 'printer ->
'printer
val inline_code : Stdlib.Format.formatter -> string -> unit
val get_styles : unit -> styles
val set_styles : styles -> unit
val set_tag_handling : Stdlib.Format.formatter -> unit