blob: a57c28b4ec3e37a1f9dc58bca6ff7822a653bbd6 (
plain)
1
2
3
4
5
6
7
8
|
type t = { height: int; ascii: bool; marker: Marker.t}
let default =
{ height = 14
; ascii = false
; marker = Marker.Point
}
let with_height v c = { c with height = v; }
let with_marker v c = { c with marker = v; }
|