blob: 94c886d9a0d20665ae9e1c15b7d2bfc5f4012d81 (
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]{(-(.-(1M#p.))M#c}
@[PPAGE]{(-(.-(-M#p.))M#c}
@[LEFT]{(-M#c}
@[SLEFT]{(-(.--W.)M#c}
@[RIGHT]{(1M#c}
@[SRIGHT]{(-(.-W.)M#c}
@[UP]{(-(.-B.)M#c}
@[DOWN]{(-(.-L.)M#c}
|
