diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-03-24 15:07:19 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-03-24 15:12:32 -0700 |
| commit | d7fbc40dff9771181f26d7d9cb3129c9884a5f01 (patch) | |
| tree | 03c85243bb38ae6a1555b8ae86d91ee0191d1e70 /src/Text/Pandoc | |
| parent | b9cc29e15ab219102f09e19d61889c256eb0b487 (diff) | |
| download | pandoc-d7fbc40dff9771181f26d7d9cb3129c9884a5f01.tar.gz | |
RTF writer: Fixed tables cells containing paragraphs.
This moves \intbl after \pard.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Writers/RTF.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/RTF.hs b/src/Text/Pandoc/Writers/RTF.hs index fb935fa6a..3e0bd9976 100644 --- a/src/Text/Pandoc/Writers/RTF.hs +++ b/src/Text/Pandoc/Writers/RTF.hs @@ -259,7 +259,7 @@ tableRowToRTF header indent aligns sizes' cols = tableItemToRTF :: Int -> Alignment -> [Block] -> String tableItemToRTF indent alignment item = let contents = concatMap (blockToRTF indent alignment) item - in "{\\intbl " ++ contents ++ "\\cell}\n" + in "{" ++ substitute "\\pard" "\\pard\\intbl" contents ++ "\\cell}\n" -- | Ensure that there's the same amount of space after compact -- lists as after regular lists. |