get rid of auxiliary brackets
- To: mathgroup at smc.vnet.net
- Subject: [mg125319] get rid of auxiliary brackets
- From: Arturas Acus <arturas.acus at tfai.vu.lt>
- Date: Tue, 6 Mar 2012 05:59:30 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
Dear Group,
Please consider the following simplified notation rules
In[1]:=
MakeBoxes[TC[name_,{group_String},{ind___},s_Symbol][],StandardForm]:=With[{pf=Function@@{TC[Slot[1],{group},Slot/@Range[2,Length[{ind}]+1],s][]}},
TagBox[RowBox[{TagBox[MakeBoxes[name],Editable->True],RowBox[{""}]}],InterpretTemplate[pf]]
]
In[2]:= TC[u,{"CL30"},{},s][] * TC[v,{"CL30"},{},s][]
Out[2]:= (u) (v)
How to get rid of auxiliary () brackets?
Most probably these brackets are introduced by formating rules of
Times.
Please keep in mind that this is simplified version and I would like to
hide the inside stucture of outer TagBox from Times (and other commands
of similar precedence). These bracketing do not appear if Plus is used
instead of Times or NonCommutativeMultiply.
Sincerely Arturas Acus