New answers tagged

1

Here's a fragile hack CellPrint@ Cell[ BoxData[ TemplateBox[ { GridBox[{{"1"}, {"2"}, {"3"}, {"4"}, {"5"}}] }, "InputListColumn", DisplayFunction -> (RowBox@{"(", #, ")"} &), InterpretationFunction -> ( DeleteCases[ RowBox[Prepend["{"]@Append["}"]@Riffle[Flatten@#[[1]], ","]], RowBox[{"(*", ___,...


Top 50 recent answers are included