@@ -613,8 +613,22 @@ inlineToHtml opts inline =
613 (Str str) -> return $ strToHtml str
613 (Str str) -> return $ strToHtml str
614 (Space) -> return $ strToHtml " "
614 (Space) -> return $ strToHtml " "
615 (LineBreak) -> return $ if writerHtml5 opts then H5.br else H.br
615 (LineBreak) -> return $ if writerHtml5 opts then H5.br else H.br
616+ (Span (id',classes,kvs) ils)
616− (Span attr ils) -> inlineListToHtml opts ils >>=
617+ -> inlineListToHtml opts ils >>=
617− return . addAttrs opts attr . H.span
618+ return . addAttrs opts attr' . H.span
619+ where attr' = (id',classes',kvs')
620+ classes' = filter (`notElem` ["csl-no-emph",
622+ "csl-no-smallcaps"]) classes
623+ kvs' = if null styles
625+ else (("style", concat styles) : kvs)
626+ styles = ["font-style:normal;"
627+ | "csl-no-emph" `elem` classes]
628+ ++ ["font-weight:normal;"
629+ | "csl-no-strong" `elem` classes]
630+ ++ ["font-variant:normal;"
631+ | "csl-no-smallcaps" `elem` classes]
618 (Emph lst) -> inlineListToHtml opts lst >>= return . H.em
632 (Emph lst) -> inlineListToHtml opts lst >>= return . H.em
619 (Strong lst) -> inlineListToHtml opts lst >>= return . H.strong
633 (Strong lst) -> inlineListToHtml opts lst >>= return . H.strong
620 (Code attr str) -> case hlCode of
634 (Code attr str) -> case hlCode of