Merge pull request #11926 from quarto-dev/tmp-2025-01-21-coalesce-raw

perf - coalesce_raw

Author: cscheid

src/resources/filters/quarto-finalize/coalesceraw.lua

@@ -32,40 +32,37 @@ function coalesce_raw()
 
   table.insert(filters, {
     Inlines = function(inlines)
-      local list_of_lists = collate(inlines, function(block, prev_block)
-        return block.t == "RawInline" and 
-              prev_block.t == "RawInline" and prev_block.format == block.format
-      end)
-      local result = pandoc.Inlines({})
-      for _, lst in ipairs(list_of_lists) do
-        local first_el = lst[1]
-        if first_el.t == "RawInline" then
-          local text = table.concat(lst:map(function(block) return block.text end), "")
-          local new_block = pandoc.RawInline(first_el.format, text)
-          result:insert(new_block)
+      local current_node = nil
+      for i = 1, #inlines do
+        if inlines[i].t ~= "RawInline" then
+          current_node = nil
         else
-          result:insert(first_el)
+          if current_node and inlines[i].format == current_node.format then
+            current_node.text = current_node.text .. inlines[i].text
+            inlines[i].text = ""
+          else
+            current_node = inlines[i]
+          end
         end
       end
-      return result
+      return inlines
     end,
     Blocks = function(blocks)
-      local list_of_lists = collate(blocks, function(block, prev_block)
-        return block.t == "RawBlock" and block.format:match(".*-merge$") and 
-              prev_block.t == "RawBlock" and prev_block.format == block.format
-      end)
-      local result = pandoc.Blocks({})
-      for _, lst in ipairs(list_of_lists) do
-        local first_el = lst[1]
-        if first_el.t == "RawBlock" and first_el.format:match(".*-merge") then
-          local text = table.concat(lst:map(function(block) return block.text end), "%\n")
-          local new_block = pandoc.RawBlock(first_el.format:gsub("-merge$", ""), text)
-          result:insert(new_block)
+      local current_node = nil
+      for i = 1, #blocks do
+        if blocks[i].t ~= "RawBlock" or not blocks[i].format:match(".*-merge$") then
+          current_node = nil
         else
-          result:insert(first_el)
+          blocks[i].format = blocks[i].format:gsub("-merge$", "")
+          if current_node and blocks[i].format == current_node.format then
+            current_node.text = current_node.text .. blocks[i].text
+            blocks[i].text = ""
+          else
+            current_node = blocks[i]
+          end
         end
       end
-      return result
+      return blocks
     end
   })
   return filters