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

Ensure there's a blank line before RST tables.

Browse source 
Closes #5898.
This commit is contained in:
John MacFarlane 2019-11-13 10:10:55 -08:00
parent 791043772b
commit 5c0b3743be
2 changed files with 41 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/Text/Pandoc/Writers/RST.hs
View file

@ -300,10 +300,11 @@ blockToRST (Table caption aligns widths headers rows) = do
else gridTable opts blocksToDoc (all null headers)
(map (const AlignDefault) aligns) widths
headers rows
return $ if null caption
then tbl $$ blankline
else (".. table:: " <> caption') $$ blankline $$ nest 3 tbl $$
blankline
return $ blankline $$
(if null caption
then tbl
else (".. table:: " <> caption') $$ blankline $$ nest 3 tbl) $$
blankline
blockToRST (BulletList items) = do
contents <- mapM bulletListItemToRST items
-- ensure that sublists have preceding blank line

36
test/command/5898.md Normal file
View file

@ -0,0 +1,36 @@
```
% pandoc -f html -t rst
<html>
<body>
<ul>
<li>A list of stuff with a table inside
<table>
<thead>
<tr>
<th>First</th><th>Second</th><th>Third</th>
</tr>
</thead>
<tbody>
<tr>
<td>First</td>
<td>Second</td>
<td>Third</td>
</tr>
</tbody>
</table>
</li>
<li>Another list item</li>
</ul>
</body>
</html>
^D
- A list of stuff with a table inside
===== ====== =====
First Second Third
===== ====== =====
First Second Third
===== ====== =====
- Another list item
```