diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-18 11:08:04 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-12-18 11:08:04 -0800 |
| commit | bfa5ca01bc2ea97f041441ef7f4667decd76c5c8 (patch) | |
| tree | 54bc08726057e4f847dbbeddb1ab86a3948ff1bf | |
| parent | 1c521519d9d42eee19ce622467efda4583b768f9 (diff) | |
| download | pandoc-bfa5ca01bc2ea97f041441ef7f4667decd76c5c8.tar.gz | |
HTML writer: Use `<del>` for strikeout.
| -rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 | ||||
| -rw-r--r-- | tests/writer.html | 2 |
2 files changed, 2 insertions, 2 deletions
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 diff --git a/tests/writer.html b/tests/writer.html index e9f2b96f9..f38ad5079 100644 --- a/tests/writer.html +++ b/tests/writer.html @@ -424,7 +424,7 @@ Blah <p><strong><em>This is strong and em.</em></strong></p> <p>So is <strong><em>this</em></strong> word.</p> <p>This is code: <code>></code>, <code>$</code>, <code>\</code>, <code>\$</code>, <code><html></code>.</p> -<p><span style="text-decoration: line-through;">This is <em>strikeout</em>.</span></p> +<p><del>This is <em>strikeout</em>.</del></p> <p>Superscripts: a<sup>bc</sup>d a<sup><em>hello</em></sup> a<sup>hello there</sup>.</p> <p>Subscripts: H<sub>2</sub>O, H<sub>23</sub>O, H<sub>many of them</sub>O.</p> <p>These should not be superscripts or subscripts, because of the unescaped spaces: a^b c^d, a~b c~d.</p> |