From ca93680f72e8ede39f14147d34e5968ffc8fff60 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Mon, 12 Feb 2007 02:46:39 +0000
Subject: 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
---
 src/Text/Pandoc/Readers/RST.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/Text/Pandoc/Readers/RST.hs')

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) "")))
-- 
cgit v1.2.3