@@ -696,7 +696,14 @@ inlineToMarkdown opts (Subscript lst) = do
696696 return $ if isEnabled Ext_subscript opts
697697 then "~" <> contents <> "~"
698698 else "<sub>" <> contents <> "</sub>"
699−inlineToMarkdown opts (SmallCaps lst) = inlineListToMarkdown opts lst
699+inlineToMarkdown opts (SmallCaps lst) = do
700+ contents <- inlineListToMarkdown opts lst
701+ st <- get
702+ return $ if stPlain st
703+ then contents
704+ else tagWithAttrs "span"
705+ ("",[],[("style","font-variant:small-caps;")])
706+ <> contents <> text "</span>"
700707inlineToMarkdown opts (Quoted SingleQuote lst) = do
701708 contents <- inlineListToMarkdown opts lst
702709 return $ "‘" <> contents <> "’"