izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests 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 most commands interpret a zero as a 1 so that they can have an
effect. 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 block. Any change madde to the previously selected block is
saved beforehand. saved beforehand.
'[' and ']' advance the selected block by modifier. '[' 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 'h' and 'l' move the cursor by "modifier" characters. 'j' and
lines. (cont.) '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 ! ; : pos+ POS @ + 1024 MOD POS ! ;
: cmv ( n -- , char movement ) acc@ * pos+ ; : cmv ( n -- , char movement ) acc@ * pos+ ;
: $; 0acc ; : $; 0acc ;
: $G ACC @ selblk 0acc ; : $g ACC @ selblk 0acc ;
: $[ BLK> @ acc@ - selblk ; : $[ BLK> @ acc@ - selblk ;
: $] BLK> @ acc@ + selblk ; : $] BLK> @ acc@ + selblk ;
: $H -1 cmv ; : $L 1 cmv ; : $K -64 cmv ; : $J 64 cmv ; : $h -1 cmv ; : $l 1 cmv ; : $k -64 cmv ; : $j 64 cmv ;
: $W 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( - 1023 MIN POS ! ; 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 ! ; 1+ BLK( - DUP 0< IF DROP 0 THEN POS ! ;

4
blk/128
View File

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