diff options
| author | Albert Krewinkel <albert@zeitkraut.de> | 2020-04-04 14:27:27 +0200 |
|---|---|---|
| committer | Albert Krewinkel <albert@zeitkraut.de> | 2020-04-04 14:27:27 +0200 |
| commit | c3f539364aea5065be1d6774cd62f40a1918e773 (patch) | |
| tree | 250584088bdfc141e1f1844c32779ab33800c08b /src/Text/Pandoc/Readers | |
| parent | d867cac8caa0171fcd32589a6827a69826c1b087 (diff) | |
| download | pandoc-c3f539364aea5065be1d6774cd62f40a1918e773.tar.gz | |
Jira: support citations, attachment links, and user links
Closes: #6231
Closes: #6238
Closes: #6239
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Jira.hs | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Jira.hs b/src/Text/Pandoc/Readers/Jira.hs index d6fa688e3..46723f944 100644 --- a/src/Text/Pandoc/Readers/Jira.hs +++ b/src/Text/Pandoc/Readers/Jira.hs @@ -119,13 +119,14 @@ jiraToPandocInlines :: Jira.Inline -> Inlines jiraToPandocInlines = \case Jira.Anchor t -> spanWith (t, [], []) mempty Jira.AutoLink url -> link (Jira.fromURL url) "" (str (Jira.fromURL url)) + Jira.Citation ils -> str "—" <> space <> emph (fromInlines ils) Jira.ColorInline c ils -> spanWith ("", [], [("color", colorName c)]) $ fromInlines ils Jira.Emoji icon -> str . iconUnicode $ icon Jira.Entity entity -> str . fromEntity $ entity Jira.Image params url -> let (title, attr) = imgParams params in imageWith attr (Jira.fromURL url) title mempty - Jira.Link alias url -> link (Jira.fromURL url) "" (fromInlines alias) + Jira.Link lt alias url -> jiraLinkToPandoc lt alias url Jira.Linebreak -> linebreak Jira.Monospaced inlns -> code . stringify . toList . fromInlines $ inlns Jira.Space -> space @@ -157,6 +158,19 @@ jiraToPandocInlines = \case _ -> let kv = (Jira.parameterKey p, Jira.parameterValue p) in (title, (ident, classes, kv:kvs)) +-- | Convert a Jira link to pandoc inlines. +jiraLinkToPandoc :: Jira.LinkType -> [Jira.Inline] -> Jira.URL -> Inlines +jiraLinkToPandoc linkType alias url = + let url' = (if linkType == Jira.User then ("~" <>) else id) $ Jira.fromURL url + alias' = case alias of + [] -> str url' + _ -> foldMap jiraToPandocInlines alias + in case linkType of + Jira.External -> link url' "" alias' + Jira.Email -> link ("mailto:" <> url') "" alias' + Jira.Attachment -> linkWith ("", ["attachment"], []) url' "" alias' + Jira.User -> linkWith ("", ["user-account"], []) url' "" alias' + -- | Get unicode representation of a Jira icon. iconUnicode :: Jira.Icon -> Text iconUnicode = \case |