" p または P でレジスタの内容を挿入するとき、それが http:// または
" https:// で始まるURLで、かつカーソル直前のテキストが /^ であるなら
" ば、挿入するURLを正規表現としてエスケープする。またURLの先頭がどちら
" の場合でも双方に一致する正規表現 https?: に変換する。
"
" 例:
"
"   無名レジスタの内容が http://www.example.com/?page=1 であるときに
"
"     if (/^
"
"   この ^ の上にカーソルを置いて p を打鍵すると次の通りになる:
"
"     if (/^https?:\/\/www.example\.com\/\?page=1
"
nnoremap <expr><silent> p '"=getreg('.."'"..v:register.."'"..') =~? "\\%^https\\?://[!#-&(-;=?-~]\\+\\%$" && search("/\\%#\\^", "wn") ? substitute(escape(getreg('.."'"..v:register.."'"..'), "/$()*+.?[\\]^{\|}"), "\\%^https\\?", "https?", "") : getreg('.."'"..v:register.."'"..')<CR>p'
nnoremap <expr><silent> P '"=getreg('.."'"..v:register.."'"..') =~? "\\%^https\\?://[!#-&(-;=?-~]\\+\\%$" && search("/\\^\\%#", "wn") ? substitute(escape(getreg('.."'"..v:register.."'"..'), "/$()*+.?[\\]^{\|}"), "\\%^https\\?", "https?", "") : getreg('.."'"..v:register.."'"..')<CR>P'