Vim 5 compatibility.
[profile.git] / .vimrc
diff --git a/.vimrc b/.vimrc
old mode 100755 (executable)
new mode 100644 (file)
index c594723..500794f
--- a/.vimrc
+++ b/.vimrc
@@ -1,6 +1,4 @@
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-" $Id$
-""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 " Multi-version vimrc compatible with version 4 and above.
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 
@@ -19,16 +17,26 @@ version 4.0
 " No compatibility mode.
 se nocp
 
+" Find stuff.
+if has("win32")
+  se rtp=~/.vim,$VIMRUNTIME
+endif
+
 " Tabstop 2.
 se ts=2
 " And use spaces not tabs.
 se expandtab
 " And << and >> indent by 2.
 se sw=2
+" Backspace deletes full tab width at the start of a line.
+se smarttab
 
 " Allow backspace to delete before start of line.
 se bs=2
 
+" Don't jump to the start of the line when using H, L etc.
+se nosol
+
 " Show the ruler.
 se ruler
 " Show partial commands in the ruler.
@@ -39,6 +47,7 @@ se laststatus=2
 " Use C indent style.
 se cindent
 se cinkeys=0{,0},0),:,!^F,o,O,e
+se cinoptions=b1,c2
 
 " GUI options.
 se go=aglmr
@@ -57,9 +66,17 @@ se smartcase
 " Look for ctags in home directory first.
 se tags=~/.tags,./tags,tags
 
