Recode `next'isms
[
DEF,Nextisms,([IfCtrl,
[IfShift,{ ~1 IntermediateUser CtrlPrevPlaceholder },{ ~1 IntermediateUser CtrlNextPlaceholder }],
[IfShift,{ ~1 IntermediateUser PreviousPlaceholder },{ ~1 IntermediateUser NextPlaceholder }]])]
[WhileKbd,N Down,=> [Nextisms,KbdNotNull]];
[KbdUp, WHILE EmptyKbdNext WHILE NullKbd => [Nextisms,]];
Selections
[
DEF,SelStuff,(
SELECT
ENABLE
FROM
BS Down => {KbdBegin ~1 KbdSelect};
Space Down => {KbdAll ~1 KbdSelect};
ENDCASE => {KbdEnd ~1 KbdSelect})]
[WhileKbd,E Down,=> [SelStuff,KbdBranch]];
D Down [Zork] => [SelStuff,KbdNode];
[WhileKbd,D Down,=> [SelStuff,KbdNode]];
[WhileKbd,C Down,=> [SelStuff,KbdLine]];
[WhileKbd,V Down,=> [SelStuff,KbdCompound]];
[WhileKbd,W Down,=> [SelStuff,KbdWord]];
[WhileKbd,S Down,=> [SelStuff,KbdSubWord]];
[WhileKbd,X Down,=> [SelStuff,KbdChar]];
Ops
[WhileKbd,DEL Down,=> KbdNotNull];
[WhileKbd,A Down,=> {KbdNotNull CaretBefore}];
[WhileKbd,Z Down,=> {KbdNotNull CaretAfter}];
[WhileKbd,Period Down,=> {KbdNotNull MakePointSelection}];
[WhileKbd,I Down,=> {KbdNotNull KbdInvertPendingDelete}];
[WhileKbd,J Down,=> {KbdNotNull NormalizeToStart}];
[WhileKbd,M Down,=> {KbdNotNull MakePointSelection SetMesaLooks}];
[WhileKbd,P Down,=> {KbdNotNull PrevPlace}];
[WhileKbd,G Down,=> [IfCtrl,
{MakePointSelection CaretAfter KbdAll KbdCompound KbdSelect FindAnyDefCtl},
{MakePointSelection CaretAfter KbdAll KbdCompound KbdSelect FindAnyDef}]];
[DEF,FindCase,([IfShift,{KbdNotNull ~1},{KbdNotNull ~2}])]
[
DEF,FindStuff,([WhileKbd,~1 Down,=>
SELECT
ENABLE
FROM
BS Down => [FindCase,FindPrev~2Caseless,FindPrev~2];
Space Down => [FindCase,FindAny~2Caseless,FindAny~2];
ENDCASE => [FindCase,FindNext~2Caseless,FindNext~2]])]
[FindStuff,F,];
[FindStuff,W,Word];
[FindStuff,D,Def];