move actualtext to the mc-chunk

CHANGELOG.md

@@ -7,6 +7,9 @@ this project uses date-based 'snapshot' version identifiers.
 ## [Unreleased]
 
 ### Changed
+- Ulrike Fischer, 2024-11-29
+  luamml-structelemwriter.lua: moved the actualtext for e.g. stretched braces from the structure element to the mc-chunk.
+
 - Ulrike Fischer, 2024-03-03
   luamml.dtx: add plug for mbox socket to correctly annotate them in math.
 

luamml-structelemwriter.lua

@@ -89,18 +89,19 @@ local function write_elem(tree, stash)
   tex.sprint(struct_begin, '{tag=' .. tree[0] .. '/mathml')
   if stash then tex.sprint(stash) end
   if attr_flag then tex.sprint(attr_flag) end
-  if tree[':actual'] then
-    tex.sprint(', actualtext = {')
-    tex.cprint(12, tree[':actual'])
-    tex.sprint'}'
-  end
   tex.sprint'}'
   for j = 1, i do attrs[j] = nil end
 
   if tree[':nodes'] then
     local n = tree[':nodes']
     tex.runtoks(function()
+      if tree[':actual'] then
+       tex.sprint(mc_begin,'{tag=Span,actualtext=')
+       tex.cprint(12,tree[':actual'])
+       tex.sprint('}')
+      else
        tex.sprint{mc_begin, string.format('{tag=%s}', tree[0])}
+      end
       -- NOTE: This will also flush all previous sprint's... That's often annoying, but in this case actually intentional.
     end)
     local mct, mcc = tex.attribute[mc_type], tex.attribute[mc_cnt]