diff options
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Jira.hs | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Jira.hs b/src/Text/Pandoc/Writers/Jira.hs index 57de04cf5..d1a656687 100644 --- a/src/Text/Pandoc/Writers/Jira.hs +++ b/src/Text/Pandoc/Writers/Jira.hs @@ -206,7 +206,7 @@ toJiraInlines inlines = do then Jira.Linebreak else Jira.Space Space -> pure . singleton $ Jira.Space - Span _attr xs -> toJiraInlines xs + Span attr xs -> spanToJira attr xs Str s -> pure $ escapeSpecialChars s Strikeout xs -> styled Jira.Strikeout xs Strong xs -> styled Jira.Strong xs @@ -263,6 +263,14 @@ quotedToJira qtype xs = do let surroundWithQuotes = (Jira.Str quoteChar :) . (++ [Jira.Str quoteChar]) surroundWithQuotes <$> toJiraInlines xs +spanToJira :: PandocMonad m + => Attr -> [Inline] + -> JiraConverter m [Jira.Inline] +spanToJira (_, classes, _) = + if "underline" `elem` classes + then styled Jira.Insert + else toJiraInlines + registerNotes :: PandocMonad m => [Block] -> JiraConverter m [Jira.Inline] registerNotes contents = do curNotes <- gets stNotes |