diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2018-09-20 11:15:03 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2018-09-20 11:15:03 -0700 |
| commit | 37c6f6adfe5f292bccd42046842e5cb2cc7484d0 (patch) | |
| tree | 1f9f4f528fbd4db791eb85276dea8bb274236b1c | |
| parent | 5b1fdeaf41d6ee4b6b82cbeb4e7f7508182b3566 (diff) | |
| download | pandoc-37c6f6adfe5f292bccd42046842e5cb2cc7484d0.tar.gz | |
RST reader: fix bug with internal link targets.
They were gobbling up indented content underneath.
Closes #4919.
| -rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 2 | ||||
| -rw-r--r-- | test/command/4919.md | 14 |
2 files changed, 15 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs index 274c9da7a..28fa7b83e 100644 --- a/src/Text/Pandoc/Readers/RST.hs +++ b/src/Text/Pandoc/Readers/RST.hs @@ -1090,7 +1090,7 @@ referenceKey = do targetURI :: Monad m => ParserT [Char] st m [Char] targetURI = do skipSpaces - optional newline + optional $ try $ newline >> notFollowedBy blankline contents <- trim <$> many1 (satisfy (/='\n') <|> try (newline >> many1 spaceChar >> noneOf " \t\n")) diff --git a/test/command/4919.md b/test/command/4919.md new file mode 100644 index 000000000..029d1beff --- /dev/null +++ b/test/command/4919.md @@ -0,0 +1,14 @@ +``` +% pandoc -f rst -t native +.. _`tgtmath`: + + .. math:: + :name: + + V = \frac{K}{r^2} +^D +[Div ("tgtmath",[],[]) + [BlockQuote + [Para [Math DisplayMath "V = \\frac{K}{r^2}"]]]] +``` + |