diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2019-06-11 20:43:20 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-06-11 20:47:29 -0700 |
| commit | bec95c97ace807b4f6c6ad359bf0b310b905f707 (patch) | |
| tree | a474fb1282799e620fc76001f8a9c422dae55033 /src/Text/Pandoc/Writers/LaTeX.hs | |
| parent | 9725522a7f939f090800b6fcd0742d4d8ff671ed (diff) | |
| download | pandoc-bec95c97ace807b4f6c6ad359bf0b310b905f707.tar.gz | |
LaTeX writer: Don't highlight code in headings.
This causes compilation errors, and I don't know how
to work around them. Closes #5574.
Diffstat (limited to 'src/Text/Pandoc/Writers/LaTeX.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/LaTeX.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index 9933c6d36..3acf80866 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -1190,10 +1190,11 @@ inlineToLaTeX (Code (_,classes,kvs) str) = do Right h -> modify (\st -> st{ stHighlighting = True }) >> return (text (T.unpack h)) case () of - _ | writerListings opts && not (inHeading || inItem) -> listingsCode + _ | inHeading || inItem -> rawCode -- see #5574 + | writerListings opts -> listingsCode | isJust (writerHighlightStyle opts) && not (null classes) - -> highlightCode - | otherwise -> rawCode + -> highlightCode + | otherwise -> rawCode inlineToLaTeX (Quoted qt lst) = do contents <- inlineListToLaTeX lst csquotes <- liftM stCsquotes get |