diff options
| author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-27 22:52:11 +0000 |
|---|---|---|
| committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2007-07-27 22:52:11 +0000 |
| commit | 4283ce3662cbb4b9d3165aef40455203ae106c47 (patch) | |
| tree | 173cc173efdda4b21d717c4bb6589d2519953264 /src/Text | |
| parent | 56016a998d5d224d56b46fdb813ab0aecbeef986 (diff) | |
Use ` as default character for \verb in LaTeX output.
If ` is in the content to be escaped, another symbol
will be used as before.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@806 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index c2303850a..cc2da8338 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -216,7 +216,7 @@ inlineToLaTeX (Subscript lst) = do return $ "\\textsubscript{" ++ contents ++ "}" inlineToLaTeX (Code str) = return $ "\\verb" ++ [chr] ++ stuffing ++ [chr] where stuffing = str - chr = ((enumFromTo '!' '~') \\ stuffing) !! 0 + chr = (('`':(enumFromTo '!' '~')) \\ stuffing) !! 0 inlineToLaTeX (Quoted SingleQuote lst) = do contents <- inlineListToLaTeX lst let s1 = if (not (null lst)) && (isQuoted (head lst)) then "\\," else "" |