From 293452f9706f8b84074f7c23ef8fc01428bebd35 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 15 Sep 2012 15:22:18 -0400
Subject: MediaWiki reader: Better parsing of templates.

---
 src/Text/Pandoc/Readers/MediaWiki.hs | 19 ++++++++++---------
 1 file changed, 10 insertions(+), 9 deletions(-)

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

diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs
index 786ee62de..dcf97646d 100644
--- a/src/Text/Pandoc/Readers/MediaWiki.hs
+++ b/src/Text/Pandoc/Readers/MediaWiki.hs
@@ -277,8 +277,9 @@ template :: MWParser String
 template = try $ do
   string "{{"
   notFollowedBy (char '{')
-  contents <- manyTill anyChar (try $ string "}}")
-  return $ "{{" ++ contents ++ "}}"
+  let chunk = template <|> variable <|> many1 (noneOf "{}") <|> count 1 anyChar
+  contents <- manyTill chunk (try $ string "}}")
+  return $ "{{" ++ concat contents ++ "}}"
 
 blockTag :: MWParser Blocks
 blockTag = do
@@ -438,19 +439,18 @@ inline =  whitespace
       <|> inlineTag
       <|> B.singleton <$> charRef
       <|> inlineHtml
-      <|> variable
+      <|> (B.rawInline "mediawiki" <$> variable)
       <|> (B.rawInline "mediawiki" <$> template)
       <|> special
 
 str :: MWParser Inlines
 str = B.str <$> many1 (noneOf $ specialChars ++ spaceChars)
 
-variable :: MWParser Inlines
-variable = B.rawInline "mediawiki" <$> triplebrackets
-  where triplebrackets = try $ do
-           string "{{{"
-           contents <- manyTill anyChar (try $ string "}}}")
-           return $ "{{{" ++ contents ++ "}}}"
+variable :: MWParser String
+variable = try $ do
+  string "{{{"
+  contents <- manyTill anyChar (try $ string "}}}")
+  return $ "{{{" ++ contents ++ "}}}"
 
 inlineTag :: MWParser Inlines
 inlineTag = do
@@ -489,6 +489,7 @@ endline = () <$ try (newline <*
                      notFollowedBy blankline <*
                      notFollowedBy' hrule <*
                      notFollowedBy tableStart <*
+                     notFollowedBy' header <*
                      notFollowedBy' template <*
                      notFollowedBy' (htmlTag isBlockTag') <*
                      notFollowedBy anyListStart)
-- 
cgit v1.2.3