crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

block editor: add keys to copy/paste, delete line contents

Browse source 
FossilOrigin-Name: 757d8165a1606e3d6f7291d39296a5949aabefe6eec24228c1dc27cfa965f9d3
This commit is contained in:
crc 2019-02-18 17:10:48 +00:00
parent 040787d5ee
commit 8650e62e10
1 changed files with 22 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
example/Block-Editor.forth
View file

@ -322,12 +322,33 @@ These are helpful to quickly navigate through a block.
}}
~~~
## Erase
~~~
:editor:key<x> &Block #1024 [ #32 over store n:inc ] times drop ;
:editor:key<z> &Block @CurrentLine #64 * + #64
[ #32 over store n:inc ] times drop ;
~~~
## Copy/Paste
~~~
{{
'Copy d:create #65 allot
'CopyBlock d:create #1025 allot
---reveal---
:editor:key<b> &Block @CurrentLine #64 * + &Copy #64 copy ;
:editor:key<m> &Copy &Block @CurrentLine #64 * + #64 copy ;
:editor:key<B> &Block &CopyBlock #1024 copy ;
:editor:key<M> &CopyBlock &Block #1024 copy ;
}}
~~~
## Misc.
~~~
:editor:key<i> block:update block:write ;
:editor:key<y> @CurrentBlock block:select ;
:editor:key<x> &Block #1024 [ #32 over store n:inc ] times drop ;
:editor:key<q> block:write 'stty_-cbreak unix:system #0 unix:exit ;
:editor:key<`> tob:initialize ;
~~~