module LTerm_style: sig
.. end
Text styles
Colors
type
color = private
| |
Default |
| |
Index of int |
| |
RGB of int * int * int |
val default : color
val index : int -> color
val rgb : int -> int -> int -> color
rgb r g b
raises Invalid_argument
if one of r
, g
or b
is not in the range 0..255
.
Standard colors
val black : color
val red : color
val green : color
val yellow : color
val blue : color
val magenta : color
val cyan : color
val white : color
Light colors
val lblack : color
val lred : color
val lgreen : color
val lyellow : color
val lblue : color
val lmagenta : color
val lcyan : color
val lwhite : color
Styles
type
t = {
|
bold : bool option ; |
|
underline : bool option ; |
|
blink : bool option ; |
|
reverse : bool option ; |
|
foreground : color option ; |
|
background : color option ; |
}
Type of text styles.
val bold : t -> bool option
val underline : t -> bool option
val blink : t -> bool option
val reverse : t -> bool option
val foreground : t -> color option
val background : t -> color option
val none : t
Style with all fields set to None
.
val merge : t -> t -> t
merge s1 s2
is s2
with all undefined fields set to ones of
s1
.
val equal : t -> t -> bool
equal s1 s2
returns true
iff s1
and s2
are equal after
having replaced all None
fields by Some false
or Some
Default
.