restore some punning behaviour

Preserve `isMobile={isMobile}` when it's like that in the source, instead of reformatting to `isMobile`.
Do we want that?

Author: cristianoc

compiler/syntax/src/res_printer.ml

@@ -4553,7 +4553,10 @@ and print_jsx_props ~state args cmt_tbl : Doc.t * Parsetree.expression option =
 and print_jsx_prop ~state arg cmt_tbl =
   match arg with
   | ( ((Asttypes.Lbl {txt = lbl_txt} | Opt {txt = lbl_txt}) as lbl),
-      {pexp_desc = Pexp_ident {txt = Longident.Lident ident}} )
+      {
+        pexp_attributes = [];
+        pexp_desc = Pexp_ident {txt = Longident.Lident ident};
+      } )
     when lbl_txt = ident (* jsx punning *) -> (
     match lbl with
     | Nolbl -> Doc.nil
@@ -4878,7 +4881,10 @@ and print_argument ~state (arg_lbl, arg) cmt_tbl =
   match (arg_lbl, arg) with
   (* ~a (punned)*)
   | ( Lbl {txt = lbl; loc = l0},
-      {pexp_desc = Pexp_ident {txt = Longident.Lident name}} )
+      {
+        pexp_attributes = [];
+        pexp_desc = Pexp_ident {txt = Longident.Lident name};
+      } )
     when lbl = name && not (ParsetreeViewer.is_braced_expr arg) ->
     let loc = {l0 with loc_end = arg.pexp_loc.loc_end} in
     let doc = Doc.concat [Doc.tilde; print_ident_like lbl] in
@@ -4890,6 +4896,7 @@ and print_argument ~state (arg_lbl, arg) cmt_tbl =
           Pexp_constraint
             ( ({pexp_desc = Pexp_ident {txt = Longident.Lident name}} as arg_expr),
               typ );
+        pexp_attributes = [];
       } )
     when lbl = name && not (ParsetreeViewer.is_braced_expr arg_expr) ->
     let loc = {l0 with loc_end = arg.pexp_loc.loc_end} in
@@ -4904,7 +4911,11 @@ and print_argument ~state (arg_lbl, arg) cmt_tbl =
     in
     print_comments doc cmt_tbl loc
   (* ~a? (optional lbl punned)*)
-  | Opt {txt = lbl; loc}, {pexp_desc = Pexp_ident {txt = Longident.Lident name}}
+  | ( Opt {txt = lbl; loc},
+      {
+        pexp_desc = Pexp_ident {txt = Longident.Lident name};
+        pexp_attributes = [];
+      } )
     when lbl = name ->
     let doc = Doc.concat [Doc.tilde; print_ident_like lbl; Doc.question] in
     print_comments doc cmt_tbl loc

tests/syntax_tests/data/printer/expr/expected/jsx.res.txt

@@ -51,7 +51,7 @@ let x =
 let x = <div className="container" className2="container2" className3="container3" onClick />
 
 let nav =
-  <Nav isMobile fullScreen={!isMobile ? false : isOpen}>
+  <Nav isMobile={isMobile} fullScreen={!isMobile ? false : isOpen}>
     <NavContent>
       <WidescreenMenu
         menuItems={props.items} trial={props.trial} user={props.user} viewer={props.viewer}
@@ -60,14 +60,14 @@ let nav =
   </Nav>
 
 let nav2 =
-  <Nav isMobile fullScreen={!isMobile ? false : isOpen}>
+  <Nav isMobile={isMobile} fullScreen={!isMobile ? false : isOpen}>
     <NavContent>
       {switch isMobile {
       | true =>
         <MobileMenu
           handleOpenToggle={_ => setOpen(open_ => !open_)}
           menuItems={props.items}
-          isOpen
+          isOpen={isOpen}
           forceOpen={_ => setOpen(true)}
           forceClose={_ => setOpen(false)}
           user={props.user}
@@ -82,13 +82,13 @@ let nav2 =
   </Nav>
 
 let nav3 =
-  <Nav isMobile fullScreen={!isMobile ? false : isOpen}>
+  <Nav isMobile={isMobile} fullScreen={!isMobile ? false : isOpen}>
     <NavContent>
       {isMobile
         ? <MobileMenu
             handleOpenToggle={_ => setOpen(open_ => !open_)}
             menuItems={props.items}
-            isOpen
+            isOpen={isOpen}
             forceOpen={_ => setOpen(true)}
             forceClose={_ => setOpen(false)}
             user={props.user}
@@ -102,7 +102,7 @@ let nav3 =
 let avatarSection =
   <>
     <div style={{"zIndex": "1", "opacity": opacityUser}}>
-      <Avatar user size={45} />
+      <Avatar user={user} size={45} />
     </div>
     {user.email !== viewer.email
       ? <div