Colors
Initializer color for output
type color = [
|
`ON
`AUTO
`EMACS
`OFF
]
val init_color : color -> unit
val parse_extra_colors : string list -> color * string list
val print_style_tags : color -> unit