type color = Melange_wrapper.Misc.Color.color =
| Black
| Red
| Green
| Yellow
| Blue
| Magenta
| Cyan
| White
type style =
| FG of color
| BG of color
| Bold
| Reset
| Dim
val ansi_of_style_l : style list -> string
val get_styles : unit -> styles
val set_styles : styles -> unit
type setting = Melange_wrapper.Misc.Color.setting =
| Auto
| Always
| Never