diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2015-03-15 15:43:05 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2015-03-15 15:43:05 -0700 |
| commit | fcf1cd2f319e25fa9e81edcfecf884a559fd9fe3 (patch) | |
| tree | 7243f1e0c00aa1b31b5898e1bbdaeaadca22ada2 /src/Text/Pandoc | |
| parent | 451019290b01dac359ae5d7b55e4fd5829ed9faa (diff) | |
| download | pandoc-fcf1cd2f319e25fa9e81edcfecf884a559fd9fe3.tar.gz | |
AsciiDoc writer: avoid wrapping after list marker.
Closes #1858.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/AsciiDoc.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs index cf66aa9d9..1c33b004a 100644 --- a/src/Text/Pandoc/Writers/AsciiDoc.hs +++ b/src/Text/Pandoc/Writers/AsciiDoc.hs @@ -272,7 +272,7 @@ bulletListItemToAsciiDoc opts blocks = do contents <- foldM addBlock empty blocks modify $ \s -> s{ bulletListLevel = lev } let marker = text (replicate lev '*') - return $ marker <> space <> contents <> cr + return $ marker <> text " " <> contents <> cr -- | Convert ordered list item (a list of blocks) to asciidoc. orderedListItemToAsciiDoc :: WriterOptions -- ^ options @@ -292,7 +292,7 @@ orderedListItemToAsciiDoc opts marker blocks = do modify $ \s -> s{ orderedListLevel = lev + 1 } contents <- foldM addBlock empty blocks modify $ \s -> s{ orderedListLevel = lev } - return $ text marker <> space <> contents <> cr + return $ text marker <> text " " <> contents <> cr -- | Convert definition list item (label, list of blocks) to asciidoc. definitionListItemToAsciiDoc :: WriterOptions |