diff options
| author | hftf <hftf@users.noreply.github.com> | 2017-10-27 18:45:00 -0400 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-27 18:45:00 -0400 |
| commit | 7f8a3c6cb70e61666598873dbcea8ef45ab85b56 (patch) | |
| tree | 74d187a1f0f57733ecd76b331f4259e1469204e2 /test/html-reader.native | |
| parent | 2ddf08641d5e27046ae97ebd3cb4602025016ed5 (diff) | |
Consistent underline for Readers (#2270)
* Added underlineSpan builder function. This can be easily updated if needed. The purpose is for Readers to transform underlines consistently.
* Docx Reader: Use underlineSpan and update test
* Org Reader: Use underlineSpan and add test
* Textile Reader: Use underlineSpan and add test case
* Txt2Tags Reader: Use underlineSpan and update test
* HTML Reader: Use underlineSpan and add test case
Diffstat (limited to 'test/html-reader.native')
| -rw-r--r-- | test/html-reader.native | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/test/html-reader.native b/test/html-reader.native index ed2cd084f..4203aa3a8 100644 --- a/test/html-reader.native +++ b/test/html-reader.native @@ -207,6 +207,8 @@ Pandoc (Meta {unMeta = fromList [("generator",MetaInlines [Str "pandoc"]),("titl ,Para [Str "So",Space,Str "is",Space,Strong [Emph [Str "this"]],Space,Str "word."] ,Para [Str "This",Space,Str "is",Space,Str "code:",Space,Code ("",[],[]) ">",Str ",",Space,Code ("",[],[]) "$",Str ",",Space,Code ("",[],[]) "\\",Str ",",Space,Code ("",[],[]) "\\$",Str ",",Space,Code ("",[],[]) "<html>",Str "."] ,Para [Str "This",Space,Str "is",Space,SmallCaps [Str "small",Space,Str "caps"],Str "."] +,Para [Str "These",Space,Str "are",Space,Str "all",Space,Str "underlined:",Space,Span ("",["underline"],[]) [Str "foo"],Space,Str "and",Space,Span ("",["underline"],[]) [Str "bar"],Str "."] +,Para [Str "These",Space,Str "are",Space,Str "all",Space,Str "strikethrough:",Space,Strikeout [Str "foo"],Str ",",Space,Strikeout [Str "bar"],Str ",",Space,Str "and",Space,Strikeout [Str "baz"],Str "."] ,HorizontalRule ,Header 1 ("smart-quotes-ellipses-dashes",[],[]) [Str "Smart",Space,Str "quotes,",Space,Str "ellipses,",Space,Str "dashes"] ,Para [Str "\"Hello,\"",Space,Str "said",Space,Str "the",Space,Str "spider.",Space,Str "\"'Shelob'",Space,Str "is",Space,Str "my",Space,Str "name.\""] |