diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2014-07-29 21:21:03 -0700 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2014-07-29 21:32:07 -0700 |
commit | 02c79ea4f6c050e9e610825e8b462382beae2b5a (patch) | |
tree | ecc60ffaf3403e658de5be9c5ccad65d4ea5e0f4 /src/Text/Pandoc/Writers | |
parent | 33a051d00d01974f3cdc3942e647bdd85979e96c (diff) | |
download | pandoc-02c79ea4f6c050e9e610825e8b462382beae2b5a.tar.gz |
Mediawiki writer: don't escape inside `<source>`.
Closes #1445. Escapes can still be used with `<code>`
and `<pre>`.
Diffstat (limited to 'src/Text/Pandoc/Writers')
-rw-r--r-- | src/Text/Pandoc/Writers/MediaWiki.hs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs index cab55be9b..3f392a5d0 100644 --- a/src/Text/Pandoc/Writers/MediaWiki.hs +++ b/src/Text/Pandoc/Writers/MediaWiki.hs @@ -139,10 +139,14 @@ blockToMediaWiki (CodeBlock (_,classes,_) str) = do "python", "qbasic", "rails", "reg", "robots", "ruby", "sas", "scheme", "sdlbasic", "smalltalk", "smarty", "sql", "tcl", "", "thinbasic", "tsql", "vb", "vbnet", "vhdl", "visualfoxpro", "winbatch", "xml", "xpp", "z80"] - let (beg, end) = if null at - then ("<pre" ++ if null classes then ">" else " class=\"" ++ unwords classes ++ "\">", "</pre>") - else ("<source lang=\"" ++ head at ++ "\">", "</source>") - return $ beg ++ escapeString str ++ end + return $ + if null at + then "<pre" ++ (if null classes + then ">" + else " class=\"" ++ unwords classes ++ "\">") ++ + escapeString str ++ "</pre>" + else "<source lang=\"" ++ head at ++ "\">" ++ str ++ "</source>" + -- note: no escape! blockToMediaWiki (BlockQuote blocks) = do contents <- blockListToMediaWiki blocks |