163af3f · typeable/pandoc

76 , ""

77 , "Fourth line</em>"

78 ] =?>

79− para "First line <em>Second line" <>

79+ para "First line\n<em>Second line" <>

80 para "Fourth line</em>"

81

82 , "Linebreak" =: "Line <br> break" =?> para ("Line" <> linebreak <> "break")

168 T.unlines [ "First line"

169 , "second line."

170 ] =?>

171− para "First line second line."

171+ para "First line\nsecond line."

172 , "Indented paragraph" =:

173 T.unlines [ " First line"

174 , "second line."

175 ] =?>

176− para "First line second line."

176+ para "First line\nsecond line."

177 -- Emacs Muse starts a blockquote on the second line.

178 -- We copy Amusewiki behavior and require a blank line to start a blockquote.

179 , "Indentation in the middle of paragraph" =:

181 , " second line"

182 , "third line"

183 ] =?>

184− para "First line second line third line"

184+ para "First line\nsecond line\nthird line"

185 , "Quote" =:

186 " This is a quotation\n" =?>

187 blockQuote (para "This is a quotation")

189 T.unlines [ " This is a quotation"

190 , " with a continuation"

191 ] =?>

192− blockQuote (para "This is a quotation with a continuation")

192+ blockQuote (para "This is a quotation\nwith a continuation")

193 , testGroup "Div"

194 [ "Div without id" =:

195 "<div>Foo bar</div>" =?>

359 T.unlines [ "Paragraph starts here"

360 , "#anchor and ends here."

361 ] =?>

362− para ("Paragraph starts here " <> spanWith ("anchor", [], []) mempty <> "and ends here.")

362+ para ("Paragraph starts here\n" <> spanWith ("anchor", [], []) mempty <> "and ends here.")

363 ]

364 , testGroup "Footnotes"

365 [ "Simple footnote" =:

408 ] =?>

409 para (text "First footnote reference" <>

410 note (para "First footnote paragraph" <>

411− para "Second footnote paragraph") <>

411+ para "Second footnote\nparagraph") <>

412 text " and second footnote reference" <>

413 note (para "Third footnote paragraph" <>

414 para "Fourth footnote paragraph") <>

597 , " bar"

598 , " - Baz"

599 ] =?>

600− bulletList [ para "Foo bar"

600+ bulletList [ para "Foo\nbar"

601 , para "Baz"

602 ]

603 , "One blank line after multiline first item" =:

607 , ""

608 , " - Baz"

609 ] =?>

610− bulletList [ para "Foo bar"

610+ bulletList [ para "Foo\nbar"

611 , para "Baz"

612 ]

613 , "Two blank lines after multiline first item" =:

618 , ""

619 , " - Baz"

620 ] =?>

621− bulletList [ para "Foo bar" ] <> bulletList [ para "Baz" ]

621+ bulletList [ para "Foo\nbar" ] <> bulletList [ para "Baz" ]

622 , "No blank line after list continuation" =:

623 T.unlines

624 [ " - Foo"

658 [ "First :: second"

659 , "Foo :: bar"

660 ] =?>

661− para "First :: second Foo :: bar"

661+ para "First :: second\nFoo :: bar"

662 , test emacsMuse "Emacs Muse definition list"

663 (T.unlines

664 [ "First :: second"

688 , "and its continuation."

689 , " Second term :: Definition of second term."

690 ] =?>

691− definitionList [ ("First term", [ para "Definition of first term and its continuation." ])

691+ definitionList [ ("First term", [ para "Definition of first term\nand its continuation." ])

692 , ("Second term", [ para "Definition of second term." ])

693 ]

694 -- Emacs Muse creates two separate lists when indentation of items is different.

699 , "and its continuation."

700 , " Second term :: Definition of second term."

701 ] =?>

702− definitionList [ ("First term", [ para "Definition of first term and its continuation." ])

702+ definitionList [ ("First term", [ para "Definition of first term\nand its continuation." ])

703 , ("Second term", [ para "Definition of second term." ])

704 ]

705 , "Two blank lines separate definition lists" =: