Change snakecase to camelcase for prop

Author: nojaf

compiler/core/js_dump.ml

@@ -1154,6 +1154,19 @@ and print_jsx cxt ?(spread_props : J.expression option)
     in
 
     let print_prop n x ctx =
+      let n =
+        (* turn aria-label to ariaLabel *)
+        if not (String.contains n '-') then n
+        else
+          let chars = String.to_seq n |> List.of_seq in
+          let rec visit chars acc =
+            match chars with
+            | [] -> List.rev acc
+            | '-' :: l :: rest -> visit rest (Char.uppercase_ascii l :: acc)
+            | c :: rest -> visit rest (c :: acc)
+          in
+          visit chars [] |> List.to_seq |> String.of_seq
+      in
       let prop_name = Js_dump_property.property_key_string n in
       P.string f prop_name;
       P.string f "=";

tests/tests/src/jsx_preserve_test.mjs

@@ -203,6 +203,10 @@ let _optional_props = <Jsx_preserve_test$ComponentWithOptionalProps
   element={<div />}
 />;
 
+let _props_with_hypen = <label
+  ariaLabel="close sidebar"
+/>;
+
 export {
   Icon,
   _single_element_child,
@@ -228,5 +232,6 @@ export {
   _large_component,
   ComponentWithOptionalProps,
   _optional_props,
+  _props_with_hypen,
 }
 /* _single_element_child Not a pure module */

tests/tests/src/jsx_preserve_test.res

@@ -126,3 +126,5 @@ module ComponentWithOptionalProps = {
 }
 
 let _optional_props = <ComponentWithOptionalProps i=1 s="test" element={<div />} />
+
+let _props_with_hypen = <label ariaLabel={"close sidebar"} />