@@ -65,6 +65,7 @@ data WriterState =
6565 , stInQuote :: Bool -- true if in a blockquote
6666 , stInMinipage :: Bool -- true if in minipage
6767 , stInHeading :: Bool -- true if in a section heading
68+ , stInItem :: Bool -- true if in \item[..]
6869 , stNotes :: [Doc] -- notes in a minipage
6970 , stOLLevel :: Int -- level of ordered list nesting
7071 , stOptions :: WriterOptions -- writer options, so they don't have to be parameter
@@ -90,6 +91,7 @@ startingState options = WriterState {
9091 , stInQuote = False
9192 , stInMinipage = False
9293 , stInHeading = False
94+ , stInItem = False
9395 , stNotes = []
9496 , stOLLevel = 1
9597 , stOptions = options
@@ -777,7 +779,10 @@ listItemToLaTeX lst
777779
778780defListItemToLaTeX :: PandocMonad m => ([Inline], [[Block]]) -> LW m Doc
779781defListItemToLaTeX (term, defs) = do
782+ -- needed to turn off 'listings' because it breaks inside \item[...]:
783+ modify $ \s -> s{stInItem = True}
780784 term' <- inlineListToLaTeX term
785+ modify $ \s -> s{stInItem = False}
781786 -- put braces around term if it contains an internal link,
782787 -- since otherwise we get bad bracket interactions: \item[\hyperref[..]
783788 let isInternalLink (Link _ _ ('#':_,_)) = True
@@ -952,6 +957,7 @@ inlineToLaTeX (Cite cits lst) = do
952957inlineToLaTeX (Code (_,classes,_) str) = do
953958 opts <- gets stOptions
954959 inHeading <- gets stInHeading
960+ inItem <- gets stInItem
955961 let listingsCode = do
956962 let listingsopt = case getListingsLanguage classes of
957963 Just l -> "[language=" ++ mbBraced l ++ "]"
@@ -975,7 +981,7 @@ inlineToLaTeX (Code (_,classes,_) str) = do
975981 Right h -> modify (\st -> st{ stHighlighting = True }) >>
976982 return (text (T.unpack h))
977983 case () of
978− _ | writerListings opts && not inHeading -> listingsCode
984+ _ | writerListings opts && not (inHeading || inItem) -> listingsCode
979985 | isJust (writerHighlightStyle opts) && not (null classes)
980986 -> highlightCode
981987 | otherwise -> rawCode