""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-" Multi-version vimrc compatible with version 4 and above.
+" Multi-version vimrc compatible with version 4 and above. vim:set fdm=marker:
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" Note that "if <condition> | call Something() | endif" syntax is unsupported
" "if version" syntax used later in this file so we don't use it. No attempt
" is made to make this configuration compatible with Vim 3.
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+"{{{1
" No compatibility mode.
se nocp
" Swap jump keys.
noremap ' `
noremap ` '
+"}}}1
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" Handle options only available in Vim 5 and above.
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-if version >= "500"
+if version >= "500" "{{{1
version 5.0
" Tell Vim we use dark backgrounds in our terminals.
command! Wq :wq
command! Wqa :wqa
-" Set up our variables.
-fun! Iain_Vars()
- if ! exists("b:iainlist")
- let b:iainlist = 0
- endif
- 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
+" Helper to initialise a variable.
+fun! Prep_Var(var, value) "{{{2
+ if exists(a:var)
+ return
endif
+ exe "let " . a:var . "=" . a:value
+endfun "}}}2
+
+" Set up our variables.
+fun! Iain_Vars() "{{{2
+ call Prep_Var("b:iainlist", 0)
+ call Prep_Var("b:iainhex", 0)
+ call Prep_Var("b:iainverbose", 0)
+ " Window Flags: (F)ocused, (I)nsert mode, Cursor (H)old.
+ call Prep_Var("b:iainstatus", "'Fih'")
+ call Prep_Var("g:iainextracolumnsnumber", 0)
+ call Prep_Var("g:iainextracolumnslist", 0)
if has("signs")
- if ! exists("g:marksigns")
- let g:marksigns = 0
- endif
- if ! exists("g:firstsign")
- let g:firstsign = 100
- endif
+ call Prep_Var("g:marksigns", 0)
+ call Prep_Var("g:firstsign", 100)
endif
-endfun
+endfun "}}}2
" Helper for status line.
" Show space, underscore or dollar sign depending on list mode.
-fun! Show_List()
+fun! Show_List() "{{{2
call Iain_Vars()
if b:iainlist == 0
" No list.
return " "
- elseif b:iainlist == 1
- " Just tabs.
- return "_"
+ elseif <SID>Has_Unicode()
+ if b:iainlist == 1
+ " Just tabs.
+ return "»"
+ else
+ " Full list.
+ return "¶"
+ endif
else
- " Full list.
- return "\$"
+ if b:iainlist == 1
+ return "_"
+ else
+ return "\$"
+ endif
endif
-endfun
+endfun "}}}2
" Helper for status line.
" Show c or C to denote case-sensitivity.
-fun! Show_Case()
+fun! Show_Case() "{{{2
if &ic
return "c"
else
return "C"
endif
-endfun
+endfun "}}}2
" Helper for status line.
" Show the size of the tabstop.
-fun! Show_Tabstop()
+fun! Show_Tabstop() "{{{2
return &ts
-endfun
+endfun "}}}2
" Helper for status line.
" Show p when paste mode is on.
-fun! Show_Paste()
+fun! Show_Paste() "{{{2
if &paste
return "p"
else
return ""
endif
-endfun
+endfun "}}}2
" Show the window title.
-fun! Show_TitleString()
+fun! Show_TitleString() "{{{2
if bufname("") == ""
let l:ts1='Vim'
else
let l:ts1=l:ts1 . " " . v:servername
endif
return l:ts1
-endfun
+endfun "}}}2
" Show the status line.
-fun! Show_StatusLine()
+fun! Show_StatusLine() "{{{2
call Iain_Vars()
- 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:sl1='%2n\:\ %<%1*%f%0*\ [%{Show_List()}%{Show_Case()}%{Show_Tabstop()}%{Show_Paste()}%Y%M%R]\ '
+ let l:sl3='L:%1*%4.6l%0*/%-4.6L\ C:%1*%3.6c%0*\ \|\ %P'
let l:hexformat='%b'
if b:iainhex
let l:hexformat='0\x%02B'
endif
if b:iainverbose
+ let l:sl1=l:sl1 . v:version . '\ %='
let l:sl2=l:hexformat . '\ \|\ P:%4.6o\ '
else
+ let l:sl1=l:sl1 . '%='
let l:sl2=''
endif
exec "set statusline=" . l:sl1 . l:sl2 . l:sl3
-endfun
+endfun "}}}2
" Toggle case-sensitivity.
-fun! Invert_Case()
+fun! Invert_Case() "{{{2
let &ic = ! &ic
-endfun
+endfun "}}}2
" Grow or shrink the window size.
-fun! Resize_Columns(op, ...)
+fun! Resize_Columns(op, ...) "{{{2
+ if a:op == ""
+ return
+ endif
+
if a:0 == 0
" Vim 5 hardcodes the size of numbers column to 8.
if version >= "700"
endif
exe l:resize
-endfun
+endfun "}}}2
+
+" Set extra columns depending on window status.
+fun! Extra_Columns(extra, var, ...) "{{{2
+ if v:version < "700"
+ return ""
+ endif
+
+ call Iain_Vars()
+
+ if a:0 == 0
+ let l:condition = ""
+ else
+ let l:condition = a:1
+ endif
+
+ let l:i = 1
+ let l:num_windows = 0
+ while l:i <= winnr("$")
+ let l:val = 0
+ exe "if getwinvar(" . l:i . ", '" . a:var . "') " . l:condition . " | let l:val = 1 | endif"
+ if l:val
+ let l:num_windows = l:num_windows + 1
+ endif
+ let l:i = l:i + 1
+ endwhile
+
+ let l:extra = "g:iainextracolumns" . a:extra
+ exe "let l:val = " . l:extra
+
+ if l:num_windows == l:val
+ return ""
+ endif
+ exe "let " . l:extra . " = " . l:num_windows
+
+ if l:num_windows == 0
+ return "-"
+ elseif l:val == 0
+ return "+"
+ endif
+endfun "}}}2
" Toggle number display.
-fun! Number(resize)
+fun! Number(resize) "{{{2
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
+ " Ensure we keep track of any extra columns even if we aren't resizing.
+ " This prevents confusion when number is set at startup.
+ let l:extra = Extra_Columns("number", "&number")
- 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
+ if a:resize
+ call Resize_Columns(l:extra)
endif
-endfun
+endfun "}}}2
" Restore window size.
au Display VimLeave * if exists("g:oldcols") | call Resize_Columns("-", (&columns - g:oldcols)) | endif
au Mode BufLeave * if &ft == "make" | call MakeMode_unmap() | endif
" Entering Make mode.
-fun! MakeMode_map()
- call Iain_Vars()
+fun! MakeMode_map() "{{{2
+ call Iain_Vars()
let b:iainlist=1
call Cycle_List()
set ts=8
set noexpandtab
-endfun
+endfun "}}}2
" Leaving Make mode.
-fun! MakeMode_unmap()
+fun! MakeMode_unmap() "{{{2
call Cycle_List()
set ts=2
set expandtab
-endfun
+endfun "}}}2
" 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)
+fun! Mapping(keysequence,mapping) "{{{2
if version < "600"
exec "map \\" . a:keysequence . " " . a:mapping
else
exec "map <Leader>" . a:keysequence . " " . a:mapping
endif
-endfun
+endfun "}}}2
" Use - and = to create underlines.
call Mapping("-", "yyp:s/./-/g<RETURN>:let @/=''<RETURN>:<RETURN>")
" 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>")
+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 \<.
" 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()
+fun! Uncluttered_Buffer() "{{{2
if exists("uncluttered_buffer")
if uncluttered_buffer == 1
return 1
endif
return 0
-endfun
+endfun "}}}2
-fun! Startup_Resize()
+fun! Startup_Resize() "{{{2
let l:columns = 0
" Resize for numbers.
if g:oldcols < (80 + l:columns)
call Resize_Columns("+", l:columns)
endif
-endfun
+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
-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"
+if version >= "600" "{{{1
version 6.0
if has("win32")
" Set mark and update highlighting.
if has("signs")
- au Signs BufEnter * call <SID>Highlight_Signs()
+ au Signs BufReadPost * 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)
+" 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
" 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
+endfun "}}}2
-fun! <SID>Highlight_Signs(...)
+fun! <SID>Highlight_Signs(...) "{{{2
if ! has("signs") || ! g:marksigns || Uncluttered_Buffer()
return
endif
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
+endfun "}}}2
" Toggle signs.
-fun! <SID>Cycle_Signs(resize)
+fun! <SID>Cycle_Signs(resize) "{{{2
if ! has("signs")
return
endif
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 MarkCaret text=^ texthl=MarkDot
sign define MarkLess text=< texthl=MarkSign
sign define MarkGreater text=> texthl=MarkSign
sign define MarkLeft text=( texthl=MarkSign
call Resize_Columns("-", 2)
endif
endif
-endfun
+endfun "}}}2
-fun! <SID>Has_Unicode()
+" Do we have Unicode?
+fun! <SID>Has_Unicode() "{{{2
if ! has('multi_byte')
return 0
endif
endif
return 0
-endfun
+endfun "}}}2
" Change list mode.
-fun! Cycle_List()
+fun! Cycle_List() "{{{2
" Pretty UTF-8 listchars.
if <SID>Has_Unicode()
let basic='tab:»·,trail:…,extends:«,precedes:»'
call Iain_Vars()
let b:iainlist = b:iainlist + 1
if b:iainlist > 2
- call Resize_Columns("-", 1)
let b:iainlist = 0
endif
if b:iainlist == 0
- set nolist
+ setlocal nolist
elseif b:iainlist == 1
- exec "set lcs=" . basic
- set list
+ exec "setlocal lcs=" . basic
+ setlocal list
else
- call Resize_Columns("+", 1)
- exec "set lcs=" . basic . "," . eol
- set list
+ exec "setlocal lcs=" . basic . "," . eol
+ setlocal list
endif
-endfun
+
+ call Resize_Columns(Extra_Columns("list", "&lcs", " =~# 'eol'"), 1)
+endfun "}}}2
" Cycle between hex and decimal display of toolbar stuff.
-fun! Cycle_HexStatusLine()
+fun! Cycle_HexStatusLine() "{{{2
call Iain_Vars()
let b:iainhex = ! b:iainhex
call Show_StatusLine()
-endfun
+endfun "}}}2
" Cycle verbose display of toolbar stuff.
-fun! Cycle_VerboseStatusLine()
+fun! Cycle_VerboseStatusLine() "{{{2
call Iain_Vars()
let b:iainverbose = ! b:iainverbose
call Show_StatusLine()
-endfun
+endfun "}}}2
" Toggle quickfix window.
-fun! Cycle_Quickfix()
+fun! Cycle_Quickfix() "{{{2
if g:quickfixing == 1
cclose
let g:quickfixing=0
else
copen
endif
-endfun
+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>")
+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("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>")
+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
- 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()
-
- " 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
-
- " Override again if readonly.
- if l:colour != l:normalcolour
- if getbufvar("", "&ro")
- let l:colour = l:readonlycolour
- endif
- endif
-
- let l:termcolour = <SID>Iain_Colour(l:colour)
-
- 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
+endif "}}}1
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
" Handle options only available in Vim 7 and above.
""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-if version >= "700"
+if version >= "700" "{{{1
version 7.0
" Helper to show tab name.
-fun! <SID>TabName(label, gui)
+fun! <SID>TabName(label, gui) "{{{2
let l:label = a:label
if l:label == ""
let l:label = "No Name"
endif
endif
return l:label
-endfun
+endfun "}}}2
" Find out if any buffer was modified.
-fun! <SID>TabModified(buflist)
+fun! <SID>TabModified(buflist) "{{{2
let l:i = 0
while l:i < len(a:buflist)
if getbufvar(a:buflist[l:i], "&modified") == 1
let l:i = l:i + 1
endwhile
return ""
-endfun
+endfun "}}}2
" Tab line.
-fun! Show_TabLine()
+fun! Show_TabLine() "{{{2
let l:s = "%#TabLineFill#Tabs:"
let l:i = 0
" Padding.
let l:s .= "%#TabLine#%T"
return l:s
-endfun
+endfun "}}}2
" Per tab label for the GUI.
-fun! Show_GUITabLine()
+fun! Show_GUITabLine() "{{{2
let l:buflist = tabpagebuflist(v:lnum)
let l:winnr = tabpagewinnr(v:lnum)
let l:s = tabpagewinnr(v:lnum, "$")
let l:s .= l:modified . " " . l:label
return l:s
-endfun
+endfun "}}}2
se tabline=%!Show_TabLine()
se guitablabel=%!Show_GUITabLine()
" Perforce.
let g:p4EnableMenu=1
let g:p4Presets='P4CONFIG'
-endif
+endif "}}}1
-if version >= "500"
" Resize after startup.
+if version >= "500" "{{{1
au Display VimEnter * call Startup_Resize()
-endif
+endif "}}}1
git://git.iain.cx/iain / profile.git / blobdiff