external createElement : string -> Dom.element = "createElement"
  [@@bs.val] [@@bs.scope "document"]

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"]

external location : Location.location = "location"
  [@@bs.val] [@@bs.scope "document"]