type color
=
| Default |
| Black |
| Red |
| Green |
| Yellow |
| Blue |
| Magenta |
| Cyan |
| Gray |
| White |
| LRed |
| LGreen |
| LYellow |
| LBlue |
| LMagenta |
| LCyan |
| LGray |
Terminal colors
type format
=
| Bold |
| Underline |
| Invert |
| Fg of color |
| Bg of color |
Terminal styles
val to_fg_code : color -> int
val to_bg_code : color -> int
val style_to_codes : format -> int * int
val format : format list -> string -> string
format styles str
formats str
to the given styles