-" Use - and = to create underlines.
-map - yyp:s/./-/g<RETURN>:let @/=''<RETURN>:<RETURN>
-map = yyp:s/./=/g<RETURN>:let @/=''<RETURN>:<RETURN>
+" Don't timeout waiting to interpet, eg, <ESC>OA as an escape code.
+se ttimeoutlen=100
+
+" Use ^B to search backward when completing.
+inoremap <C-b> <C-p>
+" Use ^L to show matching completions but don't select one.
+inoremap <C-l> <C-n><C-p>
+
+" Swap jump keys.
+noremap ' `
+noremap ` '
 
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 " Handle options only available in Vim 5 and above.
@@ -67,14 +84,57 @@ map = yyp:s/./=/g<RETURN>:let @/=''<RETURN>:<RETURN>
 if version >= "500"
 version 5.0
 
+" Tell Vim we use dark backgrounds in our terminals.
+if ! has("gui_running")
+  se bg=dark
+endif
+
+" Allow mouse use in a terminal but only if it can work.
+if has("xterm_clipboard")
+  se mouse=nvir
+endif
+
+" Update more quickly.  For use with sign highlighting as polling for
+" CursorMove makes redrawing slow.
+if has("signs")
+  se updatetime=500
+endif
+
+" Enable tab-completion prompting for commands.
+se wildmenu
+" Don't list object files when globbing files to load.
+se wildignore+=*.o,*.obj
+" So there's no need to assign them low priority.
+se suffixes-=*.o,*.obj
+
+" Save sessions in UNIX format with / as file separator.  This is
+" cross-platform.
+se ssop+=unix,slash
+
+" How often do we need to use ^A/^X on octals?
+se nf=hex
+
 " Nuke any pre-existing autocommands.
+augroup Display
+autocmd!
+augroup Mode
+autocmd!
+if has("signs")
+  augroup Signs
+  autocmd!
+endif
+augroup StatusLine
 autocmd!
+augroup END
 
 " Save the current window width so we can restore it when we quit.
-let oldcols=&columns
+if ! exists("g:oldcols")
+  let g:oldcols=&columns
+endif
 
-" More GUI options.  Add icon, tearoffs and toolbar.
-se go=agilmrtT
+" More GUI options.  Add icon and tearoffs.
+se go+=i
+se go+=t
 
 " Allow dynamic window resize even if we aren't in an xterm.
 se t_WS=\e[8;%p1%d;%p2%dt
@@ -82,8 +142,13 @@ se t_WS=\e[8;%p1%d;%p2%dt
 " Highlight search results.
 se hlsearch
 
-" Syntax highlighting.
-syn on
+" Set graphical window title.
+se titlestring=%{Show_TitleString()}
+
+" Syntax highlighting.  New versions will use syn enable instead.
+if version < "600"
+  syn on
+endif
 
 " Catch typos.
 command! W :w
@@ -98,6 +163,24 @@ fun! Iain_Vars()
   if ! exists("b:iainhex")
     let b:iainhex = 0
   endif
+  if ! exists("b:iainverbose")
+    let b:iainverbose = 0
+  endif
+  if ! exists("b:iainstatus")
+    " Window Flags: (F)ocused, (I)nsert mode, Cursor (H)old.
+    let b:iainstatus = "Fih"
+  endif
+  if ! exists("g:iainextracolumns")
+    let g:iainextracolumns = 0
+  endif
+  if has("signs")
+    if ! exists("g:marksigns")
+      let g:marksigns = 0
+    endif
+    if ! exists("g:firstsign")
+      let g:firstsign = 100
+    endif
+  endif
 endfun
 
 " Helper for status line.
@@ -142,75 +225,229 @@ fun! Show_Paste()
   endif
 endfun
 
+" Show the window title.
+fun! Show_TitleString()
+  if bufname("") == ""
+    let l:ts1='Vim'
+  else
+    " Vim 5 doesn't have printf.
+    let l:ts1=bufnr("")
+    if l:ts1 < 10
+      let l:ts1=" " . l:ts1
+    endif
+    let l:ts1=l:ts1 . ": " . expand('%t')
+  endif
+  let l:ts1=l:ts1 . " (" .  getcwd() . ")"
+  if has("clientserver")
+    let l:ts1=l:ts1 . " " . v:servername
+  endif
+  return l:ts1
+endfun
+
 " Show the status line.
 fun! Show_StatusLine()
   call Iain_Vars()
-  let sl1='%2n\:\ %<%f\ [%{Show_List()}%{Show_Case()}%{Show_Tabstop()}%{Show_Paste()}%Y%M%R]\ %='
-  let sl2='\ \|\ P:%4.6o\ L:%4.6l/%-4.6L\ C:%3.6c\ \|\ %P'
-  let hexformat='%b'
+  let l:sl1='%2n\:\ %<%f\ [%{Show_List()}%{Show_Case()}%{Show_Tabstop()}%{Show_Paste()}%Y%M%R]\ %='
+  let l:sl3='L:%4.6l/%-4.6L\ C:%3.6c\ \|\ %P'
+  let l:hexformat='%b'
   if b:iainhex
-    let hexformat='0\x%02B'
+    let l:hexformat='0\x%02B'
   endif
-  exec "set statusline=" . sl1 . hexformat . sl2
+  if b:iainverbose
+    let l:sl2=l:hexformat . '\ \|\ P:%4.6o\ '
+  else
+    let l:sl2=''
+  endif
+  exec "set statusline=" . l:sl1 . l:sl2 . l:sl3
 endfun
 
-" Restore window size.
-au VimLeave * if exists("oldcols") | let &columns=oldcols | endif
+" Toggle case-sensitivity.
+fun! Invert_Case()
+  let &ic = ! &ic
+endfun
 
-" Map C mode.
-au BufEnter * if &ft == "c" || &ft == "cpp" | call CMode_map() | endif
-au BufLeave * if &ft == "c" || &ft == "cpp" | call CMode_unmap() | endif
+" Grow or shrink the window size.
+fun! Resize_Columns(op, ...)
+  if a:0 == 0
+    " Vim 5 hardcodes the size of numbers column to 8.
+    if version >= "700"
+      let l:columns = &numberwidth
+    else
+      let l:columns = 8
+    endif
+  else
+    let l:columns = a:1
+  endif
 
-" Map Perl mode.
-au BufEnter * if &ft == "perl" | call PerlMode_map() | endif
-au BufLeave * if &ft == "perl" | call PerlMode_unmap() | endif
+  exe "let l:resize=" . &columns . a:op . l:columns
+  let l:resize = "se columns=" . l:resize
+
+  " HACK: Inside screen there is an extra line for the status bar.  Vim
+  " manages the resize by sending an escape sequence to set the number of
+  " lines and number of columns in one action.  To do this it will first query
+  " the number of lines and then set <same number of lines> by <new number of
+  " columns>.  Because of the extra line for the status bar this results in
+  " the real terminal being shrunk by a line.  We ask for the terminal to grow
+  " by a line so it ends up actually being the same.
+  if &term =~ '^screen'
+    let l:resize = l:resize . " lines=" . (&lines + 1)
+  endif
 
-" Map Makefile mode.
-au BufEnter * if &ft == "make" | call MakeMode_map() | endif
-au BufLeave * if &ft == "make" | call MakeMode_unmap() | endif
-
-" Entering C mode.
-fun! CMode_map()
-  let oldcinkeys=&cinkeys
-  let oldcinwords=&cinwords
-  set cinkeys=0{,0},:,0#,!^F,o,O,e
-  set cinwords=if,else,while,do,for,switch
+  exe l:resize
 endfun
 
-" Leaving C mode.
-fun! CMode_unmap()
-  set cinkeys=oldcinkeys
-  set cinwords=oldcinwords
-endfun
+" Toggle number display.
+fun! Number(resize)
+  call Iain_Vars()
+  let &number = ! &number
+
+  if version >= "700"
+    let l:i = 0
+    let l:num_numbers = 0
+    while l:i <= winnr("$")
+      if getwinvar(l:i, "&number") == 1
+        let l:num_numbers = l:num_numbers + 1
+      endif
+      let l:i = l:i + 1
+    endwhile
 
-" Entering Perl mode.
-fun! PerlMode_map()
-  let oldcinkeys=&cinkeys
-  let oldcinwords=&cinwords
-  set cinkeys=0{,0},:,!^F,o,O,e
-  set cinwords=if,else,while,do,for,eval
+    if l:num_numbers == 0
+      let g:iainextracolumns = 0
+      if a:resize
+        call Resize_Columns("-")
+      endif
+    elseif g:iainextracolumns == 0
+      let g:iainextracolumns = 1
+      if a:resize
+        call Resize_Columns("+")
+      endif
+    endif
+  endif
 endfun
 
-" Leaving Perl mode.
-fun! PerlMode_unmap()
-  set cinkeys=oldcinkeys
-  set cinwords=oldcinwords
-endfun
+" Restore window size.
+au Display VimLeave * if exists("g:oldcols") | call Resize_Columns("-", (&columns - g:oldcols)) | endif
+
+" Map Makefile mode.
+au Mode BufEnter * if &ft == "make" | call MakeMode_map() | endif
+au Mode BufLeave * if &ft == "make" | call MakeMode_unmap() | endif
 
 " Entering Make mode.
 fun! MakeMode_map()
-  set list
+       call Iain_Vars()
+  let b:iainlist=1
+  call Cycle_List()
+  set ts=8
   set noexpandtab
 endfun
 
 " Leaving Make mode.
 fun! MakeMode_unmap()
-  set nolist
+  call Cycle_List()
+  set ts=2
   set expandtab
 endfun
 
 " Show the status line for the first time.
 call Show_StatusLine()
+
+" Function to create mappings with either a hardcoded \ or <Leader>.
+fun! Mapping(keysequence,mapping)
+  if version < "600"
+    exec "map \\" . a:keysequence . " " . a:mapping
+  else
+    exec "map <Leader>" . a:keysequence . " " . a:mapping
+  endif
+endfun
+
+" Use - and = to create underlines.
+call Mapping("-", "yyp:s/./-/g<RETURN>:let @/=''<RETURN>:<RETURN>")
+call Mapping("=", "yyp:s/./=/g<RETURN>:let @/=''<RETURN>:<RETURN>")
+
+" Change to ts=2 with \2.
+call Mapping("2", ":se ts=2<CR>:<CR>")
+" Change to ts=4 with \4.
+call Mapping("4", ":se ts=4<CR>:<CR>")
+" Change to ts=8 with \8.
+call Mapping("8", ":se ts=8<CR>:<CR>")
+" Change to ts=16 with \6.
+call Mapping("6", ":se ts=16<CR>:<CR>")
+" Change to ts=32 with \3.
+call Mapping("3", ":se ts=32<CR>:<CR>")
+" Toggle paste mode with \p.
+call Mapping("p", ":se paste!<CR>:<CR>")
+" Swap case-sensitivity with \c.
+call Mapping("c", ":call Invert_Case()<CR>:<CR>")
+" Change number mode with \n.
+call Mapping("n", ":call Number(1)<CR>:<CR>")
+" Expand or shrink window size with \> and \<.
+call Mapping(">", ":call Resize_Columns('+')<CR>:<CR>")
+call Mapping("<", ":call Resize_Columns('-')<CR>:<CR>")
+" Clear search pattern with \/.
+call Mapping("/", ":let @/=\"\"<CR>:<CR>")
+
+" Forget the Ex mode mapping.
+map Q <NOP>
+
+" Vim tip 99: What's the highlighting group under the cursor?
+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>")
+
+fun! Uncluttered_Buffer()
+  if exists("uncluttered_buffer")
+    if uncluttered_buffer == 1
+      return 1
+    endif
+  endif
+
+  if version >= "600"
+    if &buftype != ''
+      return 1
+    endif
+  endif
+
+  if &ft == 'perforce'
+    return 1
+  endif
+
+  if &ft == 'svn'
+    return 1
+  endif
+
+  if &ft == 'gitcommit'
+    return 1
+  endif
+
+  return 0
+endfun
+
+fun! Startup_Resize()
+  let l:columns = 0
+
+  " Resize for numbers.
+  if &number
+    if version >= "700"
+      let l:columns = &numberwidth
+    else
+      let l:columns = 8
+    endif
+  endif
+
+  " Resize for signs.
+  if has("signs")
+    if g:marksigns
+      if version >= "600"
+        let l:columns = l:columns + 2
+      endif
+    endif
+  endif
+
+  if g:oldcols < (80 + l:columns)
+    call Resize_Columns("+", l:columns)
+  endif
+endfun
+
+" Show numbers by default.
+au Display VimEnter * if ! Uncluttered_Buffer() | call Number(0) | endif
 endif
 
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
@@ -219,43 +456,295 @@ endif
 if version >= "600"
 version 6.0
 
-" Allow room for numbers.
-se numberwidth=5
+" Remember quickfix state.
+let g:quickfixing=0
 
-" Track changing number mode.
-let g:numbercols=&columns
-let g:numberchanges=0
+" Set indenting by filetype.
+filetype indent on
 
 " Less intrusive syntax highlighting.
 syn enable
 
-" Nice GUI colour.
+" Set colours.
 if has("gui_running")
-  se guifont=Bitstream\ Vera\ Sans\ Mono\ 12
-  colo darkblue
+  try
+    if has("win32")
+      se guifont=DejaVu_Sans_Mono:h10:cANSI
+    else
+      se guifont=DejaVu\ Sans\ Mono\ 10
+    endif
+  catch
+  endtry
 endif
-if has("win32")
-  se guifont=Bitstream_Vera_Sans_Mono:h10:cANSI
+if has("gui_running") || &t_Co > 16
+  try
+    colo iain
+  catch
+  endtry
 endif
 
+" Ignore whitespace when diffing.
+se diffopt=filler,iwhite
+
 " Expand window when doing a vertical diff.
 if &diff
-  let &columns = 164
+  if &columns < 161
+    let &columns = &columns * 2
+  endif
 endif
 
-" Status bar matches the colour.
-highlight StatusLine guifg=white guibg=blue ctermbg=white ctermfg=blue
+" Remember that we are opening the quickfix window.
+au Mode BufWinEnter quickfix let g:quickfixing=1
+au Mode BufUnload * if &ft == "qf" | let g:quickfixing=0 | endif
 
-" Numbers in blue.
-highlight LineNr term=underline cterm=bold guifg=blue ctermfg=blue
+" Allow in-place editing of crontabs.
+au Mode FileType crontab set backupcopy=yes
 
 " Make * and # work the way you expect in visual mode.
 vnoremap * y/\V<C-R>=substitute(escape(@@,"/\\"),"\n","\\\\n","ge")<CR><CR>
 vnoremap # y?\V<C-R>=substitute(escape(@@,"?\\"),"\n","\\\\n","ge")<CR><CR>
 
+" Set mark and update highlighting.
+if has("signs")
+  au Signs BufEnter * call <SID>Highlight_Signs()
+  au Signs CursorHold * call <SID>Highlight_Signs()
+endif
+
+fun! <SID>Prep_Signs()
+  if ! exists("b:signdot") || ! g:marksigns
+    let b:signdot=0
+  endif
+  if ! exists("b:signdash") || ! g:marksigns
+    let b:signdash=0
+  endif
+  if ! exists("b:signquote") || ! g:marksigns
+    let b:signquote=0
+  endif
+  if ! exists("b:signcaret") || ! g:marksigns
+    let b:signcaret=0
+  endif
+  if ! exists("b:signless") || ! g:marksigns
+    let b:signless=0
+  endif
+  if ! exists("b:signgreater") || ! g:marksigns
+    let b:signgreater=0
+  endif
+  if ! exists("b:signleft") || ! g:marksigns
+    let b:signleft=0
+  endif
+  if ! exists("b:signright") || ! g:marksigns
+    let b:signright=0
+  endif
+  if ! exists("b:signsquareleft") || ! g:marksigns
+    let b:signsquareleft=0
+  endif
+  if ! exists("b:signsquareright") || ! g:marksigns
+    let b:signsquareright=0
+  endif
+  if ! exists("b:signbraceleft") || ! g:marksigns
+    let b:signbraceleft=0
+  endif
+  if ! exists("b:signbraceright") || ! g:marksigns
+    let b:signbraceright=0
+  endif
+  if ! exists("b:signa") || ! g:marksigns
+    let b:signa=0
+  endif
+  if ! exists("b:signb") || ! g:marksigns
+    let b:signb=0
+  endif
+  if ! exists("b:signc") || ! g:marksigns
+    let b:signc=0
+  endif
+  if ! exists("b:signd") || ! g:marksigns
+    let b:signd=0
+  endif
+  if ! exists("b:signe") || ! g:marksigns
+    let b:signe=0
+  endif
+  if ! exists("b:signf") || ! g:marksigns
+    let b:signf=0
+  endif
+  if ! exists("b:signA") || ! g:marksigns
+    let b:signA=0
+  endif
+  if ! exists("b:signB") || ! g:marksigns
+    let b:signB=0
+  endif
+  if ! exists("b:signC") || ! g:marksigns
+    let b:signC=0
+  endif
+  if ! exists("b:signD") || ! g:marksigns
+    let b:signD=0
+  endif
+  if ! exists("b:signE") || ! g:marksigns
+    let b:signE=0
+  endif
+  if ! exists("b:signF") || ! g:marksigns
+    let b:signF=0
+  endif
+endfun!
+
+fun! <SID>Place_Sign(number, line, old, name)
+  if a:line == a:old
+    return a:old
+  endif
+
+  exe "sign unplace " . (g:firstsign + a:number) . " buffer=" . bufnr("")
+  " Don't place the sign if it would conflict with the last change sign.
+  exe "sign place " . (g:firstsign + a:number) . " line=" . a:line . " name=" . a:name . " buffer=" . bufnr("")
+  return a:line
+endfun
+
+fun! <SID>Highlight_Signs(...)
+  if ! has("signs") || ! g:marksigns || Uncluttered_Buffer()
+    return
+  endif
+
+  call <SID>Prep_Signs()
+
+  let b:signdot = <SID>Place_Sign(0, line("'."), b:signdot, "MarkDot")
+  let b:signdash = <SID>Place_Sign(1, line("''"), b:signdash, "MarkDash")
+  let b:signquote = <SID>Place_Sign(2, line("'\""), b:signquote, "MarkQuote")
+  let b:signcaret = <SID>Place_Sign(3, line("'^"), b:signcaret, "MarkCaret")
+  let b:signless = <SID>Place_Sign(4, line("'<"), b:signless, "MarkLess")
+  let b:signgreater = <SID>Place_Sign(5, line("'>"), b:signgreater, "MarkGreater")
+  let b:signleft = <SID>Place_Sign(6, line("'("), b:signleft, "MarkLeft")
+  let b:signright = <SID>Place_Sign(7, line("')"), b:signright, "MarkRight")
+  let b:signsquareleft = <SID>Place_Sign(8, line("'["), b:signsquareleft, "MarkSquareLeft")
+  let b:signsquareright = <SID>Place_Sign(9, line("']"), b:signsquareright, "MarkSquareRight")
+  let b:signbraceleft = <SID>Place_Sign(10, line("'{"), b:signbraceleft, "MarkBraceLeft")
+  let b:signbraceright = <SID>Place_Sign(11, line("'}"), b:signbraceright, "MarkBraceRight")
+
+  let b:signa = <SID>Place_Sign(12, line("'a"), b:signa, "Marka")
+  let b:signb = <SID>Place_Sign(13, line("'b"), b:signb, "Markb")
+  let b:signc = <SID>Place_Sign(15, line("'c"), b:signc, "Markc")
+  let b:signd = <SID>Place_Sign(16, line("'d"), b:signd, "Markd")
+  let b:signe = <SID>Place_Sign(17, line("'e"), b:signe, "Marke")
+  let b:signf = <SID>Place_Sign(18, line("'f"), b:signf, "Markf")
+  let b:signA = <SID>Place_Sign(19, line("'A"), b:signA, "MarkA")
+  let b:signB = <SID>Place_Sign(20, line("'B"), b:signB, "MarkB")
+  let b:signC = <SID>Place_Sign(21, line("'C"), b:signC, "MarkC")
+  let b:signD = <SID>Place_Sign(22, line("'D"), b:signD, "MarkD")
+  let b:signE = <SID>Place_Sign(23, line("'E"), b:signE, "MarkE")
+  let b:signF = <SID>Place_Sign(24, line("'F"), b:signF, "MarkF")
+endfun
+
+" Toggle signs.
+fun! <SID>Cycle_Signs(resize)
+  if ! has("signs")
+    return
+  endif
+  call Iain_Vars()
+  let g:marksigns = ! g:marksigns
+
+  if g:marksigns
+    " Signs to highlight marks.
+    " Syntax won't work properly in Vim 6.
+    sign define MarkDash text=' texthl=MarkSign
+    sign define MarkDot text=* texthl=MarkDot
+    sign define MarkQuote text=" texthl=MarkSign
+    sign define MarkCaret text=^ texthl=MarkDot
+    sign define MarkLess text=< texthl=MarkSign
+    sign define MarkGreater text=> texthl=MarkSign
+    sign define MarkLeft text=( texthl=MarkSign
+    sign define MarkRight text=) texthl=MarkSign
+    sign define MarkSquareLeft text=[ texthl=MarkSign
+    sign define MarkSquareRight text=] texthl=MarkSign
+    sign define MarkBraceLeft text={ texthl=MarkSign
+    sign define MarkBraceRight text=} texthl=MarkSign
+    sign define Marka text=a texthl=MarkSign linehl=MarkLine
+    sign define Markb text=b texthl=MarkSign linehl=MarkLine
+    sign define Markc text=c texthl=MarkSign linehl=MarkLine
+    sign define Markd text=d texthl=MarkSign linehl=MarkLine
+    sign define Marke text=e texthl=MarkSign linehl=MarkLine
+    sign define Markf text=f texthl=MarkSign linehl=MarkLine
+    sign define MarkA text=A texthl=MarkSign linehl=MarkLine
+    sign define MarkB text=B texthl=MarkSign linehl=MarkLine
+    sign define MarkC text=C texthl=MarkSign linehl=MarkLine
+    sign define MarkD text=D texthl=MarkSign linehl=MarkLine
+    sign define MarkE text=E texthl=MarkSign linehl=MarkLine
+    sign define MarkF text=F texthl=MarkSign linehl=MarkLine
+
+    if a:resize
+      call Resize_Columns("+", 2)
+    endif
+    call <SID>Highlight_Signs()
+  else
+    exe "sign unplace " . (g:firstsign + 0)
+    exe "sign unplace " . (g:firstsign + 1)
+    exe "sign unplace " . (g:firstsign + 2)
+    exe "sign unplace " . (g:firstsign + 3)
+    exe "sign unplace " . (g:firstsign + 4)
+    exe "sign unplace " . (g:firstsign + 5)
+    exe "sign unplace " . (g:firstsign + 6)
+    exe "sign unplace " . (g:firstsign + 7)
+    exe "sign unplace " . (g:firstsign + 8)
+    exe "sign unplace " . (g:firstsign + 9)
+    exe "sign unplace " . (g:firstsign + 10)
+    exe "sign unplace " . (g:firstsign + 11)
+    exe "sign unplace " . (g:firstsign + 12)
+    exe "sign unplace " . (g:firstsign + 13)
+    exe "sign unplace " . (g:firstsign + 14)
+    exe "sign unplace " . (g:firstsign + 15)
+    exe "sign unplace " . (g:firstsign + 16)
+    exe "sign unplace " . (g:firstsign + 17)
+    exe "sign unplace " . (g:firstsign + 18)
+    exe "sign unplace " . (g:firstsign + 19)
+    exe "sign unplace " . (g:firstsign + 20)
+    exe "sign unplace " . (g:firstsign + 21)
+    exe "sign unplace " . (g:firstsign + 22)
+    exe "sign unplace " . (g:firstsign + 23)
+    exe "sign unplace " . (g:firstsign + 24)
+
+    sign undefine MarkDash
+    sign undefine MarkDot
+    sign undefine MarkQuote
+    sign undefine MarkCaret
+    sign undefine MarkLess
+    sign undefine MarkGreater
+    sign undefine MarkLeft
+    sign undefine MarkRight
+    sign undefine MarkSquareLeft
+    sign undefine MarkSquareRight
+    sign undefine MarkBraceLeft
+    sign undefine MarkBraceRight
+    sign undefine Marka
+    sign undefine Markb
+    sign undefine Markc
+    sign undefine Markd
+    sign undefine Marke
+    sign undefine Markf
+    sign undefine MarkA
+    sign undefine MarkB
+    sign undefine MarkC
+    sign undefine MarkD
+    sign undefine MarkE
+    sign undefine MarkF
+
+    call <SID>Prep_Signs()
+    if a:resize
+      call Resize_Columns("-", 2)
+    endif
+  endif
+endfun
+
 " Change list mode.
 fun! Cycle_List()
-  let basic='tab:\\_,trail:_,extends:<,precedes:>'
+  " Pretty UTF-8 listchars.
+  if has('multi_byte') && (&tenc =~? '^u\(tf\|cs\)' || (! strlen(&tenc) && &enc =~? '^u\(tf\|cs\)')) && v:version >= "602"
+    let basic='tab:»·,trail:…,extends:«,precedes:»'
+    let eol='eol:¶'
+    if version >= "700"
+      let basic=basic . ',nbsp:•'
+    endif
+  else
+    let basic='tab:\\_,trail:_,extends:<,precedes:>'
+    let eol='eol:$'
+    if version >= "700"
+      let basic=basic . ',nbsp:+'
+    endif
+  endif
   call Iain_Vars()
   let b:iainlist = b:iainlist + 1
   if b:iainlist > 2
@@ -267,7 +756,7 @@ fun! Cycle_List()
     exec "set lcs=" . basic
     set list
   else
-    exec "set lcs=" . basic . ",eol:$"
+    exec "set lcs=" . basic . "," . eol
     set list
   endif
 endfun
@@ -279,80 +768,119 @@ fun! Cycle_HexStatusLine()
   call Show_StatusLine()
 endfun
 
-" Cycle between number mode.
-" FIXME: Toggling in a split window doesn't work properly.  We need to track 
-" the number of windows and number modes.  Something for later...
-fun! Cycle_Number()
-  if &number
-    " Restore width.
-    if &t_WS =~ '^\e.'
-      " Track changes.
-      let g:numberchanges=g:numberchanges-1
-      if g:numberchanges<0
-        g:numberchanges=0
-      endif
+" Cycle verbose display of toolbar stuff.
+fun! Cycle_VerboseStatusLine()
+  call Iain_Vars()
+  let b:iainverbose = ! b:iainverbose
+  call Show_StatusLine()
+endfun
 
-      " Change size back if this was the last window.
-      if g:numberchanges == 0
-        let &columns=g:numbercols
-      endif
+" Toggle quickfix window.
+fun! Cycle_Quickfix()
+  if g:quickfixing == 1
+    cclose
+    let g:quickfixing=0
+  else
+    copen
+  endif
+endfun
+
+" Swap hex/decimal statusline with \x.
+call Mapping("x", ":call Cycle_HexStatusLine()<CR>:<CR>")
+" Change statusline verbosity with \v.
+call Mapping("v", ":call Cycle_VerboseStatusLine()<CR>:<CR>")
+" Cycle list styles with \l.
+call Mapping("l", ":call Cycle_List()<CR>:<CR>")
+" Toggle tags with \t.
+call Mapping("t", ":Tlist<CR>")
+" Change foldmethod with \f.
+call Mapping("f", ":se foldenable!<CR>:<CR>")
+" Toggle quickfix window with \q.
+call Mapping("q", ":call Cycle_Quickfix()<CR>:<CR>")
+" Rerun filetype detection with \s.  The s is for syntax, as this will be
+" updated as a side-effect.
+call Mapping("s", ":filetype detect<CR>:<CR>")
+" Toggle marks with \m.
+call Mapping("m", ":call <SID>Cycle_Signs(1)<CR>:<CR>")
+
+fun! <SID>Iain_Colour(colour)
+  if &t_Co == 88
+    if a:colour == "darkblue"
+      return 17
+    elseif a:colour == "darkmagenta"
+      return 33
+    elseif a:colour == "darkred"
+      return 32
+    elseif a:colour == "red"
+      return 64
+    endif
+  elseif &t_Co == 256
+    if a:colour == "darkblue"
+      return 17
+    elseif a:colour == "darkmagenta"
+      return 90
+    elseif a:colour == "darkred"
+      return 88
+    elseif a:colour == "red"
+      return 196
     endif
-    set nonumber
   else
-    " Save width between number toggling.
-    if &t_WS =~ '^\e'
-      " Expand if this was the first change.
-      if g:numberchanges == 0
-        let g:numbercols=&columns
-        let &columns=&columns+&numberwidth
+    return a:colour
+  endif
+endfun
+
+" Change status bar colour when various things happen.
+" Flags: H/h: Cursor held/moved.
+"        F/f: Focus gained/lost.
+"        I/i: Insert mode entered/left.
+fun! Highlight_StatusLine(flag)
+  " Get current status.
+  call Iain_Vars()
+
+  " Change the status based on the flag.  XXX: Does Vim let us to do flags?
+  let re = "[" . tolower(a:flag) . toupper(a:flag) . "]"
+  let b:iainstatus = substitute(b:iainstatus, re, a:flag, "")
+
+  let l:normalcolour = "darkblue"
+  let l:editingcolour = "darkmagenta"
+  let l:warningcolour = "darkred"
+  let l:readonlycolour = "red"
+
+  " Default colour.
+  let l:colour = l:normalcolour
+  " Maybe override depending on status.
+  if b:iainstatus =~# "H"
+    if b:iainstatus =~# "I"
+      " Held in insert mode.  Add extra highlight if we don't have focus.
+      if b:iainstatus =~# "f"
+        let l:colour = l:warningcolour
+      else
+        let l:colour = l:editingcolour
       endif
+    endif
+  else
+    if b:iainstatus =~# "I"
+      " Regular insert mode.
+      let l:colour = l:editingcolour
+    endif
+  endif
 
-      " Track changes.
-      let g:numberchanges=g:numberchanges+1
+  " Override again if readonly.
+  if l:colour != l:normalcolour
+    if getbufvar("", "&ro")
+      let l:colour = l:readonlycolour
     endif
-    set number
   endif
-endfun
 
-" Toggle case-sensitivity.
-fun! Invert_Case()
-  let &ic = ! &ic
-endfun
+  let l:termcolour = <SID>Iain_Colour(l:colour)
 
-" We'll use Q for various commands.  Unmap it.
-map Q <Nop>
-
-" Change to ts=2 with Q2.
-map Q2 :se ts=2<CR>:<CR>
-" Change to ts=4 with Q4.
-map Q4 :se ts=4<CR>:<CR>
-" Change to ts=8 with Q8.
-map Q8 :se ts=8<CR>:<CR>
-" Change to ts=16 with Q6.
-map Q6 :se ts=16<CR>:<CR>
-" Change to ts=32 with Q3.
-map Q3 :se ts=32<CR>:<CR>
-" Change foldmethod with Qf.
-map Qf :se foldenable!<CR>:<CR>
-" Toggle paste mode with Qp.
-map Qp :se paste!<CR>:<CR>
-" Swap hex/decimal statusline with Qx
-map Qx :call Cycle_HexStatusLine()<CR>:<CR>
-" Swap case-sensitivity with Qc.
-map Qc :call Invert_Case()<CR>:<CR>
-" Cycle list styles with Ql.
-map Ql :call Cycle_List()<CR>:<CR>
-" Change number mode with Qn.
-map Qn :call Cycle_Number()<CR>:<CR>
-" Toggle tags with Qt.
-map Qt :Tlist<CR>
-
-" Leaving Perl mode.
-fun! PerlMode_unmap()
-  set cinkeys=oldcinkeys
-  set cinwords=oldcinwords
-  set foldmethod=manual
+  exec "highlight StatusLine gui=bold term=bold cterm=bold guifg=white guibg=" . l:colour . " ctermfg=white ctermbg=" . l:termcolour
 endfun
+
+au Display VimEnter * call Highlight_StatusLine("")
+
+" Show signs by default.
+au Display VimEnter * call <SID>Cycle_Signs(0)
 endif
 
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
@@ -361,6 +889,115 @@ endif
 if version >= "700"
 version 7.0
 
+" Helper to show tab name.
+fun! <SID>TabName(label, gui)
+  let l:label = a:label
+  if l:label == ""
+    let l:label = "No Name"
+    if a:gui
+      let l:label = "[" . l:label . "]"
+    endif
+  else
+    let l:label = fnamemodify(l:label, ":t")
+    if strlen(l:label) >= 18
+      let l:label = l:label[0:17] . ".."
+    endif
+  endif
+  return l:label
+endfun
+
+" Find out if any buffer was modified.
+fun! <SID>TabModified(buflist)
+  let l:i = 0
+  while l:i < len(a:buflist)
+    if getbufvar(a:buflist[l:i], "&modified") == 1
+      return "+"
+    endif
+    let l:i = l:i + 1
+  endwhile
+  return ""
+endfun
+
+" Tab line.
+fun! Show_TabLine()
+  let l:s = "%#TabLineFill#Tabs:"
+
+  let l:i = 0
+  while l:i < tabpagenr("$")
+    let l:i = l:i + 1
+    " Get the label.
+    let l:buflist = tabpagebuflist(l:i)
+    let l:winnr = tabpagewinnr(l:i)
+    let l:n = tabpagewinnr(l:i, "$")
+    let l:label = <SID>TabName(bufname(l:buflist[l:winnr - 1]), 0)
+    let l:modified = <SID>TabModified(l:buflist)
+
+    " Choose highlighting.
+    if l:i == tabpagenr()
+      let l:s .= "%#TabLineSel#[" . l:n . l:modified . " " . l:label . "]"
+    else
+      let l:s .= "%#TabLine# " . l:n . l:modified . " " . l:label . " "
+    endif
+  endwhile
+
+  " Padding.
+  let l:s .= "%#TabLine#%T"
+  return l:s
+endfun
+
+" Per tab label for the GUI.
+fun! Show_GUITabLine()
+  let l:buflist = tabpagebuflist(v:lnum)
+  let l:winnr = tabpagewinnr(v:lnum)
+  let l:s = tabpagewinnr(v:lnum, "$")
+  let l:label = <SID>TabName(bufname(l:buflist[l:winnr - 1]), 1)
+  let l:modified = <SID>TabModified(l:buflist)
+
+  let l:s .= l:modified . " " . l:label
+  return l:s
+endfun
+
+se tabline=%!Show_TabLine()
+se guitablabel=%!Show_GUITabLine()
+
+au StatusLine CursorHoldI * call Highlight_StatusLine("H")
+au StatusLine CursorMovedI * call Highlight_StatusLine("h")
+au StatusLine FocusGained * call Highlight_StatusLine("F")
+au StatusLine FocusLost * call Highlight_StatusLine("f")
+au StatusLine InsertEnter * call Highlight_StatusLine("I")
+au StatusLine InsertLeave * call Highlight_StatusLine("i")
+
+if has("signs")
+  au Signs InsertEnter * call <SID>Highlight_Signs()
+  au Signs InsertLeave * call <SID>Highlight_Signs()
+endif
+
+" Limit the size of the popup menu when completing.
+se pumheight=20
+
+" Make diffs vertical by default.
+se diffopt+=vertical
+
+" Set size of numbers column.
+se numberwidth=5
+
 " Add "previous tab" mapping as gb.
-map gb :tabPrev<CR>
+map gb :tabprevious<CR>:<CR>
+
+" Transparency.
+if has("gui_macvim")
+  se transparency=15
+endif 
+
+" Yet more GUI options.  Add tabs.
+se go+=e
+
+" Perforce.
+let g:p4EnableMenu=1
+let g:p4Presets='P4CONFIG'
+endif
+
+if version >= "500"
+" Resize after startup.
+au Display VimEnter * call Startup_Resize()
 endif