Make square parenthesis to grow around an arbitrary expression (in output)?

Questions
1

This is a subroutine that I use to put round parentheses around an arbitrary expression (in output).

dExP [expr_]: = TraditionalForm @ Style ["" [expr]];

Parentheses grow according to the size of the expression.

Is there something similar for square brackets?

2

This works with double parentheses

Wpar.png
Wpar.png774×180 36.8 KB

3

Just remove or move TraditionalForm inside of the parentheses:

dExP[expr_] := Style[""[TraditionalForm@expr]];
dExP[x^x^x]

5151Буферобмена01.png
5151Буферобмена01.png775×194 20.9 KB

4

I would do it this way:

wrapInRoundParentheses[expr_] := 
  DisplayForm@RowBox[{"(", expr, ")"}];
wrapInSquareBrackets[expr_] := DisplayForm@RowBox[{"[", expr, "]"}];
5

Thank you all,but the parentheses do not grow enough in the case of square brackets.

6

According to this answer, you should specify SpanMaxSize -> Infinity styling directive:

wrapInSquareBrackets[expr_] := DisplayForm@StyleBox[RowBox[{"[", expr, "]"}], SpanMaxSize -> Infinity]

8109Буферобмена02.png
8109Буферобмена02.png769×556 42.4 KB

7

Thank you very much Alexey. All perfect. It’s a bit difficult to know everything.