From 026ace6302f23837e34e982f6660e09ff38ee97b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 9 Jan 2021 14:24:49 +0100
Subject: Use plain HTML and CSS

---
 src/domUtils.ml | 37 -------------------------------------
 1 file changed, 37 deletions(-)
 delete mode 100644 src/domUtils.ml

(limited to 'src/domUtils.ml')

diff --git a/src/domUtils.ml b/src/domUtils.ml
deleted file mode 100644
index 282ac12..0000000
--- a/src/domUtils.ml
+++ /dev/null
@@ -1,37 +0,0 @@
-open Webapi.Dom
-
-let toggleClassName (element : Dom.element) (className : string) : unit =
-  Element.setClassName element
-    (if Element.className element == className then "" else className)
-
-type child = TextChild of string | ElemChild of Dom.element
-
-let h (tag : string) (attributes : (string * string) Js.Array.t)
-    (children : child Js.Array.t) : Dom.element =
-  let element = Document.createElement tag document in
-  let () =
-    attributes
-    |> Js.Array.forEach (fun a -> Element.setAttribute (fst a) (snd a) element)
-  in
-  let () =
-    children
-    |> Js.Array.forEach (fun c ->
-           match c with
-           | TextChild t ->
-               Element.appendChild (Document.createTextNode t document) element
-           | ElemChild e -> Element.appendChild e element)
-  in
-  element
-
-external replace_child : Dom.node -> Dom.element -> Dom.element -> unit
-  = "replaceChild"
-  [@@bs.send]
-
-let replace (element : Dom.element) (replacement : Dom.element) : unit =
-  match Element.parentNode element with
-  | Some parent -> replace_child parent replacement element
-  | _ -> ()
-
-external value : Dom.eventTarget -> string option = "value" [@@bs.get]
-
-external setValue : Dom.element -> string -> unit = "value" [@@bs.set]
-- 
cgit v1.2.3