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

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" ] ]
      ]
  ]