This may be a bridge too far, but is there any hope that the community windows could some day display Mathematica code in a code block in the same way it would be displayed by the front end? As one of countless possible examples, below is a few lines from a notebook. An image shows the front end display; a code block displays what we see when we share the code in the community:
The image:
The code block:
In[1]:= \!\(
\*SubsuperscriptBox[\(\[Sum]\), \(i = 1\), \(2\)]\(
\*SubsuperscriptBox[\(\[Sum]\), \(j = 1\), \(3\)]
\*SubscriptBox[\(x\), \(i\)]
\*SubscriptBox[\(y\), \(j\)]\)\) + xy
Out[1]= xy + Subscript[x, 1] Subscript[y, 1] +
Subscript[x, 2] Subscript[y, 1] + Subscript[x, 1] Subscript[y, 2] +
Subscript[x, 2] Subscript[y, 2] + Subscript[x, 1] Subscript[y, 3] +
Subscript[x, 2] Subscript[y, 3]
In[2]:= data = RandomVariate[NormalDistribution[10, 2], {100}];
In[3]:= h = DistributionFitTest[data, Automatic, "HypothesisTestData"]
Out[3]= HypothesisTestData[DistributionFitTest, {CompressedData["
1:eJwNwwlMU3cAB2BwKpqMgiNgKWjf8e97feMIAUEQE38qklp0MhUExBpqcURM
8IjUWQdWQYtWdBmLo6IBMUtljOEoEVBRkEA0wcohihZSWjEcUek2sqog+iUf
rc7bmu3p4eGh+dJLYhWnZ/sj66qtz3JYjJn3e6R6oxiNT31Xu7IlmKc09uf3
SSD29e7ZkRaE/bF/KsaUwfB4W6z7ai4YOUJeWe3kcpjiRjMz/aRoWdaSIUqV
YvGE3LIumUK3aaqpyUhBk29rEF+g8GZPtPP6ZQp5C/v/bqmgMJF6Y9XqQQpL
Cud7VQ9RKG4c7rK6KahydZPVYTS+1/Y11KXQeDK85UqllgYK2oc4M411ulqz
Xy+NpslZz/N2GgO2uJ1rKQbRM78sKuIZMIFVH8vjGXAhsmPeWxj0epb/at/B
YC60MfrZDwxeF42MqOoY3F40d+RAO4Ox3x3d9S8YlGuMSZ2fGGyedfbkRrII
0L1UXo1jQSekxCRlsnDNOJTqvSwM+2oGb+pZpDkf3aw8zULqFbPAdZ/Fid1L
FY3tLJqPh27YOMBCE1SqL7SzCJ819+x1sBDMw5cynCwq3ge3GJQET60792Vt
IrAdHD91P5XgVdbI9sgcAjLv2/9Hcwl2uXyrdtUQ/LzE0pbRTMAYDMaKLoJt
gv/rokECkf6DIBoiGA0nIX/ZCcTaZLdphGBi9u6tnH8JNI5I1bibIGNBWeEt
bxleFiS0GUQyUHrDvaWBMoRaM6dNlTJoT658N10lw08Dzo41zTKsP+ft//xr
Djdiy8pioji8MUVUurdyUPgMRR1Vc2g44RMfdYhDdUjHb4mnOdSnfPOjj5FD
Qo2GTrdysBP1g2knhyPjx7QRUxy6JbZav2AeJaVB7o7lPDYWtObXRfJwPLyW
+F0ij7HWNJHzKI/NjxM/LjPx2PSPorv+AY/hfq5d3ckjnFLEtw3wEKrZGdck
j5NxsWmPF8pR6ooQJ0vkKFENpp8xyFH4atTy8KwcxX9IPwScl6NzYhuluyiH
RdQccDZdwKX9dw6eUQloNW//b+qwgIY1K+p6tQIUgaveJYWFQNL/7PhFURh0
JaKuscAwfAY9xFyG
"], "SampleToNull", 1,
Rational[1, 20], {
NormalDistribution[\[FormalX], \[FormalY]], Automatic},
Automatic, {}}, {
"Normality" -> 0, "EqualVariance" -> 0, "Symmetry" -> 0}]
In[4]:= h["TestDataTable", All]
Out[4]= \!\(\*
StyleBox[
TagBox[GridBox[{
{"\<\"\"\>", "\<\"Statistic\"\>", "\<\"P\[Hyphen]Value\"\>"},
{"\<\"Anderson\[Hyphen]Darling\"\>", "0.26567387640156426`",
"0.7107460217838588`"},
{"\<\"Baringhaus\[Hyphen]Henze\"\>", "0.18479055252232968`",
"0.7119724703961013`"},
{"\<\"Cramér\[Hyphen]von Mises\"\>", "0.033791663220545665`",
"0.78709640974233`"},
{"\<\"Jarque\[Hyphen]Bera ALM\"\>", "0.6432812775686165`",
"0.699341965726569`"},
{"\<\"Kolmogorov\[Hyphen]Smirnov\"\>", "0.040861424234799215`",
"0.9576728271188263`"},
{"\<\"Kuiper\"\>", "0.07048981471736177`", "0.9083140585044757`"},
{"\<\"Mardia Combined\"\>", "0.6432812775686165`",
"0.699341965726569`"},
{"\<\"Mardia Kurtosis\"\>", "0.16435378746000665`",
"0.8694526410554851`"},
{"\<\"Mardia Skewness\"\>", "0.5168068023177183`",
"0.4722069968624859`"},
{"\<\"Pearson \\!\\(\\*SuperscriptBox[\\(\[Chi]\\),\\(2\\)]\\)\"\>",
"8.68`", "0.5627179611333251`"},
{"\<\"Shapiro\[Hyphen]Wilk\"\>", "0.9907564675227472`",
"0.7255903077612338`"},
{"\<\"Watson \\!\\(\\*SuperscriptBox[\\(U\\),\\(2\\)]\\)\"\>",
"0.030535847526280475`", "0.8120605947534496`"}
},
AutoDelete->False,
GridBoxAlignment->{
"Columns" -> {{Left}}, "ColumnsIndexed" -> {},
"Rows" -> {{Automatic}}, "RowsIndexed" -> {}, "Items" -> {},
"ItemsIndexed" -> {}},
GridBoxDividers->{
"Columns" -> {}, "ColumnsIndexed" -> {2 -> GrayLevel[0.7]},
"Rows" -> {}, "RowsIndexed" -> {2 -> GrayLevel[0.7]},
"Items" -> {}, "ItemsIndexed" -> {}},
GridBoxItemSize->{
"Columns" -> {{Automatic}}, "ColumnsIndexed" -> {},
"Rows" -> {{Automatic}}, "RowsIndexed" -> {}, "Items" -> {},
"ItemsIndexed" -> {}},
GridBoxSpacings->{
"Columns" -> {{Automatic}}, "ColumnsIndexed" -> {},
"Rows" -> {{Automatic}}, "RowsIndexed" -> {}, "Items" -> {},
"ItemsIndexed" -> {}}],
"Grid"], "DialogStyle",
StripOnInput->False]\)