diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-12-18 22:02:39 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2006-12-18 22:02:39 +0000 |
| commit | a8bbd950e526abb69262fb7186ced583885c6ac8 (patch) | |
| tree | 30e4e5b365faee64c3475290475da9a687428d8f /src/Main.hs | |
| parent | cd4a035a7539edc12165d35e2d166f15ddc3f7d4 (diff) | |
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
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 14 |
1 files changed, 7 insertions, 7 deletions
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, |