From 38e42723a916b7d5c2a15e514b3f3e6dcab398dd Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 8 Aug 2020 21:04:28 +0200
Subject: Propose already defined colors in the form

---
 src/State.ml | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/State.ml')

diff --git a/src/State.ml b/src/State.ml
index cc20b16..59391d2 100644
--- a/src/State.ml
+++ b/src/State.ml
@@ -59,3 +59,14 @@ let from_string str =
     ("", [| |], [| |])
     (Js.Array.from (Js.String.castToArrayLike ((String.decode str) ^ sep)))
   in res
+
+(* Colors *)
+
+let colors =
+  Js.Array.reduce
+    (fun colors marker ->
+      if Js.Array.indexOf marker.color colors == -1 then
+        Js.Array.concat [| marker.color |] colors
+      else
+        colors)
+    [| |]
-- 
cgit v1.2.3