/* internal, moved out of Impl to reduce unnecessary code duplication */
let ofNode = (node: Dom.node) : option('a) =>
  Webapi__Dom__Node.nodeType(node) == Webapi__Dom__Types.Element ?
    Some(Obj.magic(node)) :
    None;

module Impl = (T: {type t;}) => {
  let asHtmlElement: T.t => option(Dom.htmlElement) = [%raw {|
    function(element) {
      var ownerDocument = element.ownerDocument;

      if (ownerDocument != null) {
        var defaultView = ownerDocument.defaultView;

        if (defaultView != null) {
          var HTMLElement = defaultView.HTMLElement;

          if (HTMLElement != null && element instanceof HTMLElement) {
            return element;
          }
        }
      }
    }
  |}];

  /** Unsafe cast, use [asHtmlElement] instead */
  external unsafeAsHtmlElement : T.t => Dom.htmlElement = "%identity";

  let ofNode: Dom.node => option(T.t) = ofNode;

  [@bs.get] external attributes : T.t => Dom.namedNodeMap = "";
  [@bs.get] external classList : T.t => Dom.domTokenList = "";
  [@bs.get] external className : T.t => string = "";
  [@bs.set] external setClassName : (T.t, string) => unit = "className";
  [@bs.get] external clientHeight : T.t => int = ""; /* experimental */
  [@bs.get] external clientLeft : T.t => int = ""; /* experimental */
  [@bs.get] external clientTop : T.t => int = ""; /* experimental */
  [@bs.get] external clientWidth : T.t => int = ""; /* experimental */
  [@bs.get] external id : T.t => string = "";
  [@bs.set] external setId : (T.t, string) => unit = "id";
  [@bs.get] external innerHTML : T.t => string = "";
  [@bs.set] external setInnerHTML : (T.t, string) => unit = "innerHTML";
  [@bs.get] external localName : T.t => string = "";
  [@bs.get] [@bs.return nullable] external namespaceURI : T.t => option(string) = "";
  [@bs.get] external outerHTML : T.t => string = ""; /* experimental, but widely supported */
  [@bs.set] external setOuterHTML : (T.t, string) => unit = "outerHTML"; /* experimental, but widely supported */
  [@bs.get] [@bs.return nullable] external prefix : T.t => option(string) = "";
  [@bs.get] external scrollHeight : T.t => int = ""; /* experimental, but widely supported */
  [@bs.get] external scrollLeft : T.t => float = ""; /* experimental */
  [@bs.set] external setScrollLeft : (T.t, float) => unit = "scrollLeft"; /* experimental */
  [@bs.get] external scrollTop : T.t => float = ""; /* experimental, but widely supported */
  [@bs.set] external setScrollTop : (T.t, float) => unit = "scrollTop"; /* experimental, but widely supported */
  [@bs.get] external scrollWidth : T.t => int = ""; /* experimental */
  [@bs.get] external shadowRoot : T.t => Dom.element = ""; /* experimental */
  [@bs.get] external slot : T.t => string = ""; /* experimental */
  [@bs.set] external setSlot : (T.t, string) => unit = "slot"; /* experimental */
  [@bs.get] external tagName : T.t => string = "";

  [@bs.send.pipe : T.t] external attachShadow : {. "mode": string} => Dom.shadowRoot = ""; /* experimental */
  [@bs.send.pipe : T.t] external attachShadowOpen : ([@bs.as {json|{ "mode": "open" }|json}] _) => Dom.shadowRoot = "attachShadow"; /* experimental */
  [@bs.send.pipe : T.t] external attachShadowClosed : ([@bs.as {json|{ "mode": "closed" }|json}] _) => Dom.shadowRoot = "attachShadow"; /* experimental */
  [@bs.send.pipe : T.t] external animate : (Js.t({..}), Js.t({..})) => Dom.animation = ""; /* experimental */
  [@bs.send.pipe : T.t] [@bs.return nullable] external closest : string => option(Dom.element) = ""; /* experimental */
  [@bs.send.pipe : T.t] external createShadowRoot : Dom.shadowRoot = ""; /* experimental AND deprecated (?!) */
  [@bs.send.pipe : T.t] [@bs.return nullable] external getAttribute : string => option(string) = "";
  [@bs.send.pipe : T.t] [@bs.return nullable] external getAttributeNS : (string, string) => option(string) = "";
  [@bs.send.pipe : T.t] external getBoundingClientRect : Dom.domRect = "";
  [@bs.send.pipe : T.t] external getClientRects : array(Dom.domRect) = "";
  [@bs.send.pipe : T.t] external getElementsByClassName : string => Dom.htmlCollection = "";
  [@bs.send.pipe : T.t] external getElementsByTagName : string => Dom.htmlCollection = "";
  [@bs.send.pipe : T.t] external getElementsByTagNameNS : (string, string) => Dom.htmlCollection = "";
  [@bs.send.pipe : T.t] external hasAttribute : string => bool = "";
  [@bs.send.pipe : T.t] external hasAttributeNS : (string, string) => bool = "";
  [@bs.send.pipe : T.t] external hasAttributes : bool = "";
  [@bs.send.pipe : T.t] external insertAdjacentElement : (string /* insertPosition enum */, Dom.element_like('a)) => unit = ""; /* experimental, but widely supported */
  let insertAdjacentElement: (Webapi__Dom__Types.insertPosition, Dom.element_like('a), T.t) => unit =
    (position, element, self) =>
      insertAdjacentElement(Webapi__Dom__Types.encodeInsertPosition(position), element, self);
  [@bs.send.pipe : T.t] external insertAdjacentHTML : (string /* insertPosition enum */, string) => unit = ""; /* experimental, but widely supported */
  let insertAdjacentHTML: (Webapi__Dom__Types.insertPosition, string, T.t) => unit =
    (position, text, self) =>
      insertAdjacentHTML(Webapi__Dom__Types.encodeInsertPosition(position), text, self);
  [@bs.send.pipe : T.t] external insertAdjacentText : (string /* insertPosition enum */, string) => unit = ""; /* experimental, but widely supported */
  let insertAdjacentText: (Webapi__Dom__Types.insertPosition, string, T.t) => unit =
    (position, text, self) =>
      insertAdjacentText(Webapi__Dom__Types.encodeInsertPosition(position), text, self);
  [@bs.send.pipe : T.t] external matches : string => bool = ""; /* experimental, but widely supported */
  [@bs.send.pipe : T.t] external releasePointerCapture : Dom.eventPointerId => unit = "";
  [@bs.send.pipe : T.t] external removeAttribute : string => unit = "";
  [@bs.send.pipe : T.t] external removeAttributeNS : (string, string) => unit = "";
  [@bs.send.pipe : T.t] external requestFullscreen : unit = ""; /* experimental */
  [@bs.send.pipe : T.t] external requestPointerLock : unit = ""; /* experimental */
  [@bs.send.pipe : T.t] external scrollIntoView : unit = ""; /* experimental, but widely supported */
  [@bs.send.pipe : T.t] external scrollIntoViewNoAlignToTop : ([@bs.as {json|true|json}] _) => unit = "scrollIntoView"; /* experimental, but widely supported */
  [@bs.send.pipe : T.t] external scrollIntoViewWithOptions : {. "behavior": string, "block": string} => unit = "scrollIntoView"; /* experimental */
  [@bs.send.pipe : T.t] external scrollBy : (float, float) => unit = "";
  [@bs.send.pipe : T.t] external scrollByWithOptions : {. "top": float, "left": float, "behavior": string} => unit = "scrollBy";
  [@bs.send.pipe : T.t] external scrollTo : (float, float) => unit = "";
  [@bs.send.pipe : T.t] external scrollToWithOptions : {. "top": float, "left": float, "behavior": string} => unit = "scrollTo";
  [@bs.send.pipe : T.t] external setAttribute : (string, string) => unit = "";
  [@bs.send.pipe : T.t] external setAttributeNS : (string, string, string) => unit = "";
  [@bs.send.pipe : T.t] external setPointerCapture : Dom.eventPointerId => unit = "";

  /* GlobalEventHandlers interface */
  /* Not sure this should be exposed, since EventTarget seems like a better API */

  [@bs.set] external setOnClick : (T.t, Dom.mouseEvent => unit) => unit = "onclick";
};

/* TODO: This doesn't work. Why?
module Tree (T: { type t; }) => {
  include NodeRe.Impl { type t = Type };
  include EventTargetRe.Impl { type t = Type };
  include Impl { type t = Type };
};

include Tree { type t = Dom.element };
*/

type t = Dom.element;

include Webapi__Dom__Node.Impl({ type nonrec t = t; });
include Webapi__Dom__EventTarget.Impl({ type nonrec t = t; });
include Webapi__Dom__GlobalEventHandlers.Impl({ type nonrec t = t; });
include Webapi__Dom__ParentNode.Impl({ type nonrec t = t; });
include Webapi__Dom__NonDocumentTypeChildNode.Impl({ type nonrec t = t; });
include Webapi__Dom__ChildNode.Impl({ type nonrec t = t; });
include Webapi__Dom__Slotable.Impl({ type nonrec t = t; });
include Impl({ type nonrec t = t; });