08631ef · typeable/pandoc

src/Text/Pandoc/Writers/Native.hs+1−1

@@ -72,7 +72,7 @@ writeNative opts (Pandoc meta blocks) =

7272 then Just $ writerColumns opts

7373 else Nothing

7474 withHead = if writerStandalone opts

75− then \bs -> text ("Pandoc (" ++ show meta ++ ") ") $$

75+ then \bs -> text ("Pandoc (" ++ show meta ++ ")") $$

7676 bs $$ cr

7777 else id

7878 in render colwidth $ withHead $ prettyList $ map prettyBlock blocks

tests/docbook-reader.native+1−1

@@ -1,4 +1,4 @@

1−Pandoc (Meta {docTitle = [Str "Pandoc",Space,Str "Test",Space,Str "Suite"], docAuthors = [[Str "John",Space,Str "MacFarlane"],[Str "Anonymous"]], docDate = [Str "July",Space,Str "17,",Space,Str "2006"]})

1+Pandoc (Meta {unMeta = fromList [("author",MetaList [MetaInlines [Str "John",Space,Str "MacFarlane"],MetaInlines [Str "Anonymous"]]),("date",MetaInlines [Str "July",Space,Str "17,",Space,Str "2006"]),("title",MetaInlines [Str "Pandoc",Space,Str "Test",Space,Str "Suite"])]})

