Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

HTML writer: Use <del> for strikeout.

Browse source
This commit is contained in:
John MacFarlane 2011-12-18 11:08:04 -08:00
parent 1c521519d9
commit bfa5ca01bc
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Writers/HTML.hs
View file

@ -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

2
tests/writer.html
View file

@ -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>&gt;</code>, <code>$</code>, <code>\</code>, <code>\$</code>, <code>&lt;html&gt;</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>