| Variable curpos |
Variable curpos |
| Variable screenw |
Variable screenw |
| |
|
| |
: at-deltaxy ( dx dy -- ) |
| |
#esc emit '[ emit dup abs 0 .r 0< IF 'A ELSE 'B THEN emit |
| |
#esc emit '[ emit dup abs 0 .r 0< IF 'D ELSE 'C THEN emit ; |
| |
|
| : cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ; |
: cygwin? ( -- flag ) s" TERM" getenv s" cygwin" str= ; |
| : at-xy? ( -- x y ) |
: at-xy? ( -- x y ) |
| key? drop \ make sure prep_terminal() is executed |
key? drop \ make sure prep_terminal() is executed |
| ['] xclear-tib ctrl K bindkey |
['] xclear-tib ctrl K bindkey |
| ['] xfirst-pos ctrl A bindkey |
['] xfirst-pos ctrl A bindkey |
| ['] xend-pos ctrl E bindkey |
['] xend-pos ctrl E bindkey |
| ['] xretype bl bindkey |
['] xretype ctrl L bindkey |
| history IF ['] (xenter) #lf bindkey THEN |
history IF ['] (xenter) #lf bindkey THEN |
| history IF ['] (xenter) #cr bindkey THEN |
history IF ['] (xenter) #cr bindkey THEN |
| ['] xtab-expand #tab bindkey |
['] xtab-expand #tab bindkey |
