From 4ee0dfae75fda3a8b6347d55c728b50ce5c210d9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Jul 2020 18:16:59 +0200
Subject: Allow to customize icons

---
 src/View/Modal.ml | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 src/View/Modal.ml

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

diff --git a/src/View/Modal.ml b/src/View/Modal.ml
new file mode 100644
index 0000000..9365555
--- /dev/null
+++ b/src/View/Modal.ml
@@ -0,0 +1,27 @@
+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