diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2012-09-15 15:05:50 -0400 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2012-09-15 15:05:50 -0400 |
| commit | 387308dc47c3143004ff65bfc02567dbf52c2257 (patch) | |
| tree | 6a226de40a72a39082c3436d938ee6b607e1f8c0 | |
| parent | 0a2fb202fb6a167c1ad317149072bc90a29d1c65 (diff) | |
| download | pandoc-387308dc47c3143004ff65bfc02567dbf52c2257.tar.gz | |
MediaWiki reader: Treat "references" tag as block.
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 7 |
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) && |