Misc.Style3o

Module

Module Misc.Style

Documentation

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 hint : Format_doc.formatter -> unit

val as_inline_code : 'a Format_doc.printer -> 'a Format_doc.printer

val inline_code : string Format_doc.printer

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