If output location is slide, keep annotations in place

Fixes #4213

Author: dragonstyle

src/resources/filters/quarto-pre/code-annotation.lua

@@ -69,6 +69,10 @@ local hasAnnotations = false;
 
 local kCellAnnotationClass = "cell-annotation"
 
+
+function isAnnotationCell(el) 
+  return el and el.t == "Div" and el.attr.classes:includes(kCellAnnotationClass)
+end
 -- annotations appear at the end of the line and are of the form
 -- # <1> 
 -- where they start with a comment character valid for that code cell

src/resources/filters/quarto-pre/output-location.lua

@@ -21,8 +21,20 @@ end
 
 -- note: assumes that outputLocationCellHasCode has been called
 local function partitionCell(el, outputClass)
-  local codeDiv = pandoc.Div({ el.content[1] }, el.attr)
-  local outputDiv = pandoc.Div(tslice(el.content, 2, #el.content), el.attr)
+  -- compute the code div, being sure to bring the annotations 
+  -- along with the code
+  local code = { el.content[1] }
+  local outputIndex
+  if isAnnotationCell(el.content[2]) then
+    tappend(code, {el.content[2]})
+    outputIndex = 3
+  else
+    outputIndex = 2
+  end
+
+  local codeDiv = pandoc.Div(code, el.attr)
+
+  local outputDiv = pandoc.Div(tslice(el.content, outputIndex, #el.content), el.attr)
   outputDiv.attr.identifier = ""
   outputDiv.attr.classes:insert(outputClass)
   return { codeDiv, outputDiv }