githubmirror/pandoc

test/djot-reader.native
1 025 строк33 KB
John MacFarlane
T.P.Shared addPandocAttributes - modify for new commonmark-pandoc.
13 сен 2024, 19:35
13 сен 2024, 19:35fdbfb7a
Pandoc
  Meta { unMeta = fromList [] }
  [ Div
      ( "Pandoc-Test-Suite" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Pandoc Test Suite" ]
      , Para
          [ Str "John MacFarlane" , SoftBreak , Str "Anonymous" ]
      , Para [ Str "July 17, 2006" ]
      , Para
          [ Str
              "This is a set of tests for pandoc. Most of them are adapted from John Gruber\8217s"
          , SoftBreak
          , Str "markdown test suite."
          ]
      , HorizontalRule
      ]
  , Div
      ( "headers" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Headers" ]
      , Div
          ( "level-2-with-an-embedded-link" , [ "section" ] , [] )
          [ Header
              2
              ( "" , [] , [] )
              [ Str "Level 2 with an "
              , Link
                  ( "" , [] , [] )
                  [ Str "embedded link" ]
                  ( "/url" , "" )
              ]
          , Div
              ( "level-3-with-emphasis" , [ "section" ] , [] )
              [ Header
                  3
                  ( "" , [] , [] )
                  [ Str "Level 3 with " , Emph [ Str "emphasis" ] ]
              , Div
                  ( "level-4" , [ "section" ] , [] )
                  [ Header 4 ( "" , [] , [] ) [ Str "Level 4" ]
                  , Div
                      ( "level-5" , [ "section" ] , [] )
                      [ Header 5 ( "" , [] , [] ) [ Str "Level 5" ] ]
                  ]
              ]
          ]
      ]
  , Div
      ( "level-1" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Level 1" ]
      , Div
          ( "level-2-with-emphasis" , [ "section" ] , [] )
          [ Header
              2
              ( "" , [] , [] )
              [ Str "Level 2 with " , Emph [ Str "emphasis" ] ]
          , Div
              ( "level-3" , [ "section" ] , [] )
              [ Header 3 ( "" , [] , [] ) [ Str "Level 3" ]
              , Para [ Str "with no blank line" ]
              ]
          ]
      , Div
          ( "level-2" , [ "section" ] , [] )
          [ Header 2 ( "" , [] , [] ) [ Str "Level 2" ]
          , Para [ Str "with no blank line" ]
          , HorizontalRule
          ]
      ]
  , Div
      ( "paragraphs" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Paragraphs" ]
      , Para [ Str "Here\8217s a regular paragraph." ]
      , Para
          [ Str
              "In Markdown 1.0.0 and earlier. Version 8. This line turns into a list item."
          , SoftBreak
          , Str
              "Because a hard-wrapped line in the middle of a paragraph looked like a list"
          , SoftBreak
          , Str "item."
          ]
      , Para [ Str "Here\8217s one with a bullet. * criminey." ]
      , Para
          [ Str "There should be a hard line break"
          , LineBreak
          , Str "here."
          ]
      , HorizontalRule
      ]
  , Div
      ( "block-quotes" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Block Quotes" ]
      , Para [ Str "E-mail style:" ]
      , BlockQuote
          [ Para [ Str "This is a block quote. It is pretty short." ]
          ]
      , BlockQuote
          [ Para [ Str "Code in a block quote:" ]
          , CodeBlock
              ( "" , [ "" ] , [] )
              "sub status {\nprint \"working\";\n}\n"
          , Para [ Str "A list:" ]
          , OrderedList
              ( 1 , Decimal , Period )
              [ [ Plain [ Str "item one" ] ]
              , [ Plain [ Str "item two" ] ]
              ]
          , Para [ Str "Nested block quotes:" ]
          , BlockQuote [ Para [ Str "nested" ] ]
          , BlockQuote [ Para [ Str "nested" ] ]
          ]
      , Para [ Str "This should not be a block quote: 2 > 1." ]
      , Para [ Str "And a following paragraph." ]
      , HorizontalRule
      ]
  , Div
      ( "code-blocks" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Code Blocks" ]
      , Para [ Str "Code:" ]
      , CodeBlock
          ( "" , [ "" ] , [] )
          "---- (should be four hyphens)\n\nsub status {\n    print \"working\";\n}\n\nthis code block is indented by one tab\n"
      , Para [ Str "And:" ]
      , CodeBlock
          ( "" , [ "" ] , [] )
          "    this code block is indented by two tabs\n\nThese should not be escaped:  \\$ \\\\ \\> \\[ \\{\n"
      , HorizontalRule
      ]
  , Div
      ( "lists" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Lists" ]
      , Div
          ( "unordered" , [ "section" ] , [] )
          [ Header 2 ( "" , [] , [] ) [ Str "Unordered" ]
          , Para [ Str "Asterisks tight:" ]
          , BulletList
              [ [ Plain [ Str "asterisk 1" ] ]
              , [ Plain [ Str "asterisk 2" ] ]
              , [ Plain [ Str "asterisk 3" ] ]
              ]
          , Para [ Str "Asterisks loose:" ]
          , BulletList
              [ [ Para [ Str "asterisk 1" ] ]
              , [ Para [ Str "asterisk 2" ] ]
              , [ Para [ Str "asterisk 3" ] ]
              ]
          , Para [ Str "Pluses tight:" ]
          , BulletList
              [ [ Plain [ Str "Plus 1" ] ]
              , [ Plain [ Str "Plus 2" ] ]
              , [ Plain [ Str "Plus 3" ] ]
              ]
          , Para [ Str "Pluses loose:" ]
          , BulletList
              [ [ Para [ Str "Plus 1" ] ]
              , [ Para [ Str "Plus 2" ] ]
              , [ Para [ Str "Plus 3" ] ]
              ]
          , Para [ Str "Minuses tight:" ]
          , BulletList
              [ [ Plain [ Str "Minus 1" ] ]
              , [ Plain [ Str "Minus 2" ] ]
              , [ Plain [ Str "Minus 3" ] ]
              ]
          , Para [ Str "Minuses loose:" ]
          , BulletList
              [ [ Para [ Str "Minus 1" ] ]
              , [ Para [ Str "Minus 2" ] ]
              , [ Para [ Str "Minus 3" ] ]
              ]
          ]
      , Div
          ( "ordered" , [ "section" ] , [] )
          [ Header 2 ( "" , [] , [] ) [ Str "Ordered" ]
          , Para [ Str "Tight:" ]
          , OrderedList
              ( 1 , Decimal , Period )
              [ [ Plain [ Str "First" ] ]
              , [ Plain [ Str "Second" ] ]
              , [ Plain [ Str "Third" ] ]
              ]
          , Para [ Str "and:" ]
          , OrderedList
              ( 1 , Decimal , Period )
              [ [ Plain [ Str "One" ] ]
              , [ Plain [ Str "Two" ] ]
              , [ Plain [ Str "Three" ] ]
              ]
          , Para [ Str "Loose using tabs:" ]
          , OrderedList
              ( 1 , Decimal , Period )
              [ [ Para [ Str "First" ] ]
              , [ Para [ Str "Second" ] ]
              , [ Para [ Str "Third" ] ]
              ]
          , Para [ Str "and using spaces:" ]
          , OrderedList
              ( 1 , Decimal , Period )
              [ [ Para [ Str "One" ] ]
              , [ Para [ Str "Two" ] ]
              , [ Para [ Str "Three" ] ]
              ]
          , Para [ Str "Multiple paragraphs:" ]
          , OrderedList
              ( 1 , Decimal , Period )
              [ [ Para [ Str "Item 1, graf one." ]
                , Para
                    [ Str
                        "Item 1. graf two. The quick brown fox jumped over the lazy dog\8217s back."
                    ]
                ]
              , [ Para [ Str "Item 2." ] ]
              , [ Para [ Str "Item 3." ] ]
              ]
          ]
      , Div
          ( "nested" , [ "section" ] , [] )
          [ Header 2 ( "" , [] , [] ) [ Str "Nested" ]
          , BulletList
              [ [ Plain [ Str "Tab" ]
                , BulletList
                    [ [ Plain [ Str "Tab" ]
                      , BulletList [ [ Plain [ Str "Tab" ] ] ]
                      ]
                    ]
                ]
              ]
          , Para [ Str "Here\8217s another:" ]
          , OrderedList
              ( 1 , Decimal , Period )
              [ [ Plain [ Str "First" ] ]
              , [ Plain [ Str "Second:" ]
                , BulletList
                    [ [ Plain [ Str "Fee" ] ]
                    , [ Plain [ Str "Fie" ] ]
                    , [ Plain [ Str "Foe" ] ]
                    ]
                ]
              , [ Plain [ Str "Third" ] ]
              ]
          , Para [ Str "Same thing but with paragraphs:" ]
          , OrderedList
              ( 1 , Decimal , Period )
              [ [ Para [ Str "First" ] ]
              , [ Para [ Str "Second:" ]
                , BulletList
                    [ [ Plain [ Str "Fee" ] ]
                    , [ Plain [ Str "Fie" ] ]
                    , [ Plain [ Str "Foe" ] ]
                    ]
                ]
              , [ Para [ Str "Third" ] ]
              ]
          ]
      , Div
          ( "tabs-and-spaces" , [ "section" ] , [] )
          [ Header 2 ( "" , [] , [] ) [ Str "Tabs and spaces" ]
          , BulletList
              [ [ Para [ Str "this is a list item indented with tabs" ]
                ]
              , [ Para
                    [ Str "this is a list item indented with spaces" ]
                , BulletList
                    [ [ Para
                          [ Str
                              "this is an example list item indented with tabs"
                          ]
                      ]
                    , [ Para
                          [ Str
                              "this is an example list item indented with spaces"
                          ]
                      ]
                    ]
                ]
              ]
          ]
      , Div
          ( "fancy-list-markers" , [ "section" ] , [] )
          [ Header 2 ( "" , [] , [] ) [ Str "Fancy list markers" ]
          , OrderedList
              ( 2 , Decimal , TwoParens )
              [ [ Para [ Str "begins with 2" ] ]
              , [ Para [ Str "and now 3" ]
                , Para [ Str "with a continuation" ]
                , OrderedList
                    ( 4 , LowerRoman , Period )
                    [ [ Plain
                          [ Str
                              "sublist with roman numerals, starting with 4"
                          ]
                      ]
                    , [ Plain [ Str "more items" ]
                      , OrderedList
                          ( 1 , UpperAlpha , TwoParens )
                          [ [ Plain [ Str "a subsublist" ] ]
                          , [ Plain [ Str "a subsublist" ] ]
                          ]
                      ]
                    ]
                ]
              ]
          , Para [ Str "Nesting:" ]
          , OrderedList
              ( 1 , UpperAlpha , Period )
              [ [ Plain [ Str "Upper Alpha" ]
                , OrderedList
                    ( 1 , UpperRoman , Period )
                    [ [ Plain [ Str "Upper Roman." ]
                      , OrderedList
                          ( 6 , Decimal , TwoParens )
                          [ [ Plain [ Str "Decimal start with 6" ]
                            , OrderedList
                                ( 3 , LowerAlpha , OneParen )
                                [ [ Plain
                                      [ Str "Lower alpha with paren" ]
                                  ]
                                ]
                            ]
                          ]
                      ]
                    ]
                ]
              ]
          , Para [ Str "Autonumbering:" ]
          , OrderedList
              ( 1 , Decimal , Period )
              [ [ Plain [ Str "Autonumber." ] ]
              , [ Plain [ Str "More." ]
                , OrderedList
                    ( 1 , Decimal , Period )
                    [ [ Plain [ Str "Nested." ] ] ]
                ]
              ]
          , Para [ Str "Should not be a list item:" ]
          , Para [ Str "M.A.\160\&2007" ]
          , OrderedList
              ( 2 , UpperAlpha , Period )
              [ [ Plain [ Str "Williams" ] ] ]
          , HorizontalRule
          ]
      ]
  , Div
      ( "definition-lists" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Definition Lists" ]
      , Para [ Str "Tight using spaces:" ]
      , DefinitionList
          [ ( [ Str "apple" ] , [ [ Plain [ Str "red fruit" ] ] ] )
          , ( [ Str "orange" ]
            , [ [ Plain [ Str "orange fruit" ] ] ]
            )
          , ( [ Str "banana" ]
            , [ [ Plain [ Str "yellow fruit" ] ] ]
            )
          ]
      , Para [ Str "Tight using tabs:" ]
      , DefinitionList
          [ ( [ Str "apple" ] , [ [ Plain [ Str "red fruit" ] ] ] )
          , ( [ Str "orange" ]
            , [ [ Plain [ Str "orange fruit" ] ] ]
            )
          , ( [ Str "banana" ]
            , [ [ Plain [ Str "yellow fruit" ] ] ]
            )
          ]
      , Para [ Str "Loose:" ]
      , DefinitionList
          [ ( [ Str "apple" ] , [ [ Para [ Str "red fruit" ] ] ] )
          , ( [ Str "orange" ] , [ [ Para [ Str "orange fruit" ] ] ] )
          , ( [ Str "banana" ] , [ [ Para [ Str "yellow fruit" ] ] ] )
          ]
      , Para [ Str "Multiple blocks with italics:" ]
      , DefinitionList
          [ ( [ Emph [ Str "apple" ] ]
            , [ [ Para [ Str "red fruit" ]
                , Para
                    [ Str "contains seeds, crisp, pleasant to taste" ]
                ]
              ]
            )
          , ( [ Emph [ Str "orange" ] ]
            , [ [ Para [ Str "orange fruit" ]
                , CodeBlock
                    ( "" , [ "" ] , [] ) "{ orange code block }\n"
                , BlockQuote [ Para [ Str "orange block quote" ] ]
                ]
              ]
            )
          ]
      , Para [ Str "Multiple definitions, tight:" ]
      , DefinitionList
          [ ( [ Str "apple" ]
            , [ [ Para [ Str "red fruit" ] , Para [ Str "computer" ] ] ]
            )
          , ( [ Str "orange" ]
            , [ [ Para [ Str "orange fruit" ] , Para [ Str "bank" ] ] ]
            )
          ]
      , Para [ Str "Multiple definitions, loose:" ]
      , DefinitionList
          [ ( [ Str "apple" ]
            , [ [ Para [ Str "red fruit" ] , Para [ Str "computer" ] ] ]
            )
          , ( [ Str "orange" ]
            , [ [ Para [ Str "orange fruit" ] , Para [ Str "bank" ] ] ]
            )
          ]
      , Para
          [ Str
              "Blank line after term, indented marker, alternate markers:"
          ]
      , DefinitionList
          [ ( [ Str "apple" ]
            , [ [ Para [ Str "red fruit" ] , Para [ Str "computer" ] ] ]
            )
          , ( [ Str "orange" ]
            , [ [ Para [ Str "orange fruit" ]
                , OrderedList
                    ( 1 , Decimal , Period )
                    [ [ Plain [ Str "sublist" ] ]
                    , [ Plain [ Str "sublist" ] ]
                    ]
                ]
              ]
            )
          ]
      ]
  , Div
      ( "html-blocks" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "HTML Blocks" ]
      , Para [ Str "Simple block on one line:" ]
      , Div ( "" , [] , [] ) [ Para [ Str "foo" ] ]
      , Para [ Str "And nested without indentation:" ]
      , Div
          ( "" , [] , [] )
          [ Div
              ( "" , [] , [] )
              [ Div ( "" , [] , [] ) [ Para [ Str "foo" ] ] ]
          , Div ( "" , [] , [] ) [ Para [ Str "bar" ] ]
          ]
      , Para [ Str "Interpreted markdown in a table:" ]
      , Para [ Str "This is " , Emph [ Str "emphasized" ] ]
      , Para [ Str "And this is " , Strong [ Str "strong" ] ]
      , Para [ Str "Here\8217s a simple block:" ]
      , Div ( "" , [] , [] ) [ Para [ Str "foo" ] ]
      , Para [ Str "This should be a code block, though:" ]
      , CodeBlock ( "" , [ "" ] , [] ) "<div>\n    foo\n</div>\n"
      , Para [ Str "As should this:" ]
      , CodeBlock ( "" , [ "" ] , [] ) "<div>foo</div>\n"
      , Para [ Str "Now, nested:" ]
      , Div
          ( "" , [] , [] )
          [ Div
              ( "" , [] , [] )
              [ Div ( "" , [] , [] ) [ Para [ Str "foo" ] ] ]
          ]
      , Para [ Str "This should just be an HTML comment:" ]
      , Para [ Str "Multiline:" ]
      , Para [ Str "Code block:" ]
      , CodeBlock ( "" , [ "" ] , [] ) "<!-- Comment -->\n"
      , Para
          [ Str
              "Just plain comment, with trailing spaces on the line:"
          ]
      , Para [ Str "Code:" ]
      , CodeBlock ( "" , [ "" ] , [] ) "<hr />\n"
      , Para [ Str "Hr\8217s:" ]
      , HorizontalRule
      ]
  , Div
      ( "inline-markup" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Inline Markup" ]
      , Para
          [ Str "This is "
          , Emph [ Str "emphasized" ]
          , Str ", and so "
          , Emph [ Str "is this" ]
          , Str "."
          ]
      , Para
          [ Str "This is "
          , Strong [ Str "strong" ]
          , Str ", and so "
          , Strong [ Str "is this" ]
          , Str "."
          ]
      , Para
          [ Str "An "
          , Emph
              [ Link
                  ( "" , [] , [] )
                  [ Str "emphasized link" ]
                  ( "/url" , "" )
              ]
          , Str "."
          ]
      , Para [ Strong [ Emph [ Str "This is strong and em." ] ] ]
      , Para
          [ Str "So is "
          , Strong [ Emph [ Str "this" ] ]
          , Str " word."
          ]
      , Para [ Strong [ Emph [ Str "This is strong and em." ] ] ]
      , Para
          [ Str "So is "
          , Strong [ Emph [ Str "this" ] ]
          , Str " word."
          ]
      , Para
          [ Str "This is code: "
          , Code ( "" , [] , [] ) ">"
          , Str ", "
          , Code ( "" , [] , [] ) "$"
          , Str ", "
          , Code ( "" , [] , [] ) "\\`, "
          , Str "$"
          , Code ( "" , [] , [] ) ", "
          , Str "<html>"
          , Code ( "" , [] , [] ) "."
          ]
      , Para
          [ Span
              ( "" , [ "deleted" ] , [] )
              [ Str "This is " , Emph [ Str "strikeout" ] , Str "." ]
          ]
      , Para
          [ Str "Superscripts: a"
          , Superscript [ Str "bc" ]
          , Str "d a"
          , Superscript [ Emph [ Str "hello" ] ]
          , Str " a"
          , Superscript [ Str "hello\160there" ]
          , Str "."
          ]
      , Para
          [ Str "Subscripts: H"
          , Subscript [ Str "2" ]
          , Str "O, H"
          , Subscript [ Str "23" ]
          , Str "O, H"
          , Subscript [ Str "many\160of\160them" ]
          , Str "O."
          ]
      , Para
          [ Str
              "These should not be superscripts or subscripts, because of the unescaped spaces:"
          , SoftBreak
          , Str "a^b c^d, a~b c~d."
          ]
      , HorizontalRule
      ]
  , Div
      ( "smart-quotes-ellipses-dashes" , [ "section" ] , [] )
      [ Header
          1 ( "" , [] , [] ) [ Str "Smart quotes, ellipses, dashes" ]
      , Para
          [ Quoted DoubleQuote [ Str "Hello," ]
          , Str " said the spider. "
          , Quoted
              DoubleQuote
              [ Quoted SingleQuote [ Str "Shelob" ]
              , Str " is my name."
              ]
          ]
      , Para
          [ Quoted SingleQuote [ Str "A" ]
          , Str ", "
          , Quoted SingleQuote [ Str "B" ]
          , Str ", and "
          , Quoted SingleQuote [ Str "C" ]
          , Str " are letters."
          ]
      , Para
          [ Quoted SingleQuote [ Str "Oak," ]
          , Str " "
          , Quoted SingleQuote [ Str "elm," ]
          , Str " and "
          , Quoted SingleQuote [ Str "beech" ]
          , Str " are names of trees. So is "
          , Quoted SingleQuote [ Str "pine." ]
          ]
      , Para
          [ Quoted
              SingleQuote
              [ Str "He said, "
              , Quoted DoubleQuote [ Str "I want to go." ]
              ]
          , Str " Were you alive in the 70\8217s?"
          ]
      , Para
          [ Str "Here is some quoted "
          , Quoted SingleQuote [ Code ( "" , [] , [] ) "code" ]
          , Str " and a "
          , Quoted
              DoubleQuote
              [ Link
                  ( "" , [] , [] )
                  [ Str "quoted" , SoftBreak , Str "link" ]
                  ( "http://example.com/?foo=1&bar=2" , "" )
              ]
          , Str "."
          ]
      , Para
          [ Str
              "Some dashes: one\8212two \8212 three\8212four \8212 five."
          ]
      , Para
          [ Str
              "Dashes between numbers: 5\8211\&7, 255\8211\&66, 1987\8211\&1999."
          ]
      , Para [ Str "Ellipses\8230and\8230and\8230." ]
      , HorizontalRule
      ]
  , Div
      ( "latex" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "LaTeX" ]
      , BulletList
          [ []
          , [ Plain [ Math InlineMath "2+2=4" ] ]
          , [ Plain [ Math InlineMath "x \\in y" ] ]
          , [ Plain [ Math InlineMath "\\alpha \\wedge \\omega" ] ]
          , [ Plain [ Math InlineMath "223" ] ]
          , [ Plain [ Math InlineMath "p" , Str "-Tree" ] ]
          , [ Plain
                [ Str "Here\8217s some display math:"
                , SoftBreak
                , Math
                    DisplayMath
                    "\\frac{d}{dx}f(x)=\\lim_{h\\to 0}\\frac{f(x+h)-f(x)}{h}"
                ]
            ]
          , [ Plain
                [ Str "Here\8217s one that has a line break in it: "
                , Math InlineMath "\\alpha + \\omega \\times x^2"
                , Str "."
                ]
            ]
          ]
      , Para [ Str "These shouldn\8217t be math:" ]
      , BulletList
          [ [ Plain
                [ Str "To get the famous equation, write "
                , Code ( "" , [] , [] ) "$e = mc^2$"
                , Str "."
                ]
            ]
          , [ Plain
                [ Str "$22,000 is a "
                , Emph [ Str "lot" ]
                , Str " of money. So is $34,000. (It worked if "
                , Quoted DoubleQuote [ Str "lot" ]
                , Str " is"
                , SoftBreak
                , Str "emphasized.)"
                ]
            ]
          , [ Plain [ Str "Shoes ($20) and socks ($5)." ] ]
          , [ Plain
                [ Str "Escaped "
                , Code ( "" , [] , [] ) "$"
                , Str ": $73 "
                , Emph [ Str "this should be emphasized" ]
                , Str " 23$."
                ]
            ]
          ]
      , Para [ Str "Here\8217s a LaTeX table:" ]
      , HorizontalRule
      ]
  , Div
      ( "special-characters" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Special Characters" ]
      , Para [ Str "Here is some unicode:" ]
      , BulletList
          [ [ Plain [ Str "I hat: \206" ] ]
          , [ Plain [ Str "o umlaut: \246" ] ]
          , [ Plain [ Str "section: \167" ] ]
          , [ Plain [ Str "set membership: \8712" ] ]
          , [ Plain [ Str "copyright: \169" ] ]
          ]
      , Para [ Str "AT&T has an ampersand in their name." ]
      , Para [ Str "AT&T is another way to write it." ]
      , Para [ Str "This & that." ]
      , Para [ Str "4 < 5." ]
      , Para [ Str "6 > 5." ]
      , Para [ Str "Backslash: \\" ]
      , Para [ Str "Backtick: `" ]
      , Para [ Str "Asterisk: *" ]
      , Para [ Str "Underscore: _" ]
      , Para [ Str "Left brace: {" ]
      , Para [ Str "Right brace: }" ]
      , Para [ Str "Left bracket: [" ]
      , Para [ Str "Right bracket: ]" ]
      , Para [ Str "Left paren: (" ]
      , Para [ Str "Right paren: )" ]
      , Para [ Str "Greater-than: >" ]
      , Para [ Str "Hash: #" ]
      , Para [ Str "Period: ." ]
      , Para [ Str "Bang: !" ]
      , Para [ Str "Plus: +" ]
      , Para [ Str "Minus: -" ]
      , HorizontalRule
      ]
  , Div
      ( "links" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Links" ]
      , Div
          ( "explicit" , [ "section" ] , [] )
          [ Header 2 ( "" , [] , [] ) [ Str "Explicit" ]
          , Para
              [ Str "Just a "
              , Link ( "" , [] , [] ) [ Str "URL" ] ( "/url/" , "" )
              , Str "."
              ]
          , Para
              [ Link
                  ( "" , [] , [ ( "title" , "title" ) ] )
                  [ Str "URL and title" ]
                  ( "/url/" , "" )
              , Str "."
              ]
          , Para
              [ Link
                  ( ""
                  , []
                  , [ ( "title" , "title preceded by two spaces" ) ]
                  )
                  [ Str "URL and title" ]
                  ( "/url/" , "" )
              , Str "."
              ]
          , Para
              [ Link
                  ( ""
                  , []
                  , [ ( "title" , "title preceded by a tab" ) ]
                  )
                  [ Str "URL and title" ]
                  ( "/url/" , "" )
              , Str "."
              ]
          , Para
              [ Link
                  ( ""
                  , []
                  , [ ( "title" , "title with \"quotes\" in it" ) ]
                  )
                  [ Str "URL and title" ]
                  ( "/url/" , "" )
              ]
          , Para
              [ Link
                  ( ""
                  , []
                  , [ ( "title" , "title with single quotes" ) ]
                  )
                  [ Str "URL and title" ]
                  ( "/url/" , "" )
              ]
          , Para
              [ Link
                  ( "" , [] , [] )
                  [ Str "with_underscore" ]
                  ( "/url/with_underscore" , "" )
              ]
          , Para
              [ Link
                  ( "" , [] , [] )
                  [ Str "Email link" ]
                  ( "mailto:nobody@nowhere.net" , "" )
              ]
          , Para
              [ Link ( "" , [] , [] ) [ Str "Empty" ] ( "" , "" )
              , Str "."
              ]
          ]
      , Div
          ( "reference" , [ "section" ] , [] )
          [ Header 2 ( "" , [] , [] ) [ Str "Reference" ]
          , Para
              [ Str "Foo "
              , Link ( "" , [] , [] ) [ Str "bar" ] ( "/url/" , "" )
              , Str "."
              ]
          , Para
              [ Str "With "
              , Link
                  ( "" , [] , [] )
                  [ Str "embedded [brackets]" ]
                  ( "/url/" , "" )
              , Str "."
              ]
          , Para
              [ Link ( "" , [] , [] ) [ Str "b" ] ( "/url/" , "" )
              , Str " by itself should be a link."
              ]
          , Para
              [ Str "Indented "
              , Link ( "" , [] , [] ) [ Str "once" ] ( "/url" , "" )
              , Str "."
              ]
          , Para
              [ Str "Indented "
              , Link ( "" , [] , [] ) [ Str "twice" ] ( "/url" , "" )
              , Str "."
              ]
          , Para
              [ Str "Indented "
              , Link ( "" , [] , [] ) [ Str "thrice" ] ( "/url" , "" )
              , Str "."
              ]
          , Para [ Str "This should [not][] be a link." ]
          , CodeBlock ( "" , [ "" ] , [] ) "[not]: /url\n"
          , Para
              [ Str "Foo "
              , Link
                  ( ""
                  , []
                  , [ ( "title" , "Title with \"quotes\" inside" ) ]
                  )
                  [ Str "bar" ]
                  ( "/url/" , "" )
              , Str "."
              ]
          , Para
              [ Str "Foo "
              , Link
                  ( ""
                  , []
                  , [ ( "title" , "Title with \"quote\" inside" ) ]
                  )
                  [ Str "biz" ]
                  ( "/url/" , "" )
              , Str "."
              ]
          ]
      , Div
          ( "with-ampersands" , [ "section" ] , [] )
          [ Header 2 ( "" , [] , [] ) [ Str "With ampersands" ]
          , Para
              [ Str "Here\8217s a "
              , Link
                  ( "" , [] , [] )
                  [ Str "link with an ampersand in the URL" ]
                  ( "http://example.com/?foo=1&bar=2" , "" )
              , Str "."
              ]
          , Para
              [ Str
                  "Here\8217s a link with an amersand in the link text:"
              , SoftBreak
              , Link
                  ( "" , [] , [ ( "title" , "AT&T" ) ] )
                  [ Str "AT&T" ]
                  ( "http://att.com/" , "" )
              , Str "."
              ]
          , Para
              [ Str "Here\8217s an "
              , Link
                  ( "" , [] , [] )
                  [ Str "inline link" ]
                  ( "/script?foo=1&bar=2" , "" )
              , Str "."
              ]
          , Para
              [ Str "Here\8217s an "
              , Link
                  ( "" , [] , [] )
                  [ Str "inline link in pointy braces" ]
                  ( "/script?foo=1&bar=2" , "" )
              , Str "."
              ]
          ]
      , Div
          ( "autolinks" , [ "section" ] , [] )
          [ Header 2 ( "" , [] , [] ) [ Str "Autolinks" ]
          , Para
              [ Str "With an ampersand: "
              , Link
                  ( "" , [ "uri" ] , [] )
                  [ Str "http://example.com/?foo=1&bar=2" ]
                  ( "http://example.com/?foo=1&bar=2" , "" )
              ]
          , BulletList
              [ [ Plain [ Str "In a list?" ] ]
              , [ Plain
                    [ Link
                        ( "" , [ "uri" ] , [] )
                        [ Str "http://example.com/" ]
                        ( "http://example.com/" , "" )
                    ]
                ]
              , [ Plain [ Str "It should." ] ]
              ]
          , Para
              [ Str "An e-mail address: "
              , Link
                  ( "" , [ "email" ] , [] )
                  [ Str "nobody@nowhere.net" ]
                  ( "mailto:nobody@nowhere.net" , "" )
              ]
          , BlockQuote
              [ Para
                  [ Str "Blockquoted: "
                  , Link
                      ( "" , [ "uri" ] , [] )
                      [ Str "http://example.com/" ]
                      ( "http://example.com/" , "" )
                  ]
              ]
          , Para
              [ Str "Auto-links should not occur here: "
              , Code ( "" , [] , [] ) "<http://example.com/>"
              ]
          , CodeBlock
              ( "" , [ "" ] , [] ) "or here: <http://example.com/>\n"
          , HorizontalRule
          ]
      ]
  , Div
      ( "images" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Images" ]
      , Para
          [ Str "From "
          , Quoted DoubleQuote [ Str "Voyage dans la Lune" ]
          , Str " by Georges Melies (1902):"
          ]
      , Div
          ( "" , [] , [] )
          [ Para
              [ Image
                  ( "" , [] , [ ( "title" , "Voyage dans la Lune" ) ] )
                  [ Str "lalune" ]
                  ( "lalune.jpg" , "" )
              ]
          , Div ( "" , [ "caption" ] , [] ) [ Para [ Str "lalune" ] ]
          ]
      , Para
          [ Str "Here is a movie "
          , Image
              ( "" , [] , [] ) [ Str "movie" ] ( "movie.jpg" , "" )
          , Str " icon."
          ]
      , HorizontalRule
      ]
  , Div
      ( "footnotes" , [ "section" ] , [] )
      [ Header 1 ( "" , [] , [] ) [ Str "Footnotes" ]
      , Para
          [ Str "Here is a footnote reference,"
          , Note
              [ Para
                  [ Str
                      "Here is the footnote. It can go anywhere after the footnote reference. It"
                  , SoftBreak
                  , Str "need not be placed at the end of the document."
                  ]
              ]
          , Str " and another."
          , Note
              [ Para
                  [ Str
                      "Here\8217s the long note. This one contains multiple blocks."
                  ]
              , Para
                  [ Str
                      "Subsequent blocks are indented to show that they belong to the footnote (as"
                  , SoftBreak
                  , Str "with list items)."
                  ]
              , CodeBlock ( "" , [ "" ] , [] ) "{ <code> }\n"
              , Para
                  [ Str
                      "If you want, you can indent every line, but you can also be lazy and just"
                  , SoftBreak
                  , Str "indent the first line of each block."
                  ]
              ]
          , Str " This should "
          , Emph [ Str "not" ]
          , Str " be a"
          , SoftBreak
          , Str
              "footnote reference, because it contains a space.[^my note] Here is an inline"
          , SoftBreak
          , Str "note."
          , Note
              [ Para
                  [ Str "This is "
                  , Emph [ Str "easier" ]
                  , Str " to type. Inline notes may contain"
                  , SoftBreak
                  , Link
                      ( "" , [] , [] )
                      [ Str "links" ]
                      ( "http://google.com" , "" )
                  , Str " and "
                  , Code ( "" , [] , [] ) "]"
                  , Str " verbatim characters, as well as"
                  , SoftBreak
                  , Str "[bracketed text]."
                  ]
              ]
          ]
      , BlockQuote
          [ Para
              [ Str "Notes can go in quotes."
              , Note [ Para [ Str "In quote." ] ]
              ]
          ]
      , OrderedList
          ( 1 , Decimal , Period )
          [ [ Plain
                [ Str "And in list items."
                , Note [ Para [ Str "In list." ] ]
                ]
            ]
          ]
      , Para
          [ Str
              "This paragraph should not be part of the note, as it is not indented."
          ]
      ]
  ]