@@ -38,7 +38,7 @@ import Data.Monoid ((<>))
38import System.Exit (ExitCode (..))
38import System.Exit (ExitCode (..))
39import System.FilePath
39import System.FilePath
40import System.IO (stdout)
40import System.IO (stdout)
41−import System.IO.Temp (withTempFile)
41+import System.IO.Temp (withTempFile, withTempDirectory)
42import System.Directory
42import System.Directory
43import Data.Digest.Pure.SHA (showDigest, sha1)
43import Data.Digest.Pure.SHA (showDigest, sha1)
44import System.Environment
44import System.Environment
@@ -104,8 +104,11 @@ makePDF "wkhtmltopdf" writer opts verbosity _ doc@(Pandoc meta _) = liftIO $ do
104 setVerbosity verbosity
104 setVerbosity verbosity
105 writer opts doc
105 writer opts doc
106 html2pdf verbosity args source
106 html2pdf verbosity args source
107−makePDF program writer opts verbosity mediabag doc =
107+makePDF program writer opts verbosity mediabag doc = do
108+ let withTemp = if takeBaseName program == "context"
109+ then withTempDirectory "."
108− liftIO $ withTempDir "tex2pdf." $ \tmpdir -> do
111+ liftIO $ withTemp "tex2pdf." $ \tmpdir -> do
109 doc' <- handleImages verbosity opts mediabag tmpdir doc
112 doc' <- handleImages verbosity opts mediabag tmpdir doc
110 source <- runIOorExplode $ do
113 source <- runIOorExplode $ do
111 setVerbosity verbosity
114 setVerbosity verbosity