diff options
Diffstat (limited to 'src/options.ml')
-rw-r--r-- | src/options.ml | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/src/options.ml b/src/options.ml index 341c0bb..fa49ef1 100644 --- a/src/options.ml +++ b/src/options.ml | |||
@@ -1,7 +1,20 @@ | |||
1 | type t = { height : int; ascii : bool; marker : Marker.t } | 1 | type t = { |
2 | height : int; | ||
3 | ascii : bool; | ||
4 | marker : Marker.t; | ||
5 | connector : Connector.t; | ||
6 | } | ||
2 | 7 | ||
3 | let default = { height = 14; ascii = false; marker = Marker.Circle } | 8 | let default = |
9 | { | ||
10 | height = 14; | ||
11 | ascii = false; | ||
12 | marker = Marker.Circle; | ||
13 | connector = Connector.Rounded; | ||
14 | } | ||
4 | 15 | ||
5 | let with_height v c = { c with height = v } | 16 | let with_height v c = { c with height = v } |
6 | 17 | ||
7 | let with_marker v c = { c with marker = v } | 18 | let with_marker v c = { c with marker = v } |
19 | |||
20 | let with_connector v c = { c with connector = v } | ||