1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
Pandoc
Meta { unMeta = fromList [] }
[ Para
[ Str "I want "
, Span
( ""
, [ "comment-start" ]
, [ ( "id" , "0" )
, ( "author" , "Jesse Rosenthal" )
, ( "date" , "2016-05-09T16:13:00Z" )
]
)
[ Str "I left a comment." ]
, Str "some text to have a comment "
, Span ( "" , [ "comment-end" ] , [ ( "id" , "0" ) ] ) []
, Str "on it."
]
, Para
[ Str "This is "
, Span
( ""
, [ "comment-start" ]
, [ ( "id" , "1" )
, ( "author" , "Jesse Rosenthal" )
, ( "date" , "2016-05-09T16:13:00Z" )
]
)
[ Str "A comment across paragraphs." ]
, Str "a new paragraph."
]
, Para
[ Str "And so"
, Span ( "" , [ "comment-end" ] , [ ( "id" , "1" ) ] ) []
, Str " is this."
]
, Para
[ Str "One "
, Span
( ""
, [ "comment-start" ]
, [ ( "id" , "2" )
, ( "author" , "Jesse Rosenthal" )
, ( "date" , "2016-05-09T16:14:00Z" )
]
)
[ Str "This one has multiple paragraphs. \182 See?" ]
, Str "more"
, Span ( "" , [ "comment-end" ] , [ ( "id" , "2" ) ] ) []
, Str ". And this is one with a "
, Span
( ""
, [ "comment-start" ]
, [ ( "id" , "3" )
, ( "author" , "Jesse Rosenthal" )
, ( "date" , "2016-06-22T14:35:00Z" )
]
)
[ Str "Do something." ]
, Span
( ""
, [ "comment-start" ]
, [ ( "id" , "4" )
, ( "author" , "Jesse Rosenthal" )
, ( "date" , "2016-06-22T14:36:00Z" )
]
)
[ Str "Do something else." ]
, Str "comment in a comment"
, Span
( "" , [ "comment-end" ] , [ ( "id" , "3" ) ] )
[ Span ( "" , [ "comment-end" ] , [ ( "id" , "4" ) ] ) [] ]
, Str "."
]
]
|
