gitit/plugins/MTable.hs

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 <icefoxen@gmail.com> 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