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/Modal.ml | 27 ---------------------------
 1 file changed, 27 deletions(-)
 delete mode 100644 src/View/Modal.ml

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

diff --git a/src/View/Modal.ml b/src/View/Modal.ml
deleted file mode 100644
index 9365555..0000000
--- a/src/View/Modal.ml
+++ /dev/null
@@ -1,27 +0,0 @@
-let hide () =
-  let body = Document.querySelectorUnsafe "body" in
-  let modal = Document.querySelectorUnsafe ".g-Modal" in
-  Element.removeChild body modal
-
-let show content =
-  let body = Document.querySelectorUnsafe "body" in
-  let view =
-    H.div
-      [| HA.class_ "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.text "X" |]
-          ;  content
-          |]
-      |]
-  in
-  Element.appendChild body view
-- 
cgit v1.2.3