diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-08-12 15:49:20 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-08-12 15:49:20 -0700 |
| commit | da507dcb84eb16629fdb1b65439557772c7214f8 (patch) | |
| tree | 94026c572f546391f8f2f0d7aee8429f8a0e6afd /src/Text/Pandoc/Writers | |
| parent | 60cf6e1dae25f90151e9683bd53fe8f9e5f120ad (diff) | |
| download | pandoc-da507dcb84eb16629fdb1b65439557772c7214f8.tar.gz | |
ConTeXt writer: improved autolink detection.
It previously failed in some cases with escaped special characters.
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index 3b321cc19..bbca7f858 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -297,7 +297,7 @@ inlineToConTeXt (Link txt (('#' : ref), _)) = do <> brackets (text ref) inlineToConTeXt (Link txt (src, _)) = do - let isAutolink = txt == [Str src] + let isAutolink = txt == [Str (unEscapeString src)] st <- get let next = stNextRef st put $ st {stNextRef = next + 1} |