Added `--epub-chapter-level` and `--epub-toc-level` options.

Also added writerEpubChapterLevel and writerEpubTOCLevel fields
to WriterOptions.

1 files changed, 30 insertions, 0 deletions

diff --git a/pandoc.hs b/pandoc.hs
index c93cd62bc..a9d02431d 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -114,6 +114,8 @@ data Opt = Opt
     , optEPUBStylesheet    :: Maybe String   -- ^ EPUB stylesheet
     , optEPUBMetadata      :: String  -- ^ EPUB metadata
     , optEPUBFonts         :: [FilePath] -- ^ EPUB fonts to embed
+    , optEPUBChapterLevel  :: Int     -- ^ Header level at which to split chapters
+    , optEPUBTOCLevel      :: Int     -- ^ Number of levels to include in TOC
     , optDumpArgs          :: Bool    -- ^ Output command-line arguments
     , optIgnoreArgs        :: Bool    -- ^ Ignore command-line arguments
     , optReferenceLinks    :: Bool    -- ^ Use reference links in writing markdown, rst
@@ -166,6 +168,8 @@ defaultOpts = Opt
     , optEPUBStylesheet    = Nothing
     , optEPUBMetadata      = ""
     , optEPUBFonts         = []
+    , optEPUBChapterLevel  = 1
+    , optEPUBTOCLevel      = 3
     , optDumpArgs          = False
     , optIgnoreArgs        = False
     , optReferenceLinks    = False
@@ -554,6 +558,28 @@ options =
                   "FILE")
                  "" -- "Directory of fonts to embed"
 
+    , Option "" ["epub-chapter-level"]
+                 (ReqArg
+                  (\arg opt -> do
+                      case safeRead arg of
+                           Just t | t >= 1 && t <= 6 ->
+                                    return opt { optEPUBChapterLevel = t }
+                           _      -> err 59 $
+                                    "chapter level must be a number between 1 and 6")
+                 "NUMBER")
+                 "" -- "Header level at which to split chapters in EPUB"
+
+    , Option "" ["epub-toc-level"]
+                 (ReqArg
+                  (\arg opt -> do
+                      case safeRead arg of
+                           Just t | t >= 1 && t <= 6 ->
+                                    return opt { optEPUBTOCLevel = t }
+                           _      -> err 57 $
+                                    "TOC level must be a number between 1 and 6")
+                 "NUMBER")
+                 "" -- "Number of levels to include in EPUB TOC"
+
     , Option "" ["latex-engine"]
                  (ReqArg
                   (\arg opt -> do
@@ -803,6 +829,8 @@ main = do
               , optEPUBStylesheet    = epubStylesheet
               , optEPUBMetadata      = epubMetadata
               , optEPUBFonts         = epubFonts
+              , optEPUBChapterLevel  = epubChapterLevel
+              , optEPUBTOCLevel      = epubTOCLevel
               , optDumpArgs          = dumpArgs
               , optIgnoreArgs        = ignoreArgs
               , optReferenceLinks    = referenceLinks
@@ -992,6 +1020,8 @@ main = do
                             writerTeXLigatures     = texLigatures,
                             writerEpubStylesheet   = epubStylesheet,
                             writerEpubFonts        = epubFonts,
+                            writerEpubChapterLevel = epubChapterLevel,
+                            writerEpubTOCLevel     = epubTOCLevel,
                             writerReferenceODT     = referenceODT,
                             writerReferenceDocx    = referenceDocx
                           }