From 3456355174586bffcdce099aee2027688cddb33b Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Wed, 21 Feb 2007 01:22:08 +0000
Subject: Added defaultWriterOptions to Shared.hs.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@545 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Shared.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'src/Text')

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
 --
-- 
cgit v1.2.3