Added writerTableOfContents to WriterOptions, and added a

--table-of-contents/--toc command-line option to Main.hs.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@632 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 13 insertions, 11 deletions

diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 00a467ca4..d0b134534 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -375,6 +375,7 @@ data WriterOptions = WriterOptions
     , writerHeader          :: String -- ^ Header for the document
     , writerIncludeBefore   :: String -- ^ String to include before the  body
     , writerIncludeAfter    :: String -- ^ String to include after the body
+    , writerTableOfContents :: Bool   -- ^ Include table of contents
     , writerS5              :: Bool   -- ^ We're writing S5 
     , writerIncremental     :: Bool   -- ^ Incremental S5 lists
     , writerNumberSections  :: Bool   -- ^ Number sections in LaTeX
@@ -386,17 +387,18 @@ data WriterOptions = WriterOptions
 
 -- | Default writer options.
 defaultWriterOptions = 
-    WriterOptions { writerStandalone     = True,
-                    writerHeader         = "",
-                    writerTitlePrefix    = "",
-                    writerTabStop        = 4,
-                    writerS5             = False,
-                    writerIncremental    = False,
-                    writerNumberSections = False,
-                    writerIncludeBefore  = "",
-                    writerIncludeAfter   = "",
-                    writerStrictMarkdown = False,
-                    writerReferenceLinks = False }
+    WriterOptions { writerStandalone      = True,
+                    writerHeader          = "",
+                    writerTitlePrefix     = "",
+                    writerTabStop         = 4,
+                    writerTableOfContents = False,
+                    writerS5              = False,
+                    writerIncremental     = False,
+                    writerNumberSections  = False,
+                    writerIncludeBefore   = "",
+                    writerIncludeAfter    = "",
+                    writerStrictMarkdown  = False,
+                    writerReferenceLinks  = False }
 
 --
 -- code to lookup reference keys in key table