From da645eb24b7a7f23949304e3ea6fa274c45d06c8 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sun, 15 Jul 2007 03:20:14 +0000
Subject: Main.hs:  If writer is "context", automatically select smart quotes
 option. web/demos:  Removed redundant -S in context writer demo.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@723 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 3272463dc..a60ca4c33 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -447,7 +447,8 @@ main = do
          defaultParserState { stateParseRaw    = parseRaw,
                               stateTabStop     = tabStop, 
                               stateStandalone  = standalone && (not strict),
-                              stateSmart       = smart || writerName' == "latex",
+                              stateSmart       = smart || writerName' `elem` 
+                                                          ["latex", "context"],
                               stateColumns     = columns,
                               stateStrict      = strict }
   let csslink = if (css == "")
-- 
cgit v1.2.3