Add "Title Case" coercion method (crt) (#17)

Also add other examples to README.

README.markdown

@@ -118,8 +118,10 @@ There's also a variant for searching and a variant for grepping.
 
 Want to turn `fooBar` into `foo_bar`?  Press `crs` (coerce to
 snake\_case).  MixedCase (`crm`), camelCase (`crc`), snake\_case
-(`crs`), and UPPER\_CASE (`cru`) are all just 3 keystrokes away.  These
-commands support [repeat.vim](https://github.com/tpope/vim-repeat).
+(`crs`), UPPER\_CASE (`cru`), dash-case (`cr-`), dot.case (`cr.`),
+space case (`cr<space>`), and Title Case (`crt`) are all just 3
+keystrokes away.  These commands support
+[repeat.vim](https://github.com/tpope/vim-repeat).
 
 ## Installation
 

doc/abolish.txt

@@ -159,6 +159,7 @@ characters:
   k:       kebab-case (not usually reversible; see |abolish-coercion-reversible|)
   .:       dot.case (not usually reversible; see |abolish-coercion-reversible|)
   <space>: space case (not usually reversible; see |abolish-coercion-reversible|)
+  t:       Title Case (not usually reversible; see |abolish-coercion-reversible|)
 
 For example, cru on a lowercase word is a slightly easier to type equivalent
 to gUiw.

plugin/abolish.vim

@@ -142,14 +142,19 @@ function! s:dotcase(word)
   return substitute(s:snakecase(a:word),'_','.','g')
 endfunction
 
+function! s:titlecase(word)
+  return substitute(s:spacecase(a:word), '\(\<\w\)','\=toupper(submatch(1))','g')
+endfunction
+
 call extend(Abolish, {
       \ 'camelcase':  s:function('s:camelcase'),
       \ 'mixedcase':  s:function('s:mixedcase'),
       \ 'snakecase':  s:function('s:snakecase'),
       \ 'uppercase':  s:function('s:uppercase'),
       \ 'dashcase':   s:function('s:dashcase'),
       \ 'dotcase':    s:function('s:dotcase'),
-      \ 'spacecase':  s:function('s:spacecase')
+      \ 'spacecase':  s:function('s:spacecase'),
+      \ 'titlecase':  s:function('s:titlecase')
       \ }, 'keep')
 
 function! s:create_dictionary(lhs,rhs,opts)
@@ -569,6 +574,7 @@ call extend(Abolish.Coercions, {
       \ 'k': Abolish.dashcase,
       \ '.': Abolish.dotcase,
       \ ' ': Abolish.spacecase,
+      \ 't': Abolish.titlecase,
       \ "function missing": s:function("s:unknown_coercion")
       \}, "keep")