collapseos/blk/128

: $w EDPOS @ BLK( + acc@ 0 DO
    BEGIN C@+ WS? UNTIL BEGIN C@+ WS? NOT UNTIL LOOP
    1- BLK( - pos! ;
: $W EDPOS @ BLK( + acc@ 0 DO
    1+ BEGIN C@+ WS? NOT UNTIL BEGIN C@+ WS? UNTIL LOOP
    2- BLK( - pos! ;
: $b EDPOS @ BLK( + acc@ 0 DO
    1- BEGIN C@- WS? NOT UNTIL BEGIN C@- WS? UNTIL LOOP
    2+ BLK( - pos! ;
: $B EDPOS @ BLK( + acc@ 0 DO
    BEGIN C@- WS? UNTIL BEGIN C@- WS? NOT UNTIL LOOP
    1+ BLK( - pos! ;
VE: load Block Editor and reuse some of its words 2020-06-04 20:20:35 -04:00			`: $w EDPOS @ BLK( + acc@ 0 DO`
VE: Add H and L Also, add MODE indirection. 2020-06-04 19:20:40 -04:00			`BEGIN C@+ WS? UNTIL BEGIN C@+ WS? NOT UNTIL LOOP`
VE: add command 'f' Kinda proud of this one. Efficiently piggy-backing on the Block Editor, keeping things simple, and yet, building power into the editor. 2020-06-06 21:46:46 -04:00			`1- BLK( - pos! ;`
VE: load Block Editor and reuse some of its words 2020-06-04 20:20:35 -04:00			`: $W EDPOS @ BLK( + acc@ 0 DO`
VE: replace 'W' with 'b' and implement 'W' and 'B' Which are end-of-word movements. 2020-06-06 21:01:35 -04:00			`1+ BEGIN C@+ WS? NOT UNTIL BEGIN C@+ WS? UNTIL LOOP`
VE: add command 'f' Kinda proud of this one. Efficiently piggy-backing on the Block Editor, keeping things simple, and yet, building power into the editor. 2020-06-06 21:46:46 -04:00			`2- BLK( - pos! ;`
VE: replace 'W' with 'b' and implement 'W' and 'B' Which are end-of-word movements. 2020-06-06 21:01:35 -04:00			`: $b EDPOS @ BLK( + acc@ 0 DO`
			`1- BEGIN C@- WS? NOT UNTIL BEGIN C@- WS? UNTIL LOOP`
VE: add command 'f' Kinda proud of this one. Efficiently piggy-backing on the Block Editor, keeping things simple, and yet, building power into the editor. 2020-06-06 21:46:46 -04:00			`2+ BLK( - pos! ;`
VE: replace 'W' with 'b' and implement 'W' and 'B' Which are end-of-word movements. 2020-06-06 21:01:35 -04:00			`: $B EDPOS @ BLK( + acc@ 0 DO`
VE: Add H and L Also, add MODE indirection. 2020-06-04 19:20:40 -04:00			`BEGIN C@- WS? UNTIL BEGIN C@- WS? NOT UNTIL LOOP`
VE: add command 'f' Kinda proud of this one. Efficiently piggy-backing on the Block Editor, keeping things simple, and yet, building power into the editor. 2020-06-06 21:46:46 -04:00			`1+ BLK( - pos! ;`