+" 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() "{{{2
+ 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 "}}}2
+
+fun! Startup_Resize() "{{{2
+ 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 "}}}2
+
+" 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) "{{{2
+ " Get current status.
+ call Iain_Vars()
+
+ " Change the status based on the flag. XXX: Does Vim let us to do flags?
+ let l:ic = &ic
+ set ic
+ let b:iainstatus = substitute(b:iainstatus, a:flag, a:flag, "")
+ let &ic = l:ic
+
+ 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
+
+ " Override again if readonly.
+ if l:colour != l:normalcolour
+ if getbufvar("", "&ro")
+ let l:colour = l:readonlycolour
+ endif
+ endif
+
+ let l:termcolour = Iain_Colour(l:colour)
+
+ exec "highlight StatusLine gui=none term=none cterm=none guifg=white guibg=" . l:colour . " ctermfg=white ctermbg=" . l:termcolour
+ exec "highlight User1 gui=bold term=bold cterm=bold guifg=white guibg=" . l:colour . " ctermfg=white ctermbg=" . l:termcolour
+endfun "}}}2
+
+fun! Iain_Colour(colour) "{{{2
+ 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
+ else
+ return a:colour
+ endif
+endfun "}}}2
+
+au StatusLine VimEnter * call Highlight_StatusLine("")
+
+" Show numbers by default.
+au Display VimEnter * if ! Uncluttered_Buffer() | call Number(0) | endif
+
+" Position the compview plugin window.
+au Display BufEnter -SearchResults- set buftype=nowrite | set nonumber | wincmd J
+endif "}}}1
+
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+" Handle options only available in Vim 6 and above.
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+if version >= "600" "{{{1
+version 6.0
+
+if has("win32")
+ se encoding=utf-8
+endif
+
+" Remember quickfix state.
+let g:quickfixing=0
+
+" Set indenting by filetype.
+filetype indent on
+
+" Less intrusive syntax highlighting.
+syn enable
+
+" Set colours.
+if has("gui_running")
+ try
+ if has("win32")
+ se guifont=DejaVu_Sans_Mono:h10:cANSI
+ else
+ se guifont=DejaVu\ Sans\ Mono\ 10
+ endif
+ catch
+ endtry
+endif
+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
+ if &columns < 161
+ let &columns = &columns * 2
+ endif
+endif
+
+" 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
+
+" 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 BufReadPost * call <SID>Highlight_Signs()
+ au Signs CursorHold * call <SID>Highlight_Signs()
+endif
+
+" Helper to set buffer variable for a given sign.
+fun! <SID>Prep_Sign(sign) "{{{2
+ if ! exists("b:sign" . a:sign) || ! g:marksigns
+ exe "let b:sign" . a:sign . "=0"
+ endif
+endfun "}}}2
+
+fun! <SID>Prep_Signs() "{{{2
+ call <SID>Prep_Sign("dot")
+ call <SID>Prep_Sign("dash")
+ call <SID>Prep_Sign("quote")
+ call <SID>Prep_Sign("caret")
+ call <SID>Prep_Sign("less")
+ call <SID>Prep_Sign("greater")
+ call <SID>Prep_Sign("left")
+ call <SID>Prep_Sign("right")
+ call <SID>Prep_Sign("squareleft")
+ call <SID>Prep_Sign("squareright")
+ call <SID>Prep_Sign("braceleft")
+ call <SID>Prep_Sign("braceright")
+ call <SID>Prep_Sign("a")
+ call <SID>Prep_Sign("b")
+ call <SID>Prep_Sign("c")
+ call <SID>Prep_Sign("d")
+ call <SID>Prep_Sign("e")
+ call <SID>Prep_Sign("f")
+ call <SID>Prep_Sign("A")
+ call <SID>Prep_Sign("B")
+ call <SID>Prep_Sign("C")
+ call <SID>Prep_Sign("D")
+ call <SID>Prep_Sign("E")
+ call <SID>Prep_Sign("F")
+endfun! "}}}2
+
+fun! <SID>Place_Sign(number, line, old, name) "{{{2
+ 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 "}}}2
+
+fun! <SID>Highlight_Signs(...) "{{{2
+ 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 "}}}2
+
+" Toggle signs.
+fun! <SID>Cycle_Signs(resize) "{{{2
+ 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.
+ if <SID>Has_Unicode()
+ sign define MarkDash text=’ texthl=MarkSign
+ sign define MarkDot text=• texthl=MarkDot
+ sign define MarkQuote text=” texthl=MarkSign
+ sign define MarkCaret text=ʌ texthl=MarkDot
+ else
+ sign define MarkDash text=' texthl=MarkSign
+ sign define MarkDot text=* texthl=MarkDot
+ sign define MarkQuote text=" texthl=MarkSign
+ sign define MarkCaret text=^ texthl=MarkDot
+ endif
+ 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 "}}}2
+
+" Do we have Unicode?
+fun! <SID>Has_Unicode() "{{{2
+ if ! has('multi_byte')
+ return 0
+ endif
+
+ if version < "602"
+ return 0
+ endif
+
+ if &tenc =~? '^u\(tf\|cs\)'
+ return 1
+ endif
+
+ if ! strlen(&tenc) && &enc =~? '^u\(tf\|cs\)'
+ return 1
+ endif
+
+ return 0
+endfun "}}}2
+
+" Change list mode.
+fun! Cycle_List() "{{{2
+ " Pretty UTF-8 listchars.
+ if <SID>Has_Unicode()
+ 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
+ let b:iainlist = 0
+ endif
+ if b:iainlist == 0
+ setlocal nolist
+ elseif b:iainlist == 1
+ exec "setlocal lcs=" . basic
+ setlocal list
+ else
+ exec "setlocal lcs=" . basic . "," . eol
+ setlocal list
+ endif
+
+ call Resize_Columns(Extra_Columns("list", "&lcs", " =~# 'eol'"), 1)
+endfun "}}}2
+
+" Cycle between hex and decimal display of toolbar stuff.
+fun! Cycle_HexStatusLine() "{{{2
+ call Iain_Vars()
+ let b:iainhex = ! b:iainhex
+ call Show_StatusLine()
+endfun "}}}2
+
+" Cycle verbose display of toolbar stuff.
+fun! Cycle_VerboseStatusLine() "{{{2
+ call Iain_Vars()
+ let b:iainverbose = ! b:iainverbose
+ call Show_StatusLine()
+endfun "}}}2
+
+" Toggle quickfix window.
+fun! Cycle_Quickfix() "{{{2
+ if g:quickfixing == 1
+ cclose
+ let g:quickfixing=0
+ else
+ copen
+ endif
+endfun "}}}2
+
+" 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>")
+
+" Show signs by default.
+au Display VimEnter * call <SID>Cycle_Signs(0)
+endif "}}}1
+
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+" Handle options only available in Vim 7 and above.
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+if version >= "700" "{{{1
+version 7.0
+
+" Helper to show tab name.
+fun! <SID>TabName(label, gui) "{{{2
+ 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 "}}}2
+
+" Find out if any buffer was modified.
+fun! <SID>TabModified(buflist) "{{{2
+ 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 "}}}2
+
+" Tab line.
+fun! Show_TabLine() "{{{2
+ 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 "}}}2
+
+" Per tab label for the GUI.
+fun! Show_GUITabLine() "{{{2
+ 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 "}}}2
+
+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 :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 "}}}1
+
+" Resize after startup.
+if version >= "500" "{{{1
+au Display VimEnter * call Startup_Resize()
+endif "}}}1