Format imported JSON for readability in Mathematica

formatJSON.m

formatJSON[json_] := formatRawJSON@rulesToAssociations[json]

rulesToAssociations[rules_] := 
 Replace[rules, r : {__Rule} :> Association[r], {0, Infinity}]

basicTypeQ[_String | True | False | Null | (_?NumericQ)] = True;
basicTypeQ[_] = False;

formatRawJSON[json_] :=
 Switch[json,
  _?(AssociationQ[#] && VectorQ[Values[#], basicTypeQ] &),
  Column@Normal[json],
  
  _?AssociationQ,
  Column@KeyValueMap[OpenerView[{#1, formatJSON[#2]}] &, json],
  
  _?(ArrayQ[#, _, basicTypeQ] &),
  TableForm[json],
  
  _List,
  Column[formatJSON /@ json, Frame -> All],
  
  _,
  json
 ]