git.iko.soy/typeable/pandoc
on master help sign in
Fixed empty reference links. Closes #1186.

Includes test.

commit4c4382420356928d73026395d4ab2f0f9957df08 authorJohn MacFarlane <jgm@berkeley.edu> dateFri 2 May 2014, 22:58 (12 years ago) parent007eb96
3 files changed+13−4
compare with master
unifiedsplit
src/Text/Pandoc/Readers/Markdown.hs+1−3 tests/markdown-reader-more.native+4−1 tests/markdown-reader-more.txt+8
src/Text/Pandoc/Readers/Markdown.hs+1−3
@@ -349,10 +349,8 @@ referenceKey = try $ do
349349 char ':'
350350 skipSpaces >> optional newline >> skipSpaces >> notFollowedBy (char '[')
351351 let sourceURL = liftM unwords $ many $ try $ do
352− notFollowedBy' referenceTitle
353− skipMany spaceChar
354− optional $ newline >> notFollowedBy blankline
355352 skipMany spaceChar
353+ notFollowedBy' referenceTitle
356354 notFollowedBy' (() <$ reference)
357355 many1 $ notFollowedBy space >> litChar
358356 let betweenAngles = try $ char '<' >>
tests/markdown-reader-more.native+4−1
@@ -136,4 +136,7 @@
136136,Para [Link [Str "link"] ("/hithere)","")]
137137,Para [Link [Str "linky"] ("hi_(there_(nested))","")]
138138,Header 2 ("reference-link-fallbacks",[],[]) [Str "Reference",Space,Str "link",Space,Str "fallbacks"]
139−,Para [Str "[",Emph [Str "not",Space,Str "a",Space,Str "link"],Str "]",Space,Str "[",Emph [Str "nope"],Str "]\8230"]]
139+,Para [Str "[",Emph [Str "not",Space,Str "a",Space,Str "link"],Str "]",Space,Str "[",Emph [Str "nope"],Str "]\8230"]
140+,Header 2 ("empty-reference-links",[],[]) [Str "Empty",Space,Str "reference",Space,Str "links"]
141+,Para [Str "bar"]
142+,Para [Link [Str "foo2"] ("","")]]
tests/markdown-reader-more.txt+8
@@ -235,3 +235,11 @@ Empty cells
235235## Reference link fallbacks
236236
237237[*not a link*] [*nope*]...
238+
239+## Empty reference links
240+
241+[foo2]:
242+
243+bar
244+
245+[foo2]