// Last update: August 20, 2004

		/* ------------------------------------------------
		Bozho's macros file for usage with the TEX language of the "Multi Edit" editor of AMS
		For some help, see the end of this file or Help|CMAC Language
		--------------------------------------------------*/

//----------------------------------------------------
//
macro_file mtex
//
//----------------------------------------------------




//*************************>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
//			BEGINNING of Shortcut macros that must only be run
//*************************


void test{ 	Text("This test macro is only for testing perposes and nothing else"); }

void ab
{
	Text("and $$ be");Left;Left;Left;Left;
}
void bb
{
	Text("\\bibitem{}");Left;
}
void dg
{
	Text("differential geometry");
}
void lb{
	Text("let $$ be ");
	Left;Left;Left;Left;Left;
}
void nin
{
	Text("\\noindent");
}

//sectioning
void sec{
	eol;cr;cr;cr;cr;
	Text("%-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->>");cr;
	Text("\\section{}");cr;
	Text("\\label{}");cr;
	Text("%			BEGINNING OF SECTION~\\ref{}");cr;cr;cr;cr;cr;cr;cr;
	Text("%			END OF SECTION~\\ref{}");cr;
	Text("%<<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<");cr;
	cr;cr;
Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;eol;Left;
}
void ssec{
	eol;cr;cr;cr;cr;
	Text("%-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->-->>");cr;
	Text("\\subsection{}");cr;
	Text("\\label{}");cr;
	Text("%			beginning of subsection~\\ref{}");cr;cr;cr;cr;cr;cr;cr;
	Text("%			end of subsection~\\ref{}");cr;
	Text("%<<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<");cr;
	cr;cr;
Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;eol;Left;
}
void sssec{
	eol;cr;cr;cr;cr;
	Text("%-->-->-->-->-->-->-->-->-->-->-->-->-->-->>");cr;
	Text("\\subsubsection{}");cr;
	Text("\\label{}");cr;
	Text("%			beginning of subsubsection~\\ref{}");cr;cr;cr;cr;cr;cr;cr;
	Text("%			end of subsubsection~\\ref{}");cr;
	Text("%<<--<--<--<--<--<--<--<--<--<--<--<--<--<--<--<");cr;
	cr;cr;
Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;Up;eol;Left;
}
void secr
{
	Text("Section~\\ref{}");Left;
}

// Math constructions
void split
{
  int Org_Refresh=Refresh;
  Refresh=false;
	if(!At_EOL)eol;
	if(C_col!=1){cr;Goto_Col(1);}
  Right;Right;Right;Right;Text("\\begin{split}");Right;Right;Right;Right;
	cr;cr;cr;
  Right;Right;Right;Right;Text("\\end{split}");
	Up;Up;eol;
	Refresh=Org_Refresh;
}
void gather
{
  int Org_Refresh=Refresh;
  Refresh=false;
	if(!At_EOL)eol;
	if(C_col!=1){cr;Goto_Col(1);}
  Right;Right;Right;Right;Text("\\begin{gather}");Right;Right;Right;Right;
  Text("\\label{}");cr;cr;cr;
  Right;Right;Right;Right;Text("\\end{gather}");
	Up;Up;Up;Eol;Left;
	Refresh=Org_Refresh;
}


//*************************
//			END of Shortcut macros that must  only be run
//*************************<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<




//*************************>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
// BEGINNING of Keystroke Macros
//*************************


#include <keys.sh>
//#include <Win32.sh>


// Constants for MY TEX CoMmanDS
// syntaxes #define _name  MY_TEX_CMDS+number
// #define _ MY_TEX_CMDS+


#define MY_TEX_CMDS 16*1024 // should be this or greater number
#define _RunMacro  MY_TEX_CMDS


