ConTeXt writer: improved autolink detection.

It previously failed in some cases with escaped special characters.
This commit is contained in:
John MacFarlane 2014-08-12 15:49:20 -07:00
parent 60cf6e1dae
commit da507dcb84

View file

@ -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}