parent
82c04a28ce
commit
b5cc01e976
1 changed files with 1 additions and 4 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue