Add capitalize-word, upcase-word, downcase-word functions to the

editor.  Bindings follow the Emacs conventions (i.e., M-c, M-u, M-d).

1 files changed, 54 insertions, 0 deletions

diff --git a/enter.c b/enter.c
index a9307223..6795ddc7 100644
--- a/enter.c
+++ b/enter.c
@@ -331,6 +331,60 @@ int _mutt_enter_string (unsigned char *buf, size_t buflen, int y, int x,
 	  }
 	  break;
 
+	case OP_EDITOR_CAPITALIZE_WORD:
+	  if (curpos == lastchar)
+	  {
+	    BEEP ();
+	    break;
+	  }
+	  while (curpos < lastchar && ISSPACE (buf[curpos]))
+	    curpos++;
+	  if (curpos < lastchar)
+	  {
+	    buf[curpos] = toupper (buf[curpos]);
+	    curpos++;
+	  }
+	  if (curpos == lastchar || ISSPACE (buf[curpos]))
+	  {	  
+	    if (!pass)
+	    {
+	      if (curpos >= begin + width)
+		begin = curpos - width / 2;
+	      else
+		move (y, x + curpos - begin);
+	      redraw = M_REDRAW_LINE;
+	    }
+	    break;
+	  }
+	  
+	  /* fall through */
+	case OP_EDITOR_UPCASE_WORD:
+	case OP_EDITOR_DOWNCASE_WORD:
+	  if (curpos == lastchar)
+	  {
+	    BEEP();
+	    break;
+	  }
+	  while (curpos < lastchar && ISSPACE (buf[curpos]))
+	    curpos++;
+	  while (curpos < lastchar && !ISSPACE(buf[curpos]))
+	  {
+	    if (ch == OP_EDITOR_UPCASE_WORD)
+	      buf[curpos] = toupper (buf[curpos]);
+	    else /* DOWNCASE_WORD, CAPITALIZE_WORD */
+	      buf[curpos] = tolower (buf[curpos]);
+	    curpos++;
+	  }
+	  if (!pass)
+	  {
+	    if (curpos >= begin + width)
+	      begin = curpos - width / 2;
+	    else
+	      move (y, x + curpos - begin);
+	    redraw = M_REDRAW_LINE;
+	  }
+	  break;
+	
 	case OP_EDITOR_DELETE_CHAR:
 	  if (curpos != lastchar)
 	  {