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

import Prolog

import Hakyll

rubberPipe :: (StringConv s LazyByteString) => [String] -> s -> Compiler LazyByteString
rubberPipe args = unixFilterLBS "rubber-pipe" args . toSL

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

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