From 6e2019d58812df59d1cb74723c71305c9b233bae Mon Sep 17 00:00:00 2001
From: Timm Albers <timm.albers@open-xchange.com>
Date: Mon, 3 Apr 2017 14:29:32 +0200
Subject: 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.
---
 src/Text/Pandoc/Writers/LaTeX.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/Text/Pandoc')

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
-- 
cgit v1.2.3