Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

AsciiDoc writer: change bulletListLevel and orderedListLevel...

Browse source 
so that 0 means "not in a list," which is more what
one would expect.
This commit is contained in:
John MacFarlane 2019-02-09 08:17:53 -08:00
parent 47537d26db
commit b8eeb0f4da
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Writers/AsciiDoc.hs
View file

@ -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.