diff options
author | paul.rivier <paul.r.ml@gmail.com> | 2010-09-16 11:26:12 +0200 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-03 23:10:50 -0800 |
commit | d532c72c5b3249ae83733d9fe064764d123603c0 (patch) | |
tree | aac4917b7e23496d37ce5a2033dfb6bc59940044 /src/Text/Pandoc/Writers/HTML.hs | |
parent | 3ffd7246173b8bdc0d25167355f55e3193aaa989 (diff) | |
download | pandoc-d532c72c5b3249ae83733d9fe064764d123603c0.tar.gz |
Basic Textile Reader
Diffstat (limited to 'src/Text/Pandoc/Writers/HTML.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/HTML.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs index b8da4bec0..55403af42 100644 --- a/src/Text/Pandoc/Writers/HTML.hs +++ b/src/Text/Pandoc/Writers/HTML.hs @@ -454,6 +454,8 @@ inlineToHtml opts inline = (Code str) -> return $ thecode << str (Strikeout lst) -> inlineListToHtml opts lst >>= return . (thespan ! [thestyle "text-decoration: line-through;"]) + (Inserted lst) -> inlineListToHtml opts lst >>= + return . (thespan ! [thestyle "text-decoration: underline;"]) (SmallCaps lst) -> inlineListToHtml opts lst >>= return . (thespan ! [thestyle "font-variant: small-caps;"]) (Superscript lst) -> inlineListToHtml opts lst >>= return . sup |