]> git.r.bdr.sh - rbdr/dotfiles/blame - vim/plugin/supertab.vim
A whole bunch of new additions to the submodules
[rbdr/dotfiles] / vim / plugin / supertab.vim
CommitLineData
0d23b6e5
BB
1" Author:
2" Original: Gergely Kontra <kgergely@mcl.hu>
3" Current: Eric Van Dewoestine <ervandew@gmail.com> (as of version 0.4)
4" Please direct all correspondence to Eric.
5" Version: 1.6
6" GetLatestVimScripts: 1643 1 :AutoInstall: supertab.vim
7"
8" Description: {{{
9" Use your tab key to do all your completion in insert mode!
10" You can cycle forward and backward with the <Tab> and <S-Tab> keys
11" Note: you must press <Tab> once to be able to cycle back
12"
13" http://www.vim.org/scripts/script.php?script_id=1643
14" }}}
15"
16" License: {{{
17" Copyright (c) 2002 - 2011
18" All rights reserved.
19"
20" Redistribution and use of this software in source and binary forms, with
21" or without modification, are permitted provided that the following
22" conditions are met:
23"
24" * Redistributions of source code must retain the above
25" copyright notice, this list of conditions and the
26" following disclaimer.
27"
28" * Redistributions in binary form must reproduce the above
29" copyright notice, this list of conditions and the
30" following disclaimer in the documentation and/or other
31" materials provided with the distribution.
32"
33" * Neither the name of Gergely Kontra or Eric Van Dewoestine nor the names
34" of its contributors may be used to endorse or promote products derived
35" from this software without specific prior written permission of Gergely
36" Kontra or Eric Van Dewoestine.
37"
38" THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
39" IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
40" THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
41" PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
42" CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
43" EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
44" PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
45" PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
46" LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
47" NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
48" SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
49" }}}
50"
51" Testing Info: {{{
52" Running vim + supertab with the absolute bar minimum settings:
53" $ vim -u NONE -U NONE -c "set nocp | runtime plugin/supertab.vim"
54" }}}
55
56if v:version < 700
57 finish
58endif
59
60if exists('complType') " Integration with other completion functions.
61 finish
62endif
63
64let s:save_cpo=&cpo
65set cpo&vim
66
67" Global Variables {{{
68
69 if !exists("g:SuperTabDefaultCompletionType")
70 let g:SuperTabDefaultCompletionType = "<c-p>"
71 endif
72
73 if !exists("g:SuperTabContextDefaultCompletionType")
74 let g:SuperTabContextDefaultCompletionType = "<c-p>"
75 endif
76
77 if !exists("g:SuperTabCompletionContexts")
78 let g:SuperTabCompletionContexts = ['s:ContextText']
79 endif
80
81 if !exists("g:SuperTabRetainCompletionDuration")
82 let g:SuperTabRetainCompletionDuration = 'insert'
83 endif
84
85 if !exists("g:SuperTabNoCompleteBefore")
86 " retain backwards compatability
87 if exists("g:SuperTabMidWordCompletion") && !g:SuperTabMidWordCompletion
88 let g:SuperTabNoCompleteBefore = ['\k']
89 else
90 let g:SuperTabNoCompleteBefore = []
91 endif
92 endif
93
94 if !exists("g:SuperTabNoCompleteAfter")
95 " retain backwards compatability
96 if exists("g:SuperTabLeadingSpaceCompletion") && g:SuperTabLeadingSpaceCompletion
97 let g:SuperTabNoCompleteAfter = []
98 else
99 let g:SuperTabNoCompleteAfter = ['\s']
100 endif
101 endif
102
103 if !exists("g:SuperTabMappingForward")
104 let g:SuperTabMappingForward = '<tab>'
105 endif
106 if !exists("g:SuperTabMappingBackward")
107 let g:SuperTabMappingBackward = '<s-tab>'
108 endif
109
110 if !exists("g:SuperTabMappingTabLiteral")
111 let g:SuperTabMappingTabLiteral = '<c-tab>'
112 endif
113
114 if !exists("g:SuperTabLongestEnhanced")
115 let g:SuperTabLongestEnhanced = 0
116 endif
117
118 if !exists("g:SuperTabLongestHighlight")
119 let g:SuperTabLongestHighlight = 0
120 endif
121
122 if !exists("g:SuperTabCrMapping")
123 let g:SuperTabCrMapping = 1
124 endif
125
126" }}}
127
128" Script Variables {{{
129
130 " construct the help text.
131 let s:tabHelp =
132 \ "Hit <CR> or CTRL-] on the completion type you wish to switch to.\n" .
133 \ "Use :help ins-completion for more information.\n" .
134 \ "\n" .
135 \ "|<c-n>| - Keywords in 'complete' searching down.\n" .
136 \ "|<c-p>| - Keywords in 'complete' searching up (SuperTab default).\n" .
137 \ "|<c-x><c-l>| - Whole lines.\n" .
138 \ "|<c-x><c-n>| - Keywords in current file.\n" .
139 \ "|<c-x><c-k>| - Keywords in 'dictionary'.\n" .
140 \ "|<c-x><c-t>| - Keywords in 'thesaurus', thesaurus-style.\n" .
141 \ "|<c-x><c-i>| - Keywords in the current and included files.\n" .
142 \ "|<c-x><c-]>| - Tags.\n" .
143 \ "|<c-x><c-f>| - File names.\n" .
144 \ "|<c-x><c-d>| - Definitions or macros.\n" .
145 \ "|<c-x><c-v>| - Vim command-line.\n" .
146 \ "|<c-x><c-u>| - User defined completion.\n" .
147 \ "|<c-x><c-o>| - Omni completion.\n" .
148 \ "|<c-x>s| - Spelling suggestions."
149
150 " set the available completion types and modes.
151 let s:types =
152 \ "\<c-e>\<c-y>\<c-l>\<c-n>\<c-k>\<c-t>\<c-i>\<c-]>" .
153 \ "\<c-f>\<c-d>\<c-v>\<c-n>\<c-p>\<c-u>\<c-o>\<c-n>\<c-p>s"
154 let s:modes = '/^E/^Y/^L/^N/^K/^T/^I/^]/^F/^D/^V/^P/^U/^O/s'
155 let s:types = s:types . "np"
156 let s:modes = s:modes . '/n/p'
157
158" }}}
159
160" SuperTabSetDefaultCompletionType(type) {{{
161" Globally available function that users can use to set the default
162" completion type for the current buffer, like in an ftplugin.
163function! SuperTabSetDefaultCompletionType(type)
164 " init hack for <c-x><c-v> workaround.
165 let b:complCommandLine = 0
166
167 let b:SuperTabDefaultCompletionType = a:type
168
169 " set the current completion type to the default
170 call SuperTabSetCompletionType(b:SuperTabDefaultCompletionType)
171endfunction " }}}
172
173" SuperTabSetCompletionType(type) {{{
174" Globally available function that users can use to create mappings to quickly
175" switch completion modes. Useful when a user wants to restore the default or
176" switch to another mode without having to kick off a completion of that type
177" or use SuperTabHelp. Note, this function only changes the current
178" completion type, not the default, meaning that the default will still be
179" restored once the configured retension duration has been met (see
180" g:SuperTabRetainCompletionDuration). To change the default for the current
181" buffer, use SuperTabDefaultCompletionType(type) instead. Example mapping to
182" restore SuperTab default:
183" nmap <F6> :call SetSuperTabCompletionType("<c-p>")<cr>
184function! SuperTabSetCompletionType(type)
185 call s:InitBuffer()
186 exec "let b:complType = \"" . escape(a:type, '<') . "\""
187endfunction " }}}
188
189" SuperTabAlternateCompletion(type) {{{
190" Function which can be mapped to a key to kick off an alternate completion
191" other than the default. For instance, if you have 'context' as the default
192" and want to map ctrl+space to issue keyword completion.
193" Note: due to the way vim expands ctrl characters in mappings, you cannot
194" create the alternate mapping like so:
195" imap <c-space> <c-r>=SuperTabAlternateCompletion("<c-p>")<cr>
196" instead, you have to use \<lt> to prevent vim from expanding the key
197" when creating the mapping.
198" gvim:
199" imap <c-space> <c-r>=SuperTabAlternateCompletion("\<lt>c-p>")<cr>
200" console:
201" imap <nul> <c-r>=SuperTabAlternateCompletion("\<lt>c-p>")<cr>
202function! SuperTabAlternateCompletion(type)
203 call SuperTabSetCompletionType(a:type)
204 " end any current completion before attempting to start the new one.
205 " use feedkeys to prevent possible remapping of <c-e> from causing issues.
206 "call feedkeys("\<c-e>", 'n')
207 " ^ since we can't detect completion mode vs regular insert mode, we force
208 " vim into keyword completion mode and end that mode to prevent the regular
209 " insert behavior of <c-e> from occurring.
210 call feedkeys("\<c-x>\<c-p>\<c-e>", 'n')
211 call feedkeys(b:complType, 'n')
212 return ''
213endfunction " }}}
214
215" SuperTabLongestHighlight(dir) {{{
216" When longest highlight is enabled, this function is used to do the actual
217" selection of the completion popup entry.
218function! SuperTabLongestHighlight(dir)
219 if !pumvisible()
220 return ''
221 endif
222 return a:dir == -1 ? "\<up>" : "\<down>"
223endfunction " }}}
224
225" s:Init {{{
226" Global initilization when supertab is loaded.
227function! s:Init()
228 " Setup mechanism to restore original completion type upon leaving insert
229 " mode if configured to do so
230 if g:SuperTabRetainCompletionDuration == 'insert'
231 augroup supertab_retain
232 autocmd!
233 autocmd InsertLeave * call s:SetDefaultCompletionType()
234 augroup END
235 endif
236endfunction " }}}
237
238" s:InitBuffer {{{
239" Per buffer initilization.
240function! s:InitBuffer()
241 if exists('b:SuperTabNoCompleteBefore')
242 return
243 endif
244
245 let b:complReset = 0
246 let b:complTypeManual = !exists('b:complTypeManual') ? '' : b:complTypeManual
247 let b:complTypeContext = ''
248
249 " init hack for <c-x><c-v> workaround.
250 let b:complCommandLine = 0
251
252 if !exists('b:SuperTabNoCompleteBefore')
253 let b:SuperTabNoCompleteBefore = g:SuperTabNoCompleteBefore
254 endif
255 if !exists('b:SuperTabNoCompleteAfter')
256 let b:SuperTabNoCompleteAfter = g:SuperTabNoCompleteAfter
257 endif
258
259 let b:SuperTabDefaultCompletionType = g:SuperTabDefaultCompletionType
260
261 " set the current completion type to the default
262 call SuperTabSetCompletionType(b:SuperTabDefaultCompletionType)
263endfunction " }}}
264
265" s:ManualCompletionEnter() {{{
266" Handles manual entrance into completion mode.
267function! s:ManualCompletionEnter()
268 if &smd
269 echo '' | echohl ModeMsg | echo '-- ^X++ mode (' . s:modes . ')' | echohl None
270 endif
271 let complType = nr2char(getchar())
272 if stridx(s:types, complType) != -1
273 if stridx("\<c-e>\<c-y>", complType) != -1 " no memory, just scroll...
274 return "\<c-x>" . complType
275 elseif stridx('np', complType) != -1
276 let complType = nr2char(char2nr(complType) - 96)
277 else
278 let complType = "\<c-x>" . complType
279 endif
280
281 let b:complTypeManual = complType
282
283 if index(['insert', 'session'], g:SuperTabRetainCompletionDuration) != -1
284 let b:complType = complType
285 endif
286
287 " Hack to workaround bug when invoking command line completion via <c-r>=
288 if complType == "\<c-x>\<c-v>"
289 return s:CommandLineCompletion()
290 endif
291
292 " optionally enable enhanced longest completion
293 if g:SuperTabLongestEnhanced && &completeopt =~ 'longest'
294 call s:EnableLongestEnhancement()
295 endif
296
297 if g:SuperTabLongestHighlight &&
298 \ &completeopt =~ 'longest' &&
299 \ &completeopt =~ 'menu' &&
300 \ !pumvisible()
301 let dir = (complType == "\<c-x>\<c-p>") ? -1 : 1
302 call feedkeys("\<c-r>=SuperTabLongestHighlight(" . dir . ")\<cr>", 'n')
303 endif
304
305 return complType
306 endif
307
308 echohl "Unknown mode"
309 return complType
310endfunction " }}}
311
312" s:SetCompletionType() {{{
313" Sets the completion type based on what the user has chosen from the help
314" buffer.
315function! s:SetCompletionType()
316 let chosen = substitute(getline('.'), '.*|\(.*\)|.*', '\1', '')
317 if chosen != getline('.')
318 let winnr = b:winnr
319 close
320 exec winnr . 'winc w'
321 call SuperTabSetCompletionType(chosen)
322 endif
323endfunction " }}}
324
325" s:SetDefaultCompletionType() {{{
326function! s:SetDefaultCompletionType()
327 if exists('b:SuperTabDefaultCompletionType') &&
328 \ (!exists('b:complCommandLine') || !b:complCommandLine)
329 call SuperTabSetCompletionType(b:SuperTabDefaultCompletionType)
330 endif
331endfunction " }}}
332
333" s:SuperTab(command) {{{
334" Used to perform proper cycle navigation as the user requests the next or
335" previous entry in a completion list, and determines whether or not to simply
336" retain the normal usage of <tab> based on the cursor position.
337function! s:SuperTab(command)
338 if exists('b:SuperTabDisabled') && b:SuperTabDisabled
339 return "\<tab>"
340 endif
341
342 call s:InitBuffer()
343
344 if s:WillComplete()
345 " optionally enable enhanced longest completion
346 if g:SuperTabLongestEnhanced && &completeopt =~ 'longest'
347 call s:EnableLongestEnhancement()
348 endif
349
350 if !pumvisible()
351 let b:complTypeManual = ''
352 endif
353
354 " exception: if in <c-p> mode, then <c-n> should move up the list, and
355 " <c-p> down the list.
356 if a:command == 'p' && !b:complReset &&
357 \ (b:complType == "\<c-p>" ||
358 \ (b:complType == 'context' &&
359 \ b:complTypeManual == '' &&
360 \ b:complTypeContext == "\<c-p>"))
361 return "\<c-n>"
362
363 elseif a:command == 'p' && !b:complReset &&
364 \ (b:complType == "\<c-n>" ||
365 \ (b:complType == 'context' &&
366 \ b:complTypeManual == '' &&
367 \ b:complTypeContext == "\<c-n>"))
368 return "\<c-p>"
369
370 " already in completion mode and not resetting for longest enhancement, so
371 " just scroll to next/previous
372 elseif pumvisible() && !b:complReset
373 let type = b:complType == 'context' ? b:complTypeContext : b:complType
374 if a:command == 'n'
375 return type == "\<c-p>" ? "\<c-p>" : "\<c-n>"
376 endif
377 return type == "\<c-p>" ? "\<c-n>" : "\<c-p>"
378 endif
379
380 " handle 'context' completion.
381 if b:complType == 'context'
382 let complType = s:ContextCompletion()
383 if complType == ''
384 exec "let complType = \"" .
385 \ escape(g:SuperTabContextDefaultCompletionType, '<') . "\""
386 endif
387 let b:complTypeContext = complType
388
389 " Hack to workaround bug when invoking command line completion via <c-r>=
390 elseif b:complType == "\<c-x>\<c-v>"
391 let complType = s:CommandLineCompletion()
392 else
393 let complType = b:complType
394 endif
395
396 " highlight first result if longest enabled
397 if g:SuperTabLongestHighlight &&
398 \ &completeopt =~ 'longest' &&
399 \ &completeopt =~ 'menu' &&
400 \ (!pumvisible() || b:complReset)
401 let dir = (complType == "\<c-p>") ? -1 : 1
402 call feedkeys("\<c-r>=SuperTabLongestHighlight(" . dir . ")\<cr>", 'n')
403 endif
404
405 if b:complReset
406 let b:complReset = 0
407 " not an accurate condition for everyone, but better than sending <c-e>
408 " at the wrong time.
409 if pumvisible()
410 return "\<c-e>" . complType
411 endif
412 endif
413
414 return complType
415 endif
416
417 return "\<tab>"
418endfunction " }}}
419
420" s:SuperTabHelp() {{{
421" Opens a help window where the user can choose a completion type to enter.
422function! s:SuperTabHelp()
423 let winnr = winnr()
424 if bufwinnr("SuperTabHelp") == -1
425 botright split SuperTabHelp
426
427 setlocal noswapfile
428 setlocal buftype=nowrite
429 setlocal bufhidden=delete
430
431 let saved = @"
432 let @" = s:tabHelp
433 silent put
434 call cursor(1, 1)
435 silent 1,delete
436 call cursor(4, 1)
437 let @" = saved
438 exec "resize " . line('$')
439
440 syntax match Special "|.\{-}|"
441
442 setlocal readonly
443 setlocal nomodifiable
444
445 nmap <silent> <buffer> <cr> :call <SID>SetCompletionType()<cr>
446 nmap <silent> <buffer> <c-]> :call <SID>SetCompletionType()<cr>
447 else
448 exec bufwinnr("SuperTabHelp") . "winc w"
449 endif
450 let b:winnr = winnr
451endfunction " }}}
452
453" s:WillComplete() {{{
454" Determines if completion should be kicked off at the current location.
455function! s:WillComplete()
456 if pumvisible()
457 return 1
458 endif
459
460 let line = getline('.')
461 let cnum = col('.')
462
463 " Start of line.
464 if line =~ '^\s*\%' . cnum . 'c'
465 return 0
466 endif
467
468 " honor SuperTabNoCompleteAfter
469 let pre = line[:cnum - 2]
470 for pattern in b:SuperTabNoCompleteAfter
471 if pre =~ pattern . '$'
472 return 0
473 endif
474 endfor
475
476 " honor SuperTabNoCompleteBefore
477 " Within a word, but user does not have mid word completion enabled.
478 let post = line[cnum - 1:]
479 for pattern in b:SuperTabNoCompleteBefore
480 if post =~ '^' . pattern
481 return 0
482 endif
483 endfor
484
485 return 1
486endfunction " }}}
487
488" s:EnableLongestEnhancement() {{{
489function! s:EnableLongestEnhancement()
490 augroup supertab_reset
491 autocmd!
492 autocmd InsertLeave,CursorMovedI <buffer>
493 \ call s:ReleaseKeyPresses() | autocmd! supertab_reset
494 augroup END
495 call s:CaptureKeyPresses()
496endfunction " }}}
497
498" s:CompletionReset(char) {{{
499function! s:CompletionReset(char)
500 let b:complReset = 1
501 return a:char
502endfunction " }}}
503
504" s:CaptureKeyPresses() {{{
505function! s:CaptureKeyPresses()
506 if !exists('b:capturing') || !b:capturing
507 let b:capturing = 1
508 " save any previous mappings
509 " TODO: capture additional info provided by vim 7.3.032 and up.
510 let b:captured = {
511 \ '<bs>': maparg('<bs>', 'i'),
512 \ '<c-h>': maparg('<c-h>', 'i'),
513 \ }
514 " TODO: use &keyword to get an accurate list of chars to map
515 for c in split('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_', '.\zs')
516 exec 'imap <buffer> ' . c . ' <c-r>=<SID>CompletionReset("' . c . '")<cr>'
517 endfor
518 imap <buffer> <bs> <c-r>=<SID>CompletionReset("\<lt>bs>")<cr>
519 imap <buffer> <c-h> <c-r>=<SID>CompletionReset("\<lt>c-h>")<cr>
520 endif
521endfunction " }}}
522
523" s:ReleaseKeyPresses() {{{
524function! s:ReleaseKeyPresses()
525 if exists('b:capturing') && b:capturing
526 let b:capturing = 0
527 for c in split('abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890_', '.\zs')
528 exec 'iunmap <buffer> ' . c
529 endfor
530
531 iunmap <buffer> <bs>
532 iunmap <buffer> <c-h>
533
534 " restore any previous mappings
535 for [key, rhs] in items(b:captured)
536 if rhs != ''
537 let args = substitute(rhs, '.*\(".\{-}"\).*', '\1', '')
538 if args != rhs
539 let args = substitute(args, '<', '<lt>', 'g')
540 let expr = substitute(rhs, '\(.*\)".\{-}"\(.*\)', '\1%s\2', '')
541 let rhs = printf(expr, args)
542 endif
543 exec printf("imap <silent> %s %s", key, rhs)
544 endif
545 endfor
546 unlet b:captured
547
548 if mode() == 'i' && &completeopt =~ 'menu'
549 " force full exit from completion mode (don't exit insert mode since
550 " that will break repeating with '.')
551 call feedkeys("\<space>\<bs>", 'n')
552 endif
553 endif
554endfunction " }}}
555
556" s:CommandLineCompletion() {{{
557" Hack needed to account for apparent bug in vim command line mode completion
558" when invoked via <c-r>=
559function! s:CommandLineCompletion()
560 " This hack will trigger InsertLeave which will then invoke
561 " s:SetDefaultCompletionType. To prevent default completion from being
562 " restored prematurely, set an internal flag for s:SetDefaultCompletionType
563 " to check for.
564 let b:complCommandLine = 1
565 return "\<c-\>\<c-o>:call feedkeys('\<c-x>\<c-v>\<c-v>', 'n') | " .
566 \ "let b:complCommandLine = 0\<cr>"
567endfunction " }}}
568
569" s:ContextCompletion() {{{
570function! s:ContextCompletion()
571 let contexts = exists('b:SuperTabCompletionContexts') ?
572 \ b:SuperTabCompletionContexts : g:SuperTabCompletionContexts
573
574 for context in contexts
575 try
576 let Context = function(context)
577 let complType = Context()
578 unlet Context
579 if type(complType) == 1 && complType != ''
580 return complType
581 endif
582 catch /E700/
583 echohl Error
584 echom 'supertab: no context function "' . context . '" found.'
585 echohl None
586 endtry
587 endfor
588 return ''
589endfunction " }}}
590
591" s:ContextDiscover() {{{
592function! s:ContextDiscover()
593 let discovery = exists('g:SuperTabContextDiscoverDiscovery') ?
594 \ g:SuperTabContextDiscoverDiscovery : []
595
596 " loop through discovery list to find the default
597 if !empty(discovery)
598 for pair in discovery
599 let var = substitute(pair, '\(.*\):.*', '\1', '')
600 let type = substitute(pair, '.*:\(.*\)', '\1', '')
601 exec 'let value = ' . var
602 if value !~ '^\s*$' && value != '0'
603 exec "let complType = \"" . escape(type, '<') . "\""
604 return complType
605 endif
606 endfor
607 endif
608endfunction " }}}
609
610" s:ContextText() {{{
611function! s:ContextText()
612 let exclusions = exists('g:SuperTabContextTextFileTypeExclusions') ?
613 \ g:SuperTabContextTextFileTypeExclusions : []
614
615 if index(exclusions, &ft) == -1
616 let curline = getline('.')
617 let cnum = col('.')
618 let synname = synIDattr(synID(line('.'), cnum - 1, 1), 'name')
619 if curline =~ '.*/\w*\%' . cnum . 'c' ||
620 \ ((has('win32') || has('win64')) && curline =~ '.*\\\w*\%' . cnum . 'c')
621 return "\<c-x>\<c-f>"
622
623 elseif curline =~ '.*\(\w\|[\])]\)\(\.\|::\|->\)\w*\%' . cnum . 'c' &&
624 \ synname !~ '\(String\|Comment\)'
625 let omniPrecedence = exists('g:SuperTabContextTextOmniPrecedence') ?
626 \ g:SuperTabContextTextOmniPrecedence : ['&completefunc', '&omnifunc']
627
628 for omniFunc in omniPrecedence
629 if omniFunc !~ '^&'
630 let omniFunc = '&' . omniFunc
631 endif
632 if getbufvar(bufnr('%'), omniFunc) != ''
633 return omniFunc == '&omnifunc' ? "\<c-x>\<c-o>" : "\<c-x>\<c-u>"
634 endif
635 endfor
636 endif
637 endif
638endfunction " }}}
639
640" s:ExpandMap(map) {{{
641function! s:ExpandMap(map)
642 let map = a:map
643 if map =~ '<Plug>'
644 let plug = substitute(map, '.\{-}\(<Plug>\w\+\).*', '\1', '')
645 let plug_map = maparg(plug, 'i')
646 let map = substitute(map, '.\{-}\(<Plug>\w\+\).*', plug_map, '')
647 endif
648 return map
649endfunction " }}}
650
651" Key Mappings {{{
652 " map a regular tab to ctrl-tab (note: doesn't work in console vim)
653 exec 'inoremap ' . g:SuperTabMappingTabLiteral . ' <tab>'
654
655 imap <c-x> <c-r>=<SID>ManualCompletionEnter()<cr>
656
657 imap <script> <Plug>SuperTabForward <c-r>=<SID>SuperTab('n')<cr>
658 imap <script> <Plug>SuperTabBackward <c-r>=<SID>SuperTab('p')<cr>
659
660 exec 'imap ' . g:SuperTabMappingForward . ' <Plug>SuperTabForward'
661 exec 'imap ' . g:SuperTabMappingBackward . ' <Plug>SuperTabBackward'
662
663 " After hitting <Tab>, hitting it once more will go to next match
664 " (because in XIM mode <c-n> and <c-p> mappings are ignored)
665 " and wont start a brand new completion
666 " The side effect, that in the beginning of line <c-n> and <c-p> inserts a
667 " <Tab>, but I hope it may not be a problem...
668 let ctrl_n = maparg('<c-n>', 'i')
669 if ctrl_n != ''
670 let ctrl_n = substitute(ctrl_n, '<', '<lt>', 'g')
671 exec 'imap <c-n> <c-r>=<SID>ForwardBack("n", "' . ctrl_n . '")<cr>'
672 else
673 imap <c-n> <Plug>SuperTabForward
674 endif
675 let ctrl_p = maparg('<c-p>', 'i')
676 if ctrl_p != ''
677 let ctrl_p = substitute(ctrl_p, '<', '<lt>', 'g')
678 exec 'imap <c-p> <c-r>=<SID>ForwardBack("p", "' . ctrl_p . '")<cr>'
679 else
680 imap <c-p> <Plug>SuperTabBackward
681 endif
682 function! s:ForwardBack(command, map)
683 exec "let map = \"" . escape(a:map, '<') . "\""
684 return pumvisible() ? s:SuperTab(a:command) : map
685 endfunction
686
687 if g:SuperTabCrMapping
688 if maparg('<CR>','i') =~ '<CR>'
689 let map = maparg('<cr>', 'i')
690 let cr = (map =~? '\(^\|[^)]\)<cr>')
691 let map = s:ExpandMap(map)
692 exec "inoremap <script> <cr> <c-r>=<SID>SelectCompletion(" . cr . ")<cr>" . map
693 else
694 inoremap <cr> <c-r>=<SID>SelectCompletion(1)<cr>
695 endif
696 function! s:SelectCompletion(cr)
697 " selecting a completion
698 if pumvisible()
699 " ugly hack to let other <cr> mappings for other plugins cooperate
700 " with supertab
701 let b:supertab_pumwasvisible = 1
702 return "\<c-y>"
703 endif
704
705 " only needed when chained with other mappings and one of them will
706 " issue a <cr>.
707 if exists('b:supertab_pumwasvisible') && !a:cr
708 unlet b:supertab_pumwasvisible
709 return ''
710 endif
711
712 " not so pleasant hack to keep <cr> working for abbreviations
713 let word = substitute(getline('.'), '^.*\s\+\(.*\%' . col('.') . 'c\).*', '\1', '')
714 if maparg(word, 'i', 1) != ''
715 call feedkeys("\<c-]>", 't')
716 call feedkeys("\<cr>", 'n')
717 return ''
718 endif
719
720 " only return a cr if nothing else is mapped to it since we don't want
721 " to duplicate a cr returned by another mapping.
722 return a:cr ? "\<cr>" : ""
723 endfunction
724 endif
725" }}}
726
727" Command Mappings {{{
728 if !exists(":SuperTabHelp")
729 command SuperTabHelp :call <SID>SuperTabHelp()
730 endif
731" }}}
732
733call s:Init()
734
735let &cpo = s:save_cpo
736
737" vim:ft=vim:fdm=marker