Module B0_std.Tty

type t = [ `Dumb | `Term of string ] option
val of_fd : Unix.file_descr -> t
type cap = [
  1. | `Ansi
  2. | `None
]
val cap : t -> cap
type color = [
  1. | `Black
  2. | `Blue
  3. | `Cyan
  4. | `Default
  5. | `Green
  6. | `Magenta
  7. | `Red
  8. | `White
  9. | `Yellow
]
type style = [
  1. | `Bg of [ `Black | `Blue | `Cyan | `Default | `Green | `Hi of color | `Magenta | `Red | `White | `Yellow ]
  2. | `Bold
  3. | `Faint
  4. | `Fg of [ `Black | `Blue | `Cyan | `Default | `Green | `Hi of color | `Magenta | `Red | `White | `Yellow ]
  5. | `Italic
  6. | `Reverse
  7. | `Underline
]
val styled_str : cap -> style list -> string -> string
val strip_escapes : string -> string