Unroll divs in JATS

Divs are converted to boxedtext by pandoc, which isn’t really what we’re looking for, so unroll them to avoid this behavior.

Author: dragonstyle

src/resources/filters/quarto-post/jats.lua

@@ -0,0 +1,25 @@
+-- jats.lua
+-- Copyright (C) 2021-2022 Posit Software, PBC
+
+
+
+
+function jats()
+  return {
+    -- clear out divs
+    Div = function(div)
+      if _quarto.format.isJatsOutput() then
+        -- unroll blocks contained in divs
+        local blocks = pandoc.List()
+        for _, childBlock in ipairs(div.content) do
+          if childBlock.t == "Div" then
+            tappend(blocks, childBlock.content)
+          else
+            blocks:insert(childBlock)
+          end
+        end
+        return blocks
+      end
+    end
+  }
+end

src/resources/filters/quarto-post/quarto-post.lua

@@ -17,6 +17,7 @@ import("latexdiv.lua")
 import("foldcode.lua")
 import("fig-cleanup.lua")
 import("ipynb.lua")
+import("jats.lua")
 import("ojs.lua")
 import("reveal.lua")
 import("tikz.lua")
@@ -50,6 +51,7 @@ return {
     figCleanup(),
     pdfImages()
   }),
+  jats(),
   ojs(),
   quartoPostMetaInject(),
 }

src/resources/pandoc/datadir/_format.lua

@@ -181,6 +181,16 @@ local function isAstOutput()
   return isNativeOutput() or isJsonOutput()
 end
 
+local function isJatsOutput() 
+  local formats = {
+    "jats",
+    "jats_archiving",
+    "jats_articleauthoring",
+    "jats_publishing",
+  }
+  return tcontains(formats, FORMAT)
+end
+
 
 return {
   isRawHtml = isRawHtml,
@@ -204,5 +214,6 @@ return {
   isBibliographyOutput = isBibliographyOutput,
   isNativeOutput = isNativeOutput,
   isJsonOutput = isJsonOutput,
-  isAstOutput = isAstOutput
+  isAstOutput = isAstOutput,
+  isJatsOutput = isJatsOutput
 }