From 387308dc47c3143004ff65bfc02567dbf52c2257 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 15 Sep 2012 15:05:50 -0400 Subject: MediaWiki reader: Treat "references" tag as block. --- src/Text/Pandoc/Readers/MediaWiki.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'src/Text/Pandoc/Readers') diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index 5251f015a..786ee62de 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -30,10 +30,7 @@ Conversion of mediawiki text to 'Pandoc' document. -} {- TODO: -_ wikipedia {{cite}} tags -_ {{Reflist}} -_ support tables http://www.mediawiki.org/wiki/Help:Tables -- footnotes? +_ parse templates? -} module Text.Pandoc.Readers.MediaWiki ( readMediaWiki ) where @@ -101,7 +98,7 @@ sym :: String -> MWParser () sym s = () <$ try (string s) newBlockTags :: [String] -newBlockTags = ["haskell","syntaxhighlight","source","gallery"] +newBlockTags = ["haskell","syntaxhighlight","source","gallery","references"] isBlockTag' :: Tag String -> Bool isBlockTag' tag@(TagOpen t _) = (isBlockTag tag || t `elem` newBlockTags) && -- cgit v1.2.3