diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-03-24 10:39:49 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-03-24 10:39:49 -0700 |
| commit | b9cc29e15ab219102f09e19d61889c256eb0b487 (patch) | |
| tree | d70972e7fd86c9d71d9f5e9b450e7b41a0812228 /src/Text | |
| parent | 3fa38db80b422af627ba260024756faf2a1d9147 (diff) | |
| parent | 303e42a94f16e00ecb65fb9de2d282d050a626c1 (diff) | |
| download | pandoc-b9cc29e15ab219102f09e19d61889c256eb0b487.tar.gz | |
Merge pull request #1068 from jaimeMF/mw-images-langs
MediaWiki reader: Accept image links in more languages
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/MediaWiki.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/MediaWiki.hs b/src/Text/Pandoc/Readers/MediaWiki.hs index 794890eb6..7ac2f33ba 100644 --- a/src/Text/Pandoc/Readers/MediaWiki.hs +++ b/src/Text/Pandoc/Readers/MediaWiki.hs @@ -555,10 +555,14 @@ endline = () <$ try (newline <* notFollowedBy' header <* notFollowedBy anyListStart) +imageIdentifiers :: [MWParser ()] +imageIdentifiers = [sym (identifier ++ ":") | identifier <- identifiers] + where identifiers = ["File", "Image", "Archivo", "Datei", "Fichier"] + image :: MWParser Inlines image = try $ do sym "[[" - sym "File:" <|> sym "Image:" + choice imageIdentifiers fname <- many1 (noneOf "|]") _ <- many (try $ char '|' *> imageOption) caption <- (B.str fname <$ sym "]]") |