From 081e6aae57719c15bdbc5e973ca7ddba9506a4bb Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 8 Aug 2020 12:49:03 +0200
Subject: Show context menu to add, modify and delete markers

---
 src/View/Button.ml | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

(limited to 'src/View/Button.ml')

diff --git a/src/View/Button.ml b/src/View/Button.ml
index 31fa1b0..c325fdd 100644
--- a/src/View/Button.ml
+++ b/src/View/Button.ml
@@ -1,13 +1,9 @@
-let action on_click label =
+let action attrs content =
   H.button
-      [| HA.class_ "g-Button__Action"
-      ;  HE.on_click on_click
-      |]
-      [| H.text label |]
+    (Js.Array.concat attrs [| HA.class_ "g-Button__Action" |])
+    content
 
-let danger on_click label =
-      H.button
-          [| HA.class_ "g-Button__Danger"
-          ;  HE.on_click on_click
-          |]
-          [| H.text label |]
+let cancel attrs content =
+  H.button
+    (Js.Array.concat attrs [| HA.class_ "g-Button__Cancel" |])
+    content
-- 
cgit v1.2.3