Hobo.tip
To institute new tip table, type CTNL-! then checkpoint.
Shoemake, June 5, 1990 2:59 am PDT
-- 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 };
U Down -- Make and Stuff a MathChar
WHILE [CTRL] => SELECT ENABLE FROM
[SHIFT] => { StuffBox };
ENDCASE => { MakeBox };
V Down -- Open Viewer to look at MathChar node
WHILE [CTRL] => SELECT ENABLE FROM
[SHIFT] => { ViewBox };
ENDCASE;
ENDCASE.