Asciidoc writer: preserve original base level.

We used to normalize so that the base level is always 1, but asciidoc no longer seems to care about that, and the behavior creates difficulties when we are converting fragments. Closes #10062.
jgm · Aug 7, 2024 · 1f093ea · 1f093ea
1 parent 5967d7a
commit 1f093ea
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 1 deletion.
diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs
@@ -104,7 +104,7 @@ pandocToAsciiDoc opts (Pandoc meta blocks) = do
               (blockListToAsciiDoc opts)
               (fmap chomp . inlineListToAsciiDoc opts)
               meta
-  main <- blockListToAsciiDoc opts $ makeSections False (Just 1) blocks
+  main <- blockListToAsciiDoc opts $ makeSections False Nothing blocks
   st <- get
   let context  = defField "body" main
                $ defField "toc"

diff --git a/test/command/10062.md b/test/command/10062.md
@@ -0,0 +1,10 @@
+```
+% pandoc -t asciidoc
+### section
+
+##### five
+^D
+==== section
+
+====== five
+```