aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2011-02-05 08:16:34 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2011-02-05 08:16:34 -0800
commit6c0e86d1444e401af2590287a86c1963043fee2e (patch)
tree20fcd2f705a80747a8083b754b76559ecf4dc77f /src/Text
parent798c5d55bbfff566a7de9713ec38f1db75c96970 (diff)
downloadpandoc-6c0e86d1444e401af2590287a86c1963043fee2e.tar.gz
HTML writer: stringify alt text.
Previously, if you had formatting in the label of an Image element, you'd get escaped HTML in the alt attribute. Now you just get a plain string version, which seems preferable.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 7cc40e489..aba73a417 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -602,8 +602,7 @@ inlineToHtml opts inline =
if null tit then [] else [title tit]) $
linkText
(Image txt (s,tit)) -> do
- alternate <- inlineListToHtml opts txt
- let alternate' = showHtmlFragment alternate
+ let alternate' = stringify txt
let attributes = [src s] ++
(if null tit
then []