.vimrc

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