more support for Textile reader (explicit links, images), tests and cabal entries

1 files changed, 120 insertions, 0 deletions

diff --git a/tests/textile-reader.native b/tests/textile-reader.native
new file mode 100644
index 000000000..788a79e51
--- /dev/null
+++ b/tests/textile-reader.native
@@ -0,0 +1,120 @@
+Pandoc (Meta {docTitle = [Str ""], docAuthors = [[Str ""]], docDate = [Str ""]})
+[ Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "set",Space,Str "of",Space,Str "tests",Space,Str "for",Space,Str "pandoc.",Space,Str "Most",Space,Str "of",Space,Str "them",Space,Str "are",Space,Str "adapted",Space,Str "from",Space,Str "John",Space,Str "Gruber",Str "'",Str "s",Space,Str "markdown",Space,Str "test",Space,Str "suite."]
+, Para [Strikeout [Str "-"],Str "-",Str "-"]
+, Header 1 [Str "Headers"]
+, Header 2 [Str "Level",Space,Str "2",Space,Str "with",Space,Str "an",Space,Link [Str "embeded",Space,Str "link"] ("http://www.example.com","")]
+, Header 3 [Str "Level",Space,Str "3",Space,Str "with",Space,Strong [Str "emphasis"]]
+, Header 4 [Str "Level",Space,Str "4"]
+, Header 5 [Str "Level",Space,Str "5"]
+, Header 6 [Str "Level",Space,Str "6"]
+, Header 1 [Str "Paragraphs"]
+, Para [Str "Here",Str "'",Str "s",Space,Str "a",Space,Str "regular",Space,Str "paragraph."]
+, Para [Str "Line",Space,Str "break",Space,Str "are",Space,Str "not",Space,Str "paragraph",Space,Str "break",Space,Str "in",Space,Str "textile,",Space,Str "so",Space,Str "you",Space,Str "can",Space,Str "wrap",Space,Str "your",Space,Str "very",Space,Str "long",Space,Str "paragraph",Space,Str "with",Space,Str "your",Space,Str "favourite",Space,Str "text",Space,Str "editor,",Space,Str "it",Space,Str "will",Space,Str "be",Space,Str "rendered",Space,Str "as",Space,Str "a",Space,Str "single",Space,Str "one."]
+, Para [Str "Here",Str "'",Str "s",Space,Str "one",Space,Str "with",Space,Str "a",Space,Str "bullet."]
+, BulletList
+  [ [ Plain [Str "criminey."] ]
+ ]
+, Para [Str "There",Space,Str "should",Space,Str "be",Space,Str "a",Space,Str "hard",Space,Str "line",Space,Str "break"]
+, Para [Str "here."]
+, Header 1 [Str "Block",Space,Str "Quotes"]
+, BlockQuote
+  [ Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "famous",Space,Str "quote",Space,Str "from",Space,Str "somebody.",Space,Str "He",Space,Str "had",Space,Str "a",Space,Str "lot",Space,Str "of",Space,Str "things",Space,Str "to",Space,Str "say,",Space,Str "so",Space,Str "the",Space,Str "text",Space,Str "is",Space,Str "really",Space,Str "really",Space,Str "long",Space,Str "and",Space,Str "spans",Space,Str "on",Space,Str "multiple",Space,Str "lines."] ]
+
+, Para [Str "And",Space,Str "a",Space,Str "following",Space,Str "paragraph."]
+, Header 1 [Str "Code",Space,Str "Blocks"]
+, Para [Str "Code",Str ":"]
+, CodeBlock ("",[],[]) "\n    ---- (should be four hyphens)\n\n    sub status {\n        print \"working\";\n    }\n\n    this code block is indented by one tab\n"
+, Para [Str "And",Str ":"]
+, CodeBlock ("",[],[]) "\n        this code block is indented by two tabs\n\n    These should not be escaped:  \\$ \\\\ \\> \\[ \\{\n"
+, Header 1 [Str "Lists"]
+, Header 2 [Str "Unordered"]
+, Para [Str "Asterisks",Space,Str "tight",Str ":"]
+, BulletList
+  [ [ Plain [Str "asterisk",Space,Str "1"] ]
+  , [ Plain [Str "asterisk",Space,Str "2"] ]
+  , [ Plain [Str "asterisk",Space,Str "3"] ] ]
+, Header 2 [Str "Ordered"]
+, Para [Str "Tight",Str ":"]
+, OrderedList (1,DefaultStyle,DefaultDelim)
+  [ [ Plain [Str "First"] ]
+  , [ Plain [Str "Second"] ]
+  , [ Plain [Str "Third"] ] ]
+, Header 2 [Str "Nested"]
+, BulletList
+  [ [ Plain [Str "ui",Space,Str "1"]
+    , BulletList
+      [ [ Plain [Str "ui",Space,Str "1.1"]
+        , OrderedList (1,DefaultStyle,DefaultDelim)
+          [ [ Plain [Str "oi",Space,Str "1.1.1"] ]
+          , [ Plain [Str "oi",Space,Str "1.1.2"] ] ] ], [ Plain [Str "ui",Space,Str "1.2"] ] ] ], [ Plain [Str "ui",Space,Str "2"]
+    , OrderedList (1,DefaultStyle,DefaultDelim)
+      [ [ Plain [Str "oi",Space,Str "2.1"]
+        , BulletList
+          [ [ Plain [Str "ui",Space,Str "2.1.1"] ]
+          , [ Plain [Str "ui",Space,Str "2.1.2"] ] ] ] ] ] ]
+, Header 1 [Str "Inline",Space,Str "Markup"]
+, Para [Str "This",Space,Str "is",Space,Emph [Str "emphasized"],Str ",",Space,Str "and",Space,Str "so",Space,Emph [Str "is",Space,Str "this"],Str "."]
+, Para [Str "This",Space,Str "is",Space,Strong [Str "strong"],Str ",",Space,Str "and",Space,Str "so",Space,Strong [Str "is",Space,Str "this"],Str "."]
+, Para [Str "A",Space,Link [Strong [Str "strong",Space,Str "link"]] ("http://www.foobar.com",""),Str "."]
+, Para [Emph [Strong [Str "This",Space,Str "is",Space,Str "strong",Space,Str "and",Space,Str "em."]]]
+, Para [Str "So",Space,Str "is",Space,Strong [Emph [Str "this"]],Space,Str "word",Space,Str "and",Space,Emph [Strong [Str "that",Space,Str "one"]],Str "."]
+, Para [Strikeout [Str "This",Space,Str "is",Space,Str "strikeout",Space,Str "and",Space,Strong [Str "strong"]]]
+, Para [Str "Superscripts",Str ":",Space,Str "a",Superscript [Str "bc"],Str "d",Space,Str "a",Superscript [Strong [Str "hello"]],Space,Str "a",Superscript [Str "hello",Space,Str "there"],Str "."]
+, Para [Str "Subscripts",Str ":",Space,Str "H",Subscript [Str "2"],Str "O,",Space,Str "H",Subscript [Str "23"],Str "O,",Space,Str "H",Subscript [Str "many",Space,Str "of",Space,Str "them"],Str "O."]
+, Header 1 [Str "Links"]
+, Header 2 [Str "Explicit"]
+, Para [Str "Just",Space,Str "a",Space,Link [Str "url"] ("http://www.url.com","")]
+, Para [Link [Str "Email",Space,Str "link"] ("mailto:nobody@nowhere.net","")]
+, Para [Str "Automatic",Space,Str "linking",Space,Str "to",Space,Str "http",Str ":",Str "//www.example.com",Space,Str "and",Space,Str "foobar",Str "@",Str "example.com."]
+, Header 1 [Str "Tables"]
+, Para [Str "Textile",Space,Str "allows",Space,Str "tables",Space,Str "with",Space,Str "and",Space,Str "without",Space,Str "headers",Space,Str ":"]
+, Header 2 [Str "Without",Space,Str "headers"]
+, Table [] [AlignDefault,AlignDefault,AlignDefault] [0.0,0.0,0.0]
+  [ 
+ ] [
+  [ [ Plain [Str "name"] ]
+  , [ Plain [Str "age"] ]
+  , [ Plain [Str "sex"] ] ],
+  [ [ Plain [Str "joan"] ]
+  , [ Plain [Str "24"] ]
+  , [ Plain [Str "f"] ] ],
+  [ [ Plain [Str "archie"] ]
+  , [ Plain [Str "29"] ]
+  , [ Plain [Str "m"] ] ],
+  [ [ Plain [Str "bella"] ]
+  , [ Plain [Str "45"] ]
+  , [ Plain [Str "f"] ] ] ]
+, Para [Str "And",Space,Str "some",Space,Str "text",Space,Str "..."]
+, Table [] [AlignDefault,AlignDefault,AlignDefault] [0.0,0.0,0.0]
+  [ 
+ ] [
+  [ [ Plain [Str "name"] ]
+  , [ Plain [Str "age"] ]
+  , [ Plain [Str "sex"] ] ],
+  [ [ Plain [Str "joan"] ]
+  , [ Plain [Str "24"] ]
+  , [ Plain [Str "f"] ] ],
+  [ [ Plain [Str "archie"] ]
+  , [ Plain [Str "29"] ]
+  , [ Plain [Str "m"] ] ],
+  [ [ Plain [Str "bella"] ]
+  , [ Plain [Str "45"] ]
+  , [ Plain [Str "f"] ] ] ]
+, Para []
+, Header 2 [Str "With",Space,Str "headers"]
+, Table [] [AlignDefault,AlignDefault,AlignDefault] [0.0,0.0,0.0]
+  [ [ Plain [Str "name"] ]
+  , [ Plain [Str "age"] ]
+  , [ Plain [Str "sex"] ] ] [
+  [ [ Plain [Str "joan"] ]
+  , [ Plain [Str "24"] ]
+  , [ Plain [Str "f"] ] ],
+  [ [ Plain [Str "archie"] ]
+  , [ Plain [Str "29"] ]
+  , [ Plain [Str "m"] ] ],
+  [ [ Plain [Str "bella"] ]
+  , [ Plain [Str "45"] ]
+  , [ Plain [Str "f"] ] ] ]
+, Para []
+, Header 1 [Str "Images"]
+, Para [Str "Textile",Space,Str "inline",Space,Str "image",Space,Str "syntax,",Space,Str "like",Space,Str "here",Space,Image [Str "this is the alt text"] ("this_is_an_image.png","this is the alt text"),Space,Str "and",Space,Str "here",Space,Image [Str ""] ("this_is_an_image.png",""),Str "."] ]