From 221b6451fb4f8559a10e7fefebd13ce125ef29d0 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 13 May 2021 14:50:51 +0200
Subject: Rewrite in TypeScript

BuckleScript is no longer maintained. Choose a widely used techno that
will still be maintained in the following years.
---
 src/Dom/Element.ml | 44 --------------------------------------------
 1 file changed, 44 deletions(-)
 delete mode 100644 src/Dom/Element.ml

(limited to 'src/Dom/Element.ml')

diff --git a/src/Dom/Element.ml b/src/Dom/Element.ml
deleted file mode 100644
index 0b6c0bd..0000000
--- a/src/Dom/Element.ml
+++ /dev/null
@@ -1,44 +0,0 @@
-external setValue : Dom.element -> string -> unit = "value" [@@bs.set]
-
-external setTextContent : Dom.element -> string -> unit = "textContent"
-  [@@bs.set]
-
-external setStyle : Dom.element -> string -> unit = "style" [@@bs.set]
-
-external setClassName : Dom.element -> string -> unit = "className" [@@bs.set]
-
-external setScrollTop : Dom.element -> int -> unit = "scrollTop" [@@bs.set]
-
-external setAttribute : Dom.element -> string -> string -> unit = "setAttribute"
-  [@@bs.send]
-
-external setAttributeNS : Dom.element -> string -> string -> string -> unit
-  = "setAttributeNS"
-  [@@bs.send]
-
-external addEventListener : Dom.element -> string -> (Dom.event -> unit) -> unit
-  = "addEventListener"
-  [@@bs.send]
-
-external appendChild : Dom.element -> Dom.element -> unit = "appendChild"
-  [@@bs.send]
-
-external firstChild : Dom.element -> Dom.element Js.Nullable.t = "firstChild"
-  [@@bs.get]
-
-external removeChild : Dom.element -> Dom.element -> unit = "removeChild"
-  [@@bs.send]
-
-let removeFirstChild element =
-  match Js.toOption (firstChild element) with
-  | Some child ->
-      let () = removeChild element child in
-      true
-  | _ -> false
-
-let rec removeChildren element =
-  if removeFirstChild element then removeChildren element else ()
-
-let mountOn base element =
-  let () = removeChildren base in
-  appendChild base element
-- 
cgit v1.2.3