@@ -123,7 +123,8 @@ jiraToPandocInlines = \case
123123 fromInlines ils
124124 Jira.Emoji icon -> str . iconUnicode $ icon
125125 Jira.Entity entity -> str . fromEntity $ entity
126− Jira.Image _ url -> image (Jira.fromURL url) "" mempty
126+ Jira.Image params url -> let (title, attr) = imgParams params
127+ in imageWith attr (Jira.fromURL url) title mempty
127128 Jira.Link alias url -> link (Jira.fromURL url) "" (fromInlines alias)
128129 Jira.Linebreak -> linebreak
129130 Jira.Monospaced inlns -> code . stringify . toList . fromInlines $ inlns
@@ -145,6 +146,17 @@ jiraToPandocInlines = \case
145146 Jira.Subscript -> subscript
146147 Jira.Superscript -> superscript
147148
149+ imgParams :: [Jira.Parameter] -> (Text, Attr)
150+ imgParams = foldr addImgParam ("", ("", [], []))
151+
152+ addImgParam :: Jira.Parameter -> (Text, Attr) -> (Text, Attr)
153+ addImgParam p (title, attr@(ident, classes, kvs)) =
154+ case Jira.parameterKey p of
155+ "title" -> (Jira.parameterValue p, attr)
156+ "thumbnail" -> (title, (ident, "thumbnail":classes, kvs))
157+ _ -> let kv = (Jira.parameterKey p, Jira.parameterValue p)
158+ in (title, (ident, classes, kv:kvs))
159+
148160-- | Get unicode representation of a Jira icon.
149161iconUnicode :: Jira.Icon -> Text
150162iconUnicode = \case