Fix attribute name typos, phantom type mismatches, and type tag typos

jsx/tyxml_jsx.ml

@@ -168,7 +168,7 @@ let classify_name ~loc hint_lang lid =
 let is_homemade_component lid = match lid with
   | Longident.Ldot (( Lident s | Ldot (_, s)), "createElement") ->
     String.lowercase_ascii s <> "svg"
-    && String.lowercase_ascii s <> "Html"
+    && String.lowercase_ascii s <> "html"
     && let c = s.[0] in 'A' <= c && c <= 'Z'
   | _ -> false
 

lib/html_f.ml

@@ -388,7 +388,7 @@ struct
     constant_attrib "required"
 
   let a_reversed =
-    constant_attrib "reserved"
+    constant_attrib "reversed"
 
   let a_sandbox x =
     user_attrib C.string_of_sandbox "sandbox" x
@@ -408,7 +408,7 @@ struct
   let a_span = int_attrib "span"
 
   (*let a_srcdoc*)
-  let a_srclang = string_attrib "xml:lang"
+  let a_srclang = string_attrib "srclang"
 
   let a_srcset = srcset_attrib "srcset"
 
@@ -878,7 +878,7 @@ struct
     | `Allow_popups -> "allow-popups"
     | `Allow_top_navigation -> "allow-top-navigation"
     | `Allow_same_origin -> "allow-same-origin"
-    | `Allow_script -> "allow-script"
+    | `Allow_script -> "allow-scripts"
 
   let string_of_linktype = function
     | `Alternate -> "alternate"
@@ -974,7 +974,7 @@ struct
     | `Audio -> "audio"
     | `Pubdate -> "pubdate"
     | `Required -> "required"
-    | `Reversed -> "reserved"
+    | `Reversed -> "reversed"
     | `Scoped -> "scoped"
     | `Seamless -> "seamless"
     | `Any -> "any"

lib/html_sigs.mli

@@ -316,7 +316,7 @@ module type T = sig
 
   val a_loop : unit -> [> | `Loop] attrib
 
-  val a_low : float_number wrap -> [> | `High] attrib
+  val a_low : float_number wrap -> [> | `Low] attrib
 
   val a_max : float_number wrap -> [> | `Max] attrib
 

lib/html_types.mli

@@ -1101,7 +1101,7 @@ type +'a between_flow5_and_flow5_without_interactive_header_footer =
   [< flow5  > `Abbr `Address `Article `Aside `Audio `B `Bdo `Blockquote `Br
        `Button `Canvas `Cite `Code `Command `Datalist `Del `Dfn `Dialog `Div `Dl `Em
        `Fieldset `Figure `Form `H1 `H2 `H3 `H4 `H5 `H6 `Hgroup `Hr `I `Img `Picture
-       `Input `Ins `Kbd `Keygen `Label `Map`Mark `Menu `Meter `Nav `Noscript
+       `Input `Ins `Kbd `Keygen `Label `Map `Mark `Menu `Meter `Nav `Noscript
        `Object `Ol `Output `P `PCDATA `Pre `Progress `Q `Ruby `Samp `Script
        `Section `Select `Small `Span `Strong `Style `Sub `Sup `Svg `Table
        `Template `Textarea `Time `U `Ul `Var `Video `Wbr] as 'a
@@ -1208,7 +1208,7 @@ type body_attrib =
     | common
     | `OnAfterPrint
     | `OnBeforePrint
-    | `OneBeforeUnload
+    | `OnBeforeUnload
     | `OnHashChange
     | `OnMessage
     | `OnOffLine
@@ -2186,15 +2186,15 @@ type option_content_fun = [ | `PCDATA ]
 
 type option_content = [ | `PCDATA ]
 
-(* NAME: keygen, KIND: nullary, TYPE: [= common | `Autofcus | `Challenge | `Disabled | `Form | `Keytype | `Name ], [=`Keygen], ARG: notag, ATTRIB:  OUT: [=`Keygen] *)
+(* NAME: keygen, KIND: nullary, TYPE: [= common | `Autofocus | `Challenge | `Disabled | `Form | `Keytype | `Name ], [=`Keygen], ARG: notag, ATTRIB:  OUT: [=`Keygen] *)
 type keygen = [ | `Keygen ]
 
 type keygen_content = notag
 
 type keygen_content_fun = notag
 
 type keygen_attrib =
