module Hakyll.TeX.LaTeX
    ( latexPdfCompiler
    , compileLatexPdf
    , rubberPipe
    ) where

import Prolog

import Hakyll

rubberPipe :: [String] -> LazyByteString -> Compiler LazyByteString
rubberPipe = unixFilterLBS "rubber-pipe"

compileLatexPdf :: (StringConv s LazyByteString, Traversable t) => t s -> Compiler (t LazyByteString)
compileLatexPdf = traverse $ rubberPipe [ "--pdf" ] . toSL

latexPdfCompiler :: Compiler (Item LazyByteString)
latexPdfCompiler = getResourceLBS >>= compileLatexPdf