diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2021-05-25 16:54:42 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2021-05-25 16:54:42 +0200 |
| commit | d46ea7d7da3f842d265f09730c90cfc3691576ef (patch) | |
| tree | a37126d86fa62f57063b8c36403541d5ec1a0adf /src/Text/Pandoc/Writers/Jira.hs | |
| parent | 8511f6fdf6c9fbc2cc926538bca4ae9f554b4ed9 (diff) | |
| download | pandoc-d46ea7d7da3f842d265f09730c90cfc3691576ef.tar.gz | |
Jira: add support for "smart" links
Support has been added for the new
`[alias|https://example.com|smart-card]` syntax.
Diffstat (limited to 'src/Text/Pandoc/Writers/Jira.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Jira.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/Jira.hs b/src/Text/Pandoc/Writers/Jira.hs index cf4dadebc..1351814e9 100644 --- a/src/Text/Pandoc/Writers/Jira.hs +++ b/src/Text/Pandoc/Writers/Jira.hs @@ -280,6 +280,8 @@ toJiraLink (_, classes, _) (url, _) alias = do | Just email <- T.stripPrefix "mailto:" url' = (Jira.Email, email) | "user-account" `elem` classes = (Jira.User, dropTilde url) | "attachment" `elem` classes = (Jira.Attachment, url) + | "smart-card" `elem` classes = (Jira.SmartCard, url) + | "smart-link" `elem` classes = (Jira.SmartLink, url) | otherwise = (Jira.External, url) dropTilde txt = case T.uncons txt of Just ('~', username) -> username |