-  [ | common | `Autofcus | `Challenge | `Disabled | `Form | `Keytype | `Name
+  [ | common | `Autofocus | `Challenge | `Disabled | `Form | `Keytype | `Name
   ]
 
 (* NAME: progress, KIND: star, TYPE: [= common | `Float_Value |`Max| `Form ],[= phrasing_without_progress], [=`Progress], ARG: [= phrasing_without_progress], ATTRIB:  OUT: [=`Progress] *)

lib/svg_f.ml

@@ -228,7 +228,7 @@ struct
   let a_contentStyleType = string_attrib "contentStyleType"
 
   let a_zoomAndPan x =
-    user_attrib C.string_of_big_variant "zoomAndSpan" x
+    user_attrib C.string_of_big_variant "zoomAndPan" x
 
   let a_href = string_attrib "href"
 
@@ -238,13 +238,13 @@ struct
     Xml.space_sep_attrib "requiredFeatures"
 
   let a_requiredExtensions =
-    Xml.space_sep_attrib "requiredExtension"
+    Xml.space_sep_attrib "requiredExtensions"
 
   let a_systemLanguage =
     Xml.comma_sep_attrib "systemLanguage"
 
   let a_externalRessourcesRequired =
-    user_attrib C.string_of_bool "externalRessourcesRequired"
+    user_attrib C.string_of_bool "externalResourcesRequired"
 
   let a_id = string_attrib "id"
 
@@ -395,7 +395,7 @@ struct
     user_attrib C.string_of_big_variant "primitiveUnits" x
 
   let a_filterRes =
-    user_attrib C.string_of_number_optional_number "filterResUnits"
+    user_attrib C.string_of_number_optional_number "filterRes"
 
   let a_result = string_attrib "result"
 
@@ -469,7 +469,7 @@ struct
   let a_targetY = user_attrib C.string_of_int "targetY"
 
   let a_edgeMode x =
-    user_attrib C.string_of_big_variant "targetY" x
+    user_attrib C.string_of_big_variant "edgeMode" x
 
   let a_preserveAlpha = user_attrib C.string_of_bool "preserveAlpha"
 
@@ -494,7 +494,7 @@ struct
 
   let a_radius = user_attrib C.string_of_number_optional_number "radius"
 
-  let a_baseFrenquency =
+  let a_baseFrequency =
     user_attrib C.string_of_number_optional_number "baseFrequency"
 
   let a_numOctaves = user_attrib C.string_of_int "numOctaves"
@@ -513,7 +513,7 @@ struct
   let a_xlink_actuate x =
     user_attrib C.string_of_big_variant "xlink:actuate" x
 
-  let a_target = string_attrib "xlink:target"
+  let a_target = string_attrib "target"
 
   let a_viewTarget = string_attrib "viewTarget"
 
@@ -586,7 +586,7 @@ struct
 
   let a_unicode = string_attrib "unicode"
 
-  let a_glyph_name = string_attrib "glyphname"
+  let a_glyph_name = string_attrib "glyph-name"
 
   let a_orientation x =
     user_attrib C.string_of_big_variant "orientation" x
@@ -901,7 +901,7 @@ struct
 
   let font_face_uri = star "font-face-uri"
 
-  let font_face_format = nullary "font-face-uri"
+  let font_face_format = nullary "font-face-format"
 
   let font_face_name = nullary "font-face-name"
 
@@ -960,14 +960,14 @@ struct
 
   let string_of_big_variant = function
     | `A -> "a"
-    | `Absolute_colorimetric -> "absolute_colorimetric"
-    | `Align -> ""
+    | `Absolute_colorimetric -> "absolute-colorimetric"
+    | `Align -> "align"
     | `Always -> "always"
     | `Atop -> "atop"
     | `Arithmetic -> "arithmetic"
     | `Auto -> "auto"
     | `B -> "b"
-    | `Bever -> "bevel"
+    | `Bevel -> "bevel"
     | `Blink -> "blink"
     | `Butt -> "butt"
     | `CSS -> "CSS"
@@ -1025,7 +1025,7 @@ struct
     | `Remove -> "remove"
     | `Repeat -> "repeat"
     | `Replace -> "replace"
-    | `Relative_colorimetric -> "relative_colorimetric"
+    | `Relative_colorimetric -> "relative-colorimetric"
     | `Rotate -> "rotate"
     | `Round -> "round"
     | `Saturate -> "saturate"
@@ -1062,27 +1062,27 @@ struct
 
   let string_of_dominant_baseline = function
     | `Auto -> "auto"
-    | `Use_script -> "usescript"
-    | `No_change -> "nochange"
-    | `Reset_size -> "resetsize"
+    | `Use_script -> "use-script"
+    | `No_change -> "no-change"
+    | `Reset_size -> "reset-size"
     | `Ideographic -> "ideographic"
     | `Alphabetic -> "alphabetic"
     | `Hanging -> "hanging"
     | `Mathematical -> "mathematical"
     | `Central -> "central"
     | `Middle -> "middle"
-    | `Text_after_edge -> "textafteredge"
-    | `Text_before_edge -> "textbeforeedge"
+    | `Text_after_edge -> "text-after-edge"
+    | `Text_before_edge -> "text-before-edge"
     | `Inherit -> "inherit"
 
 
   let string_of_in_value = function
-    | `SourceGraphic -> "sourceGraphic"
-    | `SourceAlpha -> "sourceAlpha"
-    | `BackgroundImage -> "backgroundImage"
-    | `BackgroundAlpha -> "backgroundAlpha"
-    | `FillPaint -> "fillPaint"
-    | `StrokePaint -> "strokePaint"
+    | `SourceGraphic -> "SourceGraphic"
+    | `SourceAlpha -> "SourceAlpha"
+    | `BackgroundImage -> "BackgroundImage"
+    | `BackgroundAlpha -> "BackgroundAlpha"
+    | `FillPaint -> "FillPaint"
+    | `StrokePaint -> "StrokePaint"
     | `Ref _svg -> _svg
 
   let string_of_int = string_of_int

lib/svg_sigs.mli

@@ -134,7 +134,7 @@ module type T = sig
     [@@ocaml.deprecated "Removed in SVG2"]
   (** @deprecated Removed in SVG2 *)
 
-  val a_zoomAndPan : [< | `Disable | `Magnify ] wrap -> [> | `ZoomAndSpan ] attrib
+  val a_zoomAndPan : [< | `Disable | `Magnify ] wrap -> [> | `ZoomAndPan ] attrib
 
   val a_href : iri wrap -> [> | `Xlink_href ] attrib
 
@@ -147,12 +147,12 @@ module type T = sig
   (** @deprecated Removed in SVG2 *)
 
   val a_requiredExtensions :
-    spacestrings wrap -> [> | `RequiredExtension ] attrib
+    spacestrings wrap -> [> | `RequiredExtensions ] attrib
 
   val a_systemLanguage : commastrings wrap -> [> | `SystemLanguage ] attrib
 
   val a_externalRessourcesRequired :
-    bool wrap -> [> | `ExternalRessourcesRequired ] attrib
+    bool wrap -> [> | `ExternalResourcesRequired ] attrib
 
   val a_id : string wrap -> [> | `Id ] attrib
 
@@ -172,7 +172,7 @@ module type T = sig
 
   val a_media : commastrings wrap -> [> | `Media ] attrib
 
-  val a_xlink_title : string wrap -> [> | `Title ] attrib
+  val a_xlink_title : string wrap -> [> | `Xlink_title ] attrib
     [@@ocaml.deprecated "Use a child title element"]
   (** @deprecated Use a child title element *)
 
@@ -269,7 +269,7 @@ module type T = sig
       | `Perceptual
       | `Relative_colorimetric
       | `Saturation
-      | `Absolute_colorimetric ] wrap -> [> | `Rendering_Indent ] attrib
+      | `Absolute_colorimetric ] wrap -> [> | `Rendering_Intent ] attrib
 
   val a_gradientUnits :
     [< `UserSpaceOnUse | `ObjectBoundingBox ] wrap ->
@@ -315,7 +315,7 @@ module type T = sig
     [< | `UserSpaceOnUse | `ObjectBoundingBox ] wrap ->
     [> | `PrimitiveUnits ] attrib
 
-  val a_filterRes : number_optional_number wrap -> [> | `FilterResUnits ] attrib
+  val a_filterRes : number_optional_number wrap -> [> | `FilterRes ] attrib
 
   val a_result : string wrap -> [> | `Result ] attrib
 
@@ -411,9 +411,9 @@ module type T = sig
   val a_targetY : int wrap -> [> | `TargetY ] attrib
 
   val a_edgeMode :
-    [< | `Duplicate | `Wrap | `None ] wrap -> [> | `TargetY ] attrib
+    [< | `Duplicate | `Wrap | `None ] wrap -> [> | `EdgeMode ] attrib
 
-  val a_preserveAlpha : bool wrap -> [> | `TargetY ] attrib
+  val a_preserveAlpha : bool wrap -> [> | `PreserveAlpha ] attrib
 
   val a_surfaceScale : number wrap -> [> | `SurfaceScale ] attrib
 
@@ -435,7 +435,7 @@ module type T = sig
 
   val a_radius : number_optional_number wrap -> [> | `Radius ] attrib
 
-  val a_baseFrenquency :
+  val a_baseFrequency :
     number_optional_number wrap -> [> | `BaseFrequency ] attrib
 
   val a_numOctaves : int wrap -> [> | `NumOctaves ] attrib
@@ -459,7 +459,7 @@ module type T = sig
     [@@ocaml.deprecated "Removed in SVG2"]
   (** @deprecated Removed in SVG2 *)
 
-  val a_target : string wrap -> [> | `Xlink_target ] attrib
+  val a_target : string wrap -> [> | `Target ] attrib
 
   val a_viewTarget : string wrap -> [> | `ViewTarget ] attrib
     [@@ocaml.deprecated "Removed in SVG2"]
@@ -535,13 +535,13 @@ module type T = sig
 
   val a_unicode : string wrap -> [> | `Unicode ] attrib
 
-  val a_glyph_name : string wrap -> [> | `glyphname ] attrib
+  val a_glyph_name : string wrap -> [> | `GlyphName ] attrib
 
   val a_orientation : [< | `H | `V ] wrap -> [> | `Orientation ] attrib
 
   val a_arabic_form :
     [< | `Initial | `Medial | `Terminal | `Isolated ] wrap ->
-    [> | `Arabicform ] attrib
+    [> | `ArabicForm ] attrib
 
   val a_lang : string wrap -> [> | `Lang ] attrib
 
@@ -647,7 +647,7 @@ module type T = sig
     [< `Butt | `Round | `Square ] wrap -> [> | `Stroke_Linecap ] attrib
 
   val a_stroke_linejoin :
-    [< `Miter | `Round | `Bever ] wrap -> [> `Stroke_Linejoin ] attrib
+    [< `Miter | `Round | `Bevel ] wrap -> [> `Stroke_Linejoin ] attrib
 
   val a_stroke_miterlimit : float wrap -> [> `Stroke_Miterlimit ] attrib