src/options.ml


1
2
3
4
5
6
7

type t = { height : int; ascii : bool; marker : Marker.t }

let default = { height = 14; ascii = false; marker = Marker.Circle }

let with_height v c = { c with height = v }

let with_marker v c = { c with marker = v }