aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/LaTeX.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 739b60133..ef96cf7b7 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -130,9 +130,10 @@ blockToLaTeX (BlockQuote lst) = do
return $ "\\begin{quote}\n" ++ contents ++ "\\end{quote}\n"
blockToLaTeX (CodeBlock str) = do
st <- get
- let verbEnv = if stInNote st then "Verbatim" else "verbatim"
- return $ "\\begin{" ++ verbEnv ++ "}\n" ++ str ++
- "\n\\end{" ++ verbEnv ++ "}\n"
+ if stInNote st
+ then do addToHeader "\\usepackage{fancyvrb}"
+ return $ "\\begin{Verbatim}\n" ++ str ++ "\n\\end{Verbatim}\n"
+ else return $ "\\begin{verbatim}\n" ++ str ++ "\n\\end{verbatim}\n"
blockToLaTeX (RawHtml str) = return ""
blockToLaTeX (BulletList lst) = do
items <- mapM listItemToLaTeX lst
@@ -259,5 +260,4 @@ inlineToLaTeX (Note contents) = do
contents' <- blockListToLaTeX contents
st <- get
put (st {stInNote = False})
- addToHeader "\\usepackage{fancyvrb}"
return $ "\\footnote{" ++ stripTrailingNewlines contents' ++ "}"