aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-02-12 02:46:39 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2007-02-12 02:46:39 +0000
commitca93680f72e8ede39f14147d34e5968ffc8fff60 (patch)
tree8e230f5f93ab267795e40b0497f0bf4a4ad21f0f /src
parentdf03ca2c95c6b157919ebae2d59475c0aa7d845c (diff)
downloadpandoc-ca93680f72e8ede39f14147d34e5968ffc8fff60.tar.gz
Allow the URI in a RST hyperlink target to start on the line
after the reference key. git-svn-id: https://pandoc.googlecode.com/svn/trunk@525 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src')
-rw-r--r--src/Text/Pandoc/Readers/RST.hs3
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/RST.hs b/src/Text/Pandoc/Readers/RST.hs
index a3b9bfca7..9a25fe84a 100644
--- a/src/Text/Pandoc/Readers/RST.hs
+++ b/src/Text/Pandoc/Readers/RST.hs
@@ -508,6 +508,7 @@ imageKey = try (do
anonymousKey = try (do
choice [string ".. __:", string "__"]
skipSpaces
+ option ' ' newline
src <- manyTill anyChar newline
state <- getState
return (Key [Str "_"] (Src (removeLeadingTrailingSpace src) "")))
@@ -516,6 +517,7 @@ regularKeyQuoted = try (do
string ".. _`"
ref <- manyTill inline (string "`:")
skipSpaces
+ option ' ' newline
src <- manyTill anyChar newline
return (Key (normalizeSpaces ref)
(Src (removeLeadingTrailingSpace src) "")))
@@ -524,6 +526,7 @@ regularKey = try (do
string ".. _"
ref <- manyTill inline (char ':')
skipSpaces
+ option ' ' newline
src <- manyTill anyChar newline
return (Key (normalizeSpaces ref)
(Src (removeLeadingTrailingSpace src) "")))