From bfa5ca01bc2ea97f041441ef7f4667decd76c5c8 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Sun, 18 Dec 2011 11:08:04 -0800
Subject: HTML writer: Use `<del>` for strikeout.

---
 src/Text/Pandoc/Writers/HTML.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index 2c7874609..5843bc5ef 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -546,7 +546,7 @@ inlineToHtml opts inline =
                                         $ strToHtml str
                              Right h -> return h
     (Strikeout lst)  -> inlineListToHtml opts lst >>=
-                        return . (H.span ! A.style "text-decoration: line-through;")
+                        return . H.del
     (SmallCaps lst)   -> inlineListToHtml opts lst >>=
                          return . (H.span ! A.style "font-variant: small-caps;")
     (Superscript lst) -> inlineListToHtml opts lst >>= return . H.sup
-- 
cgit v1.2.3