23ca68a · typeable/pandoc

git.iko.soy/typeable/pandoc

Don't let autolinks create reference links.

Previously we got bad results with -t markdown --reference-links if the input contained autolinks like <http://yahoo.com>.

commit23ca68a5c41ef68397ed2217e31bf6e720fb0534 authorJohn MacFarlane <jgm@berkeley.edu> dateTue 31 Jan 2012, 15:25 (15 years ago) parente9a270d

1 file changed+1−1

unifiedsplit

src/Text/Pandoc/Writers/Markdown.hs+1−1

@@ -498,10 +498,10 @@ inlineToMarkdown opts (Link txt (src, tit)) = do

498498 then empty

499499 else text $ " \"" ++ tit ++ "\""

500500 let srcSuffix = if isPrefixOf "mailto:" src then drop 7 src else src

501− let useRefLinks = writerReferenceLinks opts

502501 let useAuto = case (tit,txt) of

503502 ("", [Code _ s]) | s == srcSuffix -> True

504503 _ -> False

504+ let useRefLinks = writerReferenceLinks opts && not useAuto

505505 ref <- if useRefLinks then getReference txt (src, tit) else return []

506506 reftext <- inlineListToMarkdown opts ref

507507 return $ if useAuto