blob: fb7678c37c05d2ecff7d5ec1900ae66b1092ac4b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
! Define some default function key macros !
! edit command line to move <n> chars, updating existing move ops !
@#c{{U.c
<-A- ("=%.n|-A- )"=-%.n|0''">-D1;'-D>
.">
-A- )"= -S(\U.v .,Z-2D 0A- C"=2DQ.v|2D-Q.v'%.c | I(Q.c '
| I(Q.c '
"> Q.c\IC) | -Q.c\IR) '
}}
! go <n> pages of lines down !
@#p{
U.c (ESLINESONSCREEN)*Q.cL
}
! Function key macros !
@{DC}{}
@{HOME}{(-(.-(0L.))M#c}
@{END}{(-(.-(:L"S.-1|Z'))M#c}
@{NPAGE}{(-(.-(M#p.))M#c}
@{PPAGE}{(-(.-(-M#p.))M#c}
@{LEFT}{(-M#c}
@{SLEFT}{(-(.--W.)M#c}
@{RIGHT}{(M#c}
@{SRIGHT}{(-(.-W.)M#c}
@{UP}{(-(.-B.)M#c}
@{DOWN}{(-(.-L.)M#c}
|
