Up

Module Text_block = Text_block

Signature

type t

two dimensional blocks of text

val nil : t
val fill : char -> width:int -> height:int -> t
val space : width:int -> height:int -> t
type valign = [
| `Top
| `Bottom
| `Center
]
type halign = [
| `Left
| `Right
| `Center
]
val text : ?align:halign -> string -> t
val vcat : ?align:halign -> ?sep:t -> t list -> t
val hcat : ?align:valign -> ?sep:t -> t list -> t
val width : t -> int
val height : t -> int
val valign : valign -> t list -> t list
val halign : halign -> t list -> t list
val hstrut : int -> t
val vstrut : int -> t
val render : t -> string
val compress_table_header : ?sep_width:int -> [
| `Cols of (t * t list * halign) list
] -> [
| `Header of t
] * [
| `Rows of t list
]