type color = Melange_wrapper.Misc.Style.color =
| Black
| Red
| Green
| Yellow
| Blue
| Magenta
| Cyan
| White
;
type style =
| FG(color)
| BG(color)
| Bold
| Reset
| Dim
;
type Stdlib.Format.stag +=
| Style(list(style))
;
let ansi_of_style_l: list(style) => string;
type tag_style = {
ansi: list(style),
text_open: string,
text_close: string,
};
let as_inline_code:
(Stdlib.Format.formatter => 'a => unit) as 'printer =>
'printer;
let inline_code: Stdlib.Format.formatter => string => unit;
let get_styles: unit => styles;
let set_styles: styles => unit;
let set_tag_handling: Stdlib.Format.formatter => unit;