aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2010-03-18 02:38:58 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2010-03-18 02:38:58 +0000
commit874b57403846f2cfcab87100ed19a6c2c8a8db87 (patch)
tree70813018f3ee62b5b01b1a0c703bc12a268422a8 /src/Text/Pandoc/Writers
parent97bff3f9dcb5cccd1800380ac215fb1f4a02b281 (diff)
downloadpandoc-874b57403846f2cfcab87100ed19a6c2c8a8db87.tar.gz
RST writer: handle images in figures.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1899 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r--src/Text/Pandoc/Writers/RST.hs6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs
index bcffb0693..534c34c09 100644
--- a/src/Text/Pandoc/Writers/RST.hs
+++ b/src/Text/Pandoc/Writers/RST.hs
@@ -145,6 +145,12 @@ blockToRST Null = return empty
blockToRST (Plain inlines) = do
opts <- get >>= (return . stOptions)
wrappedRST opts inlines
+blockToRST (Para [Image txt (src,tit)]) = do
+ capt <- inlineListToRST txt
+ let fig = text "figure:: " <> text src
+ let align = text ":align: center"
+ let alt = text ":alt: " <> if null tit then capt else text tit
+ return $ (text ".. " <> (fig $$ align $$ alt $$ text "" $$ capt)) $$ text ""
blockToRST (Para inlines) = do
opts <- get >>= (return . stOptions)
contents <- wrappedRST opts inlines