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/Lib/Modal.ml | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 src/Lib/Modal.ml

(limited to 'src/Lib/Modal.ml')

diff --git a/src/Lib/Modal.ml b/src/Lib/Modal.ml
new file mode 100644
index 0000000..3fa0550
--- /dev/null
+++ b/src/Lib/Modal.ml
@@ -0,0 +1,25 @@
+let hide () =
+  let modal = Document.query_selector_unsafe "#g-Modal" in
+  Element.remove_child Document.body modal
+
+let show content =
+  let view =
+    H.div
+      [| HA.id "g-Modal" |]
+      [| H.div
+          [| HA.class_ "g-Modal__Curtain"
+          ;  HE.on_click (fun _ -> hide ())
+          |]
+          [| |]
+      ;  H.div
+          [| HA.class_ "g-Modal__Window" |]
+          [| H.button
+              [| HA.class_ "g-Modal__Close"
+              ;  HE.on_click (fun _ -> hide ())
+              |]
+              [| H.div [| HA.class_ "fa fa-close" |] [| |] |]
+          ;  content
+          |]
+      |]
+  in
+  Element.append_child Document.body view
-- 
cgit v1.2.3