27 lines
645 B
OCaml
27 lines
645 B
OCaml
type color_t = White | Black | Blue | Green | LightRed | Brown | Purple | Orange | Yellow | LightGreen | Cyan | LightCyan | LightBlue | Pink | Grey | LightGrey
|
||
|
||
let color_code (c : color_t) : int =
|
||
match c with
|
||
| White -> 0
|
||
| Black -> 1
|
||
| Blue -> 2
|
||
| Green -> 3
|
||
| LightRed -> 4
|
||
| Brown -> 5
|
||
| Purple -> 6
|
||
| Orange -> 7
|
||
| Yellow -> 8
|
||
| LightGreen -> 9
|
||
| Cyan -> 10
|
||
| LightCyan -> 11
|
||
| LightBlue -> 12
|
||
| Pink -> 13
|
||
| Grey -> 14
|
||
| LightGrey -> 15
|
||
|
||
let color_text ~fg ~bg (t : string) =
|
||
"" ^ string_of_int (color_code fg) ^
|
||
"," ^ string_of_int (color_code bg) ^ t
|
||
|
||
let bold_text (t : string) = "" ^ t ^ ""
|