Editing Simple Macros to quote and unquote a word

{{review}}
{{TipImported
|id=844
|previous=843
|next=846
|created=January 5, 2005
|complexity=basic
|author=Anders Thøgersen
|version=5.7
|rating=1/7
|category1=
|category2=
}}
Here are some simple mappings that can be used to quote and unquote a word. Place the cursor over a word and press <code>qw</code> to place single quotes, or <code>qd</code> to place double quotes around the word. To remove quotes press <code>wq</code>.

<pre>
" 'quote' a word
nnoremap qw :silent! normal mpea'<Esc>bi'<Esc>`pl
" double "quote" a word
nnoremap qd :silent! normal mpea"<Esc>bi"<Esc>`pl
" remove quotes from a word
nnoremap wq :silent! normal mpeld bhd `ph<CR>
</pre>

==Comments==
The tip doesn't work for single character words, but this does:
<pre>
nnoremap qw :silent! normal "zyiw<Esc>:let @z="'".@z."'"<CR>cw<c-r>z<Esc>b
nnoremap qd :silent! normal "zyiw<Esc>:let @z="\"".@z."\""<CR>cw<c-r>z<Esc>b
</pre>

Blows away the "z" register, though.

----
I use the following for quoting visual selections (keeps all registers intact)
<pre>
vmap <silent> <Leader>qs :call Quote("'")<CR>
vmap <silent> <Leader>qd :call Quote('"')<CR>
function! Quote(quote) " {{{
  let save = @"
  silent normal gvy
  let @" = a:quote . @" . a:quote
  silent normal gvp
  let @" = save
endfunction " }}}
</pre>

----
Here is what I think is the nicest solution for a word-quoting macro.
<pre>
" Quote a word consisting of letters from iskeyword.
fun! Quote(quote)
  normal mz
  exe 's/\(\k*\%#\k*\)/' . a:quote . '\1' . a:quote . '/'
  normal `zl
endfun

fun! UnQuote()
  normal mz
  exe 's/["' . "'" . ']\(\k*\%#\k*\)[' . "'" . '"]/\1/'
  normal `z
endfun

nnoremap <silent> qw :call Quote('"')<CR>
nnoremap <silent> qs :call Quote("'")<CR>
nnoremap <silent> wq :call UnQuote()<CR>
</pre>

----
*{{script|id=1697|text=surround.vim}} includes this functionality

----