diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/AsciiDoc.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Writers/AsciiDoc.hs b/src/Text/Pandoc/Writers/AsciiDoc.hs index 7c2bb8f48..dbf5d85cb 100644 --- a/src/Text/Pandoc/Writers/AsciiDoc.hs +++ b/src/Text/Pandoc/Writers/AsciiDoc.hs @@ -612,27 +612,27 @@ inlineToAsciiDoc opts (Emph lst) = do contents <- inlineListToAsciiDoc opts lst isIntraword <- gets intraword let marker = if isIntraword then "__" else "_" - return $ marker <> contents <> marker + return $ delimited marker marker contents inlineToAsciiDoc opts (Underline lst) = do contents <- inlineListToAsciiDoc opts lst - return $ "[.underline]#" <> contents <> "#" + return $ delimited "[.underline]#" "#" contents inlineToAsciiDoc opts (Strong lst) = do contents <- inlineListToAsciiDoc opts lst isIntraword <- gets intraword let marker = if isIntraword then "**" else "*" - return $ marker <> contents <> marker + return $ delimited marker marker contents inlineToAsciiDoc opts (Strikeout lst) = do contents <- inlineListToAsciiDoc opts lst - return $ "[line-through]#" <> contents <> "#" + return $ delimited "[line-through]#" "#" contents inlineToAsciiDoc opts (Superscript lst) = do contents <- inlineListToAsciiDoc opts lst - return $ "^" <> contents <> "^" + return $ delimited "^" "^" contents inlineToAsciiDoc opts (Subscript lst) = do contents <- inlineListToAsciiDoc opts lst - return $ "~" <> contents <> "~" + return $ delimited "~" "~" contents inlineToAsciiDoc opts (SmallCaps lst) = do contents <- inlineListToAsciiDoc opts lst - return $ "[smallcaps]#" <> contents <> "#" + return $ delimited "[smallcaps]#" "#" contents inlineToAsciiDoc opts (Quoted qt lst) = do isLegacy <- gets legacy contents <- inlineListToAsciiDoc opts lst |