SchemePretty.tip
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
Spreitze, March 24, 1992 3:07 pm PST
Cloned from Tioga.tip on March 5, 1990 by MJS
[DEF,SHIFT,(LeftShift Down | RightShift Down | Copy Down)]
[DEF,CTRL,(LeftAlt Down)]
[
DEF,IfShift,(
SELECT
ENABLE
FROM
[SHIFT] => ~1;
ENDCASE => ~2)]
[DEF,ClickTime,(200)]
[DEF,DownClick,(~1 Down BEFORE [ClickTime])]
[DEF,UpClick,(~1 Up BEFORE [ClickTime])]
[DEF,Click,([UpClick,~1] AND [DownClick,~1])]
[DEF,LOOKKEY,(LOOK Down | BW Down | Spare1 Down | R9 Down)]
[
DEF,Letter,(
~1 Down =>
SELECT
ENABLE
FROM
[
LOOKKEY] =>
SELECT
TRIGGER
FROM
[Click,~1] => [IfShift,{ ~2 RemoveCaretLook },{ ~2 ApplyCaretLook }];
ENDCASE => [IfShift,{ ~2 RemoveLook },{ ~2 ApplyLook }];
~3
ENDCASE)]
SELECT
TRIGGER
FROM
-- top level trigger select
[Letter,
L,11,
[CTRL] => [IfShift,{ IntermediateUser SchemePrettyPrintData },{ IntermediateUser SchemePrettyPrintExpr }]];
ENDCASE.