From 5c636f11cdfed82634ee572645d765b704941b68 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 3 Mar 2020 10:44:35 +0100
Subject: Initialize views from JavaScript

---
 src/Dom/Document.ml | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

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

diff --git a/src/Dom/Document.ml b/src/Dom/Document.ml
index afd1a84..867e28c 100644
--- a/src/Dom/Document.ml
+++ b/src/Dom/Document.ml
@@ -1,4 +1,14 @@
-external querySelector : string -> Dom.element option = "querySelector"
+external createElement : string -> Dom.element = "createElement"
   [@@bs.val] [@@bs.scope "document"]
 
-let querySelectorUnsafe id = querySelector id |> Js.Option.getExn
+external createElementNS : string -> string -> Dom.element = "createElementNS"
+  [@@bs.val] [@@bs.scope "document"]
+
+external querySelector : string -> Dom.element Js.Nullable.t = "querySelector"
+  [@@bs.val] [@@bs.scope "document"]
+
+let querySelectorUnsafe id =
+  querySelector id |> Js.Nullable.toOption |> Js.Option.getExn
+
+external createTextNode : string -> Dom.element = "createTextNode"
+  [@@bs.val] [@@bs.scope "document"]
-- 
cgit v1.2.3