Added defaultWriterOptions to Shared.hs.

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

1 files changed, 15 insertions, 0 deletions

diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs
index 11faced5d..87718030f 100644
--- a/src/Text/Pandoc/Shared.hs
+++ b/src/Text/Pandoc/Shared.hs
@@ -58,6 +58,7 @@ module Text.Pandoc.Shared (
                      compactify,
                      generateReference,
                      WriterOptions (..),
+                     defaultWriterOptions,
                      KeyTable,
                      keyTable,
                      lookupKeySrc,
@@ -349,6 +350,20 @@ data WriterOptions = WriterOptions
     , writerNotes           :: [Block] -- ^ List of note blocks
     } deriving Show
 
+-- | Default writer options.
+defaultWriterOptions = 
+    WriterOptions { writerStandalone     = True,
+                    writerHeader         = "",
+                    writerTitlePrefix    = "",
+                    writerTabStop        = 4,
+                    writerNotes          = [],
+                    writerS5             = False,
+                    writerIncremental    = False,
+                    writerNumberSections = False,
+                    writerIncludeBefore  = "",
+                    writerIncludeAfter   = "",
+                    writerStrictMarkdown = False }
+
 --
 -- Functions for constructing lists of reference keys
 --