Add M-q to collapse whitespace

master
C. McEnroe 2020-04-07 10:48:44 -04:00
parent 0bf49817f6
commit e3f7362241
4 changed files with 19 additions and 1 deletions

View File

@ -1,4 +1,4 @@
.Dd April 6, 2020
.Dd April 7, 2020
.Dt CATGIRL 1
.Os
.
@ -429,6 +429,8 @@ Move to previous word.
Delete next word.
.It Ic M-f
Move to next word.
.It Ic M-q
Collapse all whitespace.
.It Ic Tab
Complete nick, channel, command or macro.
.El

1
chat.h
View File

@ -234,6 +234,7 @@ enum Edit {
EditDeleteNextWord,
EditPaste,
EditTranspose,
EditCollapse,
EditInsert,
EditComplete,
EditExpand,

13
edit.c
View File

@ -232,6 +232,19 @@ void edit(uint id, enum Edit op, wchar_t ch) {
buf[pos - 1] = buf[pos];
buf[pos++] = t;
}
break; case EditCollapse: {
size_t ws;
for (pos = 0; pos < len;) {
for (; pos < len && !iswspace(buf[pos]); ++pos);
for (ws = pos; ws < len && iswspace(buf[ws]); ++ws);
if (pos && ws < len) {
delete(false, pos, ws - pos - 1);
buf[pos++] = L' ';
} else {
delete(false, pos, ws - pos);
}
}
}
break; case EditInsert: {
if (reserve(pos, 1)) {

2
ui.c
View File

@ -211,6 +211,7 @@ static short colorPair(short fg, short bg) {
X(KeyMetaF, "\33f", NULL) \
X(KeyMetaL, "\33l", NULL) \
X(KeyMetaM, "\33m", NULL) \
X(KeyMetaQ, "\33q", NULL) \
X(KeyMetaU, "\33u", NULL) \
X(KeyMetaV, "\33v", NULL) \
X(KeyMetaEnter, "\33\r", "\33\n") \
@ -911,6 +912,7 @@ static void keyCode(int code) {
break; case KeyMetaF: edit(id, EditNextWord, 0);
break; case KeyMetaL: bufferList(&window->buffer);
break; case KeyMetaM: waddch(window->pad, '\n');
break; case KeyMetaQ: edit(id, EditCollapse, 0);
break; case KeyMetaU: windowScrollUnread(window);
break; case KeyMetaV: windowScroll(window, +(PAGE_LINES - 2));