@@ -111,11 +111,11 @@ data Opt = Opt
111111 , optHTMLMathMethod :: HTMLMathMethod -- ^ Method to print HTML math
112112 , optReferenceODT :: Maybe FilePath -- ^ Path of reference.odt
113113 , optReferenceDocx :: Maybe FilePath -- ^ Path of reference.docx
114− , optEPUBStylesheet :: Maybe String -- ^ EPUB stylesheet
115− , optEPUBMetadata :: String -- ^ EPUB metadata
116− , optEPUBFonts :: [FilePath] -- ^ EPUB fonts to embed
117− , optEPUBChapterLevel :: Int -- ^ Header level at which to split chapters
118− , optEPUBTOCLevel :: Int -- ^ Number of levels to include in TOC
114+ , optEpubStylesheet :: Maybe String -- ^ EPUB stylesheet
115+ , optEpubMetadata :: String -- ^ EPUB metadata
116+ , optEpubFonts :: [FilePath] -- ^ EPUB fonts to embed
117+ , optEpubChapterLevel :: Int -- ^ Header level at which to split chapters
118+ , optEpubTOCLevel :: Int -- ^ Number of levels to include in TOC
119119 , optDumpArgs :: Bool -- ^ Output command-line arguments
120120 , optIgnoreArgs :: Bool -- ^ Ignore command-line arguments
121121 , optReferenceLinks :: Bool -- ^ Use reference links in writing markdown, rst
@@ -165,11 +165,11 @@ defaultOpts = Opt
165165 , optHTMLMathMethod = PlainMath
166166 , optReferenceODT = Nothing
167167 , optReferenceDocx = Nothing
168− , optEPUBStylesheet = Nothing
169− , optEPUBMetadata = ""
170− , optEPUBFonts = []
171− , optEPUBChapterLevel = 1
172− , optEPUBTOCLevel = 3
168+ , optEpubStylesheet = Nothing
169+ , optEpubMetadata = ""
170+ , optEpubFonts = []
171+ , optEpubChapterLevel = 1
172+ , optEpubTOCLevel = 3
173173 , optDumpArgs = False
174174 , optIgnoreArgs = False
175175 , optReferenceLinks = False
@@ -531,7 +531,7 @@ options =
531531 (ReqArg
532532 (\arg opt -> do
533533 text <- UTF8.readFile arg
534− return opt { optEPUBStylesheet = Just text })
534+ return opt { optEpubStylesheet = Just text })
535535 "FILENAME")
536536 "" -- "Path of epub.css"
537537
@@ -547,14 +547,14 @@ options =
547547 (ReqArg
548548 (\arg opt -> do
549549 text <- UTF8.readFile arg
550− return opt { optEPUBMetadata = text })
550+ return opt { optEpubMetadata = text })
551551 "FILENAME")
552552 "" -- "Path of epub metadata file"
553553
554554 , Option "" ["epub-embed-font"]
555555 (ReqArg
556556 (\arg opt -> do
557− return opt{ optEPUBFonts = arg : optEPUBFonts opt })
557+ return opt{ optEpubFonts = arg : optEpubFonts opt })
558558 "FILE")
559559 "" -- "Directory of fonts to embed"
560560
@@ -563,7 +563,7 @@ options =
563563 (\arg opt -> do
564564 case safeRead arg of
565565 Just t | t >= 1 && t <= 6 ->
566− return opt { optEPUBChapterLevel = t }
566+ return opt { optEpubChapterLevel = t }
567567 _ -> err 59 $
568568 "chapter level must be a number between 1 and 6")
569569 "NUMBER")
@@ -574,7 +574,7 @@ options =
574574 (\arg opt -> do
575575 case safeRead arg of
576576 Just t | t >= 1 && t <= 6 ->
577− return opt { optEPUBTOCLevel = t }
577+ return opt { optEpubTOCLevel = t }
578578 _ -> err 57 $
579579 "TOC level must be a number between 1 and 6")
580580 "NUMBER")
@@ -826,11 +826,11 @@ main = do
826826 , optHTMLMathMethod = mathMethod
827827 , optReferenceODT = referenceODT
828828 , optReferenceDocx = referenceDocx
829− , optEPUBStylesheet = epubStylesheet
830− , optEPUBMetadata = epubMetadata
831− , optEPUBFonts = epubFonts
832− , optEPUBChapterLevel = epubChapterLevel
833− , optEPUBTOCLevel = epubTOCLevel
829+ , optEpubStylesheet = epubStylesheet
830+ , optEpubMetadata = epubMetadata
831+ , optEpubFonts = epubFonts
832+ , optEpubChapterLevel = epubChapterLevel
833+ , optEpubTOCLevel = epubTOCLevel
834834 , optDumpArgs = dumpArgs
835835 , optIgnoreArgs = ignoreArgs
836836 , optReferenceLinks = referenceLinks