diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-03-18 02:38:58 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2010-03-18 02:38:58 +0000 |
commit | 874b57403846f2cfcab87100ed19a6c2c8a8db87 (patch) | |
tree | 70813018f3ee62b5b01b1a0c703bc12a268422a8 | |
parent | 97bff3f9dcb5cccd1800380ac215fb1f4a02b281 (diff) |
RST writer: handle images in figures.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1899 788f1e2b-df1e-0410-8736-df70ead52e1b
-rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 6 | ||||
-rw-r--r-- | tests/writer.rst | 7 |
2 files changed, 11 insertions, 2 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 diff --git a/tests/writer.rst b/tests/writer.rst index c2ef31b34..e68343b01 100644 --- a/tests/writer.rst +++ b/tests/writer.rst @@ -834,7 +834,11 @@ Images From "Voyage dans la Lune" by Georges Melies (1902): -|lalune| +.. figure:: lalune.jpg + :align: center + :alt: Voyage dans la Lune + + lalune Here is a movie |movie| icon. @@ -885,6 +889,5 @@ indented. In list. -.. |lalune| image:: lalune.jpg .. |movie| image:: movie.jpg |