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

dynamic input alias

• To: mathgroup at smc.vnet.net
• Subject: [mg124669] dynamic input alias
• From: Arturas Acus <arturas.acus at tfai.vu.lt>
• Date: Mon, 30 Jan 2012 05:10:51 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com

Dear group,

I wonder can "dynamic" input aliases be defined in Mathematica?

For example, suppose I define input alias

SetOptions[System`
$FrontEndSession,InputAliases->Union[Join[CurrentValue[System`
$FrontEndSession,InputAliases],
{"mv"->SubscriptBox[RowBox[{"\[LeftAngleBracket]","\[SelectionPlaceholder]","\[RightAngleBracket]"}],
StyleBox[TagBox[RowBox[{"{","\[Placeholder]","}"}],{#,RunningMark}&],FontColor->RunningColor]]}]]];

And then evaluate in the notebook 

RunningMark="MyMark"; 
RunningColor=RGBColor[1,0,0];

Now 
I would like that when using input alias in the notebook it would
evaluate with above set values, i.e. RunningMark being replaced by
"MyMark", and RunningColor with provided color.  

Is it possible to realize this "dynamic" input alias?

Sincerely, Arturas Acus