Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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




  • Prev by Date: Re: Why no OpenCL output on iMac OS X Lion?
  • Next by Date: Re: Suppress Cell Labels
  • Previous by thread: recursive action
  • Next by thread: mListFFT[] simple FFT function for review