dotsvg.hs

import Text.Pandoc.JSON
import System.Process
import Text.HTML.TagSoup

main :: IO ()
main = toJSONFilter dotToSvg

dotToSvg :: Block -> IO Block
dotToSvg x@(CodeBlock (_, cls, _) text)
  | "dot" `elem` cls = do
    res <- readProcess "dot" ["-Tsvg"] text
    return $ RawBlock (Format "html") $ "<p>" ++ (renderTags . parseTags) res ++ "</p>"
  | otherwise = return x
dotToSvg x = return x