@@ -223,17 +223,16 @@ convertWithOpts opts = do
223223 then pdfWriterAndProg (optWriter opts) (optPdfEngine opts)
224224 else return (nonPdfWriterName $ optWriter opts, Nothing)
225225
226− let format = baseWriterName
226+ let format = map toLower $ baseWriterName
227227 $ takeFileName writerName -- in case path to lua script
228228
229229 -- disabling the custom writer for now
230230 (writer, writerExts) <-
231231 if ".lua" `isSuffixOf` format
232− -- note: use non-lowercased version writerName
233232 then return (TextWriter
234233 (\o d -> writeCustom writerName o d)
235234 :: Writer PandocIO, mempty)
236− else case getWriter writerName of
235+ else case getWriter (map toLower writerName) of
237236 Left e -> E.throwIO $ PandocAppError $
238237 if format == "pdf"
239238 then e ++
@@ -844,8 +843,7 @@ options =
844843
845844 , Option "tw" ["to","write"]
846845 (ReqArg
847− (\arg opt -> return opt { optWriter =
848− Just (map toLower arg) })
846+ (\arg opt -> return opt { optWriter = Just arg })
849847 "FORMAT")
850848 ""
851849