1 files changed, 4 insertions, 0 deletions
diff --git a/FormatOpts.hs b/FormatOpts.hs
index 40d02e8..4759f89 100644
--- a/FormatOpts.hs
+++ b/FormatOpts.hs
@@ -25,3 +25,7 @@ htmlWriteOpts =
 -- | Default plaintext writing options for Pandoc.
 plainWriteOpts :: WriterOptions
 plainWriteOpts = def {writerWrapText = WrapNone}
+
+-- | Default options for making tables of contents with certain depth.
+tocWriteOpts :: Int -> WriterOptions
+tocWriteOpts n = def { writerTOCDepth = n}