pptx - add a cleanup finalize step to remove RawBlock different from …

…openxml

Pandoc may have an issue in its writer as, like other formats it will correctly ignore other format RawBlock, but it seems to mess the created pptx file (e.g. choosing the wrong layout, creating empty new slides)

src/resources/filters/main.lua

@@ -89,6 +89,7 @@ import("./quarto-finalize/meta-cleanup.lua")
 import("./quarto-finalize/coalesceraw.lua")
 import("./quarto-finalize/descaffold.lua")
 import("./quarto-finalize/typst.lua")
+import("./quarto-finalize/pptx.lua")
 
 import("./normalize/flags.lua")
 import("./normalize/normalize.lua")
@@ -392,7 +393,8 @@ local quarto_finalize_filters = {
     flags = { "has_output_cells" }
   },
   { name = "finalize-wrapped-writer", filter = wrapped_writer() },
-  { name = "finalize-typst-state", filter = setup_typst_state() }
+  { name = "finalize-typst-state", filter = setup_typst_state() },
+  { name = "finalize-pptx-raw-cleanup", filter = pptx_raw_cleanup() }
 }
 
 local quarto_layout_filters = {

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

@@ -0,0 +1,16 @@
+function pptx_raw_cleanup() 
+  if not _quarto.format.isPowerPointOutput() then
+    return {}
+  end
+  return {
+    -- Remove any non-openxml RawBlock as it seems to mess pandoc Powerpoint writer
+    -- https://github.com/quarto-dev/quarto-cli/issues/9680
+    -- https://github.com/quarto-dev/quarto-cli/issues/9681
+    RawBlock = function(el)
+      if el.format ~= "openxml" then
+        return {}
+      end
+      return el
+    end
+  }
+end