diff options
author | John MacFarlane <jgm@berkeley.edu> | 2013-11-30 17:59:28 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2013-11-30 17:59:28 -0800 |
commit | 7f09c1834da9f87e7715f5c9dc52f4b730da8f3f (patch) | |
tree | dd9b1dcf97b94b45e3cd182af60f56ec2bd6a731 /src/Text | |
parent | 7aa4d519686af1416eaf3b380f8584ab89569c41 (diff) | |
download | pandoc-7f09c1834da9f87e7715f5c9dc52f4b730da8f3f.tar.gz |
Markdown writer: Fix rendering of tight sublists.
E.g.
- foo
- bar
- baz
Previously a spurious blank line was included before the last item.
Closes #1050.
Diffstat (limited to 'src/Text')
-rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index eefcd547a..60d474263 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -555,7 +555,14 @@ bulletListItemToMarkdown opts items = do contents <- blockListToMarkdown opts items let sps = replicate (writerTabStop opts - 2) ' ' let start = text ('-' : ' ' : sps) - return $ hang (writerTabStop opts) start $ contents <> cr + -- remove trailing blank line if it is a tight list + let contents' = case reverse items of + (BulletList xs:_) | isTightList xs -> + chomp contents <> cr + (OrderedList _ xs:_) | isTightList xs -> + chomp contents <> cr + _ -> contents + return $ hang (writerTabStop opts) start $ contents' <> cr -- | Convert ordered list item (a list of blocks) to markdown. orderedListItemToMarkdown :: WriterOptions -- ^ options |