From 91f6d08beaa7742d1e0188a716eedd938e78cc9d Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Sat, 3 Jan 2026 11:20:28 -0500 Subject: AsciiDoc writer: use a span with role for SmallCaps. Closes #11374. --- src/Text/Pandoc/Writers/AsciiDoc.hs | 4 +++- test/command/11374.md | 6 ++++++ 2 files changed, 9 insertions(+), 1 deletion(-) create mode 100644 test/command/11374.md 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# +``` -- cgit v1.2.3