Adjust whitespace after preceding commit

aantron · Jul 13, 2023 · d77da22 · d77da22
1 parent 70106f8
commit d77da22
Showing 1 changed file with 67 additions and 67 deletions.
diff --git a/src/html_parser.ml b/src/html_parser.ml
@@ -319,73 +319,73 @@ struct
 
   let adjust_svg_attributes attributes =
     attributes |> List.map (fun ((ns, name), value) ->
-        let name =
-          match name with
-          | "attributename" -> "attributeName"
-          | "attributetype" -> "attributeType"
-          | "basefrequency" -> "baseFrequency"
-          | "baseprofile" -> "baseProfile"
-          | "calcmode" -> "calcMode"
-          | "clippathunits" -> "clipPathUnits"
-          | "contentscripttype" -> "contentScriptType"
-          | "contentstyletype" -> "contentStyleType"
-          | "diffuseconstant" -> "diffuseConstant"
-          | "edgemode" -> "edgeMode"
-          | "externalresourcesrequired" -> "externalResourcesRequired"
-          | "filterres" -> "filterRes"
-          | "filterunits" -> "filterUnits"
-          | "glyphref" -> "glyphRef"
-          | "gradienttransform" -> "gradientTransform"
-          | "gradientunits" -> "gradientUnits"
-          | "kernelmatrix" -> "kernelMatrix"
-          | "kernelunitlength" -> "kernelUnitLength"
-          | "keypoints" -> "keyPoints"
-          | "keysplines" -> "keySplines"
-          | "keytimes" -> "keyTimes"
-          | "lengthadjust" -> "lengthAdjust"
-          | "limitingconeangle" -> "limitingConeAngle"
-          | "markerheight" -> "markerHeight"
-          | "markerunits" -> "markerUnits"
-          | "markerwidth" -> "markerWidth"
-          | "maskcontentunits" -> "maskContentUnits"
-          | "maskunits" -> "maskUnits"
-          | "numoctaves" -> "numOctaves"
-          | "pathlength" -> "pathLength"
-          | "patterncontentunits" -> "patternContentUnits"
-          | "patterntransform" -> "patternTransform"
-          | "patternunits" -> "patternUnits"
-          | "pointsatx" -> "pointsAtX"
-          | "pointsaty" -> "pointsAtY"
-          | "pointsatz" -> "pointsAtZ"
-          | "preservealpha" -> "preserveAlpha"
-          | "preserveaspectratio" -> "preserveAspectRatio"
-          | "primitiveunits" -> "primitiveUnits"
-          | "refx" -> "refX"
-          | "refy" -> "refY"
-          | "repeatcount" -> "repeatCount"
-          | "repeatdur" -> "repeatDur"
-          | "requiredextensions" -> "requiredExtensions"
-          | "requiredfeatures" -> "requiredFeatures"
-          | "specularconstant" -> "specularConstant"
-          | "specularexponent" -> "specularExponent"
-          | "spreadmethod" -> "spreadMethod"
-          | "startoffset" -> "startOffset"
-          | "stddeviation" -> "stdDeviation"
-          | "stitchtiles" -> "stitchTiles"
-          | "surfacescale" -> "surfaceScale"
-          | "systemlanguage" -> "systemLanguage"
-          | "tablevalues" -> "tableValues"
-          | "targetx" -> "targetX"
-          | "targety" -> "targetY"
-          | "textlength" -> "textLength"
-          | "viewbox" -> "viewBox"
-          | "viewtarget" -> "viewTarget"
-          | "xchannelselector" -> "xChannelSelector"
-          | "ychannelselector" -> "yChannelSelector"
-          | "zoomandpan" -> "zoomAndPan"
-          | _ -> name
-        in
-        (ns, name), value)
+      let name =
+        match name with
+        | "attributename" -> "attributeName"
+        | "attributetype" -> "attributeType"
+        | "basefrequency" -> "baseFrequency"
+        | "baseprofile" -> "baseProfile"
+        | "calcmode" -> "calcMode"
+        | "clippathunits" -> "clipPathUnits"
+        | "contentscripttype" -> "contentScriptType"
+        | "contentstyletype" -> "contentStyleType"
+        | "diffuseconstant" -> "diffuseConstant"
+        | "edgemode" -> "edgeMode"
+        | "externalresourcesrequired" -> "externalResourcesRequired"
+        | "filterres" -> "filterRes"
+        | "filterunits" -> "filterUnits"
+        | "glyphref" -> "glyphRef"
+        | "gradienttransform" -> "gradientTransform"
+        | "gradientunits" -> "gradientUnits"
+        | "kernelmatrix" -> "kernelMatrix"
+        | "kernelunitlength" -> "kernelUnitLength"
+        | "keypoints" -> "keyPoints"
+        | "keysplines" -> "keySplines"
+        | "keytimes" -> "keyTimes"
+        | "lengthadjust" -> "lengthAdjust"
+        | "limitingconeangle" -> "limitingConeAngle"
+        | "markerheight" -> "markerHeight"
+        | "markerunits" -> "markerUnits"
+        | "markerwidth" -> "markerWidth"
+        | "maskcontentunits" -> "maskContentUnits"
+        | "maskunits" -> "maskUnits"
+        | "numoctaves" -> "numOctaves"
+        | "pathlength" -> "pathLength"
+        | "patterncontentunits" -> "patternContentUnits"
+        | "patterntransform" -> "patternTransform"
+        | "patternunits" -> "patternUnits"
+        | "pointsatx" -> "pointsAtX"
+        | "pointsaty" -> "pointsAtY"
+        | "pointsatz" -> "pointsAtZ"
+        | "preservealpha" -> "preserveAlpha"
+        | "preserveaspectratio" -> "preserveAspectRatio"
+        | "primitiveunits" -> "primitiveUnits"
+        | "refx" -> "refX"
+        | "refy" -> "refY"
+        | "repeatcount" -> "repeatCount"
+        | "repeatdur" -> "repeatDur"
+        | "requiredextensions" -> "requiredExtensions"
+        | "requiredfeatures" -> "requiredFeatures"
+        | "specularconstant" -> "specularConstant"
+        | "specularexponent" -> "specularExponent"
+        | "spreadmethod" -> "spreadMethod"
+        | "startoffset" -> "startOffset"
+        | "stddeviation" -> "stdDeviation"
+        | "stitchtiles" -> "stitchTiles"
+        | "surfacescale" -> "surfaceScale"
+        | "systemlanguage" -> "systemLanguage"
+        | "tablevalues" -> "tableValues"
+        | "targetx" -> "targetX"
+        | "targety" -> "targetY"
+        | "textlength" -> "textLength"
+        | "viewbox" -> "viewBox"
+        | "viewtarget" -> "viewTarget"
+        | "xchannelselector" -> "xChannelSelector"
+        | "ychannelselector" -> "yChannelSelector"
+        | "zoomandpan" -> "zoomAndPan"
+        | _ -> name
+      in
+      (ns, name), value)
 
   let adjust_svg_tag_name = function
     | "altglyph" -> "altGlyph"