open Webapi.Dom

let toggleClassName (element : Dom.element) (className : string) : unit =
  Element.setClassName element
    (if Element.className element == className then "" else className)

type child = TextChild of string | ElemChild of Dom.element

let h (tag : string) (attributes : (string * string) Js.Array.t)
    (children : child Js.Array.t) : Dom.element =
  let element = Document.createElement tag document in
  let () =
    attributes
    |> Js.Array.forEach (fun a -> Element.setAttribute (fst a) (snd a) element)
  in
  let () =
    children
    |> Js.Array.forEach (fun c ->
           match c with
           | TextChild t ->
               Element.appendChild (Document.createTextNode t document) element
           | ElemChild e -> Element.appendChild e element)
  in
  element

external replace_child : Dom.node -> Dom.element -> Dom.element -> unit
  = "replaceChild"
  [@@bs.send]

let replace (element : Dom.element) (replacement : Dom.element) : unit =
  match Element.parentNode element with
  | Some parent -> replace_child parent replacement element
  | _ -> ()

external value : Dom.eventTarget -> string option = "value" [@@bs.get]

external setValue : Dom.element -> string -> unit = "value" [@@bs.set]