diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-05 04:46:57 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2009-12-05 04:46:57 +0000 |
| commit | eb5550a6e4daf77754fb55d1867f718179182bdb (patch) | |
| tree | daa4007df63696c3cfe92c484eb77f6856e94f26 /src/pandoc.hs | |
| parent | c4915eace033ac54132790eb61fc2671ce31bc58 (diff) | |
| download | pandoc-eb5550a6e4daf77754fb55d1867f718179182bdb.tar.gz | |
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.hs | 12 |
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 |