@@ -194,7 +194,7 @@ toJiraInlines inlines = do
194194 Jira.Monospaced (escapeSpecialChars cs)
195195 Emph xs -> styled Jira.Emphasis xs
196196 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)
198198 LineBreak -> pure . singleton $ Jira.Linebreak
199199 Link attr xs tgt -> toJiraLink attr tgt xs
200200 Math mtype cs -> mathToJira mtype cs
@@ -233,16 +233,18 @@ escapeSpecialChars t = case plainText t of
233233 Left _ -> singleton $ Jira.Str t
234234
235235imageToJira :: PandocMonad m
236− => Attr -> Text -> Text
236+ => Attr -> [Inline] -> Text -> Text
237237 -> JiraConverter m [Jira.Inline]
238−imageToJira (_, classes, kvs) src title =
239− let imgParams = if "thumbnail" `elem` classes
240− then [Jira.Parameter "thumbnail" ""]
241− else map (uncurry Jira.Parameter) kvs
242− imgParams' = if T.null title
243− then imgParams
244− else Jira.Parameter "title" title : imgParams
245− in pure . singleton $ Jira.Image imgParams' (Jira.URL src)
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 $
242+ if "thumbnail" `elem` classes
243+ then [Jira.Parameter "thumbnail" ""]
244+ else map (uncurry Jira.Parameter)
245+ . (if T.null title then id else (("title", title):))
246+ . (if T.null alt then id else (("alt", alt):))
247+ $ kvs
246248
247249-- | Creates a Jira Link element.
248250toJiraLink :: PandocMonad m