izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 04:48:06 +11:00
Code Issues Releases Wiki Activity

WE: why case-insensitive again?

Browse Source
This commit is contained in:
Virgil Dupras 2020-06-04 18:52:59 -04:00
parent 11843cc613
commit 98e820cf51
4 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
blk/121
View File

@ -4,13 +4,13 @@ keystokes described below. The modifier starts at zero, but
most commands interpret a zero as a 1 so that they can have an
effect.
'G' selects the block specified by the modifier as the current
'g' selects the block specified by the modifier as the current
block. Any change madde to the previously selected block is
saved beforehand.
'[' and ']' advance the selected block by modifier.
';' resets the modifier
';' resets the modifier. 'q' quits.
H and L move the cursor by "modifier" characters. J and K, by
lines. (cont.)
'h' and 'l' move the cursor by "modifier" characters. 'j' and
'k', by lines. (cont.)

2
blk/122
View File

@ -1 +1 @@
W moves forward by a word. S moves backward by a word.
'w' moves forward by a word. 'W' moves backward by a word.

8
blk/127
View File

@ -3,11 +3,11 @@
: pos+ POS @ + 1024 MOD POS ! ;
: cmv ( n -- , char movement ) acc@ * pos+ ;
: $; 0acc ;
: $G ACC @ selblk 0acc ;
: $g ACC @ selblk 0acc ;
: $[ BLK> @ acc@ - selblk ;
: $] BLK> @ acc@ + selblk ;
: $H -1 cmv ; : $L 1 cmv ; : $K -64 cmv ; : $J 64 cmv ;
: $W POS @ BLK( + BEGIN C@+ WS? UNTIL BEGIN C@+ WS? NOT UNTIL
: $h -1 cmv ; : $l 1 cmv ; : $k -64 cmv ; : $j 64 cmv ;
: $w POS @ BLK( + BEGIN C@+ WS? UNTIL BEGIN C@+ WS? NOT UNTIL
1- BLK( - 1023 MIN POS ! ;
: $S POS @ BLK( + BEGIN C@- WS? UNTIL BEGIN C@- WS? NOT UNTIL
: $W POS @ BLK( + BEGIN C@- WS? UNTIL BEGIN C@- WS? NOT UNTIL
1+ BLK( - DUP 0< IF DROP 0 THEN POS ! ;

4
blk/128
View File

@ -1,7 +1,7 @@
: handle ( c -- f )
UPPER DUP '0' '9' =><= IF num 0 EXIT THEN
DUP '0' '9' =><= IF num 0 EXIT THEN
DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN
'Q' = ;
UPPER 'Q' = ;
: VE clrscr 0acc 0 POS ! contents
BEGIN status setpos KEY handle UNTIL 18 aty ;