diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-02-12 02:46:39 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-02-12 02:46:39 +0000 |
commit | ca93680f72e8ede39f14147d34e5968ffc8fff60 (patch) | |
tree | 8e230f5f93ab267795e40b0497f0bf4a4ad21f0f /src/Text/Pandoc/Readers/RST.hs | |
parent | df03ca2c95c6b157919ebae2d59475c0aa7d845c (diff) | |
download | pandoc-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/Text/Pandoc/Readers/RST.hs')
-rw-r--r-- | src/Text/Pandoc/Readers/RST.hs | 3 |
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) ""))) |