// parentheses, breckets, braces, etc.
#define _parentheses  MY_TEX_CMDS+1
#define _brakets  MY_TEX_CMDS+2
#define _braces  MY_TEX_CMDS+3 // overrides list tags wcmd=1103
#define _mathbraces  MY_TEX_CMDS+4
#define _super  MY_TEX_CMDS+5
#define _sub  MY_TEX_CMDS+6
#define _SuperMinusFirst MY_TEX_CMDS+7
#define _DownUpBraces MY_TEX_CMDS+8
#define _LangleRangle MY_TEX_CMDS+9
#define _LeftRightParentheses MY_TEX_CMDS+10
#define _bigLeftRightParentheses MY_TEX_CMDS+11
#define _LeftRightBrackets MY_TEX_CMDS+12
#define _bigLeftRightBrackets MY_TEX_CMDS+13
#define _LeftRightBraces MY_TEX_CMDS+14
#define _bigLeftRightBraces MY_TEX_CMDS+15

// math begin--end constructions
#define _dollars  MY_TEX_CMDS+21
#define _VarDollars  MY_TEX_CMDS+22
#define _displaymath  MY_TEX_CMDS+23
#define _equation  MY_TEX_CMDS+24
#define _align  MY_TEX_CMDS+25
#define _multline  MY_TEX_CMDS+26
#define _BeginEnd MY_TEX_CMDS+27
#define _BeginEndBook MY_TEX_CMDS+28
#define _footnote MY_TEX_CMDS+29
#define _BeginEndProof MY_TEX_CMDS+30

// cite, ref and label constructions
#define _cite MY_TEX_CMDS+41
#define _ref MY_TEX_CMDS+42
#define _Ref2 MY_TEX_CMDS+43
#define _eref MY_TEX_CMDS+44
#define _eRef2 MY_TEX_CMDS+45
#define _label MY_TEX_CMDS+46
#define _Label2 MY_TEX_CMDS+47

// Math signs: summ, product, integral, fractions, etc.
#define _fraction MY_TEX_CMDS+61
#define _PartialFraction MY_TEX_CMDS+62
#define _OrdinaryFraction MY_TEX_CMDS+63
#define _summation MY_TEX_CMDS+64
#define _product MY_TEX_CMDS+65
#define _integral MY_TEX_CMDS+66

// symbols and other math constructions
#define _prime MY_TEX_CMDS+71
#define _colon MY_TEX_CMDS+72
#define _MappingTo  MY_TEX_CMDS+73
#define _MapsTo  MY_TEX_CMDS+74

//Misc
#define _EndEnter  MY_TEX_CMDS+81
#define _DelFirst  MY_TEX_CMDS+82
#define _PutPercent  MY_TEX_CMDS+83

// ------------------------------------------------------------
// Greek letters: beginning
#define _alpha  MY_TEX_CMDS+101
#define _beta  MY_TEX_CMDS+102
#define _gamma  MY_TEX_CMDS+103
#define _Gamma2  MY_TEX_CMDS+104
#define _delta  MY_TEX_CMDS+105
#define _Delta2  MY_TEX_CMDS+106
#define _epsilon  MY_TEX_CMDS+107
#define _varepsilon  MY_TEX_CMDS+108
#define _zeta  MY_TEX_CMDS+109
#define _eta MY_TEX_CMDS+110
#define _theta  MY_TEX_CMDS+111
#define _vartheta  MY_TEX_CMDS+112
#define _Theta2  MY_TEX_CMDS+113
#define _iota  MY_TEX_CMDS+114
#define _kappa  MY_TEX_CMDS+115
#define _varkappa  MY_TEX_CMDS+116
#define _lambda  MY_TEX_CMDS+117
#define _Lambda2  MY_TEX_CMDS+118
#define _mu  MY_TEX_CMDS+119
#define _nu  MY_TEX_CMDS+120
#define _xi  MY_TEX_CMDS+121
#define _Xi2  MY_TEX_CMDS+122
// \omicron is simpli "o" or "O"
#define _pi  MY_TEX_CMDS+123
#define _Pi2  MY_TEX_CMDS+124
#define _rho  MY_TEX_CMDS+125
#define _varrho  MY_TEX_CMDS+126
#define _sigma  MY_TEX_CMDS+127
#define _varsigma  MY_TEX_CMDS+128
#define _Sigma2  MY_TEX_CMDS+129
#define _tau  MY_TEX_CMDS+130
#define _upsilon  MY_TEX_CMDS+131
#define _Upsilon2  MY_TEX_CMDS+132
#define _phi  MY_TEX_CMDS+133
#define _varphi  MY_TEX_CMDS+134
#define _Phi2  MY_TEX_CMDS+135
#define _chi  MY_TEX_CMDS+136
#define _psi  MY_TEX_CMDS+137
#define _Psi2  MY_TEX_CMDS+138
#define _omega  MY_TEX_CMDS+139
#define _Omega2  MY_TEX_CMDS+140
// Greek letters: end1
// ------------------------------------------------------------



