Merge pull request #593 from icefoxen/mtable-plugin

Added MTable plugin.

Author: jgm

plugins/MTable.hs

@@ -0,0 +1,39 @@
+module MTable (plugin) where
+
+-- This plugin ideally parses a less irritating table syntax
+-- for gitit.
+-- 
+-- ~~~ {.mtable}
+-- | foo | bar | bop |
+-- | and | so  | on  |
+-- ~~~
+-- 
+-- Unfortuantely it still can't do colspan
+--
+-- Simon Heath <[email protected]> 2013
+
+import Data.Default
+import Data.List.Split
+import Text.Pandoc (readMarkdown)
+import Network.Gitit.Interface
+import System.IO.Unsafe
+
+plugin :: Plugin
+plugin = mkPageTransformM parseTableBlock
+
+parseTableBlock :: Block -> PluginM Block
+parseTableBlock (CodeBlock (_, classes, namevals) contents) | "mtable" `elem` classes = do
+  let lineses = lines contents
+      splittedLines = map (splitOn "|") lineses
+      splittedLinesWithEmptiesRemoved = map (filter ((/=) "")) splittedLines
+      parseCell x = 
+         let res = readMarkdown def x in
+         case res of 
+            Left _ -> [Para $ [Str "Error parsing markdown in cell?"]]
+            Right (Pandoc _ blk) -> blk
+      cellify line = map (\cell -> parseCell cell) line
+      cells = map cellify splittedLinesWithEmptiesRemoved
+      alignments = replicate (length (head cells)) AlignDefault
+  return $ Table [] alignments [] [] cells --(head cells) (tail cells)
+
+parseTableBlock x = return x