使用 Haskell 和 Yesod 来激活 Pandoc

Question

我想使用 Yesod 和 Haskell 来调用 Pandoc，将某种格式转换成另一种格式。

pandocConverted :: String -> IO String 
pandocConverted input = do
    (Just hIn, Just hOut, _, _) <- createProcess (proc "pandoc" []) { std_in = CreatePipe, std_out = CreatePipe }
    hPutStr hIn input    
    converted  <- hGetContents hOut
    return converted

这很好用。但是我该如何翻译成不同的格式呢？

例如我该如何调用 pandoc？

pandoc -s README -o example4.tex

还是这个？

pandoc -s -S -t docbook README -o example9.db

Answer 1

在管道中使用 pandoc 时，您可以使用 -f 和 -t 标志来指定源格式和目标格式。

  createProcess (proc "pandoc" ["-f", "markdown", "-t", "latex"])

但是，因为pandoc首先是一个Haskell库（pandoc可执行文件只是一个命令行界面） , 直接在 Yesod 程序中调用库会更符合习惯，而不是使用 createProcess.

import Text.Pandoc
import Text.Pandoc.Error (handleError)
import Control.Arrow

pandocConverted' :: String -> String 
pandocConverted' = readMarkdown def
               >>> fmap (writeLaTeX def {writerReferenceLinks = True})
               >>> handleError

使用 Haskell 和 Yesod 来激活 Pandoc

Using Haskell with Yesod to activate Pandoc

templates

haskell

pandoc

yesod