// My (extension specific) redefinitions
// of key commands for .TeX files
//  ----------------------------------------------------------------------


void Keys2Macros{
	//VK_'s from Win32.sh have no effect:
// Syntaxes
//  WCMD_Add(Cur_window,_ConstantDefinedAbove,0,K_KeyCombination,0,"CommandName","");
//
	WCMD_Add(Cur_window,_RunMacro,0,K_F10,0,"MeUtil1^RunMac","");//Make RunMac ergonomic (for TeX only)!
// parentheses, breckets, braces, etc.
	WCMD_Add(Cur_window,_parentheses,0,K_ShftF11,0,"parentheses","");
	WCMD_Add(Cur_window,_brakets,0,K_AltF11,0,"brakets","");
	WCMD_Add(Cur_window,_braces,0,K_F11,0,"braces","");
	WCMD_Add(Cur_window,_mathbraces,0,K_CtrlF11,0,"mathbraces","");
	WCMD_Add(Cur_window,_super,0,K_Ctrl6,0,"super","");
	WCMD_Add(Cur_window,_sub,0,K_CtrlDash,0,"sub","");
	WCMD_Add(Cur_window,_SuperMinusFirst,0,K_AltDash,0,"SuperMinusFirst","");
	WCMD_Add(Cur_window,_DownUpBraces,0,K_CtrlShftF11,0,"DwwnUpBraces","");
  WCMD_Add(Cur_window,_LangleRangle,0,K_AltPipe,0,"LangleRangle","");
  WCMD_Add(Cur_window,_LeftRightParentheses,0,K_AltCParen,0,"LeftRightParentheses","");
  WCMD_Add(Cur_window,_bigLeftRightParentheses,0,K_AltOParen,0,"bigLeftRightParentheses","");
  WCMD_Add(Cur_window,_LeftRightBrackets,0,K_AltCSquare,0,"LeftRightBrackets","");
  WCMD_Add(Cur_window,_bigLeftRightBrackets,0,K_AltOSquare,0,"bigLeftRightBrackets","");
  WCMD_Add(Cur_window,_LeftRightBraces,0,K_AltCCurly,0,"LeftRightBraces","");
  WCMD_Add(Cur_window,_bigLeftRightBraces,0,K_AltOCurly,0,"bigLeftRightBraces","");
// math begin--end constructions
	WCMD_Add(Cur_window,_dollars,0,K_F12,0,"dollars","");
	WCMD_Add(Cur_window,_VarDollars,0,K_ShftF12,0,"VarDollars","");
	WCMD_Add(Cur_window,_displaymath,0,K_CtrlShftF12,0,"displaymath","");
	WCMD_Add(Cur_window,_equation,0,K_CtrlF12,0,"equation","");
	WCMD_Add(Cur_window,_align,0,K_AltF12,0,"align","");
	WCMD_Add(Cur_window,_multline,0,K_AltShftF12,0,"multline","");
	WCMD_Add(Cur_window,_BeginEnd,0,K_AltB,0,"BeginEnd","");
	WCMD_Add(Cur_window,_BeginEndBook,0,K_AltShftB,0,"BeginEndBook","");
  WCMD_Add(Cur_window,_footnote,0,K_AltShftN,0,"footnote","");
  WCMD_Add(Cur_window,_BeginEndProof,0,K_AltShftP,0,"BeginEndProof","");
// cite, ref and label constructions
	WCMD_Add(Cur_window,_cite,0,K_AltC,0,"cite","");
	WCMD_Add(Cur_window,_ref,0,K_AltR,0,"ref","");
	WCMD_Add(Cur_window,_Ref2,0,K_AltShftR,0,"Ref2","");
	WCMD_Add(Cur_window,_eref,0,K_AltW,0,"eref","");
	WCMD_Add(Cur_window,_eRef2,0,K_AltShftW,0,"eRef2","");
	WCMD_Add(Cur_window,_label,0,K_AltL,0,"label","");
	WCMD_Add(Cur_window,_Label2,0,K_AltShftL,0,"Label2","");
// Math signs: summ, product, integral, fractions, etc.
  WCMD_Add(Cur_window,_fraction,0,K_CtrlDivide,0,"fraction","");
  WCMD_Add(Cur_window,_PartialFraction,0,K_AltDivide,0,"PartialFraction","");
  WCMD_Add(Cur_window,_OrdinaryFraction,0,K_AltShftDivide,0,"OrdinaryFraction","");
  WCMD_Add(Cur_window,_summation,0,K_CtrlAdd,0,"summation","");
  WCMD_Add(Cur_window,_product,0,K_CtrlMultiply,0,"product","");
  WCMD_Add(Cur_window,_integral,0,K_CtrlSubtract,0,"integral","");
// symbols and other math constructions
  WCMD_Add(Cur_window,_prime,0,K_AltSQuote,0,"prime","");
  WCMD_Add(Cur_window,_colon,0,K_AltColon,0,"colon","");
	WCMD_Add(Cur_window,_MappingTo,0,K_AltRight,0,"MappingTo","");
	WCMD_Add(Cur_window,_MapsTo,0,K_AltShftRight,0,"MapsTo","");
//Misc
	WCMD_Add(Cur_window,_EndEnter,0,K_CtrlAccept,0,"EndEnter","");
	WCMD_Add(Cur_window,_DelFirst,0,K_AltDel,0,"DelFirst","");
	WCMD_Add(Cur_window,_PutPercent,0,K_Alt5,0,"PutPercent","");
// ------------------------------------------------------------
// Greek letters: beginning
	WCMD_Add(Cur_window,_alpha,0,K_CtrlA,0,"alpha","");
	WCMD_Add(Cur_window,_beta,0,K_CtrlB,0,"beta","");
	WCMD_Add(Cur_window,_gamma,0,K_CtrlG,0,"gamma","");
	WCMD_Add(Cur_window,_Gamma2,0,K_CtrlShftG,0,"Gamma2","");
	WCMD_Add(Cur_window,_delta,0,K_CtrlD,0,"delta","");
	WCMD_Add(Cur_window,_Delta2,0,K_CtrlShftD,0,"Delta2","");
	WCMD_Add(Cur_window,_epsilon,0,K_AltShftE,0,"epsilon","");
	WCMD_Add(Cur_window,_varepsilon,0,K_CtrlE,0,"varepsilon","");
	WCMD_Add(Cur_window,_zeta,0,K_CtrlShftZ,0,"zeta","");
	WCMD_Add(Cur_window,_eta,0,K_CtrlH,0,"eta","");
	WCMD_Add(Cur_window,_theta,0,K_CtrlT,0,"theta","");
	WCMD_Add(Cur_window,_vartheta,0,K_AltShftT,0,"vartheta","");
	WCMD_Add(Cur_window,_Theta2,0,K_CtrlShftT,0,"Theta2","");
	WCMD_Add(Cur_window,_iota,0,K_CtrlI,0,"iota","");
	WCMD_Add(Cur_window,_kappa,0,K_AltShftK,0,"kappa","");
	WCMD_Add(Cur_window,_varkappa,0,K_CtrlShftK,0,"varkappa","");
	WCMD_Add(Cur_window,_lambda,0,K_CtrlL,0,"lambda","");
	WCMD_Add(Cur_window,_Lambda2,0,K_CtrlShftL,0,"Lambda2","");
	WCMD_Add(Cur_window,_mu,0,K_CtrlM,0,"mu","");
	WCMD_Add(Cur_window,_nu,0,K_CtrlN,0,"nu","");
	WCMD_Add(Cur_window,_xi,0,K_AltShftX,0,"xi","");
	WCMD_Add(Cur_window,_Xi2,0,K_CtrlShftX,0,"Xi2","");
// \omicron is simply "o" & "O"
	WCMD_Add(Cur_window,_pi,0,K_CtrlP,0,"pi","");
	WCMD_Add(Cur_window,_Pi2,0,K_CtrlShftP,0,"Pi2","");
	WCMD_Add(Cur_window,_rho,0,K_CtrlR,0,"rho","");
	WCMD_Add(Cur_window,_varrho,0,K_CtrlShftR,0,"varrho","");
	WCMD_Add(Cur_window,_sigma,0,K_CtrlS,0,"sigma","");
	WCMD_Add(Cur_window,_varsigma,0,K_AltShftS,0,"varsigma","");
	WCMD_Add(Cur_window,_Sigma2,0,K_CtrlShftS,0,"Sigma2","");
	WCMD_Add(Cur_window,_tau,0,K_CtrlQ,0,"tau","");
	WCMD_Add(Cur_window,_upsilon,0,K_CtrlU,0,"upsilon","");
	WCMD_Add(Cur_window,_Upsilon2,0,K_CtrlShftU,0,"Upsilon2","");
	WCMD_Add(Cur_window,_phi,0,K_AltShftF,0,"phi","");
	WCMD_Add(Cur_window,_varphi,0,K_CtrlF,0,"varphi","");
	WCMD_Add(Cur_window,_Phi2,0,K_CtrlShftF,0,"Phi2","");
	WCMD_Add(Cur_window,_chi,0,K_CtrlShftC,0,"chi","");
	WCMD_Add(Cur_window,_psi,0,K_CtrlW,0,"psi","");
	WCMD_Add(Cur_window,_Psi2,0,K_CtrlShftW,0,"Psi2","");
	WCMD_Add(Cur_window,_omega,0,K_CtrlO,0,"omega","");
	WCMD_Add(Cur_window,_Omega2,0,K_CtrlShftO,0,"Omega2","");
// Greek letters: end
// ------------------------------------------------------------
}


