aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2012-09-15 15:05:50 -0400
committerJohn MacFarlane <jgm@berkeley.edu>2012-09-15 15:05:50 -0400
commit387308dc47c3143004ff65bfc02567dbf52c2257 (patch)
tree6a226de40a72a39082c3436d938ee6b607e1f8c0
parent0a2fb202fb6a167c1ad317149072bc90a29d1c65 (diff)
downloadpandoc-387308dc47c3143004ff65bfc02567dbf52c2257.tar.gz
MediaWiki reader: Treat "references" tag as block.
-rw-r--r--src/Text/Pandoc/Readers/MediaWiki.hs7
1 files changed, 2 insertions, 5 deletions
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
-_ <references /> {{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) &&