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, 99 insertions, 7 deletions

diff --git a/test/org-select-tags.native b/test/org-select-tags.native
index 5fbfd92d1..a94c70abe 100644
--- a/test/org-select-tags.native
+++ b/test/org-select-tags.native
@@ -1,7 +1,99 @@
-Pandoc (Meta {unMeta = fromList []})
-[Header 1 ("will-appear-because-it-is-the-ancestor-of-something-tagged-yes",[],[]) [Str "Will",Space,Str "appear",Space,Str "because",Space,Str "it",Space,Str "is",Space,Str "the",Space,Str "ancestor",Space,Str "of",Space,Str "something",Space,Str "tagged",Space,Str "\"yes\""]
-,Header 2 ("will-appear",[],[]) [Str "Will",Space,Str "appear",Space,Span ("",["tag"],[("tag-name","yes")]) [SmallCaps [Str "yes"]]]
-,Header 3 ("will-appear-since-the-entire-subtree-of-something-selected-will-appear",[],[]) [Str "Will",Space,Str "appear",Space,Str "since",Space,Str "the",Space,Str "entire",Space,Str "subtree",Space,Str "of",Space,Str "something",Space,Str "selected",Space,Str "will",Space,Str "appear"]
-,OrderedList (1,DefaultStyle,DefaultDelim)
- [[Para [Str "Will",Space,Str "appear"]]]
-,Header 2 ("will-appear-because-it-is-the-ancestor-of-something-listed-in-select-tags",[],[]) [Str "Will",Space,Str "appear",Space,Str "because",Space,Str "it",Space,Str "is",Space,Str "the",Space,Str "ancestor",Space,Str "of",Space,Str "something",Space,Str "listed",Space,Str "in",Space,Str "SELECT-TAGS"]]
+Pandoc
+  ( Meta { unMeta = fromList [] } )
+  [ Header 1
+    ( "will-appear-because-it-is-the-ancestor-of-something-tagged-yes"
+    , []
+    , []
+    )
+    [ Str "Will"
+    , Space
+    , Str "appear"
+    , Space
+    , Str "because"
+    , Space
+    , Str "it"
+    , Space
+    , Str "is"
+    , Space
+    , Str "the"
+    , Space
+    , Str "ancestor"
+    , Space
+    , Str "of"
+    , Space
+    , Str "something"
+    , Space
+    , Str "tagged"
+    , Space
+    , Str "\"yes\""
+    ]
+  , Header 2
+    ( "will-appear", [], [] )
+    [ Str "Will"
+    , Space
+    , Str "appear"
+    , Space
+    , Span
+      ( "", [ "tag" ], [ ( "tag-name", "yes" ) ] )
+      [ SmallCaps [ Str "yes" ] ]
+    ]
+  , Header 3
+    ( "will-appear-since-the-entire-subtree-of-something-selected-will-appear"
+    , []
+    , []
+    )
+    [ Str "Will"
+    , Space
+    , Str "appear"
+    , Space
+    , Str "since"
+    , Space
+    , Str "the"
+    , Space
+    , Str "entire"
+    , Space
+    , Str "subtree"
+    , Space
+    , Str "of"
+    , Space
+    , Str "something"
+    , Space
+    , Str "selected"
+    , Space
+    , Str "will"
+    , Space
+    , Str "appear"
+    ]
+  , OrderedList
+    ( 1, DefaultStyle, DefaultDelim )
+    [ [ Para [ Str "Will", Space, Str "appear" ] ] ]
+  , Header 2
+    ( "will-appear-because-it-is-the-ancestor-of-something-listed-in-select-tags"
+    , []
+    , []
+    )
+    [ Str "Will"
+    , Space
+    , Str "appear"
+    , Space
+    , Str "because"
+    , Space
+    , Str "it"
+    , Space
+    , Str "is"
+    , Space
+    , Str "the"
+    , Space
+    , Str "ancestor"
+    , Space
+    , Str "of"
+    , Space
+    , Str "something"
+    , Space
+    , Str "listed"
+    , Space
+    , Str "in"
+    , Space
+    , Str "SELECT-TAGS"
+    ]
+  ]