<> <> <> OPTIONS Fast; <<-- Miscellaneous macro definitions to standardize certain conventions>> [DEF,ClickTime,(200)] [DEF,DownClick,(~1 Down BEFORE [ClickTime])] [DEF,UpClick,(~1 Up BEFORE [ClickTime])] [DEF,Click,([UpClick,~1] AND [DownClick,~1])] <<>> <<-- Define control and shift keys:>> [DEF,CTRL,(Spare3 Down | Ctrl Down)] [DEF,SHIFT,(LeftShift Down | RightShift Down)] [DEF,IfCtrl,(SELECT ENABLE FROM [CTRL] => ~1; ENDCASE => ~2)] [DEF,IfShift,(SELECT ENABLE FROM [SHIFT] => ~1; ENDCASE => ~2)] [DEF,Letter,( ~1 Down => SELECT ENABLE FROM BW Down => SELECT TRIGGER FROM [Click,~1] => [IfShift,{ ~2 RemoveCaretLook },{ ~2 ApplyCaretLook }]; ENDCASE => [IfShift,{ ~2 RemoveLook },{ ~2 ApplyLook }]; ~3 ENDCASE)] SELECT TRIGGER FROM [Letter,H,7, [CTRL] => SELECT TRIGGER FROM [Click,H] => [IfShift,{ ViewBox Squawk }, { SelectMatchingPlaceholderBrackets MakeBox StuffBox }]; ENDCASE => [IfShift,{ ViewBox },{ MakeBox StuffBox }]]; NEXT Down WHILE [CTRL] WHILE [SHIFT] => { SelectMatchingPlaceholderBrackets }; Spare2 Down WHILE [CTRL] WHILE [SHIFT] => { SelectMatchingPlaceholderBrackets }; <> < SELECT ENABLE FROM>> <<[SHIFT] => { StuffBox };>> < { MakeBox };>> <<>> <> < SELECT ENABLE FROM>> <<[SHIFT] => { ViewBox };>> <> ENDCASE.