void Init{
 	if(First_Run)
		Load_Macro_File("MTeX");
	RM("Keys2Macros");
}


//*************************
// And now, the commands themselfs
//*************************


// parentheses, breckets, braces, etc.
void parentheses //TO <ShftF11>
   {   Text("()");Left; }
void brakets //TO <AltF11>
   {   Text("[]");Left; }
void braces //TO <F11>
   {   Text("{}");Left; }
void mathbraces //TO <CtrlF11>
   {   Text("\\{\\}");Left;Left; }
void super //TO <Ctrl^>
   {   Text("^{}");Left; }
void sub //TO <Ctrl_>
   {   Text("_{}");Left; }
void SuperMinusFirst //TO <AltShft->
   {   Text("^{-1}"); }
void DwwnUpBraces //TO <CtrlShftF11>
   {   Text("_{}^{}");Left;Left;Left;Left; }
void LangleRangle //TO <AltShft|>
   {	Text("\\langle  |  \\rangle"); Left;Left;Left;Left;Left;Left;Left;Left;Left;Left;Left;}
void LeftRightParentheses //TO <AltShft)>
   {	Text("\\left(  \\right)");Left;Left;Left;Left;Left;Left;Left;Left; }
void bigLeftRightParentheses //TO <AltShft(>
   {	Text("\\bigl(  \\bigr)");Left;Left;Left;Left;Left;Left;Left; }
