izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ed and VE: add command Y

Browse Source
This commit is contained in:
Virgil Dupras 2020-06-10 17:27:14 -04:00
parent 8f0e51a21c
commit bc951a5ff1
5 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
blk/101
View File

@ -12,5 +12,5 @@ F xxx: find typed FBUF in block, starting from current
position+1. If not found, don't move. position+1. If not found, don't move.
I xxx: insert typed IBUF at cursor. "I" shadows core word. Use I xxx: insert typed IBUF at cursor. "I" shadows core word. Use
"i" to access it. "i" to access it.
X ( n -- ): Delete X chars after cursor and place in IBUF. Y: Copy n characters after cursor into IBUF, n being length of
E: Run X with n = length of FBUF. FBUF. (cont.)

2
blk/102 Normal file
View File

@ -0,0 +1,2 @@
X ( n -- ): Delete X chars after cursor and place in IBUF.
E: Run X with n = length of FBUF.

2
blk/112
View File

@ -8,4 +8,4 @@
SWAP 0 FILL SWAP 0 FILL
EDPOS @ 64 / _pln ; EDPOS @ 64 / _pln ;
: E FBUF _blen X ; : E FBUF _blen X ;
: Y FBUF _blen icpy ;

4
blk/122
View File

@ -6,8 +6,8 @@
'w' moves forward by "modifier" words. 'b' moves backward. 'w' moves forward by "modifier" words. 'b' moves backward.
'W' moves to end-of-word. 'B', backwards. 'W' moves to end-of-word. 'B', backwards.
'I', 'F', 'X' and 'E' invoke the corresponding command from the 'I', 'F', 'Y', 'X' and 'E' invoke the corresponding command
Block Editor (B100). Refer to documentation there. from the Block Editor (B100). Refer to documentation there.
'o' inserts a blank line after the cursor. 'O', before. 'o' inserts a blank line after the cursor. 'O', before.

1
blk/128
View File

@ -3,6 +3,7 @@
: $] BLK> @ acc@ + selblk ; : $] BLK> @ acc@ + selblk ;
: $I mode! 'I' EMIT IBUF 1 buftype _I contents mode! SPC ; : $I mode! 'I' EMIT IBUF 1 buftype _I contents mode! SPC ;
: $F mode! 'F' EMIT FBUF 2 buftype _F setpos mode! SPC ; : $F mode! 'F' EMIT FBUF 2 buftype _F setpos mode! SPC ;
: $Y Y ;
: $E E contents ; : $E E contents ;
: $X acc@ X contents ; : $X acc@ X contents ;
: $h -1 cmv ; : $l 1 cmv ; : $k -64 cmv ; : $j 64 cmv ; : $h -1 cmv ; : $l 1 cmv ; : $k -64 cmv ; : $j 64 cmv ;