22[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\8217s",Space,Str "markdown",Space,Str "test",Space,Str "suite."]

33,Header 1 ("",[],[]) [Str "Headers"]

44,Header 2 ("",[],[]) [Str "Level",Space,Str "2",Space,Str "with",Space,Str "an",Space,Link [Str "embedded",Space,Str "link"] ("/url","")]

tests/haddock-reader.native+1−1

@@ -1,4 +1,4 @@

1−Pandoc (Meta {docTitle = [], docAuthors = [], docDate = []})

1+Pandoc (Meta {unMeta = fromList []})

22[Para [Str "This",Space,Str "file",Space,Str "tests",Space,Str "the",Space,Str "Pandoc",Space,Str "reader",Space,Str "for",Space,Str "Haddock.",Space,Str "We've",Space,Str "borrowed",Space,Str "examples",Space,Str "from",Space,Str "Haddock's",Space,Str "documentation:",Space,Link [Str "http://www.haskell.org/haddock/doc/html/ch03s08.html"] ("http://www.haskell.org/haddock/doc/html/ch03s08.html","http://www.haskell.org/haddock/doc/html/ch03s08.html"),Str "."]

33,Para [Str "The",Space,Str "following",Space,Str "characters",Space,Str "have",Space,Str "special",Space,Str "meanings",Space,Str "in",Space,Str "Haddock,",Space,Str "/,",Space,Str "',",Space,Str "`,",Space,Str "\",",Space,Str "@,",Space,Str "<,",Space,Str "so",Space,Str "they",Space,Str "must",Space,Str "be",Space,Str "escaped."]

44,Para [Str "*",Space,Str "This",Space,Str "is",Space,Str "a",Space,Str "paragraph,",Space,Str "not",Space,Str "a",Space,Str "list",Space,Str "item.",Space,Str ">",Space,Str "This",Space,Str "sentence",Space,Str "is",Space,Str "not",Space,Str "code.",Space,Str ">>>",Space,Str "This",Space,Str "is",Space,Str "not",Space,Str "an",Space,Str "example."]

tests/html-reader.native+1−1

@@ -1,4 +1,4 @@

1−Pandoc (Meta {docTitle = [Str "Pandoc",Space,Str "Test",Space,Str "Suite"], docAuthors = [], docDate = []})

1+Pandoc (Meta {unMeta = fromList [("title",MetaInlines [Str "Pandoc",Space,Str "Test",Space,Str "Suite"])]})

22[Para [Str "This",Space,Str "is",Space,Str "a",Space,Str "set",Space,Str "of",Space,Str "tests",Space,Str "for",Space,Str "pandoc",Str ".",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",Str "."]

33,HorizontalRule

44,Header 1 ("",[],[]) [Str "Headers"]

tests/latex-reader.native+1−1

@@ -1,4 +1,4 @@

1−Pandoc (Meta {docTitle = [Str "Pandoc",Space,Str "Test",Space,Str "Suite"], docAuthors = [[Str "John",Space,Str "MacFarlane"],[Str "Anonymous"]], docDate = [Str "July",Space,Str "17,",Space,Str "2006"]})

1+Pandoc (Meta {unMeta = fromList [("authors",MetaList [MetaInlines [Str "John",Space,Str "MacFarlane"],MetaInlines [Str "Anonymous"]]),("date",MetaInlines [Str "July",Space,Str "17,",Space,Str "2006"]),("title",MetaInlines [Str "Pandoc",Space,Str "Test",Space,Str "Suite"])]})

22[RawBlock "latex" "\\maketitle"

33,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\8217s",Space,Str "markdown",Space,Str "test",Space,Str "suite."]

44,HorizontalRule

tests/lhs-test.latex+1

@@ -53,6 +53,7 @@

5353 pdfauthor={},

5454 pdftitle={},

5555 colorlinks=true,

56+ citecolor=blue,

5657 urlcolor=blue,

5758 linkcolor=magenta,

5859 pdfborder={0 0 0}}

tests/lhs-test.latex+lhs+1

@@ -34,6 +34,7 @@

3434 pdfauthor={},

3535 pdftitle={},

3636 colorlinks=true,

37+ citecolor=blue,

3738 urlcolor=blue,

3839 linkcolor=magenta,

3940 pdfborder={0 0 0}}

tests/mediawiki-reader.native+1−1

@@ -1,4 +1,4 @@

1−Pandoc (Meta {docTitle = [], docAuthors = [], docDate = []})

1+Pandoc (Meta {unMeta = fromList []})

22[Header 1 ("",[],[]) [Str "header"]

33,Header 2 ("",[],[]) [Str "header",Space,Str "level",Space,Str "two"]

44,Header 3 ("",[],[]) [Str "header",Space,Str "level",Space,Str "3"]

tests/opml-reader.native+1−1

@@ -1,4 +1,4 @@

1−Pandoc (Meta {docTitle = [Str "States"], docAuthors = [[Str "Dave",Space,Str "Winer"]], docDate = [Str "Thu,",Space,Str "14",Space,Str "Jul",Space,Str "2005",Space,Str "23:41:05",Space,Str "GMT"]})

1+Pandoc (Meta {unMeta = fromList [("author",MetaList [MetaInlines [Str "Dave",Space,Str "Winer"]]),("date",MetaInlines [Str "Thu,",Space,Str "14",Space,Str "Jul",Space,Str "2005",Space,Str "23:41:05",Space,Str "GMT"]),("title",MetaInlines [Str "States"])]})

22[Header 1 ("",[],[]) [Str "United",Space,Str "States"]

33,Header 2 ("",[],[]) [Str "Far",Space,Str "West"]

44,Header 3 ("",[],[]) [Str "Alaska"]

tests/s5.native+1−1

@@ -1,4 +1,4 @@

1−Pandoc (Meta {docTitle = [Str "My",Space,Str "S5",Space,Str "Document"], docAuthors = [[Str "Sam",Space,Str "Smith"],[Str "Jen",Space,Str "Jones"]], docDate = [Str "July",Space,Str "15,",Space,Str "2006"]})

1+Pandoc (Meta {unMeta = fromList [("author",MetaList [MetaInlines [Str "Sam",Space,Str "Smith"],MetaInlines [Str "Jen",Space,Str "Jones"]]),("date",MetaInlines [Str "July",Space,Str "15,",Space,Str "2006"]),("title",MetaInlines [Str "My",Space,Str "S5",Space,Str "Document"])]})

22[Header 1 ("first-slide",[],[]) [Str "First",Space,Str "slide"]

33,BulletList

44 [[Plain [Str "first",Space,Str "bullet"]]

tests/testsuite.native+2−2

@@ -1,4 +1,4 @@

1−Pandoc {docMeta = Meta {unMeta = fromList [("author",MetaList [MetaBlocks [Plain [Str "John",Space,Str "MacFarlane"]],MetaBlocks [Plain [Str "Anonymous"]]]),("date",MetaBlocks [Plain [Str "July",Space,Str "17,",Space,Str "2006"]]),("title",MetaBlocks [Plain [Str "Pandoc",Space,Str "Test",Space,Str "Suite"]])]}, docBody =

1+Pandoc (Meta {unMeta = fromList [("author",MetaList [MetaInlines [Str "John",Space,Str "MacFarlane"],MetaInlines [Str "Anonymous"]]),("date",MetaInlines [Str "July",Space,Str "17,",Space,Str "2006"]),("title",MetaInlines [Str "Pandoc",Space,Str "Test",Space,Str "Suite"])]})

22[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\8217s",Space,Str "markdown",Space,Str "test",Space,Str "suite."]

33,HorizontalRule

44,Header 1 ("headers",[],[]) [Str "Headers"]

@@ -393,4 +393,4 @@ Pandoc {docMeta = Meta {unMeta = fromList [("author",MetaList [MetaBlocks [Plain

393393 [Para [Str "Notes",Space,Str "can",Space,Str "go",Space,Str "in",Space,Str "quotes.",Note [Para [Str "In",Space,Str "quote."]]]]

394394,OrderedList (1,Decimal,Period)

395395 [[Plain [Str "And",Space,Str "in",Space,Str "list",Space,Str "items.",Note [Para [Str "In",Space,Str "list."]]]]]

396−,Para [Str "This",Space,Str "paragraph",Space,Str "should",Space,Str "not",Space,Str "be",Space,Str "part",Space,Str "of",Space,Str "the",Space,Str "note,",Space,Str "as",Space,Str "it",Space,Str "is",Space,Str "not",Space,Str "indented."]]}

396+,Para [Str "This",Space,Str "paragraph",Space,Str "should",Space,Str "not",Space,Str "be",Space,Str "part",Space,Str "of",Space,Str "the",Space,Str "note,",Space,Str "as",Space,Str "it",Space,Str "is",Space,Str "not",Space,Str "indented."]]

tests/textile-reader.native+1−1

@@ -1,4 +1,4 @@

1−Pandoc (Meta {docTitle = [], docAuthors = [], docDate = []})

1+Pandoc (Meta {unMeta = fromList []})

22[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 "Textile",Space,Str "Reader",Str ".",Space,Str "Part",Space,Str "of",Space,Str "it",Space,Str "comes",LineBreak,Str "from",Space,Str "John",Space,Str "Gruber",Str "\8217",Str "s",Space,Str "markdown",Space,Str "test",Space,Str "suite",Str "."]

33,HorizontalRule

44,Header 1 ("",[],[]) [Str "Headers"]

tests/writer.latex+1

@@ -52,6 +52,7 @@

5252 pdfauthor={John MacFarlane; Anonymous},

5353 pdftitle={Pandoc Test Suite},

5454 colorlinks=true,

55+ citecolor=blue,

5556 urlcolor=blue,

5657 linkcolor=magenta,

5758 pdfborder={0 0 0}}

tests/writer.native+1−1

@@ -1,4 +1,4 @@

1−Pandoc (Meta {docTitle = [Str "Pandoc",Space,Str "Test",Space,Str "Suite"], docAuthors = [[Str "John",Space,Str "MacFarlane"],[Str "Anonymous"]], docDate = [Str "July",Space,Str "17,",Space,Str "2006"]})

1+Pandoc (Meta {unMeta = fromList [("author",MetaList [MetaInlines [Str "John",Space,Str "MacFarlane"],MetaInlines [Str "Anonymous"]]),("date",MetaInlines [Str "July",Space,Str "17,",Space,Str "2006"]),("title",MetaInlines [Str "Pandoc",Space,Str "Test",Space,Str "Suite"])]})

22[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\8217s",Space,Str "markdown",Space,Str "test",Space,Str "suite."]

33,HorizontalRule

44,Header 1 ("headers",[],[]) [Str "Headers"]

tests/writer.opml+1−1

@@ -3,7 +3,7 @@

33 <head>

44 <title>Pandoc Test Suite</title>

55 <dateModified>Mon, 17 Jul 2006 00:00:00 UTC</dateModified>

6− <ownerName>John MacFarlane ; Anonymous</ownerName>

6+ <ownerName>John MacFarlane; Anonymous</ownerName>

77 </head>

88 <body>

99<outline text="Headers">

tests/writer.textile−1

@@ -713,4 +713,3 @@ fn4. In quote.

713713

714714

715715fn5. In list.

716−