2 * Copyright notice from original mutt:
3 * Copyright (C) 1996-2000 Michael R. Elkins <me@mutt.org>
4 * Copyright (C) 2000 Edmund Grimley Evans <edmundo@rano.org>
6 * This file is part of mutt-ng, see http://www.muttng.org/.
7 * It's licensed under the GNU General Public License,
8 * please see the file GPL in the top level source directory.
11 #include <lib-ui/lib-ui.h>
30 /* redraw flags for mutt_enter_string() */
32 M_REDRAW_INIT = 1, /* go to end of line and redraw */
33 M_REDRAW_LINE /* redraw entire line */
36 static int my_wcwidth (wchar_t wc)
40 if (iswprint(wc) && n > 0)
49 /* combining mark / non-spacing character */
50 #define COMB_CHAR(wc) (iswprint(wc) && !wcwidth(wc))
52 static int my_wcswidth (const wchar_t * s, size_t n)
57 w += my_wcwidth (*s++);
61 static int my_addwch (wchar_t wc)
65 if (iswprint(wc) && n > 0)
66 return waddwch(stdscr, wc);
68 return wprintw (stdscr, "^%c", ((int) wc + 0x40) & 0x7f);
70 return wprintw (stdscr, "\\u%04x", (int) wc);
71 return wprintw (stdscr, "\\u%08x", (int) wc);
74 static size_t width_ceiling (const wchar_t * s, size_t n, int w1)
76 const wchar_t *s0 = s;
80 if ((w += my_wcwidth (*s)) > w1)
85 static void my_wcstombs (char *dest, ssize_t dlen, const wchar_t * src,
91 /* First convert directly into the destination buffer */
93 for (; slen && dlen >= MB_LEN_MAX; dest += k, dlen -= k, src++, slen--)
94 if ((k = wcrtomb (dest, *src, &st)) == (size_t) (-1))
97 /* If this works, we can stop now */
98 if (dlen >= MB_LEN_MAX) {
99 wcrtomb (dest, 0, &st);
103 /* Otherwise convert any remaining data into a local buffer */
105 char buf[3 * MB_LEN_MAX];
108 for (; slen && p - buf < dlen; p += k, src++, slen--)
109 if ((k = wcrtomb (p, *src, &st)) == (size_t) (-1))
111 p += wcrtomb (p, 0, &st);
113 /* If it fits into the destination buffer, we can stop now */
114 if (p - buf <= dlen) {
115 memcpy (dest, buf, p - buf);
119 /* Otherwise we truncate the string in an ugly fashion */
120 memcpy (dest, buf, dlen);
121 dest[dlen - 1] = '\0'; /* assume original dlen > 0 */
125 static size_t my_mbstowcs (wchar_t ** pwbuf, size_t * pwbuflen, size_t i, const char *buf)
133 wbuf = *pwbuf, wbuflen = *pwbuflen;
135 for (; (k = mbrtowc (&wc, buf, MB_LEN_MAX, &st)) &&
136 k != (size_t) (-1) && k != (size_t) (-2); buf += k) {
139 p_realloc(&wbuf, wbuflen);
143 *pwbuf = wbuf, *pwbuflen = wbuflen;
148 * Replace part of the wchar_t buffer, from FROM to CURPOS, by BUF.
151 static void replace_part (ENTER_STATE *state, size_t from, const char *buf)
153 /* Save the suffix */
154 size_t savelen = state->lastchar - state->curpos;
155 wchar_t *savebuf = p_new(wchar_t, savelen);
157 memcpy (savebuf, state->wbuf + state->curpos, savelen * sizeof (wchar_t));
159 /* Convert to wide characters */
160 state->curpos = my_mbstowcs(&state->wbuf, &state->wbuflen, from, buf);
162 /* Make space for suffix */
163 if (state->curpos + savelen > state->wbuflen) {
164 state->wbuflen = state->curpos + savelen;
165 p_realloc(&state->wbuf, state->wbuflen);
169 memcpy (state->wbuf + state->curpos, savebuf, savelen * sizeof (wchar_t));
170 state->lastchar = state->curpos + savelen;
176 mutt_enter_string(char *buf, size_t buflen, int y, int x, int flags,
177 int multiple, char ***files, int *numfiles,
180 int width = COLS - x - 1;
182 int pass = (flags & M_PASS);
186 wchar_t *tempbuf = 0;
188 history_class_t hclass;
194 p_clear(&mbstate, 1);
197 /* Coming back after return 1 */
198 redraw = M_REDRAW_LINE;
201 /* Initialise wbuf from buf */
203 state->lastchar = my_mbstowcs (&state->wbuf, &state->wbuflen, 0, buf);
204 redraw = M_REDRAW_INIT;
207 if (flags & (M_FILE | M_EFILE))
209 else if (flags & M_CMD)
211 else if (flags & M_ALIAS)
213 else if (flags & M_COMMAND)
215 else if (flags & M_PATTERN)
221 if (redraw && !pass) {
222 if (redraw == M_REDRAW_INIT) {
223 /* Go to end of line */
224 state->curpos = state->lastchar;
226 width_ceiling (state->wbuf, state->lastchar,
227 my_wcswidth (state->wbuf,
228 state->lastchar) - width + 1);
230 if (state->curpos < state->begin ||
231 my_wcswidth (state->wbuf + state->begin,
232 state->curpos - state->begin) >= width)
234 width_ceiling (state->wbuf, state->lastchar,
235 my_wcswidth (state->wbuf,
236 state->curpos) - width / 2);
237 wmove (stdscr, y, x);
239 for (i = state->begin; i < state->lastchar; i++) {
240 w += my_wcwidth (state->wbuf[i]);
243 my_addwch (state->wbuf[i]);
247 x + my_wcswidth (state->wbuf + state->begin,
248 state->curpos - state->begin));
252 if ((ch = km_dokey (MENU_EDITOR)) == -1) {
259 if (ch != OP_EDITOR_COMPLETE && ch != OP_EDITOR_COMPLETE_QUERY)
261 redraw = M_REDRAW_LINE;
263 case OP_EDITOR_HISTORY_UP:
264 state->curpos = state->lastchar;
265 replace_part(state, 0, mutt_history_prev(hclass));
266 redraw = M_REDRAW_INIT;
269 case OP_EDITOR_HISTORY_DOWN:
270 state->curpos = state->lastchar;
271 replace_part(state, 0, mutt_history_next(hclass));
272 redraw = M_REDRAW_INIT;
275 case OP_EDITOR_BACKSPACE:
276 if (state->curpos == 0)
280 while (i && COMB_CHAR (state->wbuf[i - 1]))
284 memmove (state->wbuf + i, state->wbuf + state->curpos,
285 (state->lastchar - state->curpos) * sizeof (wchar_t));
286 state->lastchar -= state->curpos - i;
296 redraw = M_REDRAW_INIT;
299 case OP_EDITOR_KILL_LINE:
300 state->curpos = state->lastchar = 0;
303 case OP_EDITOR_KILL_EOL:
304 state->lastchar = state->curpos;
307 case OP_EDITOR_BACKWARD_CHAR:
308 if (state->curpos == 0)
311 while (state->curpos && COMB_CHAR (state->wbuf[state->curpos - 1]))
318 case OP_EDITOR_FORWARD_CHAR:
319 if (state->curpos == state->lastchar)
323 while (state->curpos < state->lastchar
324 && COMB_CHAR (state->wbuf[state->curpos]))
329 case OP_EDITOR_BACKWARD_WORD:
330 if (state->curpos == 0)
333 while (state->curpos && iswspace (state->wbuf[state->curpos - 1]))
335 while (state->curpos && !iswspace (state->wbuf[state->curpos - 1]))
340 case OP_EDITOR_FORWARD_WORD:
341 if (state->curpos == state->lastchar)
344 while (state->curpos < state->lastchar
345 && iswspace (state->wbuf[state->curpos]))
347 while (state->curpos < state->lastchar
348 && !iswspace (state->wbuf[state->curpos]))
353 case OP_EDITOR_CAPITALIZE_WORD:
354 case OP_EDITOR_UPCASE_WORD:
355 case OP_EDITOR_DOWNCASE_WORD:
356 if (state->curpos == state->lastchar) {
360 while (state->curpos && !iswspace (state->wbuf[state->curpos]))
362 while (state->curpos < state->lastchar
363 && iswspace (state->wbuf[state->curpos]))
365 while (state->curpos < state->lastchar
366 && !iswspace (state->wbuf[state->curpos])) {
367 if (ch == OP_EDITOR_DOWNCASE_WORD)
368 state->wbuf[state->curpos] =
369 towlower (state->wbuf[state->curpos]);
371 state->wbuf[state->curpos] =
372 towupper (state->wbuf[state->curpos]);
373 if (ch == OP_EDITOR_CAPITALIZE_WORD)
374 ch = OP_EDITOR_DOWNCASE_WORD;
380 case OP_EDITOR_DELETE_CHAR:
381 if (state->curpos == state->lastchar)
385 while (i < state->lastchar && COMB_CHAR (state->wbuf[i]))
387 if (i < state->lastchar)
389 while (i < state->lastchar && COMB_CHAR (state->wbuf[i]))
391 memmove (state->wbuf + state->curpos, state->wbuf + i,
392 (state->lastchar - i) * sizeof (wchar_t));
393 state->lastchar -= i - state->curpos;
397 case OP_EDITOR_KILL_WORD:
398 /* delete to begining of word */
399 if (state->curpos != 0) {
401 while (i && iswspace (state->wbuf[i - 1]))
404 if (iswalnum (state->wbuf[i - 1])) {
405 for (--i; i && iswalnum (state->wbuf[i - 1]); i--);
410 memmove (state->wbuf + i, state->wbuf + state->curpos,
411 (state->lastchar - state->curpos) * sizeof (wchar_t));
412 state->lastchar += i - state->curpos;
417 case OP_EDITOR_KILL_EOW:
418 /* delete to end of word */
419 for (i = state->curpos;
420 i < state->lastchar && iswspace (state->wbuf[i]); i++);
421 for (; i < state->lastchar && !iswspace (state->wbuf[i]); i++);
422 memmove (state->wbuf + state->curpos, state->wbuf + i,
423 (state->lastchar - i) * sizeof (wchar_t));
424 state->lastchar += state->curpos - i;
427 case OP_EDITOR_BUFFY_CYCLE:
428 if (flags & M_EFILE) {
429 first = 1; /* clear input if user types a real key later */
430 my_wcstombs (buf, buflen, state->wbuf, state->curpos);
431 buffy_next (buf, buflen);
432 state->curpos = state->lastchar =
433 my_mbstowcs (&state->wbuf, &state->wbuflen, 0, buf);
436 else if (!(flags & M_FILE))
438 /* fall through to completion routine (M_FILE) */
440 case OP_EDITOR_COMPLETE:
441 case OP_EDITOR_COMPLETE_QUERY:
444 for (i = state->curpos; i && state->wbuf[i - 1] != ' '; i--);
445 my_wcstombs (buf, buflen, state->wbuf + i, state->curpos - i);
446 if (tempbuf && templen == state->lastchar - i &&
447 !memcmp (tempbuf, state->wbuf + i,
448 (state->lastchar - i) * sizeof (wchar_t))) {
449 mutt_select_file(buf, buflen, flags & M_EFILE ? M_SEL_FOLDER : 0,
451 set_option (OPTNEEDREDRAW);
453 replace_part (state, i, buf);
457 if (!mutt_complete (buf, buflen)) {
458 templen = state->lastchar - i;
459 p_realloc(&tempbuf, templen);
464 replace_part (state, i, buf);
466 else if (flags & M_ALIAS && ch == OP_EDITOR_COMPLETE) {
467 /* invoke the alias-menu to get more addresses */
468 for (i = state->curpos; i && state->wbuf[i - 1] != ',' &&
469 state->wbuf[i - 1] != ':'; i--);
470 for (; i < state->lastchar && state->wbuf[i] == ' '; i++);
471 my_wcstombs (buf, buflen, state->wbuf + i, state->curpos - i);
472 r = mutt_alias_complete (buf, buflen);
473 replace_part (state, i, buf);
479 } else if (flags & M_ALIAS && ch == OP_EDITOR_COMPLETE_QUERY) {
480 /* invoke the query-menu to get more addresses */
481 if ((i = state->curpos)) {
482 for (; i && state->wbuf[i - 1] != ','; i--);
483 for (; i < state->curpos && state->wbuf[i] == ' '; i++);
485 my_wcstombs (buf, buflen, state->wbuf + i, state->curpos - i);
486 mutt_query_complete (buf, buflen);
487 replace_part (state, i, buf);
490 } else if (flags & M_COMMAND) {
491 my_wcstombs (buf, buflen, state->wbuf, state->curpos);
493 if (i && buf[i - 1] == '=' &&
494 mutt_var_value_complete (buf, buflen, i))
496 else if (!mutt_command_complete (buf, buflen, i, state->tabs))
498 replace_part (state, 0, buf);
500 else if (flags & (M_FILE | M_EFILE)) {
501 my_wcstombs (buf, buflen, state->wbuf, state->curpos);
503 /* see if the path has changed from the last time */
504 if ((!tempbuf && !state->lastchar)
505 || (tempbuf && templen == state->lastchar
506 && !memcmp (tempbuf, state->wbuf,
507 state->lastchar * sizeof (wchar_t)))) {
508 mutt_select_file(buf, buflen,
509 ((flags & M_EFILE) ? M_SEL_FOLDER : 0) |
510 (multiple ? M_SEL_MULTI : 0), files, numfiles);
511 set_option (OPTNEEDREDRAW);
513 mutt_pretty_mailbox (buf);
515 mutt_history_add (hclass, buf);
520 /* file selection cancelled */
525 if (!mutt_complete (buf, buflen)) {
526 templen = state->lastchar;
527 p_realloc(&tempbuf, templen);
528 memcpy (tempbuf, state->wbuf, templen * sizeof (wchar_t));
531 BEEP (); /* let the user know that nothing matched */
532 replace_part (state, 0, buf);
538 case OP_EDITOR_QUOTE_CHAR:
542 /*ADDCH (LastKey); */
543 event = mutt_getch ();
544 if (event.ch != -1) {
550 case OP_EDITOR_TRANSPOSE_CHARS:
551 if (state->lastchar < 2)
556 if (state->curpos == 0)
558 else if (state->curpos < state->lastchar)
561 t = state->wbuf[state->curpos - 2];
562 state->wbuf[state->curpos - 2] = state->wbuf[state->curpos - 1];
563 state->wbuf[state->curpos - 1] = t;
576 /* use the raw keypress */
579 if ((ch == '#') && (flags & M_LASTFOLDER)) {
581 my_wcstombs (buf, buflen, state->wbuf, state->lastchar);
586 /* treat ENTER the same as RETURN */
591 /* quietly ignore all other function keys */
595 /* gather the octets into a wide character */
601 k = mbrtowc (&wc, &c, 1, &mbstate);
602 if (k == (size_t) (-2))
604 else if (k && k != 1) {
605 p_clear(&mbstate, 1);
610 if (first && (flags & M_CLEAR)) {
612 if (iswprint(wc)) /* why? */
613 state->curpos = state->lastchar = 0;
616 if (wc == '\r' || wc == '\n') {
617 /* Convert from wide characters */
618 my_wcstombs (buf, buflen, state->wbuf, state->lastchar);
620 mutt_history_add (hclass, buf);
626 tfiles = p_new(char *, *numfiles);
627 mutt_expand_path (buf, buflen);
628 tfiles[0] = m_strdup(buf);
634 else if (wc && (wc < ' ' || iswprint(wc))) { /* why? */
635 if (state->lastchar >= state->wbuflen) {
636 state->wbuflen = state->lastchar + 20;
637 p_realloc(&state->wbuf, state->wbuflen);
639 memmove (state->wbuf + state->curpos + 1, state->wbuf + state->curpos,
640 (state->lastchar - state->curpos) * sizeof (wchar_t));
641 state->wbuf[state->curpos++] = wc;
657 int _mutt_get_field(const char *field, char *buf, ssize_t buflen, int flags,
658 int multiple, char ***files, int *numfiles)
667 CLEARLINE(stdscr, LINES - 1);
668 waddstr (stdscr, field);
670 getyx (stdscr, y, x);
671 ret = mutt_enter_string(buf, buflen, y, x, flags, multiple, files,
674 CLEARLINE(stdscr, LINES - 1);
682 * very narrow screen might crash it
683 * sort out the input side