void LeftRightBrackets //TO <Alt]>
   {	Text("\\left[  \\right]");Left;Left;Left;Left;Left;Left;Left;Left; }
void bigLeftRightBrackets //TO <Alt[>
   {	Text("\\bigl[  \\bigr]");Left;Left;Left;Left;Left;Left;Left; }
void LeftRightBraces //TO <AltShft}>
   {	Text("\\left\\{  \\right\\}");Left;Left;Left;Left;Left;Left;Left;Left;Left; }
void bigLeftRightBraces //TO <AltShft{>
   {	Text("\\bigl\\{  \\bigr\\}");Left;Left;Left;Left;Left;Left;Left;Left; }

// math begin--end constructions
void dollars //TO <F12>
   {   Text(" $$");Left; }
void VarDollars //TO <ShiftF12>
{
  int Org_Refresh=Refresh;
  Refresh=false;
	if(!At_EOL)eol;
	if(C_col!=1){cr;Goto_Col(1);}
	Text("\\(");
	cr;cr;cr;
  Text("\\)");
	Left;Left;Up;Up;
	Refresh=Org_Refresh;
}
void displaymath //TO <CtrlShiftF12>
{
  int Org_Refresh=Refresh;
  Refresh=false;
	if(!At_EOL)eol;
	if(C_col!=1){cr;Goto_Col(1);}
	Text("\\[");
	cr;cr;cr;
  Text("\\]");
	Left;Left;Up;Up;
	Refresh=Org_Refresh;
}
void equation //TO <CtlF12>
{
  int Org_Refresh=Refresh;
  Refresh=false;
	if(!At_EOL)eol;
	if(C_col!=1){cr;Goto_Col(1);}
  Right;Right;Right;Right;Text("\\begin{equation}");Right;Right;Right;Right;
  Text("\\label{}");cr;cr;cr;
  Right;Right;Right;Right;Text("\\end{equation}");
	Up;Up;Up;Eol;Left;
	Refresh=Org_Refresh;
}
void align //TO <AltF12>
{
  int Org_Refresh=Refresh;
  Refresh=false;
	if(!At_EOL)eol;
	if(C_col!=1){cr;Goto_Col(1);}
  Right;Right;Right;Right;Text("\\begin{align}");Right;Right;Right;Right;
  Text("\\label{}");cr;cr;cr;
  Right;Right;Right;Right;Text("\\end{align}");
	Up;Up;Up;Eol;Left;
	Refresh=Org_Refresh;
}
void multline //TO <AltShftF12>
{
  int Org_Refresh=Refresh;
  Refresh=false;
	if(!At_EOL)eol;
	if(C_col!=1){cr;Goto_Col(1);}
  Right;Right;Right;Right;Text("\\begin{multline}");Right;Right;Right;Right;
  Text("\\label{}");cr;cr;cr;
  Right;Right;Right;Right;Text("\\end{multline}");
	Up;Up;Up;Eol;Left;
	Refresh=Org_Refresh;
}
void BeginEnd //TO <AltB>
{
  int Org_Refresh=Refresh;
  Refresh=false;
	if(!At_EOL)eol;
	if(C_col!=1){cr;Goto_Col(1);}
  Right;Right;Right;Right;Text("\\begin{}");Right;Right;Right;Right;
  Text("\\label{}");cr;cr;cr;
  Right;Right;Right;Right;Text("\\end{}");
	Left;
	Refresh=Org_Refresh;
}
void BeginEndBook //TO <AltShftB>
{
  int Org_Refresh=Refresh;
  Refresh=false;
	if(!At_EOL)eol;
	if(C_col!=1){cr;Goto_Col(1);}
  Right;Right;Right;Right;Text("\\begin{}");Right;Right;Right;Right;
  Text("\\Label[]{}");cr;cr;cr;
  Right;Right;Right;Right;Text("\\end{}");
	Left;
	Refresh=Org_Refresh;
}
void footnote //TO <AltShftN>
{
  int Org_Refresh=Refresh;
  Refresh=false;
	if(!At_EOL)eol;Text("~%");
	if(C_col!=1){cr;Goto_Col(1);}
  Text("\\footnote{~%");cr;cr;cr;
  Text("%");cr;
	Text("}");Left;Up;Up;Up;
	Refresh=Org_Refresh;
}
void BeginEndProof //TO <AltShftP>
{
  int Org_Refresh=Refresh;
  Refresh=false;
	if(!At_EOL)eol;
	if(C_col!=1){cr;Goto_Col(1);}
	cr;
  Right;Right;Right;Right;Text("\\begin{Proof}");cr;cr;cr;
  Right;Right;Right;Right;Text("\\end{Proof}");
	Up;Up;Eol;
	Refresh=Org_Refresh;
}

