From bc6bb3be5c430b1357e58144e64daa561770fe44 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 30 Nov 2013 15:36:18 -0800 Subject: Allow "epub2" as synonym for "epub", "html4" for "html". --- pandoc.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/pandoc.hs b/pandoc.hs index 21773ed80..8c196c01d 100644 --- a/pandoc.hs +++ b/pandoc.hs @@ -982,7 +982,10 @@ main = do let writerName' = if null writerName then defaultWriterName outputFile - else writerName + else case writerName of + "epub2" -> "epub" + "html4" -> "html" + x -> x let pdfOutput = map toLower (takeExtension outputFile) == ".pdf" -- cgit v1.2.3