From 08e90070acd6b00ad970caf5c0a2f36c9ea07a5c Mon Sep 17 00:00:00 2001
From: Akshay <nerdy@peppe.rs>
Date: Tue, 10 Aug 2021 21:23:58 +0530
Subject: add connector customization

---
 src/options.ml | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'src/options.ml')

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 @@
-type t = { height : int; ascii : bool; marker : Marker.t }
+type t = {
+  height : int;
+  ascii : bool;
+  marker : Marker.t;
+  connector : Connector.t;
+}
 
-let default = { height = 14; ascii = false; marker = Marker.Circle }
+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 }
-- 
cgit v1.2.3