diff options
| author | Timm Albers <timm.albers@open-xchange.com> | 2017-04-03 14:29:32 +0200 |
|---|---|---|
| committer | Timm Albers <timm.albers@open-xchange.com> | 2017-04-03 14:36:36 +0200 |
| commit | 6e2019d58812df59d1cb74723c71305c9b233bae (patch) | |
| tree | f433c66a6b156e9d041e0f2ec52abff916755649 | |
| parent | e3e52aa4c17aee452658e9252210d3621255964c (diff) | |
| download | pandoc-6e2019d58812df59d1cb74723c71305c9b233bae.tar.gz | |
Include \VerbatimFootnotes for highlighted code blocks
Updated the LaTeX writer to also include \VerbatimFootnotes in the
preamble for highlighted code blocks. Previously this was only done for
raw code blocks.
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index eb38485de..70539a4a6 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -554,8 +554,11 @@ blockToLaTeX (CodeBlock (identifier,classes,keyvalAttr) str) = do unless (null msg) $ report $ CouldNotHighlight msg rawCodeBlock - Right h -> modify (\st -> st{ stHighlighting = True }) >> - return (flush $ linkAnchor $$ text (T.unpack h)) + Right h -> do + st <- get + when (stInNote st) $ modify (\s -> s{ stVerbInNote = True }) + modify (\s -> s{ stHighlighting = True }) + return (flush $ linkAnchor $$ text (T.unpack h)) case () of _ | isEnabled Ext_literate_haskell opts && "haskell" `elem` classes && "literate" `elem` classes -> lhsCodeBlock |