21a9d0f9aa00577fa38278262f4238200b4b3af0
[profile.git] / .vimrc
1 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
2 " Multi-version vimrc compatible with version 4 and above.   vim:set fdm=marker:
3 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
4
5 " Note that "if <condition> | call Something() | endif" syntax is unsupported 
6 " in Vim 4 so we write all our functions out the long way.  It does work in 
7 " autocommand definitions, however.
8
9 " Vim 4 complains if version isn't set in the configuration file.
10 version 4.0
11
12 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
13 " Handle options safe to use in version 4.  Vim 4 parses but ignores the 
14 " "if version" syntax used later in this file so we don't use it.  No attempt 
15 " is made to make this configuration compatible with Vim 3.
16 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
17 "{{{1
18 " No compatibility mode.
19 se nocp
20
21 " Find stuff.
22 if has("win32")
23   se rtp=~/.vim,$VIMRUNTIME
24 endif
25
26 " Tabstop 2.
27 se ts=2
28 " And use spaces not tabs.
29 se expandtab
30 " And << and >> indent by 2.
31 se sw=2
32 " Backspace deletes full tab width at the start of a line.
33 se smarttab
34
35 " Allow backspace to delete before start of line.
36 se bs=2
37
38 " Don't jump to the start of the line when using H, L etc.
39 se nosol
40
41 " Show the ruler.
42 se ruler
43 " Show partial commands in the ruler.
44 se showcmd
45 " And always show the status line.
46 se laststatus=2
47
48 " Use C indent style.
49 se cindent
50 se cinkeys=0{,0},0),:,!^F,o,O,e
51 se cinoptions=b1,c2
52
53 " GUI options.
54 se go=aglmr
55
56 " Don't be bugged by messages at the bottom of the screen.
57 se shm=aot
58
59 " Find as you type.
60 se incsearch
61
62 " Case-insensitive search.
63 se ignorecase
64 " But override by typing capitals.
65 se smartcase
66
67 " Look for ctags in home directory first.
68 se tags=~/.tags,./tags,tags
69
70 " Don't timeout waiting to interpet, eg, <ESC>OA as an escape code.
71 se ttimeoutlen=100
72
73 " Use ^B to search backward when completing.
74 inoremap <C-b> <C-p>
75 " Use ^L to show matching completions but don't select one.
76 inoremap <C-l> <C-n><C-p>
77
78 " Swap jump keys.
79 noremap ' `
80 noremap ` '
81 "}}}1
82
83 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
84 " Handle options only available in Vim 5 and above.
85 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
86 if version >= "500" "{{{1
87 version 5.0
88
89 " Tell Vim we use dark backgrounds in our terminals.
90 if ! has("gui_running")
91   se bg=dark
92 endif
93
94 " Allow mouse use in a terminal but only if it can work.
95 if has("xterm_clipboard")
96   se mouse=nvir
97 endif
98
99 " Update more quickly.  For use with sign highlighting as polling for
100 " CursorMove makes redrawing slow.
101 if has("signs")
102   se updatetime=500
103 endif
104
105 " Enable tab-completion prompting for commands.
106 se wildmenu
107 " Don't list object files when globbing files to load.
108 se wildignore+=*.o,*.obj
109 " So there's no need to assign them low priority.
110 se suffixes-=*.o,*.obj
111
112 " Save sessions in UNIX format with / as file separator.  This is
113 " cross-platform.
114 se ssop+=unix,slash
115
116 " How often do we need to use ^A/^X on octals?
117 se nf=hex
118
119 " Nuke any pre-existing autocommands.
120 augroup Display
121 autocmd!
122 augroup Mode
123 autocmd!
124 if has("signs")
125   augroup Signs
126   autocmd!
127 endif
128 augroup StatusLine
129 autocmd!
130 augroup END
131
132 " Save the current window width so we can restore it when we quit.
133 if ! exists("g:oldcols")
134   let g:oldcols=&columns
135 endif
136
137 " More GUI options.  Add icon and tearoffs.
138 se go+=i
139 se go+=t
140
141 " Allow dynamic window resize even if we aren't in an xterm.
142 se t_WS=\e[8;%p1%d;%p2%dt
143
144 " Highlight search results.
145 se hlsearch
146
147 " Set graphical window title.
148 se titlestring=%{Show_TitleString()}
149
150 " Syntax highlighting.  New versions will use syn enable instead.
151 if version < "600"
152   syn on
153 endif
154
155 " Catch typos.
156 command! W :w
157 command! Wq :wq
158 command! Wqa :wqa
159
160 " Helper to initialise a variable.
161 fun! Prep_Var(var, value) "{{{2
162   if exists(a:var)
163     return
164   endif
165   exe "let " . a:var . "=" . a:value
166 endfun "}}}2
167
168 " Set up our variables.
169 fun! Iain_Vars() "{{{2
170   call Prep_Var("w:iainlist", 0)
171   call Prep_Var("b:iainhex", 0)
172   call Prep_Var("b:iainverbose", 0)
173   " Window Flags: (F)ocused, (I)nsert mode, Cursor (H)old.
174   call Prep_Var("b:iainstatus", "'Fih'")
175   call Prep_Var("g:iainextracolumnsnumber", "''")
176   call Prep_Var("g:iainextracolumnslist", "''")
177   call Prep_Var("b:iaincul", 0)
178   if has("signs")
179     call Prep_Var("g:marksigns", 0)
180     call Prep_Var("g:firstsign", 100)
181   endif
182 endfun "}}}2
183
184 " Helper for status line.
185 " Show space, underscore or dollar sign depending on list mode.
186 fun! Show_List() "{{{2
187   call Iain_Vars()
188   if w:iainlist == 0
189     " No list.
190     return " "
191   elseif <SID>Has_Unicode()
192     if w:iainlist == 1
193       " Just tabs.
194       return "»"
195     else
196       " Full list.
197       return "¶"
198     endif
199   else
200     if w:iainlist == 1
201       return "_"
202     else
203       return "\$"
204     endif
205   endif
206 endfun "}}}2
207
208 " Helper for status line.
209 " Show c or C to denote case-sensitivity.
210 fun! Show_Case() "{{{2
211   if &ic
212     return "c"
213   else
214     return "C"
215   endif
216 endfun "}}}2
217
218 " Helper for status line.
219 " Show the size of the tabstop.
220 fun! Show_Tabstop() "{{{2
221   return &ts
222 endfun "}}}2
223
224 " Helper for status line.
225 " Show p when paste mode is on.
226 fun! Show_Paste() "{{{2
227   if &paste
228     return "p"
229   else
230     return ""
231   endif
232 endfun "}}}2
233
234 " Show the window title.
235 fun! Show_TitleString() "{{{2
236   if bufname("") == ""
237     let l:ts1='Vim'
238   else
239     " Vim 5 doesn't have printf.
240     let l:ts1=bufnr("")
241     if l:ts1 < 10
242       let l:ts1=" " . l:ts1
243     endif
244     let l:ts1=l:ts1 . ": " . expand('%t')
245   endif
246   let l:ts1=l:ts1 . " (" .  getcwd() . ")"
247   if has("clientserver")
248     let l:ts1=l:ts1 . " " . v:servername
249   endif
250   return l:ts1
251 endfun "}}}2
252
253 " Show the status line.
254 fun! Show_StatusLine() "{{{2
255   call Iain_Vars()
256   let l:sl1='%2n\:\ %<%1*%f%0*\ [%{Show_List()}%{Show_Case()}%{Show_Tabstop()}%{Show_Paste()}%Y%M%R]\ '
257   let l:sl3='L:%1*%4.6l%0*/%-4.6L\ C:%1*%3.6c%0*\ \|\ %P'
258   let l:hexformat='%b'
259   if b:iainhex
260     let l:hexformat='0\x%02B'
261   endif
262   if b:iainverbose
263     let l:sl1=l:sl1 . v:version . '\ %='
264     let l:sl2=l:hexformat . '\ \|\ P:%4.6o\ '
265   else
266     let l:sl1=l:sl1 . '%='
267     let l:sl2=''
268   endif
269   exec "set statusline=" . l:sl1 . l:sl2 . l:sl3
270 endfun "}}}2
271
272 " Toggle case-sensitivity.
273 fun! Invert_Case() "{{{2
274   let &ic = ! &ic
275 endfun "}}}2
276
277 " Grow or shrink the window size.
278 fun! Resize_Columns(op, ...) "{{{2
279   if a:op == ""
280     return
281   endif
282
283   if a:0 == 0
284     " Vim 5 hardcodes the size of numbers column to 8.
285     if version >= "700"
286       let l:columns = &numberwidth
287     else
288       let l:columns = 8
289     endif
290   else
291     let l:columns = a:1
292   endif
293
294   exe "let l:resize=" . &columns . a:op . l:columns
295   let l:resize = "se columns=" . l:resize
296
297   " HACK: Inside screen there is an extra line for the status bar.  Vim
298   " manages the resize by sending an escape sequence to set the number of
299   " lines and number of columns in one action.  To do this it will first query
300   " the number of lines and then set <same number of lines> by <new number of
301   " columns>.  Because of the extra line for the status bar this results in
302   " the real terminal being shrunk by a line.  We ask for the terminal to grow
303   " by a line so it ends up actually being the same.
304   if &term =~ '^screen'
305     let l:resize = l:resize . " lines=" . (&lines + 1)
306   endif
307
308   exe l:resize
309 endfun "}}}2
310
311 " Set extra columns depending on window status.
312 fun! Extra_Columns(extra, var, ...) "{{{2
313   " Vim 6 doesn't have winnr("$").  Determine which windows are open
314   " ourselves by using :windo to incremement a counter.  As Vim 5 
315   " doesn't have :windo we require Vim 6 for this.
316   if v:version < "600"
317     return ""
318   endif
319
320   " Remember which window we're in.
321   let l:winnr = winnr()
322   let l:num_windows = 0
323   windo let l:num_windows = l:num_windows + 1
324   " Switch back to the window we were in.
325   exe l:winnr . "wincmd w"
326
327   call Iain_Vars()
328
329   if a:0 == 0
330     let l:condition = ""
331   else
332     let l:condition = a:1
333   endif
334
335   let l:n = 0
336   let l:i = 1
337   let l:windows = ""
338   while l:n < l:num_windows
339     " If window w exists then getwinvar(w, "&modified") will be 0 or 1.
340     if getwinvar(l:i, "&modified") =~ '^\d'
341       let l:n = l:n + 1
342
343     let l:val = 0
344     exe "if getwinvar(" . l:i . ", '" . a:var . "') " . l:condition . " | let l:val = 1 | endif"
345     if l:val
346         exe "let l:windows = '" . l:windows . ":" . l:i . "'"
347       endif
348     endif
349     let l:i = l:i + 1
350   endwhile
351
352   let l:extra = "g:iainextracolumns" . a:extra
353   exe "let l:val = " . l:extra
354   exe "let " . l:extra . " = '" . l:windows . "'"
355
356   if l:windows == l:val
357     return ""
358   endif
359
360   if l:windows == ""
361     return "-"
362   elseif l:val == ""
363     return "+"
364   endif
365 endfun "}}}2
366
367 " Toggle number display.
368 fun! Number(resize) "{{{2
369   call Iain_Vars()
370   let &number = ! &number
371
372   " Ensure we keep track of any extra columns even if we aren't resizing.
373   " This prevents confusion when number is set at startup.
374   let l:extra = Extra_Columns("number", "&number")
375
376   if a:resize
377     call Resize_Columns(l:extra)
378   endif
379 endfun "}}}2
380
381 " Restore window size.
382 au Display VimLeave * if exists("g:oldcols") | call Resize_Columns("-", (&columns - g:oldcols)) | endif
383
384 " Map Makefile mode.
385 au Mode BufEnter * if &ft == "make" | call MakeMode_map() | endif
386 au Mode BufLeave * if &ft == "make" | call MakeMode_unmap() | endif
387
388 " Entering Make mode.
389 fun! MakeMode_map() "{{{2
390   call Iain_Vars()
391   let w:iainlist=1
392   call Cycle_List()
393   set ts=8
394   set noexpandtab
395 endfun "}}}2
396
397 " Leaving Make mode.
398 fun! MakeMode_unmap() "{{{2
399   call Cycle_List()
400   set ts=2
401   set expandtab
402 endfun "}}}2
403
404 " Show the status line for the first time.
405 call Show_StatusLine()
406
407 " Function to create mappings with either a hardcoded \ or <Leader>.
408 fun! Mapping(keysequence,mapping) "{{{2
409   if version < "600"
410     exec "map \\" . a:keysequence . " " . a:mapping
411   else
412     exec "map <Leader>" . a:keysequence . " " . a:mapping
413   endif
414 endfun "}}}2
415
416 " Use - and = to create underlines.
417 call Mapping("-", "yyp:s/./-/g<RETURN>:let @/=''<RETURN>:<RETURN>")
418 call Mapping("=", "yyp:s/./=/g<RETURN>:let @/=''<RETURN>:<RETURN>")
419
420 " Change to ts=2 with \2.
421 call Mapping("2", ":se ts=2<CR>:<CR>")
422 " Change to ts=4 with \4.
423 call Mapping("4", ":se ts=4<CR>:<CR>")
424 " Change to ts=8 with \8.
425 call Mapping("8", ":se ts=8<CR>:<CR>")
426 " Change to ts=16 with \6.
427 call Mapping("6", ":se ts=16<CR>:<CR>")
428 " Change to ts=32 with \3.
429 call Mapping("3", ":se ts=32<CR>:<CR>")
430 " Toggle paste mode with \p.
431 call Mapping("p", ":se paste!<CR>:<CR>")
432 " Swap case-sensitivity with \c.
433 call Mapping("C", ":call Invert_Case()<CR>:<CR>")
434 " Change number mode with \n.
435 call Mapping("n", ":call Number(1)<CR>:<CR>")
436 " Expand or shrink window size with \> and \<.
437 call Mapping(">", ":call Resize_Columns('+')<CR>:<CR>")
438 call Mapping("<", ":call Resize_Columns('-')<CR>:<CR>")
439 " Clear search pattern with \/.
440 call Mapping("/", ":let @/=\"\"<CR>:<CR>")
441
442 " Forget the Ex mode mapping.
443 map Q <NOP>
444
445 " Vim tip 99: What's the highlighting group under the cursor?
446 call Mapping("h", ":echo \"hi<\" . synIDattr(synID(line(\".\"),col(\".\"),1),\"name\") . '> trans<' . synIDattr(synID(line(\".\"),col(\".\"),0),\"name\") . \"> lo<\" . synIDattr(synIDtrans(synID(line(\".\"),col(\".\"),1)),\"name\") . \">\"<CR>")
447
448 fun! Uncluttered_Buffer() "{{{2
449   if exists("uncluttered_buffer")
450     if uncluttered_buffer == 1
451       return 1
452     endif
453   endif
454
455   if version >= "600"
456     if &buftype != ''
457       return 1
458     endif
459   endif
460
461   if &ft == 'perforce'
462     return 1
463   endif
464
465   if &ft == 'svn'
466     return 1
467   endif
468
469   if &ft == 'gitcommit'
470     return 1
471   endif
472
473   return 0
474 endfun "}}}2
475
476 fun! Startup_Resize() "{{{2
477   let l:columns = 0
478
479   " Resize for numbers.
480   if &number
481     if version >= "700"
482       let l:columns = &numberwidth
483     else
484       let l:columns = 8
485     endif
486   endif
487
488   " Resize for signs.
489   if has("signs")
490     if g:marksigns
491       if version >= "600"
492         let l:columns = l:columns + 2
493       endif
494     endif
495   endif
496
497   if g:oldcols < (80 + l:columns)
498     call Resize_Columns("+", l:columns)
499   endif
500 endfun "}}}2
501
502 " Change status bar colour when various things happen.
503 " Flags: H/h: Cursor held/moved.
504 "        F/f: Focus gained/lost.
505 "        I/i: Insert mode entered/left.
506 fun! Highlight_StatusLine(flag) "{{{2
507   " Get current status.
508   call Iain_Vars()
509
510   " Change the status based on the flag.  XXX: Does Vim let us to do flags?
511   let l:ic = &ic
512   set ic
513   let b:iainstatus = substitute(b:iainstatus, a:flag, a:flag, "")
514   let &ic = l:ic
515
516   let l:normalcolour = "darkblue"
517   let l:editingcolour = "darkmagenta"
518   let l:warningcolour = "darkred"
519   let l:readonlycolour = "red"
520
521   " Default colour.
522   let l:colour = l:normalcolour
523   " Maybe override depending on status.
524   if b:iainstatus =~# "H"
525     if b:iainstatus =~# "I"
526       " Held in insert mode.  Add extra highlight if we don't have focus.
527       if b:iainstatus =~# "f"
528         let l:colour = l:warningcolour
529       else
530         let l:colour = l:editingcolour
531       endif
532     endif
533   else
534     if b:iainstatus =~# "I"
535       " Regular insert mode.
536       let l:colour = l:editingcolour
537     endif
538   endif
539
540   " Override again if readonly.
541   if l:colour != l:normalcolour
542     if getbufvar("", "&ro")
543       let l:colour = l:readonlycolour
544     endif
545   endif
546
547   let l:termcolour = Iain_Colour(l:colour)
548
549   exec "highlight StatusLine gui=none term=none cterm=none guifg=white guibg=" . l:colour . " ctermfg=white ctermbg=" . l:termcolour
550   exec "highlight User1 gui=bold term=bold cterm=bold guifg=white guibg=" . l:colour . " ctermfg=white ctermbg=" . l:termcolour
551 endfun "}}}2
552
553 fun! Iain_Colour(colour) "{{{2
554   if &t_Co == 88
555     if a:colour == "darkblue"
556       return 17
557     elseif a:colour == "darkmagenta"
558       return 33
559     elseif a:colour == "darkred"
560       return 32
561     elseif a:colour == "red"
562       return 64
563     endif
564   elseif &t_Co == 256
565     if a:colour == "darkblue"
566       return 17
567     elseif a:colour == "darkmagenta"
568       return 90
569     elseif a:colour == "darkred"
570       return 88
571     elseif a:colour == "red"
572       return 196
573     endif
574   else
575     return a:colour
576   endif
577 endfun "}}}2
578
579 au StatusLine VimEnter * call Highlight_StatusLine("")
580
581 " Show numbers by default.
582 au Display VimEnter * if ! Uncluttered_Buffer() | call Number(0) | endif
583
584 " Position the compview plugin window.
585 au Display BufEnter -SearchResults- set buftype=nowrite | set nonumber | wincmd J
586 endif "}}}1
587
588 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
589 " Handle options only available in Vim 6 and above.
590 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
591 if version >= "600" "{{{1
592 version 6.0
593
594 if has("win32")
595   se encoding=utf-8
596 endif
597
598 " Remember quickfix state.
599 let g:quickfixing=0
600
601 " Set indenting by filetype.
602 filetype indent on
603
604 " Less intrusive syntax highlighting.
605 syn enable
606
607 " Set colours.
608 if has("gui_running")
609   if has("win32")
610     exe "silent se guifont=DejaVu_Sans_Mono:h10:cANSI"
611   else
612     exe "silent se guifont=DejaVu\\ Sans\\ Mono\\ 10"
613   endif
614 endif
615 if has("gui_running") || &t_Co > 16
616   exe "silent colo iain"
617 endif
618
619 " Ignore whitespace when diffing.
620 se diffopt=filler,iwhite
621
622 " Expand window when doing a vertical diff.
623 if &diff
624   if &columns < 161
625     let &columns = &columns * 2
626   endif
627 endif
628
629 " Remember that we are opening the quickfix window.
630 au Mode BufWinEnter quickfix let g:quickfixing=1
631 au Mode BufUnload * if &ft == "qf" | let g:quickfixing=0 | endif
632
633 " Allow in-place editing of crontabs.
634 au Mode FileType crontab set backupcopy=yes
635
636 " Make * and # work the way you expect in visual mode.
637 vnoremap * y/\V<C-R>=substitute(escape(@@,"/\\"),"\n","\\\\n","ge")<CR><CR>
638 vnoremap # y?\V<C-R>=substitute(escape(@@,"?\\"),"\n","\\\\n","ge")<CR><CR>
639
640 " Set mark and update highlighting.
641 if has("signs")
642   au Signs BufReadPost * call <SID>Highlight_Signs()
643   au Signs CursorHold * call <SID>Highlight_Signs()
644 endif
645
646 " Helper to set buffer variable for a given sign.
647 fun! <SID>Prep_Sign(sign) "{{{2
648   if ! exists("b:sign" . a:sign) || ! g:marksigns
649     exe "let b:sign" . a:sign . "=0"
650    endif
651 endfun "}}}2
652
653 fun! <SID>Prep_Signs() "{{{2
654   call <SID>Prep_Sign("dot")
655   call <SID>Prep_Sign("dash")
656   call <SID>Prep_Sign("quote")
657   call <SID>Prep_Sign("caret")
658   call <SID>Prep_Sign("less")
659   call <SID>Prep_Sign("greater")
660   call <SID>Prep_Sign("left")
661   call <SID>Prep_Sign("right")
662   call <SID>Prep_Sign("squareleft")
663   call <SID>Prep_Sign("squareright")
664   call <SID>Prep_Sign("braceleft")
665   call <SID>Prep_Sign("braceright")
666   call <SID>Prep_Sign("a")
667   call <SID>Prep_Sign("b")
668   call <SID>Prep_Sign("c")
669   call <SID>Prep_Sign("d")
670   call <SID>Prep_Sign("e")
671   call <SID>Prep_Sign("f")
672   call <SID>Prep_Sign("A")
673   call <SID>Prep_Sign("B")
674   call <SID>Prep_Sign("C")
675   call <SID>Prep_Sign("D")
676   call <SID>Prep_Sign("E")
677   call <SID>Prep_Sign("F")
678 endfun! "}}}2
679
680 fun! <SID>Place_Sign(number, line, old, name) "{{{2
681   if a:line == a:old
682     return a:old
683   endif
684
685   exe "sign unplace " . (g:firstsign + a:number) . " buffer=" . bufnr("")
686   " Don't place the sign if it would conflict with the last change sign.
687   exe "sign place " . (g:firstsign + a:number) . " line=" . a:line . " name=" . a:name . " buffer=" . bufnr("")
688   return a:line
689 endfun "}}}2
690
691 fun! <SID>Highlight_Signs(...) "{{{2
692   if ! has("signs") || ! g:marksigns || Uncluttered_Buffer()
693     return
694   endif
695
696   call <SID>Prep_Signs()
697
698   let b:signdot = <SID>Place_Sign(0, line("'."), b:signdot, "MarkDot")
699   let b:signdash = <SID>Place_Sign(1, line("''"), b:signdash, "MarkDash")
700   let b:signquote = <SID>Place_Sign(2, line("'\""), b:signquote, "MarkQuote")
701   let b:signcaret = <SID>Place_Sign(3, line("'^"), b:signcaret, "MarkCaret")
702   let b:signless = <SID>Place_Sign(4, line("'<"), b:signless, "MarkLess")
703   let b:signgreater = <SID>Place_Sign(5, line("'>"), b:signgreater, "MarkGreater")
704   let b:signleft = <SID>Place_Sign(6, line("'("), b:signleft, "MarkLeft")
705   let b:signright = <SID>Place_Sign(7, line("')"), b:signright, "MarkRight")
706   let b:signsquareleft = <SID>Place_Sign(8, line("'["), b:signsquareleft, "MarkSquareLeft")
707   let b:signsquareright = <SID>Place_Sign(9, line("']"), b:signsquareright, "MarkSquareRight")
708   let b:signbraceleft = <SID>Place_Sign(10, line("'{"), b:signbraceleft, "MarkBraceLeft")
709   let b:signbraceright = <SID>Place_Sign(11, line("'}"), b:signbraceright, "MarkBraceRight")
710
711   let b:signa = <SID>Place_Sign(12, line("'a"), b:signa, "Marka")
712   let b:signb = <SID>Place_Sign(13, line("'b"), b:signb, "Markb")
713   let b:signc = <SID>Place_Sign(15, line("'c"), b:signc, "Markc")
714   let b:signd = <SID>Place_Sign(16, line("'d"), b:signd, "Markd")
715   let b:signe = <SID>Place_Sign(17, line("'e"), b:signe, "Marke")
716   let b:signf = <SID>Place_Sign(18, line("'f"), b:signf, "Markf")
717   let b:signA = <SID>Place_Sign(19, line("'A"), b:signA, "MarkA")
718   let b:signB = <SID>Place_Sign(20, line("'B"), b:signB, "MarkB")
719   let b:signC = <SID>Place_Sign(21, line("'C"), b:signC, "MarkC")
720   let b:signD = <SID>Place_Sign(22, line("'D"), b:signD, "MarkD")
721   let b:signE = <SID>Place_Sign(23, line("'E"), b:signE, "MarkE")
722   let b:signF = <SID>Place_Sign(24, line("'F"), b:signF, "MarkF")
723 endfun "}}}2
724
725 " Toggle signs.
726 fun! <SID>Cycle_Signs(resize) "{{{2
727   if ! has("signs")
728     return
729   endif
730   call Iain_Vars()
731   let g:marksigns = ! g:marksigns
732
733   if g:marksigns
734     " Signs to highlight marks.
735     " Syntax won't work properly in Vim 6.
736     if <SID>Has_Unicode()
737       sign define MarkDash text=’ texthl=MarkSign
738       sign define MarkDot text=• texthl=MarkDot
739       sign define MarkQuote text=” texthl=MarkSign
740       sign define MarkCaret text=ʌ texthl=MarkDot
741     else
742       sign define MarkDash text=' texthl=MarkSign
743       sign define MarkDot text=* texthl=MarkDot
744       sign define MarkQuote text=" texthl=MarkSign
745       sign define MarkCaret text=^ texthl=MarkDot
746     endif
747     sign define MarkLess text=< texthl=MarkSign
748     sign define MarkGreater text=> texthl=MarkSign
749     sign define MarkLeft text=( texthl=MarkSign
750     sign define MarkRight text=) texthl=MarkSign
751     sign define MarkSquareLeft text=[ texthl=MarkSign
752     sign define MarkSquareRight text=] texthl=MarkSign
753     sign define MarkBraceLeft text={ texthl=MarkSign
754     sign define MarkBraceRight text=} texthl=MarkSign
755     sign define Marka text=a texthl=MarkSign linehl=MarkLine
756     sign define Markb text=b texthl=MarkSign linehl=MarkLine
757     sign define Markc text=c texthl=MarkSign linehl=MarkLine
758     sign define Markd text=d texthl=MarkSign linehl=MarkLine
759     sign define Marke text=e texthl=MarkSign linehl=MarkLine
760     sign define Markf text=f texthl=MarkSign linehl=MarkLine
761     sign define MarkA text=A texthl=MarkSign linehl=MarkLine
762     sign define MarkB text=B texthl=MarkSign linehl=MarkLine
763     sign define MarkC text=C texthl=MarkSign linehl=MarkLine
764     sign define MarkD text=D texthl=MarkSign linehl=MarkLine
765     sign define MarkE text=E texthl=MarkSign linehl=MarkLine
766     sign define MarkF text=F texthl=MarkSign linehl=MarkLine
767
768     if a:resize
769       call Resize_Columns("+", 2)
770     endif
771     call <SID>Highlight_Signs()
772   else
773     exe "sign unplace " . (g:firstsign + 0)
774     exe "sign unplace " . (g:firstsign + 1)
775     exe "sign unplace " . (g:firstsign + 2)
776     exe "sign unplace " . (g:firstsign + 3)
777     exe "sign unplace " . (g:firstsign + 4)
778     exe "sign unplace " . (g:firstsign + 5)
779     exe "sign unplace " . (g:firstsign + 6)
780     exe "sign unplace " . (g:firstsign + 7)
781     exe "sign unplace " . (g:firstsign + 8)
782     exe "sign unplace " . (g:firstsign + 9)
783     exe "sign unplace " . (g:firstsign + 10)
784     exe "sign unplace " . (g:firstsign + 11)
785     exe "sign unplace " . (g:firstsign + 12)
786     exe "sign unplace " . (g:firstsign + 13)
787     exe "sign unplace " . (g:firstsign + 14)
788     exe "sign unplace " . (g:firstsign + 15)
789     exe "sign unplace " . (g:firstsign + 16)
790     exe "sign unplace " . (g:firstsign + 17)
791     exe "sign unplace " . (g:firstsign + 18)
792     exe "sign unplace " . (g:firstsign + 19)
793     exe "sign unplace " . (g:firstsign + 20)
794     exe "sign unplace " . (g:firstsign + 21)
795     exe "sign unplace " . (g:firstsign + 22)
796     exe "sign unplace " . (g:firstsign + 23)
797     exe "sign unplace " . (g:firstsign + 24)
798
799     sign undefine MarkDash
800     sign undefine MarkDot
801     sign undefine MarkQuote
802     sign undefine MarkCaret
803     sign undefine MarkLess
804     sign undefine MarkGreater
805     sign undefine MarkLeft
806     sign undefine MarkRight
807     sign undefine MarkSquareLeft
808     sign undefine MarkSquareRight
809     sign undefine MarkBraceLeft
810     sign undefine MarkBraceRight
811     sign undefine Marka
812     sign undefine Markb
813     sign undefine Markc
814     sign undefine Markd
815     sign undefine Marke
816     sign undefine Markf
817     sign undefine MarkA
818     sign undefine MarkB
819     sign undefine MarkC
820     sign undefine MarkD
821     sign undefine MarkE
822     sign undefine MarkF
823
824     call <SID>Prep_Signs()
825     if a:resize
826       call Resize_Columns("-", 2)
827     endif
828   endif
829 endfun "}}}2
830
831 " Do we have Unicode?
832 fun! <SID>Has_Unicode() "{{{2
833   if ! has('multi_byte')
834     return 0
835   endif
836
837   if version < "602"
838     return 0
839   endif
840
841   if &tenc =~? '^u\(tf\|cs\)'
842     return 1
843   endif
844
845   if ! strlen(&tenc) && &enc =~? '^u\(tf\|cs\)'
846     return 1
847   endif
848
849   return 0
850 endfun "}}}2
851
852 " Change list mode.
853 fun! Cycle_List() "{{{2
854   " Pretty UTF-8 listchars.
855   if <SID>Has_Unicode()
856     let basic='tab:»·,trail:…,extends:«,precedes:»'
857     let eol='eol:¶'
858     if version >= "700"
859       let basic=basic . ',nbsp:•'
860     endif
861   else
862     let basic='tab:\\_,trail:_,extends:<,precedes:>'
863     let eol='eol:$'
864     if version >= "700"
865       let basic=basic . ',nbsp:+'
866     endif
867   endif
868   call Iain_Vars()
869   let w:iainlist = w:iainlist + 1
870   if w:iainlist > 2
871     let w:iainlist = 0
872   endif
873   if w:iainlist == 0
874     setlocal nolist
875   elseif w:iainlist == 1
876     exec "setlocal lcs=" . basic
877     setlocal list
878   else
879     exec "setlocal lcs=" . basic . "," . eol
880     setlocal list
881   endif
882
883   call Resize_Columns(Extra_Columns("list", "iainlist", " == 2"), 1)
884 endfun "}}}2
885
886 " Cycle between hex and decimal display of toolbar stuff.
887 fun! Cycle_HexStatusLine() "{{{2
888   call Iain_Vars()
889   let b:iainhex = ! b:iainhex
890   call Show_StatusLine()
891 endfun "}}}2
892
893 " Cycle verbose display of toolbar stuff.
894 fun! Cycle_VerboseStatusLine() "{{{2
895   call Iain_Vars()
896   let b:iainverbose = ! b:iainverbose
897   call Show_StatusLine()
898 endfun "}}}2
899
900 " Toggle quickfix window.
901 fun! Cycle_Quickfix() "{{{2
902   if g:quickfixing == 1
903     cclose
904     let g:quickfixing=0
905   else
906     copen
907   endif
908 endfun "}}}2
909
910 " Swap hex/decimal statusline with \x.
911 call Mapping("x", ":call Cycle_HexStatusLine()<CR>:<CR>")
912 " Change statusline verbosity with \v.
913 call Mapping("V", ":call Cycle_VerboseStatusLine()<CR>:<CR>")
914 " Cycle list styles with \l.
915 call Mapping("l", ":call Cycle_List()<CR>:<CR>")
916 " Toggle tags with \t.
917 call Mapping("t", ":Tlist<CR>")
918 " Change foldmethod with \f.
919 call Mapping("f", ":se foldenable!<CR>:<CR>")
920 " Toggle quickfix window with \q.
921 call Mapping("q", ":call Cycle_Quickfix()<CR>:<CR>")
922 " Rerun filetype detection with \s.  The s is for syntax, as this will be
923 " updated as a side-effect.
924 call Mapping("S", ":filetype detect<CR>:<CR>")
925 " Toggle marks with \m.
926 call Mapping("m", ":call <SID>Cycle_Signs(1)<CR>:<CR>")
927
928 " Show signs by default.
929 au Display VimEnter * call <SID>Cycle_Signs(0)
930 endif "}}}1
931
932 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
933 " Handle options only available in Vim 7 and above.
934 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
935 if version >= "700" "{{{1
936 version 7.0
937
938 " Helper to show tab name.
939 fun! <SID>TabName(label, gui) "{{{2
940   let l:label = a:label
941   if l:label == ""
942     let l:label = "No Name"
943     if a:gui
944       let l:label = "[" . l:label . "]"
945     endif
946   else
947     let l:label = fnamemodify(l:label, ":t")
948     if strlen(l:label) >= 18
949       let l:label = l:label[0:17] . ".."
950     endif
951   endif
952   return l:label
953 endfun "}}}2
954
955 " Find out if any buffer was modified.
956 fun! <SID>TabModified(buflist) "{{{2
957   let l:i = 0
958   while l:i < len(a:buflist)
959     if getbufvar(a:buflist[l:i], "&modified") == 1
960       return "+"
961     endif
962     let l:i = l:i + 1
963   endwhile
964   return ""
965 endfun "}}}2
966
967 " Tab line.
968 fun! Show_TabLine() "{{{2
969   let l:s = "%#TabLineFill#Tabs:"
970
971   let l:i = 0
972   while l:i < tabpagenr("$")
973     let l:i = l:i + 1
974     " Get the label.
975     let l:buflist = tabpagebuflist(l:i)
976     let l:winnr = tabpagewinnr(l:i)
977     let l:n = tabpagewinnr(l:i, "$")
978     let l:label = <SID>TabName(bufname(l:buflist[l:winnr - 1]), 0)
979     let l:modified = <SID>TabModified(l:buflist)
980
981     " Choose highlighting.
982     if l:i == tabpagenr()
983       let l:s .= "%#TabLineSel#[" . l:n . l:modified . " " . l:label . "]"
984     else
985       let l:s .= "%#TabLine# " . l:n . l:modified . " " . l:label . " "
986     endif
987   endwhile
988
989   " Padding.
990   let l:s .= "%#TabLine#%T"
991   return l:s
992 endfun "}}}2
993
994 " Per tab label for the GUI.
995 fun! Show_GUITabLine() "{{{2
996   let l:buflist = tabpagebuflist(v:lnum)
997   let l:winnr = tabpagewinnr(v:lnum)
998   let l:s = tabpagewinnr(v:lnum, "$")
999   let l:label = <SID>TabName(bufname(l:buflist[l:winnr - 1]), 1)
1000   let l:modified = <SID>TabModified(l:buflist)
1001
1002   let l:s .= l:modified . " " . l:label
1003   return l:s
1004 endfun "}}}2
1005
1006 " Toggle highlighting cursor line when focus changes.
1007 fun! <SID>ToggleCursorLine() "{{{2
1008   call Iain_Vars()
1009
1010   if b:iainstatus =~# "f" && b:iainstatus =~# "H" && b:iainstatus =~# "I"
1011     " Focus lost while held in insert mode.
1012     let b:iaincul = getbufvar("", "&cursorline")
1013     setlocal cursorline
1014   elseif ! b:iaincul
1015     setlocal nocursorline
1016   endif
1017 endfun "}}}2
1018
1019 se tabline=%!Show_TabLine()
1020 se guitablabel=%!Show_GUITabLine()
1021
1022 au StatusLine CursorHoldI * call Highlight_StatusLine("H")
1023 au StatusLine CursorMovedI * call Highlight_StatusLine("h")
1024 au StatusLine FocusGained * call Highlight_StatusLine("F")
1025 au StatusLine FocusLost * call Highlight_StatusLine("f")
1026 au StatusLine InsertEnter * call Highlight_StatusLine("I")
1027 au StatusLine InsertLeave * call Highlight_StatusLine("i")
1028
1029 au Display FocusGained,FocusLost * call <SID>ToggleCursorLine()
1030
1031 if has("signs")
1032   au Signs InsertEnter * call <SID>Highlight_Signs()
1033   au Signs InsertLeave * call <SID>Highlight_Signs()
1034 endif
1035
1036 " Limit the size of the popup menu when completing.
1037 se pumheight=20
1038
1039 " Make diffs vertical by default.
1040 se diffopt+=vertical
1041
1042 " Set size of numbers column.
1043 se numberwidth=5
1044
1045 " Add "previous tab" mapping as gb.
1046 map gb :tabprevious<CR>:<CR>
1047
1048 " Transparency.
1049 if has("gui_macvim")
1050   se transparency=15
1051 endif 
1052
1053 " Yet more GUI options.  Add tabs.
1054 se go+=e
1055
1056 " Perforce.
1057 let g:p4EnableMenu=1
1058 let g:p4Presets='P4CONFIG'
1059
1060 " BufExplorer.
1061 let g:bufExplorerShowRelativePath=1
1062 let g:bufExplorerSplitOutPathName=0
1063 endif "}}}1
1064
1065 " Resize after startup.
1066 if version >= "500" "{{{1
1067 au Display VimEnter * call Startup_Resize()
1068 endif "}}}1