From 0bdcf415e4eff83ad8e35c1d41c8a28e0bbd5da1 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 28 Sep 2021 21:17:53 -0700 Subject: Switch from pretty-simple to pretty-show for native output. Update tests. Reason: it turns out that the native output generated by pretty-simple isn't always readable by the native reader. According to https://github.com/cdepillabout/pretty-simple/issues/99 it is not a design goal of the library that the rendered values be readable using 'read'. This makes it unsuitable for our purposes. pretty-show is a bit slower and it uses 4-space indents (non-configurable), but it doesn't have this serious drawback. --- test/creole-reader.native | 1802 ++++++++++++++++++++++----------------------- 1 file changed, 890 insertions(+), 912 deletions(-) (limited to 'test/creole-reader.native') diff --git a/test/creole-reader.native b/test/creole-reader.native index 0c8fc3677..5590a14d1 100644 --- a/test/creole-reader.native +++ b/test/creole-reader.native @@ -1,992 +1,970 @@ Pandoc - ( Meta { unMeta = fromList [] } ) - [ Header 1 - ( "", [], [] ) - [ Str "Top-level heading (1)" ] - , Header 2 - ( "", [], [] ) - [ Str "This a test for creole 0.1 (2)" ] - , Header 3 - ( "", [], [] ) - [ Str "This is a Subheading (3)" ] - , Header 4 - ( "", [], [] ) - [ Str "Subsub (4)" ] - , Header 5 - ( "", [], [] ) - [ Str "Subsubsub (5)" ] + Meta { unMeta = fromList [] } + [ Header 1 ( "" , [] , [] ) [ Str "Top-level heading (1)" ] + , Header + 2 ( "" , [] , [] ) [ Str "This a test for creole 0.1 (2)" ] + , Header + 3 ( "" , [] , [] ) [ Str "This is a Subheading (3)" ] + , Header 4 ( "" , [] , [] ) [ Str "Subsub (4)" ] + , Header 5 ( "" , [] , [] ) [ Str "Subsubsub (5)" ] , Para - [ Str "The" - , Space - , Str "ending" - , Space - , Str "equal" - , Space - , Str "signs" - , Space - , Str "should" - , Space - , Str "not" - , Space - , Str "be" - , Space - , Str "displayed:" - ] - , Header 1 - ( "", [], [] ) - [ Str "Top-level heading (1)" ] - , Header 2 - ( "", [], [] ) - [ Str "This a test for creole 0.1 (2)" ] - , Header 3 - ( "", [], [] ) - [ Str "This is a Subheading (3)" ] - , Header 4 - ( "", [], [] ) - [ Str "Subsub (4)" ] - , Header 5 - ( "", [], [] ) - [ Str "Subsubsub (5)" ] - , Para - [ Str "You" - , Space - , Str "can" - , Space - , Str "make" - , Space - , Str "things" - , Space - , Strong - [ Str "bold" ] - , Space - , Str "or" - , Space - , Emph - [ Str "italic" ] - , Space - , Str "or" - , Space - , Strong - [ Emph [ Str "both" ] ] - , Space - , Str "or" - , Space - , Emph - [ Strong [ Str "both" ] ] - , Str "." - ] + [ Str "The" + , Space + , Str "ending" + , Space + , Str "equal" + , Space + , Str "signs" + , Space + , Str "should" + , Space + , Str "not" + , Space + , Str "be" + , Space + , Str "displayed:" + ] + , Header 1 ( "" , [] , [] ) [ Str "Top-level heading (1)" ] + , Header + 2 ( "" , [] , [] ) [ Str "This a test for creole 0.1 (2)" ] + , Header + 3 ( "" , [] , [] ) [ Str "This is a Subheading (3)" ] + , Header 4 ( "" , [] , [] ) [ Str "Subsub (4)" ] + , Header 5 ( "" , [] , [] ) [ Str "Subsubsub (5)" ] , Para - [ Str "Character" - , Space - , Str "formatting" - , Space - , Str "extends" - , Space - , Str "across" - , Space - , Str "line" - , Space - , Str "breaks:" - , Space - , Strong - [ Str "bold," + [ Str "You" , Space - , Str "this" + , Str "can" , Space - , Str "is" + , Str "make" , Space - , Str "still" + , Str "things" , Space - , Str "bold." + , Strong [ Str "bold" ] , Space - , Str "This" + , Str "or" + , Space + , Emph [ Str "italic" ] + , Space + , Str "or" + , Space + , Strong [ Emph [ Str "both" ] ] + , Space + , Str "or" + , Space + , Emph [ Strong [ Str "both" ] ] + , Str "." + ] + , Para + [ Str "Character" + , Space + , Str "formatting" + , Space + , Str "extends" + , Space + , Str "across" , Space , Str "line" , Space - , Str "deliberately" + , Str "breaks:" + , Space + , Strong + [ Str "bold," + , Space + , Str "this" + , Space + , Str "is" + , Space + , Str "still" + , Space + , Str "bold." + , Space + , Str "This" + , Space + , Str "line" + , Space + , Str "deliberately" + , Space + , Str "does" + , Space + , Str "not" + , Space + , Str "end" + , Space + , Str "in" + , Space + , Str "star-star." + ] + ] + , Para + [ Str "Not" + , Space + , Str "bold." + , Space + , Str "Character" + , Space + , Str "formatting" , Space , Str "does" , Space , Str "not" , Space - , Str "end" + , Str "cross" , Space - , Str "in" + , Str "paragraph" , Space - , Str "star-star." + , Str "boundaries." ] - ] - , Para - [ Str "Not" - , Space - , Str "bold." - , Space - , Str "Character" - , Space - , Str "formatting" - , Space - , Str "does" - , Space - , Str "not" - , Space - , Str "cross" - , Space - , Str "paragraph" - , Space - , Str "boundaries." - ] , Para - [ Str "You" - , Space - , Str "can" - , Space - , Str "use" - , Space - , Link - ( "", [], [] ) - [ Str "internal links" ] - ( "internal links", "" ) - , Space - , Str "or" - , Space - , Link - ( "", [], [] ) - [ Str "external links" ] - ( "http://www.wikicreole.org", "" ) - , Str "," - , Space - , Str "give" - , Space - , Str "the" - , Space - , Str "link" - , Space - , Str "a" - , Space - , Link - ( "", [], [] ) - [ Str "different" ] - ( "internal links", "" ) - , Space - , Str "name." - ] + [ Str "You" + , Space + , Str "can" + , Space + , Str "use" + , Space + , Link + ( "" , [] , [] ) + [ Str "internal links" ] + ( "internal links" , "" ) + , Space + , Str "or" + , Space + , Link + ( "" , [] , [] ) + [ Str "external links" ] + ( "http://www.wikicreole.org" , "" ) + , Str "," + , Space + , Str "give" + , Space + , Str "the" + , Space + , Str "link" + , Space + , Str "a" + , Space + , Link + ( "" , [] , [] ) + [ Str "different" ] + ( "internal links" , "" ) + , Space + , Str "name." + ] , Para - [ Str "Here's" - , Space - , Str "another" - , Space - , Str "sentence:" - , Space - , Str "This" - , Space - , Str "wisdom" - , Space - , Str "is" - , Space - , Str "taken" - , Space - , Str "from" - , Space - , Link - ( "", [], [] ) - [ Str "Ward Cunningham's" ] - ( "Ward Cunningham's", "" ) - , Space - , Link - ( "", [], [] ) - [ Str "Presentation at the Wikisym 06" ] - ( "http://www.c2.com/doc/wikisym/WikiSym2006.pdf", "" ) - , Str "." - ] + [ Str "Here's" + , Space + , Str "another" + , Space + , Str "sentence:" + , Space + , Str "This" + , Space + , Str "wisdom" + , Space + , Str "is" + , Space + , Str "taken" + , Space + , Str "from" + , Space + , Link + ( "" , [] , [] ) + [ Str "Ward Cunningham's" ] + ( "Ward Cunningham's" , "" ) + , Space + , Link + ( "" , [] , [] ) + [ Str "Presentation at the Wikisym 06" ] + ( "http://www.c2.com/doc/wikisym/WikiSym2006.pdf" , "" ) + , Str "." + ] , Para - [ Str "Here's" - , Space - , Str "a" - , Space - , Str "external" - , Space - , Str "link" - , Space - , Str "without" - , Space - , Str "a" - , Space - , Str "description:" - , Space - , Link - ( "", [], [] ) - [ Str "http://www.wikicreole.org" ] - ( "http://www.wikicreole.org", "" ) - ] + [ Str "Here's" + , Space + , Str "a" + , Space + , Str "external" + , Space + , Str "link" + , Space + , Str "without" + , Space + , Str "a" + , Space + , Str "description:" + , Space + , Link + ( "" , [] , [] ) + [ Str "http://www.wikicreole.org" ] + ( "http://www.wikicreole.org" , "" ) + ] , Para - [ Str "Be" - , Space - , Str "careful" - , Space - , Str "that" - , Space - , Str "italic" - , Space - , Str "links" - , Space - , Str "are" - , Space - , Str "rendered" - , Space - , Str "properly:" - , Space - , Emph - [ Link - ( "", [], [] ) - [ Str "My Book Title" ] - ( "http://my.book.example/", "" ) - ] - ] + [ Str "Be" + , Space + , Str "careful" + , Space + , Str "that" + , Space + , Str "italic" + , Space + , Str "links" + , Space + , Str "are" + , Space + , Str "rendered" + , Space + , Str "properly:" + , Space + , Emph + [ Link + ( "" , [] , [] ) + [ Str "My Book Title" ] + ( "http://my.book.example/" , "" ) + ] + ] , Para - [ Str "Free" - , Space - , Str "links" - , Space - , Str "without" - , Space - , Str "braces" - , Space - , Str "should" - , Space - , Str "be" - , Space - , Str "rendered" - , Space - , Str "as" - , Space - , Str "well," - , Space - , Str "like" - , Space - , Link - ( "", [], [] ) - [ Str "http://www.wikicreole.org/" ] - ( "http://www.wikicreole.org/", "" ) - , Space - , Str "and" - , Space - , Link - ( "", [], [] ) - [ Str "http://www.wikicreole.org/users/~example" ] - ( "http://www.wikicreole.org/users/~example", "" ) - , Str "." - ] + [ Str "Free" + , Space + , Str "links" + , Space + , Str "without" + , Space + , Str "braces" + , Space + , Str "should" + , Space + , Str "be" + , Space + , Str "rendered" + , Space + , Str "as" + , Space + , Str "well," + , Space + , Str "like" + , Space + , Link + ( "" , [] , [] ) + [ Str "http://www.wikicreole.org/" ] + ( "http://www.wikicreole.org/" , "" ) + , Space + , Str "and" + , Space + , Link + ( "" , [] , [] ) + [ Str "http://www.wikicreole.org/users/~example" ] + ( "http://www.wikicreole.org/users/~example" , "" ) + , Str "." + ] , Para - [ Str "Creole1.0" - , Space - , Str "specifies" - , Space - , Str "that" - , Space - , Link - ( "", [], [] ) - [ Str "http://bar" ] - ( "http://bar", "" ) - , Space - , Str "and" - , Space - , Link - ( "", [], [] ) - [ Str "ftp://bar" ] - ( "ftp://bar", "" ) - , Space - , Str "should" - , Space - , Str "not" - , Space - , Str "render" - , Space - , Str "italic," - , Space - , Str "something" - , Space - , Str "like" - , Space - , Str "foo:" - , Emph - [ Str "bar" + [ Str "Creole1.0" + , Space + , Str "specifies" + , Space + , Str "that" + , Space + , Link + ( "" , [] , [] ) [ Str "http://bar" ] ( "http://bar" , "" ) + , Space + , Str "and" + , Space + , Link + ( "" , [] , [] ) [ Str "ftp://bar" ] ( "ftp://bar" , "" ) , Space , Str "should" , Space + , Str "not" + , Space , Str "render" , Space - , Str "as" + , Str "italic," , Space - , Str "italic." + , Str "something" + , Space + , Str "like" + , Space + , Str "foo:" + , Emph + [ Str "bar" + , Space + , Str "should" + , Space + , Str "render" + , Space + , Str "as" + , Space + , Str "italic." + ] ] - ] , Para - [ Str "You" - , Space - , Str "can" - , Space - , Str "use" - , Space - , Str "this" - , Space - , Str "to" - , Space - , Str "draw" - , Space - , Str "a" - , Space - , Str "line" - , Space - , Str "to" - , Space - , Str "separate" - , Space - , Str "the" - , Space - , Str "page:" - ] + [ Str "You" + , Space + , Str "can" + , Space + , Str "use" + , Space + , Str "this" + , Space + , Str "to" + , Space + , Str "draw" + , Space + , Str "a" + , Space + , Str "line" + , Space + , Str "to" + , Space + , Str "separate" + , Space + , Str "the" + , Space + , Str "page:" + ] , HorizontalRule , Para - [ Str "You" - , Space - , Str "can" - , Space - , Str "use" - , Space - , Str "lists," - , Space - , Str "start" - , Space - , Str "it" - , Space - , Str "at" - , Space - , Str "the" - , Space - , Str "first" - , Space - , Str "column" - , Space - , Str "for" - , Space - , Str "now," - , Space - , Str "please..." - ] + [ Str "You" + , Space + , Str "can" + , Space + , Str "use" + , Space + , Str "lists," + , Space + , Str "start" + , Space + , Str "it" + , Space + , Str "at" + , Space + , Str "the" + , Space + , Str "first" + , Space + , Str "column" + , Space + , Str "for" + , Space + , Str "now," + , Space + , Str "please..." + ] , Para - [ Str "unnumbered" - , Space - , Str "lists" - , Space - , Str "are" - , Space - , Str "like" - ] + [ Str "unnumbered" + , Space + , Str "lists" + , Space + , Str "are" + , Space + , Str "like" + ] , BulletList - [ - [ Plain [ Str "item", Space, Str "a" ] ] - , - [ Plain [ Str "item", Space, Str "b" ] ] - , - [ Plain - [ Strong [ Str "bold", Space, Str "item", Space, Str "c" ] ] - ] - ] + [ [ Plain [ Str "item" , Space , Str "a" ] ] + , [ Plain [ Str "item" , Space , Str "b" ] ] + , [ Plain + [ Strong + [ Str "bold" , Space , Str "item" , Space , Str "c" ] + ] + ] + ] , Para - [ Str "blank" - , Space - , Str "space" - , Space - , Str "is" - , Space - , Str "also" - , Space - , Str "permitted" - , Space - , Str "before" - , Space - , Str "lists" - , Space - , Str "like:" - ] + [ Str "blank" + , Space + , Str "space" + , Space + , Str "is" + , Space + , Str "also" + , Space + , Str "permitted" + , Space + , Str "before" + , Space + , Str "lists" + , Space + , Str "like:" + ] , BulletList - [ - [ Plain [ Str "item", Space, Str "a" ] ] - , - [ Plain [ Str "item", Space, Str "b" ] ] - , - [ Plain - [ Str "item", Space, Str "c" ] - , BulletList - [ [ Plain [ Str "item", Space, Str "c.a" ] ] ] - ] - ] + [ [ Plain [ Str "item" , Space , Str "a" ] ] + , [ Plain [ Str "item" , Space , Str "b" ] ] + , [ Plain [ Str "item" , Space , Str "c" ] + , BulletList + [ [ Plain [ Str "item" , Space , Str "c.a" ] ] ] + ] + ] , Para - [ Str "or" - , Space - , Str "you" - , Space - , Str "can" - , Space - , Str "number" - , Space - , Str "them" - ] + [ Str "or" + , Space + , Str "you" + , Space + , Str "can" + , Space + , Str "number" + , Space + , Str "them" + ] , OrderedList - ( 1, DefaultStyle, DefaultDelim ) - [ - [ Plain - [ Link ( "", [], [] ) [ Str "item 1" ] ( "item 1", "" ) ] - ] - , - [ Plain [ Str "item", Space, Str "2" ] ] - , - [ Plain - [ Emph - [ Space - , Str "italic" - , Space - , Str "item" - , Space - , Str "3" - , Space - ] + ( 1 , DefaultStyle , DefaultDelim ) + [ [ Plain + [ Link ( "" , [] , [] ) [ Str "item 1" ] ( "item 1" , "" ) ] ] - , OrderedList - ( 1, DefaultStyle, DefaultDelim ) - [ - [ Plain [ Str "item", Space, Str "3.1" ] ] - , - [ Plain [ Str "item", Space, Str "3.2" ] ] + , [ Plain [ Str "item" , Space , Str "2" ] ] + , [ Plain + [ Emph + [ Space + , Str "italic" + , Space + , Str "item" + , Space + , Str "3" + , Space + ] + ] + , OrderedList + ( 1 , DefaultStyle , DefaultDelim ) + [ [ Plain [ Str "item" , Space , Str "3.1" ] ] + , [ Plain [ Str "item" , Space , Str "3.2" ] ] + ] ] ] - ] , Para - [ Str "up" - , Space - , Str "to" - , Space - , Str "five" - , Space - , Str "levels" - ] + [ Str "up" + , Space + , Str "to" + , Space + , Str "five" + , Space + , Str "levels" + ] , BulletList - [ - [ Plain - [ Str "1" ] - , BulletList - [ - [ Plain - [ Str "2" ] - , BulletList - [ - [ Plain - [ Str "3" ] + [ [ Plain [ Str "1" ] + , BulletList + [ [ Plain [ Str "2" ] , BulletList - [ - [ Plain - [ Str "4" ] - , BulletList - [ [ Plain [ Str "5" ] ] ] + [ [ Plain [ Str "3" ] + , BulletList + [ [ Plain [ Str "4" ] + , BulletList [ [ Plain [ Str "5" ] ] ] + ] + ] + ] ] - ] ] ] - ] ] ] - ] , BulletList - [ - [ Plain - [ Str "You" - , Space - , Str "can" - , Space - , Str "have" - , Space - , Str "multiline" - , Space - , Str "list" - , Space - , Str "items" + [ [ Plain + [ Str "You" + , Space + , Str "can" + , Space + , Str "have" + , Space + , Str "multiline" + , Space + , Str "list" + , Space + , Str "items" + ] ] - ] - , - [ Plain - [ Str "this" - , Space - , Str "is" - , Space - , Str "a" - , Space - , Str "second" - , Space - , Str "multiline" - , Space - , Str "list" - , Space - , Str "item" + , [ Plain + [ Str "this" + , Space + , Str "is" + , Space + , Str "a" + , Space + , Str "second" + , Space + , Str "multiline" + , Space + , Str "list" + , Space + , Str "item" + ] ] ] - ] , Para - [ Str "You" - , Space - , Str "can" - , Space - , Str "use" - , Space - , Str "nowiki" - , Space - , Str "syntax" - , Space - , Str "if" - , Space - , Str "you" - , Space - , Str "would" - , Space - , Str "like" - , Space - , Str "do" - , Space - , Str "stuff" - , Space - , Str "like" - , Space - , Str "this:" - ] + [ Str "You" + , Space + , Str "can" + , Space + , Str "use" + , Space + , Str "nowiki" + , Space + , Str "syntax" + , Space + , Str "if" + , Space + , Str "you" + , Space + , Str "would" + , Space + , Str "like" + , Space + , Str "do" + , Space + , Str "stuff" + , Space + , Str "like" + , Space + , Str "this:" + ] , CodeBlock - ( "" - , [] - , [] - ) "Guitar Chord C:\n\n||---|---|---|\n||-0-|---|---|\n||---|---|---|\n||---|-0-|---|\n||---|---|-0-|\n||---|---|---|" + ( "" , [] , [] ) + "Guitar Chord C:\n\n||---|---|---|\n||-0-|---|---|\n||---|---|---|\n||---|-0-|---|\n||---|---|-0-|\n||---|---|---|" , Para - [ Str "You" - , Space - , Str "can" - , Space - , Str "also" - , Space - , Str "use" - , Space - , Str "it" - , Space - , Str "inline" - , Space - , Str "nowiki" - , Space - , Code - ( "", [], [] ) " in a sentence " - , Space - , Str "like" - , Space - , Str "this." - ] - , Header 1 - ( "", [], [] ) - [ Str "Escapes" ] + [ Str "You" + , Space + , Str "can" + , Space + , Str "also" + , Space + , Str "use" + , Space + , Str "it" + , Space + , Str "inline" + , Space + , Str "nowiki" + , Space + , Code ( "" , [] , [] ) " in a sentence " + , Space + , Str "like" + , Space + , Str "this." + ] + , Header 1 ( "" , [] , [] ) [ Str "Escapes" ] , Para - [ Str "Normal" - , Space - , Str "Link:" - , Space - , Link - ( "", [], [] ) - [ Str "http://wikicreole.org/" ] - ( "http://wikicreole.org/", "" ) - , Space - , Str "-" - , Space - , Str "now" - , Space - , Str "same" - , Space - , Str "link," - , Space - , Str "but" - , Space - , Str "escaped:" - , Space - , Str "http://wikicreole.org/" - ] + [ Str "Normal" + , Space + , Str "Link:" + , Space + , Link + ( "" , [] , [] ) + [ Str "http://wikicreole.org/" ] + ( "http://wikicreole.org/" , "" ) + , Space + , Str "-" + , Space + , Str "now" + , Space + , Str "same" + , Space + , Str "link," + , Space + , Str "but" + , Space + , Str "escaped:" + , Space + , Str "http://wikicreole.org/" + ] , Para - [ Str "Normal" - , Space - , Str "asterisks:" - , Space - , Str "**not" - , Space - , Str "bold**" - ] + [ Str "Normal" + , Space + , Str "asterisks:" + , Space + , Str "**not" + , Space + , Str "bold**" + ] , Para - [ Str "a", Space, Str "tilde", Space, Str "alone:", Space, Str "~" ] + [ Str "a" + , Space + , Str "tilde" + , Space + , Str "alone:" + , Space + , Str "~" + ] , Para - [ Str "a" - , Space - , Str "tilde" - , Space - , Str "escapes" - , Space - , Str "itself:" - , Space - , Str "~xxx" - ] - , Header 3 - ( "", [], [] ) - [ Str "Creole 0.2" ] + [ Str "a" + , Space + , Str "tilde" + , Space + , Str "escapes" + , Space + , Str "itself:" + , Space + , Str "~xxx" + ] + , Header 3 ( "" , [] , [] ) [ Str "Creole 0.2" ] , Para - [ Str "This" - , Space - , Str "should" - , Space - , Str "be" - , Space - , Str "a" - , Space - , Str "flower" - , Space - , Str "with" - , Space - , Str "the" - , Space - , Str "ALT" - , Space - , Str "text" - , Space - , Str "\"this" - , Space - , Str "is" - , Space - , Str "a" - , Space - , Str "flower\"" - , Space - , Str "if" - , Space - , Str "your" - , Space - , Str "wiki" - , Space - , Str "supports" - , Space - , Str "ALT" - , Space - , Str "text" - , Space - , Str "on" - , Space - , Str "images:" - ] + [ Str "This" + , Space + , Str "should" + , Space + , Str "be" + , Space + , Str "a" + , Space + , Str "flower" + , Space + , Str "with" + , Space + , Str "the" + , Space + , Str "ALT" + , Space + , Str "text" + , Space + , Str "\"this" + , Space + , Str "is" + , Space + , Str "a" + , Space + , Str "flower\"" + , Space + , Str "if" + , Space + , Str "your" + , Space + , Str "wiki" + , Space + , Str "supports" + , Space + , Str "ALT" + , Space + , Str "text" + , Space + , Str "on" + , Space + , Str "images:" + ] , Para - [ Image - ( "", [], [] ) - [ Str "here is a red flower" ] - ( "Red-Flower.jpg", "" ) - ] - , Header 3 - ( "", [], [] ) - [ Str "Creole 0.4" ] + [ Image + ( "" , [] , [] ) + [ Str "here is a red flower" ] + ( "Red-Flower.jpg" , "" ) + ] + , Header 3 ( "" , [] , [] ) [ Str "Creole 0.4" ] , Para - [ Str "Tables" - , Space - , Str "are" - , Space - , Str "done" - , Space - , Str "like" - , Space - , Str "this:" - ] + [ Str "Tables" + , Space + , Str "are" + , Space + , Str "done" + , Space + , Str "like" + , Space + , Str "this:" + ] , Table - ( "", [], [] ) - ( Caption Nothing [] ) - [ - ( AlignDefault, ColWidthDefault ) - , - ( AlignDefault, ColWidthDefault ) - ] - ( TableHead - ( "", [], [] ) - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "header", Space, Str "col1" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "header", Space, Str "col2" ] ] - ] + ( "" , [] , [] ) + (Caption Nothing []) + [ ( AlignDefault , ColWidthDefault ) + , ( AlignDefault , ColWidthDefault ) ] - ) - [ TableBody - ( "", [], [] ) - ( RowHeadColumns 0 ) [] - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "col1" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "col2" ] ] - ] - , Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "you" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "can" ] ] - ] - , Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "also" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "align", LineBreak, Str "it." ] ] - ] + (TableHead + ( "" , [] , [] ) + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "header" , Space , Str "col1" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "header" , Space , Str "col2" ] ] + ] + ]) + [ TableBody + ( "" , [] , [] ) + (RowHeadColumns 0) + [] + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "col1" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "col2" ] ] + ] + , Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "you" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "can" ] ] + ] + , Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "also" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "align" , LineBreak , Str "it." ] ] + ] + ] ] - ] - ( TableFoot ( "", [], [] ) [] ) + (TableFoot ( "" , [] , [] ) []) , Para - [ Str "You" - , Space - , Str "can" - , Space - , Str "format" - , Space - , Str "an" - , Space - , Str "address" - , Space - , Str "by" - , Space - , Str "simply" - , Space - , Str "forcing" - , Space - , Str "linebreaks:" - ] + [ Str "You" + , Space + , Str "can" + , Space + , Str "format" + , Space + , Str "an" + , Space + , Str "address" + , Space + , Str "by" + , Space + , Str "simply" + , Space + , Str "forcing" + , Space + , Str "linebreaks:" + ] , Para - [ Str "My" - , Space - , Str "contact" - , Space - , Str "dates:" - , LineBreak - , Str "Pone:" - , Space - , Str "xyz" - , LineBreak - , Str "Fax:" - , Space - , Str "+45" - , LineBreak - , Str "Mobile:" - , Space - , Str "abc" - ] - , Header 3 - ( "", [], [] ) - [ Str "Creole 0.5" ] + [ Str "My" + , Space + , Str "contact" + , Space + , Str "dates:" + , LineBreak + , Str "Pone:" + , Space + , Str "xyz" + , LineBreak + , Str "Fax:" + , Space + , Str "+45" + , LineBreak + , Str "Mobile:" + , Space + , Str "abc" + ] + , Header 3 ( "" , [] , [] ) [ Str "Creole 0.5" ] , Table - ( "", [], [] ) - ( Caption Nothing [] ) - [ - ( AlignDefault, ColWidthDefault ) - , - ( AlignDefault, ColWidthDefault ) - ] - ( TableHead - ( "", [], [] ) - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Str "Header", Space, Str "title" ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain - [ Str "Another", Space, Str "header", Space, Str "title" ] - ] - ] + ( "" , [] , [] ) + (Caption Nothing []) + [ ( AlignDefault , ColWidthDefault ) + , ( AlignDefault , ColWidthDefault ) ] - ) - [ TableBody - ( "", [], [] ) - ( RowHeadColumns 0 ) [] - [ Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Code ( "", [], [] ) " //not italic text// " ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Code ( "", [], [] ) " **not bold text** " ] ] - ] - , Row - ( "", [], [] ) - [ Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain [ Emph [ Str "italic", Space, Str "text" ] ] ] - , Cell - ( "", [], [] ) AlignDefault - ( RowSpan 1 ) - ( ColSpan 1 ) - [ Plain - [ Strong [ Space, Str "bold", Space, Str "text", Space ] ] + (TableHead + ( "" , [] , [] ) + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Str "Header" , Space , Str "title" ] ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain + [ Str "Another" + , Space + , Str "header" + , Space + , Str "title" + ] + ] + ] + ]) + [ TableBody + ( "" , [] , [] ) + (RowHeadColumns 0) + [] + [ Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain + [ Code ( "" , [] , [] ) " //not italic text// " ] + ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain + [ Code ( "" , [] , [] ) " **not bold text** " ] + ] + ] + , Row + ( "" , [] , [] ) + [ Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain [ Emph [ Str "italic" , Space , Str "text" ] ] + ] + , Cell + ( "" , [] , [] ) + AlignDefault + (RowSpan 1) + (ColSpan 1) + [ Plain + [ Strong + [ Space + , Str "bold" + , Space + , Str "text" + , Space + ] + ] + ] + ] ] - ] ] - ] - ( TableFoot ( "", [], [] ) [] ) - , Header 3 - ( "", [], [] ) - [ Str "Creole 1.0" ] + (TableFoot ( "" , [] , [] ) []) + , Header 3 ( "" , [] , [] ) [ Str "Creole 1.0" ] , Para - [ Str "If" - , Space - , Str "interwiki" - , Space - , Str "links" - , Space - , Str "are" - , Space - , Str "setup" - , Space - , Str "in" - , Space - , Str "your" - , Space - , Str "wiki," - , Space - , Str "this" - , Space - , Str "links" - , Space - , Str "to" - , Space - , Str "the" - , Space - , Str "WikiCreole" - , Space - , Str "page" - , Space - , Str "about" - , Space - , Str "Creole" - , Space - , Str "1.0" - , Space - , Str "test" - , Space - , Str "cases:" - , Space - , Link - ( "", [], [] ) - [ Str "WikiCreole:Creole1.0TestCases" ] - ( "WikiCreole:Creole1.0TestCases", "" ) - , Str "." - ] + [ Str "If" + , Space + , Str "interwiki" + , Space + , Str "links" + , Space + , Str "are" + , Space + , Str "setup" + , Space + , Str "in" + , Space + , Str "your" + , Space + , Str "wiki," + , Space + , Str "this" + , Space + , Str "links" + , Space + , Str "to" + , Space + , Str "the" + , Space + , Str "WikiCreole" + , Space + , Str "page" + , Space + , Str "about" + , Space + , Str "Creole" + , Space + , Str "1.0" + , Space + , Str "test" + , Space + , Str "cases:" + , Space + , Link + ( "" , [] , [] ) + [ Str "WikiCreole:Creole1.0TestCases" ] + ( "WikiCreole:Creole1.0TestCases" , "" ) + , Str "." + ] , HorizontalRule , Para - [ Str "The" - , Space - , Str "above" - , Space - , Str "test" - , Space - , Str "document" - , Space - , Str "was" - , Space - , Str "found" - , Space - , Str "on" - , Space - , Link - ( "", [], [] ) - [ Str "http://www.wikicreole.org/wiki/Creole1.0TestCases" ] - ( "http://www.wikicreole.org/wiki/Creole1.0TestCases", "" ) - , Space - , Str "and" - , Space - , Str "downloaded" - , Space - , Str "from" - , Space - , Link - ( "", [], [] ) - [ Str "http://www.wikicreole.org/attach/Creole1.0TestCases/creole1.0test.txt" ] - ( "http://www.wikicreole.org/attach/Creole1.0TestCases/creole1.0test.txt" - , "" - ) - , Str "." - ] + [ Str "The" + , Space + , Str "above" + , Space + , Str "test" + , Space + , Str "document" + , Space + , Str "was" + , Space + , Str "found" + , Space + , Str "on" + , Space + , Link + ( "" , [] , [] ) + [ Str "http://www.wikicreole.org/wiki/Creole1.0TestCases" ] + ( "http://www.wikicreole.org/wiki/Creole1.0TestCases" , "" ) + , Space + , Str "and" + , Space + , Str "downloaded" + , Space + , Str "from" + , Space + , Link + ( "" , [] , [] ) + [ Str + "http://www.wikicreole.org/attach/Creole1.0TestCases/creole1.0test.txt" + ] + ( "http://www.wikicreole.org/attach/Creole1.0TestCases/creole1.0test.txt" + , "" + ) + , Str "." + ] , Para - [ Str "The" - , Space - , Str "Creole" - , Space - , Str "Wiki" - , Space - , Str "is" - , Space - , Str "licensed:" - , Space - , Str "Copyright" - , Space - , Str "(C)" - , Space - , Str "by" - , Space - , Str "the" - , Space - , Str "contributors." - , Space - , Str "Some" - , Space - , Str "rights" - , Space - , Str "reserved," - , Space - , Str "license" - , Space - , Link - ( "", [], [] ) - [ Str "https://creativecommons.org/licenses/by-sa/1.0/" ] - ( "BY-SA", "" ) - , Str "." - ] + [ Str "The" + , Space + , Str "Creole" + , Space + , Str "Wiki" + , Space + , Str "is" + , Space + , Str "licensed:" + , Space + , Str "Copyright" + , Space + , Str "(C)" + , Space + , Str "by" + , Space + , Str "the" + , Space + , Str "contributors." + , Space + , Str "Some" + , Space + , Str "rights" + , Space + , Str "reserved," + , Space + , Str "license" + , Space + , Link + ( "" , [] , [] ) + [ Str "https://creativecommons.org/licenses/by-sa/1.0/" ] + ( "BY-SA" , "" ) + , Str "." + ] ] -- cgit v1.2.3