AsciiDoc writer: use a span with role for SmallCaps.

Closes #11374.

2 files changed, 9 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs
index 55c3f724a..7c2bb8f48 100644
--- a/src/Text/Pandoc/Writers/AsciiDoc.hs
+++ b/src/Text/Pandoc/Writers/AsciiDoc.hs
@@ -630,7 +630,9 @@ inlineToAsciiDoc opts (Superscript lst) = do
 inlineToAsciiDoc opts (Subscript lst) = do
   contents <- inlineListToAsciiDoc opts lst
   return $ "~" <> contents <> "~"
-inlineToAsciiDoc opts (SmallCaps lst) = inlineListToAsciiDoc opts lst
+inlineToAsciiDoc opts (SmallCaps lst) = do
+  contents <- inlineListToAsciiDoc opts lst
+  return $ "[smallcaps]#" <> contents <> "#"
 inlineToAsciiDoc opts (Quoted qt lst) = do
   isLegacy <- gets legacy
   contents <- inlineListToAsciiDoc opts lst
diff --git a/test/command/11374.md b/test/command/11374.md
new file mode 100644
index 000000000..065e81ac5
--- /dev/null
+++ b/test/command/11374.md
@@ -0,0 +1,6 @@
+```
+% pandoc -f native -t asciidoc
+[ Para [ SmallCaps [ Str "foo" ] ] ]
+^D
+[smallcaps]#foo#
+```