@@ -194,7 +194,7 @@ toJiraInlines inlines = do
194 Jira.Monospaced (escapeSpecialChars cs)
194 Jira.Monospaced (escapeSpecialChars cs)
195 Emph xs -> styled Jira.Emphasis xs
195 Emph xs -> styled Jira.Emphasis xs
196 Underline xs -> styled Jira.Insert xs
196 Underline xs -> styled Jira.Insert xs
197− Image attr _ tgt -> imageToJira attr (fst tgt) (snd tgt)
197+ Image attr cap tgt -> imageToJira attr cap (fst tgt) (snd tgt)
198 LineBreak -> pure . singleton $ Jira.Linebreak
198 LineBreak -> pure . singleton $ Jira.Linebreak
199 Link attr xs tgt -> toJiraLink attr tgt xs
199 Link attr xs tgt -> toJiraLink attr tgt xs
200 Math mtype cs -> mathToJira mtype cs
200 Math mtype cs -> mathToJira mtype cs
@@ -233,16 +233,18 @@ escapeSpecialChars t = case plainText t of
233 Left _ -> singleton $ Jira.Str t
233 Left _ -> singleton $ Jira.Str t
235imageToJira :: PandocMonad m
235imageToJira :: PandocMonad m
236− => Attr -> Text -> Text
236+ => Attr -> [Inline] -> Text -> Text
237 -> JiraConverter m [Jira.Inline]
237 -> JiraConverter m [Jira.Inline]
238−imageToJira (_, classes, kvs) src title =
238+imageToJira (_, classes, kvs) caption src title =
239+ let imageWithParams ps = Jira.Image ps (Jira.URL src)
240+ alt = stringify caption
241+ in pure . singleton . imageWithParams $
239− let imgParams = if "thumbnail" `elem` classes
242+ if "thumbnail" `elem` classes
240− then [Jira.Parameter "thumbnail" ""]
243+ then [Jira.Parameter "thumbnail" ""]
241− else map (uncurry Jira.Parameter) kvs
244+ else map (uncurry Jira.Parameter)
242− imgParams' = if T.null title
245+ . (if T.null title then id else (("title", title):))
243− then imgParams
246+ . (if T.null alt then id else (("alt", alt):))
244− else Jira.Parameter "title" title : imgParams
247+ $ kvs
245− in pure . singleton $ Jira.Image imgParams' (Jira.URL src)
247-- | Creates a Jira Link element.
249-- | Creates a Jira Link element.
248toJiraLink :: PandocMonad m
250toJiraLink :: PandocMonad m