@@ -602,7 +602,16 @@ isQuoted _ = False
602602-- | Convert inline element to LaTeX
603603inlineToLaTeX :: Inline -- ^ Inline to convert
604604 -> State WriterState Doc
605−inlineToLaTeX (Span _ ils) = inlineListToLaTeX ils >>= return . braces
605+inlineToLaTeX (Span (_,classes,_) ils) = do
606+ let noEmph = "csl-no-emph" `elem` classes
607+ let noStrong = "csl-no-strong" `elem` classes
608+ let noSmallCaps = "csl-no-smallcaps" `elem` classes
609+ ((if noEmph then inCmd "textup" else id) .
610+ (if noStrong then inCmd "textnormal" else id) .
611+ (if noSmallCaps then inCmd "textnormal" else id) .
612+ (if not (noEmph || noStrong || noSmallCaps)
613+ then braces
614+ else id)) `fmap` inlineListToLaTeX ils
606615inlineToLaTeX (Emph lst) =
607616 inlineListToLaTeX lst >>= return . inCmd "emph"
608617inlineToLaTeX (Strong lst) =