summaryrefslogtreecommitdiff
path: root/src/pandoc.hs
diff options
context:
space:
mode:
authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2009-12-05 04:46:57 +0000
committerfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>2009-12-05 04:46:57 +0000
commiteb5550a6e4daf77754fb55d1867f718179182bdb (patch)
treedaa4007df63696c3cfe92c484eb77f6856e94f26 /src/pandoc.hs
parentc4915eace033ac54132790eb61fc2671ce31bc58 (diff)
Changed --default-code-classes -> --indented-code-classes.
Also changed stateDefaultCodeClasses -> stateIndentedCodeClasses. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1643 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/pandoc.hs')
-rw-r--r--src/pandoc.hs12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs
index 937491a6a..e24d621bf 100644
--- a/src/pandoc.hs
+++ b/src/pandoc.hs
@@ -153,7 +153,7 @@ data Opt = Opt
, optSanitizeHTML :: Bool -- ^ Sanitize HTML
, optPlugins :: [Pandoc -> IO Pandoc] -- ^ Plugins to apply
, optEmailObfuscation :: ObfuscationMethod
- , optDefaultCodeClasses :: [String] -- ^ Default classes for indented code blocks
+ , optIndentedCodeClasses :: [String] -- ^ Default classes for indented code blocks
#ifdef _CITEPROC
, optBiblioFile :: String
, optBiblioFormat :: String
@@ -190,7 +190,7 @@ defaultOpts = Opt
, optSanitizeHTML = False
, optPlugins = []
, optEmailObfuscation = JavascriptObfuscation
- , optDefaultCodeClasses = []
+ , optIndentedCodeClasses = []
#ifdef _CITEPROC
, optBiblioFile = []
, optBiblioFormat = []
@@ -314,9 +314,9 @@ options =
"none|javascript|references")
"" -- "Method for obfuscating email in HTML"
- , Option "" ["default-code-classes"]
+ , Option "" ["indented-code-classes"]
(ReqArg
- (\arg opt -> return opt { optDefaultCodeClasses = words $
+ (\arg opt -> return opt { optIndentedCodeClasses = words $
map (\c -> if c == ',' then ' ' else c) arg })
"STRING")
"" -- "Classes (whitespace- or comma-separated) to use for indented code-blocks"
@@ -540,7 +540,7 @@ main = do
, optWrapText = wrap
, optSanitizeHTML = sanitize
, optEmailObfuscation = obfuscationMethod
- , optDefaultCodeClasses = codeBlockClasses
+ , optIndentedCodeClasses = codeBlockClasses
#ifdef _CITEPROC
, optBiblioFile = biblioFile
, optBiblioFormat = biblioFormat
@@ -597,7 +597,7 @@ main = do
["latex", "context", "man"],
stateColumns = columns,
stateStrict = strict,
- stateDefaultCodeClasses = codeBlockClasses }
+ stateIndentedCodeClasses = codeBlockClasses }
let csslink = if null css
then ""
else concatMap