// cite, ref and label constructions
void cite //TO <AltC>
   {   Text("~\\cite{}");Left; }
void ref //TO <AltR>
   {   Text("~\\ref{}");Left; }
void Ref2 //TO <AltShftR>
   {   Text("~\\Ref[]{}");Left;Left;Left; }
void eref //TO <AltW>
   {   Text("~\\eref{}");Left; }
void eRef2 //TO <AltShftW>
   {   Text("~\\eRef[]{}");Left;Left;Left; }
void label //TO <AltL>
   {   Right;Right;Right;Right;Text("\\label{}");Left; }
void Label2 //TO <AltShftL>
   {   Right;Right;Right;Right;Text("\\Label[]{}");Left;Left;Left; }

// Math signs: summ, product, integral, fractions, etc.
void fraction //TO <CtrlDivide>
   {   Text("\\frac{}{}");Left;Left;Left; }
void PartialFraction //TO <AltDivide>
   {   Text("\\frac{\\pd }{\\pd }");Left;Left;Left;Left;Left;Left;Left; }
void OrdinaryFraction //TO <AltShftDivide>
   {   Text("\\frac{\\od }{\\od }");Left;Left;Left;Left;Left;Left;Left; }
void summation //TO <CtrlAdd,>
   {   Text("\\sum_{}^{}");Left;Left;Left;Left; }
