From d1135ff55db85ef81bbe2bd8f283cdbbd5464298 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 13 Jul 2020 21:30:32 +0200
Subject: Show map and add marks with right click

---
 src/Lib/Dom/H.ml | 72 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 72 insertions(+)
 create mode 100644 src/Lib/Dom/H.ml

(limited to 'src/Lib/Dom/H.ml')

diff --git a/src/Lib/Dom/H.ml b/src/Lib/Dom/H.ml
new file mode 100644
index 0000000..8183a02
--- /dev/null
+++ b/src/Lib/Dom/H.ml
@@ -0,0 +1,72 @@
+(* Element creation *)
+
+let h tag ?(attributes = [||]) ?(eventListeners = [||]) ?(children = [||]) () :
+    Dom.element =
+  let element =
+    if tag == "svg" || tag == "path" then
+      Document.createElementNS "http://www.w3.org/2000/svg" tag
+    else Document.createElement tag
+  in
+  let () =
+    Js.Array.forEach
+      (fun (name, value) -> Element.setAttribute element name value)
+      attributes
+  in
+  let () =
+    Js.Array.forEach
+      (fun (name, eventListener) ->
+        Element.addEventListener element name eventListener)
+      eventListeners
+  in
+  let () =
+    Js.Array.forEach (fun child -> Element.appendChild element child) children
+  in
+  element
+
+(* Node creation *)
+
+let text = Document.createTextNode
+
+let div = h "div"
+
+let span = h "span"
+
+let header = h "header"
+
+let button = h "button"
+
+let section = h "section"
+
+let svg = h "svg"
+
+let path = h "path"
+
+let form = h "form"
+
+let label = h "label"
+
+let input_ = h "input"
+
+(* Attribute creation *)
+
+let id v = ("id", v)
+
+let className v = ("class", v)
+
+let viewBox v = ("viewBox", v)
+
+let d v = ("d", v)
+
+let type_ v = ("type", v)
+
+let min_ v = ("min", v)
+
+let value v = ("value", v)
+
+(* Event listeners *)
+
+let onClick f = ("click", f)
+
+let onInput f = ("input", f)
+
+let onSubmit f = ("submit", f)
-- 
cgit v1.2.3