summaryrefslogtreecommitdiff
path: root/src/options.ml
diff options
context:
space:
mode:
Diffstat (limited to 'src/options.ml')
-rw-r--r--src/options.ml17
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 @@
1type t = { height : int; ascii : bool; marker : Marker.t } 1type t = {
2 height : int;
3 ascii : bool;
4 marker : Marker.t;
5 connector : Connector.t;
6}
2 7
3let default = { height = 14; ascii = false; marker = Marker.Circle } 8let default =
9 {
10 height = 14;
11 ascii = false;
12 marker = Marker.Circle;
13 connector = Connector.Rounded;
14 }
4 15
5let with_height v c = { c with height = v } 16let with_height v c = { c with height = v }
6 17
7let with_marker v c = { c with marker = v } 18let with_marker v c = { c with marker = v }
19
20let with_connector v c = { c with connector = v }