" 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>
+
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" Handle options only available in Vim 5 and above.
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
if has("win32")
se guifont=DejaVu_Sans_Mono:h10:cANSI
endif
+hi! link TabLineSel StatusLine
+hi! link TabLine StatusLineNC
" Ignore whitespace when diffing.
se diffopt=filler,iwhite
" updated as a side-effect.
call Mapping("s", ":filetype detect<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
+ else
+ 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()
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 s:colour = "darkblue"
- let s:termcolour = ""
- let s:term88colour = "17"
- let s:term256colour = "17"
+ 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 s:colour = "darkred"
- let s:term88colour = "32"
- let s:term256colour = "88"
+ let l:colour = l:warningcolour
else
- let s:colour = "darkmagenta"
- let s:term88colour = "33"
- let s:term256colour = "90"
+ let l:colour = l:editingcolour
endif
endif
else
if b:iainstatus =~# "I"
" Regular insert mode.
- let s:colour = "darkmagenta"
- let s:term88colour = "33"
- let s:term256colour = "90"
+ let l:colour = l:editingcolour
endif
endif
- if &t_Co == 88
- let s:termcolour = s:term88colour
- elseif &t_Co == 256
- let s:termcolour = s:term256colour
- else
- let s:termcolour = s:colour
+ " Override again if readonly.
+ if l:colour != l:normalcolour
+ if getbufvar("", "&ro")
+ let l:colour = l:readonlycolour
+ endif
endif
- exec "highlight StatusLine guifg=white guibg=" . s:colour . " ctermbg=white ctermfg=" . s:termcolour
+ let l:termcolour = <SID>Iain_Colour(l:colour)
+
+ exec "highlight StatusLine guifg=white guibg=" . l:colour . " ctermbg=white ctermfg=" . l:termcolour
endfun
call Highlight_StatusLine("")
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 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 CursorHoldI * call Highlight_StatusLine("H")
au CursorMovedI * call Highlight_StatusLine("h")
au FocusGained * call Highlight_StatusLine("F")
au InsertEnter * call Highlight_StatusLine("I")
au InsertLeave * call Highlight_StatusLine("i")
+" Limit the size of the popup menu when completing.
+se pumheight=20
+
" Make diffs vertical by default.
se diffopt+=vertical
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'