Allow "epub2" as synonym for "epub", "html4" for "html".
commitbc6bb3be5c430b1357e58144e64daa561770fe44
authorJohn MacFarlane <jgm@berkeley.edu>
dateSat 30 Nov 2013, 15:36 (13 years ago)
parent17ef39d
pandoc.hs+4−1
@@ -982,7 +982,10 @@ main = do
982982
983983 let writerName' = if null writerName
984984 then defaultWriterName outputFile
985− else writerName
985+ else case writerName of
986+ "epub2" -> "epub"
987+ "html4" -> "html"
988+ x -> x
986989
987990 let pdfOutput = map toLower (takeExtension outputFile) == ".pdf"
988991