From 4412807ffd2e26b18616fd0a740a494f2c493b64 Mon Sep 17 00:00:00 2001
From: 80x24 <80x24@momoka.net>
Date: Sun, 14 Jun 2015 20:19:56 +0800
Subject: add support for mediawiki

---
 src/Hakyll/Web/Pandoc.hs          |  1 +
 src/Hakyll/Web/Pandoc/FileType.hs | 43 +++++++++++++++++++++------------------
 2 files changed, 24 insertions(+), 20 deletions(-)

(limited to 'src/Hakyll')

diff --git a/src/Hakyll/Web/Pandoc.hs b/src/Hakyll/Web/Pandoc.hs
index d9287de..f6e9ff1 100644
--- a/src/Hakyll/Web/Pandoc.hs
+++ b/src/Hakyll/Web/Pandoc.hs
@@ -63,6 +63,7 @@ readPandocWith ropt item =
         LaTeX              -> readLaTeX ro
         LiterateHaskell t' -> reader (addExt ro Ext_literate_haskell) t'
         Markdown           -> readMarkdown ro
+        MediaWiki          -> readMediaWiki ro
         OrgMode            -> readOrg ro
         Rst                -> readRST ro
         Textile            -> readTextile ro
diff --git a/src/Hakyll/Web/Pandoc/FileType.hs b/src/Hakyll/Web/Pandoc/FileType.hs
index 29d08fe..3636e41 100644
--- a/src/Hakyll/Web/Pandoc/FileType.hs
+++ b/src/Hakyll/Web/Pandoc/FileType.hs
@@ -27,6 +27,7 @@ data FileType
     | LaTeX
     | LiterateHaskell FileType
     | Markdown
+    | MediaWiki
     | OrgMode
     | PlainText
     | Rst
@@ -39,30 +40,32 @@ data FileType
 fileType :: FilePath -> FileType
 fileType = uncurry fileType' . splitExtension
   where
-    fileType' _ ".css"      = Css
-    fileType' _ ".dbk"      = DocBook
-    fileType' _ ".htm"      = Html
-    fileType' _ ".html"     = Html
-    fileType' f ".lhs"      = LiterateHaskell $ case fileType f of
+    fileType' _ ".css"       = Css
+    fileType' _ ".dbk"       = DocBook
+    fileType' _ ".htm"       = Html
+    fileType' _ ".html"      = Html
+    fileType' f ".lhs"       = LiterateHaskell $ case fileType f of
         -- If no extension is given, default to Markdown + LiterateHaskell
         Binary -> Markdown
         -- Otherwise, LaTeX + LiterateHaskell or whatever the user specified
         x      -> x
-    fileType' _ ".markdown" = Markdown
-    fileType' _ ".md"       = Markdown
-    fileType' _ ".mdn"      = Markdown
-    fileType' _ ".mdown"    = Markdown
-    fileType' _ ".mdwn"     = Markdown
-    fileType' _ ".mkd"      = Markdown
-    fileType' _ ".mkdwn"    = Markdown
-    fileType' _ ".org"      = OrgMode
-    fileType' _ ".page"     = Markdown
-    fileType' _ ".rst"      = Rst
-    fileType' _ ".tex"      = LaTeX
-    fileType' _ ".text"     = PlainText
-    fileType' _ ".textile"  = Textile
-    fileType' _ ".txt"      = PlainText
-    fileType' _ _           = Binary  -- Treat unknown files as binary
+    fileType' _ ".markdown"  = Markdown
+    fileType' _ ".mediawiki" = MediaWiki
+    fileType' _ ".md"        = Markdown
+    fileType' _ ".mdn"       = Markdown
+    fileType' _ ".mdown"     = Markdown
+    fileType' _ ".mdwn"      = Markdown
+    fileType' _ ".mkd"       = Markdown
+    fileType' _ ".mkdwn"     = Markdown
+    fileType' _ ".org"       = OrgMode
+    fileType' _ ".page"      = Markdown
+    fileType' _ ".rst"       = Rst
+    fileType' _ ".tex"       = LaTeX
+    fileType' _ ".text"      = PlainText
+    fileType' _ ".textile"   = Textile
+    fileType' _ ".txt"       = PlainText
+    fileType' _ ".wiki"      = MediaWiki
+    fileType' _ _            = Binary  -- Treat unknown files as binary
 
 
 --------------------------------------------------------------------------------
-- 
cgit v1.2.3