Switch from pretty-simple to pretty-show for native output.

Update tests.

Reason:  it turns out that the native output generated by
pretty-simple isn't always readable by the native reader.
According to https://github.com/cdepillabout/pretty-simple/issues/99
it is not a design goal of the library that the rendered values
be readable using 'read'.  This makes it unsuitable for our
purposes.

pretty-show is a bit slower and it uses 4-space indents
(non-configurable), but it doesn't have this serious drawback.

1 files changed, 80 insertions, 72 deletions

diff --git a/test/command/4284.md b/test/command/4284.md
index 5c2ad9620..0308f521f 100644
--- a/test/command/4284.md
+++ b/test/command/4284.md
@@ -8,30 +8,33 @@
 ** Children of headers with excluded tags should not appear       :xylophone:
 * This should not appear                                                  :%:
 ^D
-[ Header 1
-  ( "noexport-should-appear-if-not-specified-in-excludetags", [], [] )
-  [ Str "NOEXPORT"
-  , Space
-  , Str "should"
-  , Space
-  , Str "appear"
-  , Space
-  , Str "if"
-  , Space
-  , Str "not"
-  , Space
-  , Str "specified"
-  , Space
-  , Str "in"
-  , Space
-  , Str "EXCLUDE"
-  , Subscript
-    [ Str "TAGS" ]
-  , Space
-  , Span
-    ( "", [ "tag" ], [ ( "tag-name", "noexport" ) ] )
-    [ SmallCaps [ Str "noexport" ] ]
-  ]
+[ Header
+    1
+    ( "noexport-should-appear-if-not-specified-in-excludetags"
+    , []
+    , []
+    )
+    [ Str "NOEXPORT"
+    , Space
+    , Str "should"
+    , Space
+    , Str "appear"
+    , Space
+    , Str "if"
+    , Space
+    , Str "not"
+    , Space
+    , Str "specified"
+    , Space
+    , Str "in"
+    , Space
+    , Str "EXCLUDE"
+    , Subscript [ Str "TAGS" ]
+    , Space
+    , Span
+        ( "" , [ "tag" ] , [ ( "tag-name" , "noexport" ) ] )
+        [ SmallCaps [ Str "noexport" ] ]
+    ]
 ]
 ```
 
@@ -41,18 +44,19 @@
 * This should not appear                                           :elephant:
 * This should appear                                                   :fawn:
 ^D
-[ Header 1
-  ( "this-should-appear", [], [] )
-  [ Str "This"
-  , Space
-  , Str "should"
-  , Space
-  , Str "appear"
-  , Space
-  , Span
-    ( "", [ "tag" ], [ ( "tag-name", "fawn" ) ] )
-    [ SmallCaps [ Str "fawn" ] ]
-  ]
+[ Header
+    1
+    ( "this-should-appear" , [] , [] )
+    [ Str "This"
+    , Space
+    , Str "should"
+    , Space
+    , Str "appear"
+    , Space
+    , Span
+        ( "" , [ "tag" ] , [ ( "tag-name" , "fawn" ) ] )
+        [ SmallCaps [ Str "fawn" ] ]
+    ]
 ]
 ```
 
@@ -64,18 +68,19 @@
 * This should not appear                                              :hippo:
 * This should appear                                               :noexport:
 ^D
-[ Header 1
-  ( "this-should-appear", [], [] )
-  [ Str "This"
-  , Space
-  , Str "should"
-  , Space
-  , Str "appear"
-  , Space
-  , Span
-    ( "", [ "tag" ], [ ( "tag-name", "noexport" ) ] )
-    [ SmallCaps [ Str "noexport" ] ]
-  ]
+[ Header
+    1
+    ( "this-should-appear" , [] , [] )
+    [ Str "This"
+    , Space
+    , Str "should"
+    , Space
+    , Str "appear"
+    , Space
+    , Span
+        ( "" , [ "tag" ] , [ ( "tag-name" , "noexport" ) ] )
+        [ SmallCaps [ Str "noexport" ] ]
+    ]
 ]
 ```
 
@@ -84,29 +89,32 @@
 #+EXCLUDE_TAGS:
 * NOEXPORT should appear if not specified in EXCLUDE_TAGS          :noexport:
 ^D
-[ Header 1
-  ( "noexport-should-appear-if-not-specified-in-excludetags", [], [] )
-  [ Str "NOEXPORT"
-  , Space
-  , Str "should"
-  , Space
-  , Str "appear"
-  , Space
-  , Str "if"
-  , Space
-  , Str "not"
-  , Space
-  , Str "specified"
-  , Space
-  , Str "in"
-  , Space
-  , Str "EXCLUDE"
-  , Subscript
-    [ Str "TAGS" ]
-  , Space
-  , Span
-    ( "", [ "tag" ], [ ( "tag-name", "noexport" ) ] )
-    [ SmallCaps [ Str "noexport" ] ]
-  ]
+[ Header
+    1
+    ( "noexport-should-appear-if-not-specified-in-excludetags"
+    , []
+    , []
+    )
+    [ Str "NOEXPORT"
+    , Space
+    , Str "should"
+    , Space
+    , Str "appear"
+    , Space
+    , Str "if"
+    , Space
+    , Str "not"
+    , Space
+    , Str "specified"
+    , Space
+    , Str "in"
+    , Space
+    , Str "EXCLUDE"
+    , Subscript [ Str "TAGS" ]
+    , Space
+    , Span
+        ( "" , [ "tag" ] , [ ( "tag-name" , "noexport" ) ] )
+        [ SmallCaps [ Str "noexport" ] ]
+    ]
 ]
 ```