diff options
author | John MacFarlane <jgm@berkeley.edu> | 2013-01-15 08:45:46 -0800 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2013-01-15 08:46:09 -0800 |
commit | 7bc37e4414fc34574e5c0dbbef86d165405f9cff (patch) | |
tree | 8a7c323385a44066f983df9bf2474fed6f0a6010 /src/Text/Pandoc/Writers/MediaWiki.hs | |
parent | 1a4b47e93368bfbd31daccdfedbd9527ee740201 (diff) | |
download | pandoc-7bc37e4414fc34574e5c0dbbef86d165405f9cff.tar.gz |
Use 'fig:' instead of '\SOH' in title to indicate figure.
Revises 1a4b47e93368bfbd31daccdfedbd9527ee740201
Diffstat (limited to 'src/Text/Pandoc/Writers/MediaWiki.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/MediaWiki.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs index 38dd969a4..4cec2d648 100644 --- a/src/Text/Pandoc/Writers/MediaWiki.hs +++ b/src/Text/Pandoc/Writers/MediaWiki.hs @@ -81,8 +81,8 @@ blockToMediaWiki _ Null = return "" blockToMediaWiki opts (Plain inlines) = inlineListToMediaWiki opts inlines --- title beginning with \1 indicates that the image is a figure -blockToMediaWiki opts (Para [Image txt (src,'\1':tit)]) = do +-- title beginning with fig: indicates that the image is a figure +blockToMediaWiki opts (Para [Image txt (src,'f':'i':'g':':':tit)]) = do capt <- if null txt then return "" else ("|caption " ++) `fmap` inlineListToMediaWiki opts txt |