blob: 224045421b65a16fdf08e6b1a6d790aabb9b99b3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
" A small plugin to replace a text object with the contents of a register.
"
" This is invoked with the 'cp' command. For example
"
" cpiw - replace the inner word with the contents of the default regist
" "ncpiw - replace the inner word with the contents of register 'n'
"
" The cp command also has some standard variants
"
" cpp - replace the whole line with the contents of the default register
" cP - replace from the current cursor position to th end of the line with
" the given register
"
" Notably, this command does not alter the contents of the default register, so
" this command may be repeated without worry for changing the editor state.
noremap <silent> cp <cmd>call <sid>setcpreg(v:register)<bar>set operatorfunc=<sid>put<cr>g@
noremap <silent> cpp <cmd>call <sid>setcpreg(v:register)<bar>set operatorfunc=<sid>put<cr>g@_
noremap <silent> cP <cmd>call <sid>setcpreg(v:register)<bar>set operatorfunc=<sid>put<cr>g@$
" Like 'p', but in visual mode doesn't clobber the "-register. If invoked with a
" register, the replaced text is put in the given register.
vnoremap <silent> P <cmd>call <sid>paste_into_register(v:register)<cr>
function! s:paste_into_register(r) abort
let save = getreg('"')
normal! p
call setreg(a:r, getreg('"'))
call setreg('"', save)
endfunction
let s:savereg = ''
let s:cpbuf = '"'
function! s:setcpreg(r) abort
let s:cpbuf = a:r
endfunction
function! s:put(arg, ...) abort
if a:0
echo a:1
let vis = '`<' . a:arg . '`>'
elseif a:arg == 'line'
let vis = "'[V']"
elseif a:arg == 'block'
let vis = "`[\<C-v>`]"
else
let vis = "`[v`]"
endif
let save = getreg('"')
silent! exec printf("norm %s\"%sp", vis, s:cpbuf)
call setreg('"', save)
endfunction
|