void product //TO <CtrlMultiply,>
   {   Text("\\prod_{}^{}");Left;Left;Left;Left; }
void integral //TO <CtrlSubtract >
   {   Text("\\int\\limits_{}^{}");Left;Left;Left;Left; }

// symbols and other math constructions
void prime	{	Text("\\prime");} //TO <Atl'>
void colon	{	Text("\\colon");} //TO <AtlShft:>
void MappingTo	{	Text(" \\colon \\to ");Left;Left;Left;Left;} //TO <AtlRigh>
void MapsTo	{	Text(" \\colon \\mapsto ");Left;Left;Left;Left;Left;Left;Left;Left;} //TO <AtlShftRigh>

//Misc
void EndEnter { eol;cr; } //TO <CtrlGreyENTER>
void DelFirst //TO <AltDEL>
   {	goto_Col(1); del_Char; Down; goto_Col(1); }
void PutPercent //TO <Alt5>
   {	goto_Col(1); Text("% ");Down; goto_Col(1); }

// GREEK LETTERS: beginning
void alpha	{	Text("\\alpha");} //TO <CtrlA> (overrides uppercasing next letter)
void beta		{	Text("\\beta");} //TO <CtrlB>  (overrides cursor down the screen)
void gamma	{	Text("\\gamma");} //TO <CtrlG>  (overrides open pane)
void Gamma2	{	Text("\\Gamma");} //TO <CtrlShftG>
void delta	{ Text("\\delta");} //TO <CtrlD>
void Delta2	{ Text("\\Delta");} //TO <CtrlShftD>
void epsilon{	Text("\\epsilon");} //TO <AltShftE>
void varepsilon{ Text("\\varepsilon");} //TO <CtrlE>
void zeta		{	Text("\\zeta");} //TO <CtrlShftZ>
void eta		{	Text("\\eta");} //TO <CtrlH>
void theta	{	Text("\\theta");} //TO <CtrlT>
void vartheta{ Text("\\vartheta");} //TO <AltShftT>
void Theta2	{	Text("\\Theta");} //TO <CtrlShftT>
void iota		{ Text("\\iota");} //TO <CtrlI>
void kappa	{	Text("\\kappa");} //TO <AltShftK>  (<CTRLK> blocks the macros)
void varkappa{Text("\\varkappa");} //TO <CtrlShftK>
void lambda	{ Text("\\lambda");} //TO <CtrlL> (overrides dark green raw)
void Lambda2{ Text("\\Lambda");} //TO <CtrlShftL>
void mu			{	Text("\\mu");} //TO <CtrlM>  (overrides open pane)
void nu			{	Text("\\nu");} //TO <CtrlN>
void xi			{	Text("\\xi");} //TO <AltShftX>
void Xi2		{	Text("\\Xi");} //TO <CtrlShftX>
// \omicron is simply "o" & "O"
void pi			{	Text("\\pi");} //TO <CtrlP>
void Pi2		{	Text("\\Pi");} //TO <CtrlShftP> (overrides print)
void rho		{	Text("\\rho");} //TO <CtrlR>
void varrho	{	Text("\\varrho");} //TO <CtrlShftR>
void sigma	{	Text("\\sigma");} //TO <CtrlS>  (overrides spelling)
void varsigma{Text("\\varsigma");} //TO <AltShftS>
void Sigma2	{	Text("\\Sigma");} //TO <CtrlShftS>
void tau		{	Text("\\tau");} //TO <CtrlQ> (overrides cursor up the screen)
void upsilon{	Text("\\upsilon");} //TO <CtrlU>
void Upsilon2{ Text("\\Upsilon");} //TO <CtrlShftU>
void phi		{	Text("\\phi");} //TO <AltShftF>
void varphi	{	Text("\\varphi");} //TO <CtrlF> (overrides find)
void Phi2		{	Text("\\Phi");} //TO <CtrlShftF>
void chi		{	Text("\\chi");} //TO <CtrlShftC>
void psi		{	Text("\\psi");} //TO <CtrlW>
void Psi2		{	Text("\\Psi");} //TO <CtrlShftW>
void omega	{	Text("\\omega");} //TO <CtrlO>
void Omega2	{	Text("\\Omega");} //TO <CtrlShftO>

