diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/AsciiDoc.hs | 4 | ||||
| -rw-r--r-- | test/command/11374.md | 6 |
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# +``` |