Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

PDF: allow custom writer as format if engine is explicitly specified (#7901)

Browse source 
Closes #7898.
Note that it may be necessary to explicitly specify a template on the command line.
This commit is contained in:
Albert Krewinkel 2022-02-09 19:16:41 +01:00 committed by GitHub
parent 63deba49d4
commit 7dc59aa26a
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/App/OutputSettings.hs
View file

@ -254,6 +254,10 @@ pdfWriterAndProg mWriter mEngine =
go Nothing Nothing = Right ("latex", "pdflatex")
go (Just writer) Nothing = (writer,) <$> engineForWriter writer
go Nothing (Just engine) = (,engine) <$> writerForEngine (takeBaseName engine)
go (Just writer) (Just engine) | isCustomWriter writer =
-- custom writers can produce any format, so assume the user knows
-- what they are doing.
Right (writer, engine)
go (Just writer) (Just engine) =
case find (== (baseWriterName writer, takeBaseName engine)) engines of
Just _ -> Right (writer, engine)
@ -266,11 +270,13 @@ pdfWriterAndProg mWriter mEngine =
"pdf-engine " <> T.pack eng <> " not known"
engineForWriter "pdf" = Left "pdf writer"
engineForWriter w = case [e | (f,e) <- engines, f == baseWriterName w] of
engineForWriter w = case [e | (f,e) <- engines, f == baseWriterName w] of
eng : _ -> Right eng
[] -> Left $
"cannot produce pdf output from " <> w
isCustomWriter w = ".lua" `T.isSuffixOf` w
isTextFormat :: T.Text -> Bool
isTextFormat s =
s `notElem` ["odt","docx","epub2","epub3","epub","pptx","pdf"]