From 7ac9c3999678e545ea408200a6d503775366d467 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 3 Nov 2018 12:22:01 -0700
Subject: AsciiDoc writer: prevent illegal nestings.

In asciidoc you can only have level n+1 headers directly under
level n headers.
---
 src/Text/Pandoc/Writers/AsciiDoc.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs
index e17dad47f..3287779c7 100644
--- a/src/Text/Pandoc/Writers/AsciiDoc.hs
+++ b/src/Text/Pandoc/Writers/AsciiDoc.hs
@@ -90,7 +90,7 @@ pandocToAsciiDoc opts (Pandoc meta blocks) = do
               (fmap render' . blockListToAsciiDoc opts)
               (fmap render' . inlineListToAsciiDoc opts)
               meta
-  body <- blockListToAsciiDoc opts blocks
+  body <- vcat <$> mapM (elementToAsciiDoc 1 opts) (hierarchicalize blocks)
   let main = render colwidth body
   let context  = defField "body" main
                $ defField "toc"
@@ -101,6 +101,14 @@ pandocToAsciiDoc opts (Pandoc meta blocks) = do
        Nothing  -> return main
        Just tpl -> renderTemplate' tpl context
 
+elementToAsciiDoc :: PandocMonad m
+                  => Int -> WriterOptions -> Element -> ADW m Doc
+elementToAsciiDoc _ opts (Blk b) = blockToAsciiDoc opts b
+elementToAsciiDoc nestlevel opts (Sec _lvl _num attr label children) = do
+  hdr <- blockToAsciiDoc opts (Header nestlevel attr label)
+  rest <- vcat <$> mapM (elementToAsciiDoc (nestlevel + 1) opts) children
+  return $ hdr $$ rest
+
 -- | Escape special characters for AsciiDoc.
 escapeString :: String -> String
 escapeString = escapeStringUsing escs
-- 
cgit v1.2.3