support CTRL hotkeys for qnamebuf navigation

This commit is contained in:
Josh Holtrop 2013-11-07 16:48:47 -05:00
parent a848fd42e6
commit 588ddbe054
3 changed files with 9 additions and 7 deletions

View File

@ -34,8 +34,8 @@ function! QNameBufInit(regexp, ...)
\ "complete_func": function("QNameBufCompletion"),
\ "modifiers": ["l", "d", "c", "\<M-l>", "\<M-d>", "\<M-c>"],
\ "modifier_func": function("QNameBufModifier"),
\ "acceptors": ["v", "s", "t", "\<M-v>", "\<M-s>", "\<M-t>"],
\ "cancelors": ["g", "\<C-g>", s:qnamebuf_hotkey],
\ "acceptors": ["v", "s", "t", "\<M-v>", "\<M-s>", "\<M-t>", "\<C-v>", "\<C-s>", "\<C-t>"],
\ "cancelors": ["g", "\<C-g>"],
\ "regexp": a:regexp,
\ "use_leader": (a:0 > 2) ? a:3 : 0,
\ "height": (a:0 > 0) ? a:1 : 0,
@ -54,11 +54,11 @@ function! QNameBufModifier(index, key)
endfunction
function! QNameBufCompletion(index, key)
if a:key == "v" || a:key == "\<M-v>"
if a:key == "v" || a:key == "\<M-v>" || a:key == "\<C-v>"
vert split
elseif a:key == "s" || a:key == "\<M-s>"
elseif a:key == "s" || a:key == "\<M-s>" || a:key == "\<C-s>"
split
elseif a:key == "t" || a:key == "\<M-t>"
elseif a:key == "t" || a:key == "\<M-t>" || a:key == "\<C-t>"
tab split
endif
call s:swb(g:cmd_arr[a:index]['bno'])

View File

@ -140,9 +140,9 @@ function! QNamePickerRun()
if _nr < _len
call s:Finish(s:indices[_nr], "\<CR>")
endif
elseif _key == "\<Up>"
elseif _key == "\<Up>" || _key == "\<C-K>" || _key == "\<S-Tab>"
call s:colPrinter.vert(-1)
elseif _key == "\<Down>"
elseif _key == "\<Down>" || _key == "\<C-J>" || _key == "\<Tab>"
call s:colPrinter.vert(1)
elseif _key == "\<Left>"
call s:colPrinter.horz(-1)

2
vimrc
View File

@ -37,6 +37,8 @@ set cinoptions=:0,(0
runtime ftplugin/man.vim
nnoremap K :Man <cword><CR>
let g:qnamebuf_hotkey = "<C-s>"
if has("gui_running")
" GUI-specific settings
colorscheme ir_black