LTerm_style

`sig type color = private Default | Index of int | RGB of int * int * int val default : LTerm_style.color val index : int -> LTerm_style.color val rgb : int -> int -> int -> LTerm_style.color val black : LTerm_style.color val red : LTerm_style.color val green : LTerm_style.color val yellow : LTerm_style.color val blue : LTerm_style.color val magenta : LTerm_style.color val cyan : LTerm_style.color val white : LTerm_style.color val lblack : LTerm_style.color val lred : LTerm_style.color val lgreen : LTerm_style.color val lyellow : LTerm_style.color val lblue : LTerm_style.color val lmagenta : LTerm_style.color val lcyan : LTerm_style.color val lwhite : LTerm_style.color type t = { bold : bool option; underline : bool option; blink : bool option; reverse : bool option; foreground : LTerm_style.color option; background : LTerm_style.color option; } val bold : LTerm_style.t -> bool option val underline : LTerm_style.t -> bool option val blink : LTerm_style.t -> bool option val reverse : LTerm_style.t -> bool option val foreground : LTerm_style.t -> LTerm_style.color option val background : LTerm_style.t -> LTerm_style.color option val none : LTerm_style.t val merge : LTerm_style.t -> LTerm_style.t -> LTerm_style.t val equal : LTerm_style.t -> LTerm_style.t -> bool end`