// GREEK LETTERS: end


//*************************
// END of Keystroke Macros
//*************************<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<




//*************************
// HELP INFO. For more details, see Help|CMAC Language
//*************************


/*
The functions listed below are assignable to a key combination.
Most of them are already assigned (check your Keymap in the Install Menu).

Block_Begin     Delete_Block Home            Page_Down        Undent
Back_Space      Del_Char     Indent          Page_Up          Undo
Block_Begin     Del_Line     Key_Record      Right            UP
Block_End       Down         Last_Page_Break Save_File        Word_Left
Block_Off       Eof          Left            Str_Block_Begin  Word_Right
Col_Block_Begin Eol          Mark_Pos        Tab_Left
Copy_Block      First_Word   Mark_Block      Tab_Right
CR              Goto_Mark    Next_Page_Break Tof
*/


/*-------------------------------------------------------------------------------------
Assignable to a Key  key or key combinations (file ...\Srs\Key.sh)


#DEFINE K_String1String2
												where the following combinations are possible:
 String1 = nothing, Shft, Ctrl, Alt, CtrlShft, AltShft
 String2 = F1, F2, ..., F12, Enter, Tab, Esc, BS, Space,
 					 Up, Down, Left, Right, PgUp, PgDown, Home, End, Ins, Del,
					 Subtract, Add, Multiply, Divide, Accept,
					 A, B, ..., Z,
and
 String1 = nothing, Alt
 String2 = Quote, Tilde, 1, 3, 4, 5, 7, 8, 9, 0,
 					 Ex,Pound, Dollar, Percent, Amp, Asterisk, OParen, CParen, Equal, Plus,
					 SemiColon, Colon, SQuote, DQuote, Comma, OAngle, CAngle,  Period, Slash, Question
and
 String1 = nothing, Alt, Ctrl
 String2 = 2, 6, At, Caret, Dash, UScore, BSlash, Pipe, OSquare, OCurly, CSquare, CCurly,
and
 String1 = nothing
 String2 = ScrollLock


 			Glassary:
'BS' is the Backspace Key
'Subtract' is '-'; 'Add' is '+';  'Multiply' is '*'; 'Divide' is '/' on the numeric keypad
'Accept' is the Enter key on the numeric keypad


'Asterisk' is '*' 'Comma' is ','   'OAngle' is '<'        'Plus' is '+' c
'At' is '@'       'CParen' is ')'  'OCurly' is '{'        'Pound' is '#'
'Amp' is '&'      'CSquare' is ']' 'OParen' is '('        'Question' is '?'
'BSlash' is '\'   'Dash' is '-'    'OQuote' is ' `'(down~)'SemiColon' is ';'
'CAngle' is '>'   'Dollar' is '$'  'OSquare' is '['       'Slash' is '/'(NOT the rock star!)
'Caret' is '^'    'DQuote' is '"'  'Percent' is '%'       'SQuote' is '''
'CCurly' is '}'   'Equal' is '='   'Period' is '.'        'Tilde' is '~'
'Colon' is ':'    'Ex' is '!'      'Pipe' is '|'          'UScore' is '_'

-------------------------------------------------------------------------------------*/