diff options
author | John MacFarlane <jgm@berkeley.edu> | 2013-01-14 20:53:08 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2013-01-14 20:53:08 -0800 |
commit | 1a4b47e93368bfbd31daccdfedbd9527ee740201 (patch) | |
tree | 7045c38500930e78c9f0b4aad447a2244fbe64cc /src/Text/Pandoc/Writers/RST.hs | |
parent | 56aa257ddb60fb5cd48f8569f66e777454859738 (diff) | |
download | pandoc-1a4b47e93368bfbd31daccdfedbd9527ee740201.tar.gz |
Implemented Ext_implicit_figures.
* In markdown reader, add a '\1' character to the beginning
of the title of an image that is alone in its paragraph,
if implicit_figures extension is selected.
* In writers, check for Para [Image alt (src,'\1':tit)] and treat
it as a figure if possible.
* Updated tests.
This is a bit of a hack, but it allows us to make implicit_figures
an extension of the markdown reader, rather than the writers.
Diffstat (limited to 'src/Text/Pandoc/Writers/RST.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/RST.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs index f3815011f..f347f0188 100644 --- a/src/Text/Pandoc/Writers/RST.hs +++ b/src/Text/Pandoc/Writers/RST.hs @@ -148,7 +148,8 @@ blockToRST :: Block -- ^ Block element -> State WriterState Doc blockToRST Null = return empty blockToRST (Plain inlines) = inlineListToRST inlines -blockToRST (Para [Image txt (src,tit)]) = do +-- title beginning with \1 indicates that the image is a figure +blockToRST (Para [Image txt (src,'\1':tit)]) = do capt <- inlineListToRST txt let fig = "figure:: " <> text src let alt = ":alt: " <> if null tit then capt else text tit |