Recode `next'isms
[
DEF,Nextisms,([IfCtrl,
[IfShift,{ ~1 IntermediateUser CtrlPrevPlaceholder },{ ~1 IntermediateUser CtrlNextPlaceholder }],
[IfShift,{ ~1 IntermediateUser PreviousPlaceholder },{ ~1 IntermediateUser NextPlaceholder }]])]
N Down [WhileKbd] => [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})]
E Down [WhileKbd] => [SelStuff,KbdBranch];
D Down [WhileKbd] => [SelStuff,KbdNode];
C Down [WhileKbd] => [SelStuff,KbdLine];
V Down [WhileKbd] => [SelStuff,KbdCompound];
W Down [WhileKbd] => [SelStuff,KbdWord];
S Down [WhileKbd] => [SelStuff,KbdSubWord];
X Down [WhileKbd] => [SelStuff,KbdChar];
Ops
DEL Down [WhileKbd] => KbdNotNull;
A Down [WhileKbd] => {KbdNotNull CaretBefore};
Z Down [WhileKbd] => {KbdNotNull CaretAfter};
Period Down [WhileKbd] => {KbdNotNull MakePointSelection};
I Down [WhileKbd] => {KbdNotNull KbdInvertPendingDelete};
J Down [WhileKbd] => {KbdNotNull NormalizeToStart};
M Down [WhileKbd] => {KbdNotNull MakePointSelection SetMesaLooks};
P Down [WhileKbd] => {KbdNotNull PrevPlace};
G Down [WhileKbd] => [IfCtrl,
{MakePointSelection CaretAfter KbdAll KbdCompound KbdSelect FindAnyDefCtl},
{MakePointSelection CaretAfter KbdAll KbdCompound KbdSelect FindAnyDef}];
[DEF,FindCase,([IfShift,{KbdNotNull ~1},{KbdNotNull ~2}])]
[
DEF,FindStuff,(~1 Down [WhileKbd] =>
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];