diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/MediaWiki.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/MediaWiki.hs | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs index 1e7194621..f3e0c58fa 100644 --- a/src/Text/Pandoc/Writers/MediaWiki.hs +++ b/src/Text/Pandoc/Writers/MediaWiki.hs @@ -52,20 +52,21 @@ writeMediaWiki opts document = -- | Return MediaWiki representation of document. pandocToMediaWiki :: WriterOptions -> Pandoc -> State WriterState String pandocToMediaWiki opts (Pandoc _ blocks) = do - let before = writerIncludeBefore opts - let after = writerIncludeAfter opts - let head' = if writerStandalone opts - then writerHeader opts - else "" - let toc = if writerTableOfContents opts - then "__TOC__\n" - else "" - body <- blockListToMediaWiki opts blocks - notesExist <- get >>= return . stNotes - let notes = if notesExist - then "\n== Notes ==\n<references />" - else "" - return $ head' ++ before ++ toc ++ body ++ after ++ notes + return "" -- TODO +-- let before = writerIncludeBefore opts +-- let after = writerIncludeAfter opts +-- let head' = if writerStandalone opts +-- then writerHeader opts +-- else "" +-- let toc = if writerTableOfContents opts +-- then "__TOC__\n" +-- else "" +-- body <- blockListToMediaWiki opts blocks +-- notesExist <- get >>= return . stNotes +-- let notes = if notesExist +-- then "\n== Notes ==\n<references />" +-- else "" +-- return $ head' ++ before ++ toc ++ body ++ after ++ notes -- | Escape special characters for MediaWiki. escapeString :: String -> String |