From b8eeb0f4daeecdbed8ec077defd5114e731da06c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 9 Feb 2019 08:17:53 -0800
Subject: [PATCH] AsciiDoc writer: change bulletListLevel and
orderedListLevel...
so that 0 means "not in a list," which is more what
one would expect.
---
src/Text/Pandoc/Writers/AsciiDoc.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs
index 6fc000c4c..7b417af47 100644
--- a/src/Text/Pandoc/Writers/AsciiDoc.hs
+++ b/src/Text/Pandoc/Writers/AsciiDoc.hs
@@ -68,8 +68,8 @@ writeAsciiDoc :: PandocMonad m => WriterOptions -> Pandoc -> m Text
writeAsciiDoc opts document =
evalStateT (pandocToAsciiDoc opts document) WriterState{
defListMarker = "::"
- , orderedListLevel = 1
- , bulletListLevel = 1
+ , orderedListLevel = 0
+ , bulletListLevel = 0
, intraword = False
, autoIds = Set.empty
}
@@ -285,7 +285,7 @@ bulletListItemToAsciiDoc opts blocks = do
modify $ \s -> s{ bulletListLevel = lev + 1 }
contents <- foldM (addBlock opts) empty blocks
modify $ \s -> s{ bulletListLevel = lev }
- let marker = text (replicate lev '*')
+ let marker = text (replicate (lev + 1) '*')
return $ marker <> text " " <> contents <> cr
addBlock :: PandocMonad m => WriterOptions -> Doc -> Block -> ADW m Doc
@@ -307,7 +307,7 @@ orderedListItemToAsciiDoc opts blocks = do
modify $ \s -> s{ orderedListLevel = lev + 1 }
contents <- foldM (addBlock opts) empty blocks
modify $ \s -> s{ orderedListLevel = lev }
- let marker = text (replicate lev '.')
+ let marker = text (replicate (lev + 1) '.')
return $ marker <> text " " <> contents <> cr
-- | Convert definition list item (label, list of blocks) to asciidoc.