Use pretty-simple to format native output.

Previously we used our own homespun formatting.  But this
produces over-long lines that aren't ideal for diffs in tests.
Easier to use something off-the-shelf and standard.

Closes #7580.

Performance is slower by about a factor of 10, but this isn't
really a problem because native isn't suitable as a serialization
format. (For serialization you should use json, because the reader
is so much faster than native.)

1 files changed, 84 insertions, 24 deletions

diff --git a/test/rtf/list_complex.native b/test/rtf/list_complex.native
index 53ffdf9bd..73e2e14f8 100644
--- a/test/rtf/list_complex.native
+++ b/test/rtf/list_complex.native
@@ -1,24 +1,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"]]]]
+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" ] ]
+    ]
+  ]