Module: Debug utils: added SimplifyJson

Author: ninmonkey

source-modules/DebugUtils.module.pq

@@ -44,8 +44,12 @@
     // stop folding without forcing buffer or index column enumerations
     StopFold = (source as table) as table => Table.StopFolding(source),
 
+    // example output: [ Core = "2.129.255.0" ]
+    Versions.Module = Module.Versions(),
+
     // see: https://blog.crossjoin.co.uk/2023/12/10/getting-different-versions-of-data-with-value-versions-in-power-query/
     Versions       = (value as any) as table => Value.Versions( value ),
+
     // see: https://blog.crossjoin.co.uk/2023/12/10/getting-different-versions-of-data-with-value-versions-in-power-query/
     Versions.Which = (value as any) as any   => Value.VersionIdentity( value ),
 
@@ -77,5 +81,57 @@
         json = Text.FromBinary( Json.FromValue( source, config[Encoding] ) , config[Encoding] ),
         json_expanded = Text.Replace( json, "},{", "},#(cr,lf){"),
         return = if config[Expand] then json_expanded else json
+    ][return],
+
+    // takes a string of json, replaces values to simplify it
+    SimplifyJson = (
+        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]
 ]