summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Writers/MediaWiki.hs
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2009-12-31 01:10:17 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2009-12-31 01:10:17 +0000
commit9f126c15cf4d0f6c2ab14167e11336d4f5f8783e (patch)
tree416833a563f3be1b9e0bd72e1ec9006150e16943 /src/Text/Pandoc/Writers/MediaWiki.hs
parentc602ed345959dbeb08533cd9c9c11f0604641c10 (diff)
Removed unneeded writer options; use template variables instead.
Removed writerIncludeAfter, writerIncludeBefore, writerTitlePrefix, writerHeader. Removed corresponding fields of Options structure in pandoc.hs. The options now set template variables (writerVariables) instead. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1684 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text/Pandoc/Writers/MediaWiki.hs')
-rw-r--r--src/Text/Pandoc/Writers/MediaWiki.hs29
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