SELECT
TRIGGER
FROM
-- top level trigger select
Free up keys
Spare2 Down =>
SELECT
ENABLE
FROM
BW Down => [IfCtrl,
[IfShift,{ IntermediateUser CtrlPrevPlaceholder },{ IntermediateUser CtrlNextPlaceholder }],
[IfShift,{ IntermediateUser PreviousPlaceholder },{ IntermediateUser NextPlaceholder }]];
ENDCASE => KbdNull;
[DEF,FreeKey,(~1 Down [WhileKbd] => KbdNull)]
[FreeKey,A];
[FreeKey,Z];
[FreeKey,E];
[FreeKey,D];
[FreeKey,C];
[FreeKey,W];
[FreeKey,S];
[FreeKey,X];
Select & op
[
DEF,WhoStuff,(
SELECT
ENABLE
FROM
E Down => ~1, KbdBranch, ~2;
D Down => ~1, KbdNode, ~2;
C Down => ~1, KbdLine, ~2;
W Down => ~1, KbdWord, ~2;
S Down => ~1, KbdSubWord, ~2;
X Down => ~1, KbdChar, ~2;
ENDCASE => ~1, KbdCurSel, ~2)]
[
DEF,SelStuff,(
A Down => [WhoStuff,KbdBegin,~1];
Z Down => [WhoStuff,KbdEnd,~1];
ENDCASE => [WhoStuff,KbdAll,~1])]
[
DEF,SelOnly,(
~1 Down [WhileKbd] =>
SELECT
ENABLE
FROM
[SelStuff,~2])]
[SelOnly,P,KbdToPoint];
[SelOnly,LeftBracket,KbdSelect];
[SelOnly,RightBracket,KbdSelectPendingDelete];
[SelOnly,Arrow,KbdDelete];
ENDCASE...