src/options.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

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

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

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

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

let with_connector v c = { c with connector = v }