From 063d8ef9eaf874a941f4459e831057dd0a1b7ddd Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 5 Jul 2022 21:55:41 +0200
Subject: Rewrite in TS

---
 src/Lib/Modal.ml | 25 -------------------------
 1 file changed, 25 deletions(-)
 delete mode 100644 src/Lib/Modal.ml

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

diff --git a/src/Lib/Modal.ml b/src/Lib/Modal.ml
deleted file mode 100644
index 5db88cd..0000000
--- a/src/Lib/Modal.ml
+++ /dev/null
@@ -1,25 +0,0 @@
-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" |]
-          [| Button.raw
-              [| 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