From a8bbd950e526abb69262fb7186ced583885c6ac8 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Mon, 18 Dec 2006 22:02:39 +0000
Subject: Changed '--smartypants' to '--smart' and adjusted documentation and
 symbols accordingly.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@224 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Main.hs | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index d279d5d3d..0ca36f7ce 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -73,7 +73,7 @@ data Opt = Opt
     , optTitlePrefix        :: String           -- ^ Optional prefix for HTML title
     , optNumberSections     :: Bool             -- ^ If @True@, number sections in LaTeX
     , optIncremental        :: Bool             -- ^ If @True@, show lists incrementally in S5
-    , optSmartypants        :: Bool             -- ^ If @True@, use smart quotes, dashes, ...
+    , optSmart              :: Bool             -- ^ If @True@, use smart quotes, dashes, ...
     , optASCIIMathML        :: Bool             -- ^ If @True@, use ASCIIMathML in HTML or S5
     }
 
@@ -95,7 +95,7 @@ startOpt = Opt
     , optTitlePrefix       = ""
     , optNumberSections    = False
     , optIncremental       = False
-    , optSmartypants       = False
+    , optSmart             = False
     , optASCIIMathML       = False
     }
 
@@ -157,10 +157,10 @@ options =
                   (\opt -> return opt { optParseRaw = True }))
                  "Parse untranslatable HTML codes and LaTeX environments as raw"
 
-    , Option "S" ["smartypants"]
+    , Option "S" ["smart"]
                  (NoArg
-                  (\opt -> return opt { optSmartypants = True }))
-                 "Use smartypants for html output"
+                  (\opt -> return opt { optSmart = True }))
+                 "Use smart quotes, dashes, and ellipses in HTML output"
 
     , Option "m" ["asciimathml"]
                  (NoArg
@@ -255,7 +255,7 @@ main = do
               , optTitlePrefix       = titlePrefix
               , optNumberSections    = numberSections
               , optIncremental       = incremental
-              , optSmartypants       = smartypants
+              , optSmart             = smart
               , optASCIIMathML       = asciiMathML
              } = opts
 
@@ -278,7 +278,7 @@ main = do
   let writerOptions = WriterOptions { writerStandalone     = standalone, 
                                       writerHeader         = header, 
                                       writerTitlePrefix    = titlePrefix,
-                                      writerSmartypants    = smartypants, 
+                                      writerSmart          = smart, 
                                       writerTabStop        = tabStop, 
                                       writerS5             = writingS5,
                                       writerIncremental    = incremental, 
-- 
cgit v1.2.3