mirror of
https://github.com/jgm/pandoc.git
synced 2026-09-21 15:05:47 +00:00
@@ -785,14 +785,11 @@ inlineToHtml opts inline =
|
||||
then link'
|
||||
else link' ! A.title (toValue tit)
|
||||
(Image txt (s,tit)) | treatAsImage s -> do
|
||||
let alternate' = stringify txt
|
||||
let attributes = [A.src $ toValue s] ++
|
||||
(if null tit
|
||||
then []
|
||||
else [A.title $ toValue tit]) ++
|
||||
if null txt
|
||||
then []
|
||||
else [A.alt $ toValue alternate']
|
||||
[A.alt $ toValue $ stringify txt]
|
||||
let tag = if writerHtml5 opts then H5.img else H.img
|
||||
return $ foldl (!) tag attributes
|
||||
-- note: null title included, as in Markdown.pl
|
||||
|
||||
Reference in New Issue
Block a user