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/Dom/H.ml | 65 --------------------------------------------------------
 1 file changed, 65 deletions(-)
 delete 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
deleted file mode 100644
index 7213daf..0000000
--- a/src/Lib/Dom/H.ml
+++ /dev/null
@@ -1,65 +0,0 @@
-(* Element creation *)
-
-type attribute =
-  | TextAttr of string * string
-  | EventAttr of string * (Dom.event -> unit)
-
-let h tag attributes children =
-  let element =
-    if tag == "svg" || tag == "path" then
-      Document.create_element_ns "http://www.w3.org/2000/svg" tag
-    else Document.create_element tag
-  in
-  let () =
-    Js.Array.forEach
-      (fun attr ->
-        match attr with
-          | TextAttr (name, value) ->
-              Element.set_attribute element name value
-
-          | EventAttr (name, eventListener) ->
-              Element.add_event_listener element name eventListener)
-      attributes
-  in
-  let () =
-    Js.Array.forEach
-      (fun child -> Element.append_child element child)
-      children
-  in
-  element
-
-(* Node creation *)
-
-let text = Document.create_text_node
-
-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"
-
-let textarea = h "textarea"
-
-let i = h "i"
-
-let a = h "a"
-
-let h1 = h "h1"
-
-let h2 = h "h2"
-
-let h3 = h "h3"
-- 
cgit v1.2.3