71 lines
1.2 KiB
OCaml
71 lines
1.2 KiB
OCaml
type offset = { x : int; y : int }
|
|
type ansirgb = int * int * int
|
|
|
|
type cursor_ops = Hide | Show | Move of offset
|
|
type screen_ops = Clear
|
|
|
|
type color =
|
|
| Black
|
|
| Red
|
|
| Green
|
|
| Yellow
|
|
| Blue
|
|
| Magenta
|
|
| Cyan
|
|
| White
|
|
| Gray
|
|
| BrightRed
|
|
| BrightGreen
|
|
| BrightYellow
|
|
| BrightBlue
|
|
| BrightMagenta
|
|
| BrightCyan
|
|
| BrightWhite
|
|
| Default
|
|
| Custom of ansirgb
|
|
|
|
type color_style =
|
|
| Foreground of color
|
|
| Background of color
|
|
|
|
type style =
|
|
| Reset
|
|
| Bold
|
|
| Underlined
|
|
| Blink
|
|
| Inverse
|
|
| Hidden
|
|
|
|
type ansi =
|
|
| Cursor of cursor_ops
|
|
| Screen of screen_ops
|
|
| ColorStyle of color_style
|
|
| Style of style
|
|
|
|
val string_of_ansi: ansi -> string
|
|
val termsize: offset
|
|
val pixel_ansi: offset -> color_style -> string
|
|
val top_block: string
|
|
val bot_block: string
|
|
val block: string
|
|
|
|
val black: color_style
|
|
val red: color_style
|
|
val green: color_style
|
|
val yellow: color_style
|
|
val blue: color_style
|
|
val magenta: color_style
|
|
val cyan: color_style
|
|
val white: color_style
|
|
val default: color_style
|
|
val bg_black: color_style
|
|
val bg_red: color_style
|
|
val bg_green: color_style
|
|
val bg_yellow: color_style
|
|
val bg_blue: color_style
|
|
val bg_magenta: color_style
|
|
val bg_cyan: color_style
|
|
val bg_white: color_style
|
|
val bg_default: color_style
|
|
|