val color : bool ref

color tells whether colors can be used in the output.

type color =
| Red
| Gre
| Yel
| Blu
| Mag
| Cya

Format transformers (colors).

type Format.stag +=
| Color of color
val color_code : color -> string
val string_of_color : color -> string
val color_of_string : string -> color
val mark_open_stag : ( Format.stag -> string ) -> Format.stag -> string
val mark_close_stag : ( Format.stag -> string ) -> Format.stag -> string
val update_with_color : Format.formatter -> unit
val colorize : color -> ( 'a, 'b, 'c, 'd, 'e, 'f ) format6 -> ( 'g, 'h, 'i, 'j, 'k, 'l ) format6
val pp : ( ( ( 'a -> 'b -> 'c ) -> 'b -> 'c, 'a, 'c ) format -> ( 'd -> 'e, Format.formatter, unit ) format ) -> 'f -> Format.formatter -> 'g
val red : ( 'a, 'b, 'c, 'd, 'e, 'f ) format6 -> ( 'a, 'b, 'c, 'd, 'e, 'f ) format6
val gre : ( 'a, 'b, 'c, 'd, 'e, 'f ) format6 -> ( 'a, 'b, 'c, 'd, 'e, 'f ) format6
val yel : ( 'a, 'b, 'c, 'd, 'e, 'f ) format6 -> ( 'a, 'b, 'c, 'd, 'e, 'f ) format6
val blu : ( 'a, 'b, 'c, 'd, 'e, 'f ) format6 -> ( 'a, 'b, 'c, 'd, 'e, 'f ) format6
val mag : ( 'a, 'b, 'c, 'd, 'e, 'f ) format6 -> ( 'a, 'b, 'c, 'd, 'e, 'f ) format6
val cya : ( 'a, 'b, 'c, 'd, 'e, 'f ) format6 -> ( 'a, 'b, 'c, 'd, 'e, 'f ) format6
val g_or_r : bool -> ( 'a, 'b, 'c, 'd, 'e, 'f ) format6 -> ( 'a, 'b, 'c, 'd, 'e, 'f ) format6

g_or_r cond fmt colors the format fmt in green if cond is true and in red otherwise.