xfnw/plan9fox
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

samterm: move cursor to next tabstop or non-space character before backspacing in spaces mode. this makes it less annoying to backspace (it's more like tabs).

Browse source
This commit is contained in:
ppatience0 2013-05-08 17:47:48 -04:00
parent 36287edc88
commit 6a2b5055f5
1 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
sys/src/cmd/samterm/main.c
View file

@ -359,19 +359,29 @@ getcol(Rasp *r, long p)
return col;
}
int
sptotab(Rasp *r, long p)
{
int i, col, n;
col = getcol(r, p);
if((n = maxtab - col % maxtab) == maxtab)
n = 0;
for(i = 0; p < r->nrunes && raspc(r, p)==' ' && i<n; p++, i++)
;
return i;
}
long
del(Rasp *r, long o, long p)
{
int i, col, n;
int i;
if(--p < o)
return o;
if(!spacesindent || raspc(r, p)!=' ')
return p;
col = getcol(r, p) + 1;
if((n = col % maxtab) == 0)
n = maxtab;
for(i = 0; p-1>=o && raspc(r, p-1)==' ' && i<n-1; --p, i++)
for(i = 0; p-1>=o && raspc(r, p-1)==' ' && i<maxtab-1; --p, i++)
;
return p>=o? p : o;
}
@ -622,6 +632,8 @@ type(Flayer *l, int res) /* what a bloody mess this is */
switch(c){
case '\b':
case 0x7F: /* del */
if(spacesindent)
a += sptotab(&t->rasp, a);
l->p0 = del(&t->rasp, l->origin, a);
break;
case 0x15: /* ctrl-u */