From ae5f1571d412a08719aeb94092173ac453c40061 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 4 Jan 2016 22:44:50 -0800 Subject: [PATCH] Fixed v1.16 reversion with --latex-engine. In 1.16 --latex-engine raises an error if a full path is given. This commit fixes this reversion. Closes #2618. --- src/Text/Pandoc/PDF.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Text/Pandoc/PDF.hs b/src/Text/Pandoc/PDF.hs index 766827a71fdf..da4ee4e33a0a 100644 --- a/src/Text/Pandoc/PDF.hs +++ b/src/Text/Pandoc/PDF.hs @@ -99,9 +99,9 @@ makePDF program writer opts doc = withTempDir "tex2pdf." $ \tmpdir -> do doc' <- handleImages opts tmpdir doc let source = writer opts doc' args = writerLaTeXArgs opts - case program of + case takeBaseName program of "context" -> context2pdf (writerVerbose opts) tmpdir source - _ | program `elem` ["pdflatex", "lualatex", "xelatex"] + prog | prog `elem` ["pdflatex", "lualatex", "xelatex"] -> tex2pdf' (writerVerbose opts) args tmpdir program source _ -> return $ Left $ UTF8.fromStringLazy $ "Unknown program " ++ program