diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-03-31 09:57:59 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-03-31 09:57:59 +0200 |
| commit | ff9be6b38429b502b1582f2395b824305eb8c99c (patch) | |
| tree | cf00c6ac9be4e80761c40d610d0db28914d30ad2 /src/Text/Pandoc/Writers | |
| parent | 9a42bec7fc8387bf7780cc3d3140c543e0ec6e32 (diff) | |
| download | pandoc-ff9be6b38429b502b1582f2395b824305eb8c99c.tar.gz | |
Jira writer: convert spans with class `underline` to inserted text
Spans with class `underline` as converted into Jira text marked as
`+inserted+`, i.e. surrounded by plus-signs.
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 |