diff options
| author | John MacFarlane <[email protected]> | 2017-08-20 10:42:52 -0700 |
|---|---|---|
| committer | John MacFarlane <[email protected]> | 2017-08-20 10:42:52 -0700 |
| commit | dd08891e8ca10395de4fcb4040bd3c0d8892d5fe (patch) | |
| tree | 4cd1a267c663608c6deb97da3a497e9f4f365251 /src/Text/Pandoc/Writers/RTF.hs | |
| parent | bb2a4f2bc0ef7dcf2e9110762f8994a5c3834574 (diff) | |
Checkpoint, writers.figures
Diffstat (limited to 'src/Text/Pandoc/Writers/RTF.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/RTF.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/RTF.hs b/src/Text/Pandoc/Writers/RTF.hs index 48d31c7bf..0d19b3f88 100644 --- a/src/Text/Pandoc/Writers/RTF.hs +++ b/src/Text/Pandoc/Writers/RTF.hs @@ -260,6 +260,8 @@ blockToRTF :: PandocMonad m blockToRTF _ _ Null = return "" blockToRTF indent alignment (Div _ bs) = blocksToRTF indent alignment bs +blockToRTF indent alignment (Figure _attr (Caption _short long) bs) = + blocksToRTF indent alignment (bs ++ long) blockToRTF indent alignment (Plain lst) = rtfCompact indent 0 alignment <$> inlinesToRTF lst blockToRTF indent alignment (Para lst) = |