diff options
| author | Joris | 2020-03-03 10:44:35 +0100 |
|---|---|---|
| committer | Joris | 2020-03-03 10:44:35 +0100 |
| commit | 5c636f11cdfed82634ee572645d765b704941b68 (patch) | |
| tree | 51e11a0cfbbab284985e98fcb558d2975209a9b2 /src/Dom/Document.ml | |
| parent | a2880850a78fc36e2612215c83cbdeac0c980a5b (diff) | |
| download | tabata-5c636f11cdfed82634ee572645d765b704941b68.tar.gz tabata-5c636f11cdfed82634ee572645d765b704941b68.tar.bz2 tabata-5c636f11cdfed82634ee572645d765b704941b68.zip | |
Initialize views from JavaScript
Diffstat (limited to 'src/Dom/Document.ml')
| -rw-r--r-- | src/Dom/Document.ml | 14 |
1 files changed, 12 insertions, 2 deletions
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"] |