test/rtf/list_complex.native


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
75
76
77
78
79
80
81
82
83
84

Pandoc
  ( Meta
    { unMeta = fromList
      [
        ( "author"
        , MetaInlines
          [ Str "Cynthia", Space, Str "Johnson" ]
        )
      ,
        ( "operator"
        , MetaInlines
          [ Str "John", Space, Str "MacFarlane" ]
        )
      ,
        ( "title"
        , MetaInlines
          [ Str "Text", Space, Str "before", Space, Str "list" ]
        )
      ]
    }
  )
  [ OrderedList
    ( 1, Decimal, Period )
    [
      [ Para [ Str "One" ] ]
    ,
      [ Para
        [ Str "Two" ]
      , OrderedList
        ( 1, LowerAlpha, Period )
        [
          [ Para [ Str "Three" ] ]
        ,
          [ Para
            [ Str "Four" ]
          , OrderedList
            ( 1, LowerRoman, Period )
            [
              [ Para [ Str "Five" ] ]
            ,
              [ Para
                [ Str "Six" ]
              , OrderedList
                ( 1, UpperAlpha, Period )
                [
                  [ Para [ Str "Seven" ] ]
                ,
                  [ Para
                    [ Str "Eight" ]
                  , OrderedList
                    ( 1, UpperRoman, Period )
                    [
                      [ Para [ Str "Nine" ] ]
                    ,
                      [ Para
                        [ Str "Ten" ]
                      , BulletList
                        [
                          [ Para [ Str "Eleven" ] ]
                        ,
                          [ Para [ Str "Twelve" ] ]
                        ]
                      ]
                    ]
                  ]
                ]
              ]
            ]
          ]
        ]
      ]
    ]
  , Para
    [ Str "Out", Space, Str "of", Space, Str "list!" ]
  , Para
    [ Str "Start", Space, Str "with" ]
  , OrderedList
    ( 7, Decimal, Period )
    [
      [ Para [ Str "Seven", Space, Str "Start" ] ]
    ,
      [ Para [ Str "Eight", Space, Str "Continue" ] ]
    ]
  ]