New: Format.SimplifyJson

Author: ninmonkey

source/Errors/Err.ExpandErrorRecord.pq

@@ -6,28 +6,39 @@ let
         Err.ExpandErrorRecord.pq - start here, this is a lot simpler to use
         Err.ExpandErrorRecord.Verbose.pq - when you want an excessive amount of details
     */
-    // when you want extra details on an exception, mainly for interactive use.
+
     Err.ExpandErrorRecord = (
         exception        as any,
         optional options as nullable record
     ) => [
         Json = (source as any) as text => Text.FromBinary( Json.FromValue( source ) ),
+        // future: auto coerce exceptions and error records, so that either can be passed
+        // isUncaught = (try exception)[HasError],
+        // exception =
+        //     if not isUncaught
+        //     then exception
+        //     else try exception,
+
+        // exception = try exception catch (e) => e,
         return = [
             // Er_Type         = Value.Type( exception ), // is alway a record?
-            Err              = exception,
+            Err             = exception,
             Err.Meta        = Value.Metadata( Err ),
             ErTypeMeta      = Value.Metadata( Value.Type( Err ) ),
             ErMeta_KeyNames = Text.Combine( Record.FieldNames( Err.Meta ), ", " ),
 
-            Reason             = Err[Reason]? ?? null,
-            Message            = Err[Message]? ?? null,
-            Detail             = Err[Detail]? ?? null,
-            Message.Format     = Err[Message.Format]? ?? null,
-            Message.Parameters = Err[Message.Parameters]? ?? null,
+            Reason                  = Err[Reason]? ?? null,
+            Message                 = Err[Message]? ?? null,
+            Detail                  = Err[Detail]? ?? null,
+            Message.Format          = Err[Message.Format]? ?? null,
+            Message.Parameters      = Err[Message.Parameters]? ?? null,
+            Message.Parameters_Json =
+                Json( Message.Parameters ),
+
 
-            Expression.Stack       = Err.Meta[Expression.Stack]? ?? null,
-            Expression.Stack.Json       = Json( Expression.Stack ),
-            Expression.Stack.JsonLines  =
+            Expression.Stack           = Err.Meta[Expression.Stack]? ?? null,
+            Expression.Stack.Json      = Json( Expression.Stack ),
+            Expression.Stack.JsonLines =
                 Text.Combine(
                     List.Transform(
                         Expression.Stack,

source/Text/Format.SimplifyJson.pq

@@ -0,0 +1,59 @@
+let
+    /*
+    About:
+        I wanted a quick way to visualize JSON
+        Expanding JSON with newlines still has a lot of noice
+        I am experimenting with something shorter like yaml, but not using yaml constraints
+    this is overkill.
+    */
+    Format.SimplfyJson = (
+        source           as text,
+        optional options as nullable record
+
+    ) as text => [
+
+        // make defaults param
+        options = options ?? [
+            PadKeyValue              = true,
+            KeyValueDelim            = " ▸ ",
+            PadBraceEnding           = true,
+            TrimDoubleQuotes         = true,
+            ReplaceDoubleQuoteString = " ",
+            TrimPrefixSuffixBrace    = false
+        ],
+        // Str = [ DoubleQuote = "#(0022)" ],
+        keyValueDelim_1 = " ▸ ",
+        keyValueDelim   = ": ",
+        acc0            = source,
+        // acc1 = Text.Replace( acc0, "#(0022):{#(0022)", " => " ),
+        acc1 =
+            if not options[PadKeyValue]
+            then acc0
+            else
+                Text.Replace( acc0, "#(0022):", options[KeyValueDelim] ),
+        acc2 =
+            if not options[TrimDoubleQuotes]
+            then acc1
+            else
+                Text.Replace( acc1, "#(0022)", options[ReplaceDoubleQuoteString] ),
+        acc3 =
+            if not options[PadBraceEnding] then acc2
+            else
+                Text.Replace( acc2, "}", " }" ),
+        acc4 = // this only strips the final instance because of acc3 running first
+                // should instead be a replace first and last occurence instead
+            if not options[TrimPrefixSuffixBrace] then acc3
+            else
+                [
+                    trimSpace = Text.Trim( acc3 ),
+                    trimStart = Text.TrimStart( trimSpace, "{" ),
+                    trimEnd   = Text.TrimEnd( trimStart, "}" ),
+                    return    = trimEnd
+
+                ][return],
+
+        return = acc3
+
+    ][return]
+    in
+        Format.SimplfyJson