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/Readers | |
| 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/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index 1fb361585..156062099 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -783,9 +783,9 @@ para = try $ do case B.toList result' of [Image alt (src,tit)] | Ext_implicit_figures `Set.member` exts -> - -- the \1 at beginning of title indicates a figure + -- the fig: at beginning of title indicates a figure return $ B.para $ B.singleton - $ Image alt (src,'\1':tit) + $ Image alt (src,'f':'i':'g':':':tit) _ -> return $ B.para result' plain :: MarkdownParser (F Blocks) |