collapseos/blk/128

: $w EDPOS @ BLK( + acc@ 0 DO
    BEGIN C@+ WS? UNTIL BEGIN C@+ WS? NOT UNTIL LOOP
    1- BLK( - 1023 MIN EDPOS ! ;
: $W EDPOS @ BLK( + acc@ 0 DO
    BEGIN C@- WS? UNTIL BEGIN C@- WS? NOT UNTIL LOOP
    1+ BLK( - DUP 0< IF DROP 0 THEN EDPOS ! ;
: handleM ( c -- f )
    DUP '0' '9' =><= IF num 0 EXIT THEN
    DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN
    UPPER 'Q' = ;
: modeM ['] handleM MODE ! mode! SPC ;
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: load Block Editor and reuse some of its words 2020-06-04 20:20:35 -04:00			`1- BLK( - 1023 MIN EDPOS ! ;`
			`: $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: load Block Editor and reuse some of its words 2020-06-04 20:20:35 -04:00			`1+ BLK( - DUP 0< IF DROP 0 THEN EDPOS ! ;`
VE: add mode indicator in status bar 2020-06-04 20:07:02 -04:00			`: handleM ( c -- f )`
WE: why case-insensitive again? 2020-06-04 18:52:59 -04:00			`DUP '0' '9' =><= IF num 0 EXIT THEN`
VE: add mode indicator in status bar 2020-06-04 20:07:02 -04:00			`DUP CMD 2+ C! CMD FIND IF EXECUTE ELSE DROP THEN`
WE: why case-insensitive again? 2020-06-04 18:52:59 -04:00			`UPPER 'Q' = ;`
VE: refactor mode indicators The indicator is going to be empty most of the time and will be emitted by the mode changer directly. That's going to the upper-right corner and the status bar avoids emitting in that area. 2020-06-05 10:38:05 -04:00			`: modeM ['] handleM MODE ! mode! SPC ;`