Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (* http://stackoverflow.com/questions/8353879 *)
- Unprotect[CenterDot, Times];
- (* ClearAll[CenterDot, Times] *)
- CenterDot = Times;
- Times /: MakeBoxes[Times[a__], fmt_] :=
- With[{slots = Array[Slot, Length[{a}]],
- rslots = Riffle[Array[Slot, Length[{a}]], "\[CenterDot]"],
- boxes = ToBoxes /@ {a}},
- TemplateBox[boxes, "CenterDot",
- DisplayFunction -> (RowBox[rslots] &),
- InterpretationFunction -> (RowBox[slots] &),
- Editable -> True, Selectable -> True]];
- Protect[CenterDot, Times];
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement