Handle the case where $HOME has a trailing slash.
[profile.git] / .vimrc
diff --git a/.vimrc b/.vimrc
index ce3b0ca..a72c2dc 100644 (file)
--- a/.vimrc
+++ b/.vimrc
@@ -1,17 +1,17 @@
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-" Multi-version vimrc compatible with version 4 and above.   vim:set fdm=marker:
+" Multi-version vimrc compatible with version 4 and above.   vim6:set fdm=marker:
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 
-" Note that "if <condition> | call Something() | endif" syntax is unsupported 
-" in Vim 4 so we write all our functions out the long way.  It does work in 
+" Note that "if <condition> | call Something() | endif" syntax is unsupported
+" in Vim 4 so we write all our functions out the long way.  It does work in
 " autocommand definitions, however.
 
 " Vim 4 complains if version isn't set in the configuration file.
 version 4.0
 
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-" Handle options safe to use in version 4.  Vim 4 parses but ignores the 
-" "if version" syntax used later in this file so we don't use it.  No attempt 
+" Handle options safe to use in version 4.  Vim 4 parses but ignores the
+" "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.
 " Some of these settings should strictly be wrapped inside "if has()" blocks
 " but that would cause them not to be ignored by Vim 4.
@@ -67,14 +67,21 @@ se tags=~/.tags,./tags,tags
 " Don't timeout waiting to interpet, eg, <ESC>OA as an escape code.
 se ttimeoutlen=100
 
+" Remember undo list for closed (but not wiped) buffers.
+se hidden
+
 " 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 ` '
+nnoremap ' `
+nnoremap ` '
+
+" Select previous widnow.
+nnoremap <C-w>^ <C-w>p
+nnoremap <C-w><C-^> <C-w>p
 "}}}1
 
 " Find stuff.
@@ -205,7 +212,6 @@ fun! Iain_Vars() "{{{2
   call Prep_Var("b:iainstatus", "'Fih'")
   call Prep_Var("g:iainextracolumnsnumber", "''")
   call Prep_Var("g:iainextracolumnslist", "''")
-  call Prep_Var("b:iaincul", 0)
   call Prep_Var("b:iainalt", 0)
   if has("signs")
     call Prep_Var("g:marksigns", 0)
@@ -320,7 +326,7 @@ endfun "}}}2
 " Set extra columns depending on window status.
 fun! Extra_Columns(extra, var, ...) "{{{2
   " Vim 6 doesn't have winnr("$").  Determine which windows are open
-  " ourselves by using :windo to incremement a counter.  As Vim 5 
+  " ourselves by using :windo to incremement a counter.  As Vim 5
   " doesn't have :windo we require Vim 6 for this.
   if v:version < "600"
     return ""
@@ -419,41 +425,58 @@ fun! MakeMode_unmap() "{{{2
 endfun "}}}2
 
 " Function to create mappings with either a hardcoded \ or <Leader>.
-fun! Mapping(keysequence,mapping) "{{{2
+fun! Mapping(keysequence, mapping, ...) "{{{2
   if version < "600"
-    exec "map \\" . a:keysequence . " " . a:mapping
+    let l:args = "\\" . a:keysequence . " " . a:mapping . ":<CR>"
   else
-    exec "map <Leader>" . a:keysequence . " " . a:mapping
+    let l:args = "<silent> <Leader>" . a:keysequence . " " . a:mapping
+  endif
+  if a:0 == 0
+    " General mapping.
+    exec "map " . l:args
+  else
+    " Specific mapping(s).
+    let l:i = 1
+    while l:i <= a:0
+      exec "let l:map = a:" . l:i . " . \"map\""
+      exec l:map . " " . l:args
+      let l:i = l:i + 1
+    endwhile
   endif
 endfun "}}}2
 
 " 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>")
+call Mapping("-", "yyp:s/./-/g<CR>:let @/=''<CR>")
+call Mapping("=", "yyp:s/./=/g<CR>:let @/=''<CR>")
+
+fun! Tab_Width(width) "{{{2
+  exec "set sw=" . a:width
+  exec "set ts=" . a:width
+endfun "}}}2
+
+" Set 2-column tabs with \2.
+call Mapping("2", ":call Tab_Width(2)<CR>")
+" Set 4-column tabs with \4.
+call Mapping("4", ":call Tab_Width(4)<CR>")
+" Set 8-column tabs with \8.
+call Mapping("8", ":call Tab_Width(8)<CR>")
+" Set 16-column tabs with \6.
+call Mapping("6", ":call Tab_Width(16)<CR>")
+" Set 32-column tabs with \3.
+call Mapping("3", ":call Tab_Width(32)<CR>")
 " Toggle paste mode with \p.
-call Mapping("p", ":se paste!<CR>:<CR>")
+call Mapping("p", ":se paste!<CR>")
 " Swap case-sensitivity with \c.
-call Mapping("C", ":call Invert_Case()<CR>:<CR>")
+call Mapping("C", ":call Invert_Case()<CR>")
 " Change number mode with \n.
-call Mapping("n", ":call Number(1)<CR>:<CR>")
+call Mapping("n", ":call Number(1)<CR>")
 " Expand or shrink window size with \> and \<.
-call Mapping(">", ":call Resize_Columns('+')<CR>:<CR>")
-call Mapping("<", ":call Resize_Columns('-')<CR>:<CR>")
+call Mapping(">", ":call Resize_Columns('+')<CR>")
+call Mapping("<", ":call Resize_Columns('-')<CR>")
 " Clear search pattern with \/.
-call Mapping("/", ":let @/=\"\"<CR>:<CR>")
+call Mapping("/", ":let @/=\"\"<CR>")
 " Toggle alternate buffer name with \#.
-call Mapping("#", ":call Cycle_Alt()<CR>:<CR>")
+call Mapping("#", ":call Cycle_Alt()<CR>")
 
 " Set graphical window title.
 if has("win32") || has("win64")
@@ -539,9 +562,16 @@ fun! Highlight_StatusLine(flag) "{{{2
 
   let l:normalcolour = "darkblue"
   let l:editingcolour = "darkmagenta"
+  let l:replacecolour = "purple"
   let l:warningcolour = "darkred"
   let l:readonlycolour = "red"
 
+  if b:iainstatus =~# "I"
+    if v:insertmode == "r"
+      let l:editingcolour = l:replacecolour
+    endif
+  endif
+
   " Default colour.
   let l:colour = l:normalcolour
   " Maybe override depending on status.
@@ -580,6 +610,8 @@ fun! Iain_Colour(colour) "{{{2
       return 17
     elseif a:colour == "darkmagenta"
       return 33
+    elseif a:colour == "purple"
+      return 35
     elseif a:colour == "darkred"
       return 32
     elseif a:colour == "red"
@@ -590,12 +622,18 @@ fun! Iain_Colour(colour) "{{{2
       return 17
     elseif a:colour == "darkmagenta"
       return 90
+    elseif a:colour == "purple"
+      return 57
     elseif a:colour == "darkred"
       return 88
     elseif a:colour == "red"
       return 196
     endif
   else
+    " Colours which cterm*g doesn't recognise.
+    if a:colour == "purple"
+      return "magenta"
+    endif
     return a:colour
   endif
 endfun "}}}2
@@ -617,6 +655,14 @@ version 5.4
 " Reuse windows when using sbuffer.
 se switchbuf=useopen
 
+" Vim 5 requires a 'n setting for viminfo.
+if ! &viminfo
+  se viminfo='100
+endif
+
+" Allow persistent variable saving for localvimrc.
+se viminfo+=!
+
 " Do we have Unicode?
 fun! Has_Unicode() "{{{2
   if ! has('multi_byte')
@@ -639,16 +685,59 @@ fun! Has_Unicode() "{{{2
 endfun "}}}2
 
 " Helper for status line.
+" Show file encoding
+fun! Show_Encoding() "{{{2
+  if version < "600"
+    return ""
+  endif
+
+  let l:enc = &fenc
+  let l:symbol = ""
+  if l:enc == ""
+    let l:enc = &enc
+    if l:enc == ""
+      return ""
+    endif
+    if bufname("%") == ""
+      if Has_Unicode()
+        let l:symbol = '•'
+      else
+        let l:symbol = '*'
+      endif
+    endif
+  endif
+
+  if has("multi_byte")
+    if &bomb
+      if Has_Unicode()
+        let l:symbol = "☻"
+      else
+        let l:symbol = "@"
+      endif
+    endif
+  endif
+
+  " Don't return anything if the encoding is utf-8.
+  if l:enc == "utf-8"
+    if l:symbol == ""
+      return ""
+    endif
+  endif
+
+  return l:symbol . l:enc . ","
+endfun "}}}2
+
+" Helper for status line.
 " Show space, underscore or dollar sign depending on list mode.
 fun! Show_List() "{{{2
   call Iain_Vars()
   if w:iainlist == 0
     " No list.
-    return " "
+    return ""
   elseif Has_Unicode()
     if w:iainlist == 1
       " Just tabs.
-      return "»"
+      return ""
     else
       " Full list.
       return "¶"
@@ -673,9 +762,26 @@ fun! Show_Case() "{{{2
 endfun "}}}2
 
 " Helper for status line.
+" Mark DOS buffers.
+fun! Show_DOS() "{{{2
+  if &ff == "unix"
+    return ""
+  endif
+  return &ff . ","
+endfun "}}}2
+
+" Helper for status line.
 " Show the size of the tabstop.
 fun! Show_Tabstop() "{{{2
-  return &ts
+  if &et
+    return &ts
+  else
+    if Has_Unicode()
+      return &ts . "↹"
+    else
+      return &ts . "\\"
+    fi
+  endif
 endfun "}}}2
 
 " Helper for status line.
@@ -754,14 +860,103 @@ fun! Show_Bind() "{{{2
   return ""
 endfun "}}}2
 
+" Helper for status line.
+" Show marker if searchforward is unset.
+fun! Show_SearchForward() "{{{2
+  if version >= "702"
+    if ! v:searchforward
+      if Has_Unicode()
+        return "∆"
+      else
+        return "^"
+      endif
+    endif
+  endif
+  return ""
+endfun "}}}2
+
+" Helper for status line.
+" Show marks set in cursor line.
+fun! Show_Marks() "{{{2
+  if ! exists("g:iainsigns")
+    return ""
+  endif
+
+  let l:marks = ""
+
+  let l:signs = g:iainsigns
+  let l:sign = ""
+  let l:cursorline = line(".")
+  while strlen(l:signs)
+    let l:sign = matchstr(l:signs, '^[A-Za-z]\+\(:.\)*[.=>-][^ ]\+')
+    let l:sign = substitute(l:sign, '^[A-Za-z]\+', "", "")
+    let l:ascii = matchstr(l:sign, '^:.')
+    let l:mark = substitute(l:sign, '^\(:.\)*[.=>-]', "", "")
+    if strlen(l:ascii)
+      let l:ascii = substitute(l:ascii, '^:', "", "")
+    else
+      let l:ascii = l:mark
+    endif
+    let l:ascii = substitute(l:ascii, '"', '\\"', "")
+
+    if l:ascii == "o"
+      let l:line = "."
+    else
+      let l:line = "'" . l:ascii
+    endif
+
+    " Ignore cursor line which will always match.
+    if l:line != "."
+      if l:cursorline == line(l:line)
+        let l:marks = l:marks . l:mark
+      endif
+    endif
+
+    let l:signs = substitute(l:signs, '^[^ ]\+ *', "", "")
+  endwhile
+
+  if l:marks == ""
+    return ""
+  else
+    return "M:" . l:marks . " "
+  endif
+endfun "}}}2
+
+" Helper for status lines.
+" Show Space plugin command.
+fun! Show_Space() "{{{2
+  if exists("*GetSpaceMovement")
+    let l:ret = GetSpaceMovement()
+    if l:ret != ""
+      if Has_Unicode()
+        let l:ret = "▭" . l:ret . Show_SearchForward()
+      else
+        let l:ret = "[" . l:ret . Show_SearchForward() . "]"
+      endif
+    endif
+    return l:ret
+  else
+    return Show_SearchForward()
+  endif
+endfun "}}}2
+
 " Show the status line.
 fun! Show_StatusLine() "{{{2
   if ! has("statusline")
     return
   endif
   call Iain_Vars()
-  let l:sl1='%2n\:\ %<%1*%f%0*\ [%{Show_List()}%{Show_Bind()}%{Show_Case()}%{Show_Tabstop()}%{Show_Paste()}%{Show_VirtualEdit()}%{Show_Undo()}%Y%M%R]%{Show_Alt()}\ '
-  let l:sl3='L:%1*%4.6l%0*/%-4.6L\ C:%1*%3.6c%V%0*\ \|\ %P'
+
+  " User{N} highlights %{N}*.
+  " Named highlight groups %#group% aren't available until Vim 7.
+  let l:normal = '%0*'
+  let l:bold = '%1*'
+
+  " sl1 contains left-aligned stuff.
+  " sl2 contains stuff shown only when verbose mode is enabled.
+  " sl3 contains right-aligned stuff.
+  let l:sl1='%2n\:\ %<' . l:bold . '%f' . l:normal . '\ [%{Show_Encoding()}%{Show_DOS()}%{Show_List()}%{Show_Bind()}%{Show_Case()}%{Show_Tabstop()}%{Show_Paste()}%{Show_VirtualEdit()}%{Show_Undo()}%Y%M%R%{Show_Space()}]%{Show_Alt()}\ '
+  let l:sl3='%{Show_Marks()}L:' . l:bold . '%4.6l' . l:normal . '/%-4.6L\ C:' . l:bold . '%3.6c%V' . l:normal . '\ \|\ %P'
   let l:hexformat='%b'
   if b:iainhex
     let l:hexformat='0\x%02B'
@@ -786,7 +981,7 @@ endif "}}}1
 if version >= "600" "{{{1
 version 6.0
 
-if has("gui_win32")
+if has("win32") || has("win64")
   se encoding=utf-8
 endif
 
@@ -800,7 +995,14 @@ filetype indent on
 
 " Less intrusive syntax highlighting.
 if has("syntax")
-  syn enable
+  " The :syntax enable command tries to source the syntax.vim runtime script.
+  " Parsing this .vimrc will fail if for some reason the runtime doesn't
+  " exist, as could be the case if the binary was installed with no support
+  " files.  GNU On Windows is one example of an incomplete installation.
+  try
+    syn enable
+  catch
+  endtry
 endif
 
 " Set colours.
@@ -868,13 +1070,13 @@ fun! <SID>Highlight_Signs(...) "{{{2
   let l:sign = ""
   let l:i = 0
   while strlen(l:signs)
-    let l:sign = matchstr(l:signs, '^[A-Za-z]\+\(:.\)*[.=-][^ ]\+')
+    let l:sign = matchstr(l:signs, '^[A-Za-z]\+\(:.\)*[.=>-][^ ]\+')
 
-    let l:name = substitute(l:sign, '[:.=-].*', "", "")
+    let l:name = substitute(l:sign, '[:.=>-].*', "", "")
     let l:var = tolower(l:name)
     let l:sign = substitute(l:sign, '^[A-Za-z]\+', "", "")
     let l:ascii = matchstr(l:sign, '^:.')
-    let l:mark = substitute(l:sign, '^\(:.\)*[.=-]', "", "")
+    let l:mark = substitute(l:sign, '^\(:.\)*[.=>-]', "", "")
     if strlen(l:ascii)
       let l:ascii = substitute(l:ascii, '^:', "", "")
     else
@@ -882,8 +1084,14 @@ fun! <SID>Highlight_Signs(...) "{{{2
     endif
     let l:ascii = substitute(l:ascii, '"', '\\"', "")
 
+    if l:ascii == "o"
+      let l:line = "."
+    else
+      let l:line = "'" . l:ascii
+    endif
+
     call <SID>Prep_Sign(l:var)
-    exe "let " . l:var . " = <SID>Place_Sign(" . l:i . ", line(\"'" . l:ascii . "\"), b:sign" . l:var . ", \"Mark" . l:name . "\")"
+    exe "let " . l:var . " = <SID>Place_Sign(" . l:i . ", line(\"" . l:line . "\"), b:sign" . l:var . ", \"Mark" . l:name . "\")"
     let l:i = l:i + 1
 
     let l:signs = substitute(l:signs, '^[^ ]\+ *', "", "")
@@ -908,13 +1116,20 @@ fun! <SID>Cycle_Signs(resize) "{{{2
     " Signs with Type '=' will be highlighted with the MarkSign group.
     " Signs with Type '-' will be highlighted with the MarkLine group.
     " Signs with Type '.' will be highlighted with the MarkDot group.
+    " Signs with Type '>' will be highlighted with the MarkArrow group.
     " Define the Mark where Symbol is not also the mark name, eg "']".
+    let g:iainsigns = "Less=< Greater=> Left=( Right=) SquareLeft=[ SquareRight=] BraceLeft={ BraceRight=} a-a b-b c-c d-d e-e f-f A-A B-B C-C D-D E-E F-F"
     if Has_Unicode()
-      let g:iainsigns = "Dash:'=’ Dot:..• Quote:\"=” Caret:^.ʌ"
+      let g:iainsigns = g:iainsigns . " Quote:\"=” Dash:'=’ Caret:^.ʌ Dot:..•"
+      if version < "704"
+        let g:iainsigns = g:iainsigns ." Cursor:o>▶"
+      endif
     else
-      let g:iainsigns = "Dash=' Dot:..* Quote=\" Caret.^"
+      let g:iainsigns = g:iainsigns . " Quote=\" Dash=' Caret.^ Dot:..*"
+      if version < "704"
+        let g:iainsigns = g:iainsigns ." Cursor>o"
+      endif
     endif
-    let g:iainsigns = g:iainsigns . " Less=< Greater=> Left=( Right=) SquareLeft=[ SquareRight=] BraceLeft={ BraceRight=} a-a b-b c-c d-d e-e f-f A-A B-B C-C D-D E-E F-F"
   endif
 
   if g:marksigns
@@ -923,14 +1138,34 @@ fun! <SID>Cycle_Signs(resize) "{{{2
     let l:signs = g:iainsigns
     let l:sign = ""
     while strlen(l:signs)
-      let l:sign = matchstr(l:signs, '^[A-Za-z]\+\(:.\)*[.=-][^ ]\+')
-
-      let l:sign = substitute(l:sign, ':.', "", "")
-      let l:sign = substitute(l:sign, '=', " texthl=MarkSign text=", "")
-      let l:sign = substitute(l:sign, '\.', " texthl=MarkDot text=", "")
-      let l:sign = substitute(l:sign, '-', " texthl=MarkLine linehl=MarkLine text=", "")
+      let l:sign = matchstr(l:signs, '^[A-Za-z]\+\(:.\)*[.=>-][^ ]\+')
+
+      let l:name = substitute(l:sign, '[:.=>-].*', "", "")
+      let l:sign = substitute(l:sign, '^[A-Za-z]\+', "", "")
+      let l:ascii = matchstr(l:sign, '^:.')
+      let l:mark = substitute(l:sign, '^\(:.\)*[.=>-]', "", "")
+      if strlen(l:ascii)
+        let l:ascii = substitute(l:ascii, '^:', "", "")
+        let l:ascii = matchstr(l:ascii, '^.')
+      else
+        let l:ascii = l:mark
+      endif
+      let l:ascii = substitute(l:ascii, '"', '\\"', "")
+      let l:type = substitute(l:sign, '^:.', "", "")
+      let l:type = matchstr(l:type, '^.')
+
+      let l:hl = ""
+      if l:type == "="
+        let l:hl = "texthl=MarkSign text="
+      elseif l:type == "."
+        let l:hl = "texthl=MarkDot text="
+      elseif l:type == "-"
+        let l:hl = "texthl=MarkLine text="
+      elseif l:type == ">"
+        let l:hl = "texthl=MarkArrow text="
+      endif
 
-      exe "sign define Mark" . l:sign
+      exe "sign define Mark" . l:name . " " . l:hl . l:mark
 
       let l:signs = substitute(l:signs, '^[^ ]\+ *', "", "")
     endwhile
@@ -966,7 +1201,7 @@ endfun "}}}2
 fun! Cycle_List() "{{{2
   " Pretty UTF-8 listchars.
   if Has_Unicode()
-    let basic='tab:»·,trail:…,extends:«,precedes:»'
+    let basic='tab:·,trail:…,extends:«,precedes:»'
     let eol='eol:¶'
     if version >= "700"
       let basic=basic . ',nbsp:•'
@@ -1029,7 +1264,7 @@ fun! Cycle_Alt() "{{{2
   call Iain_Vars()
   let b:iainalt = ! b:iainalt
   call Show_StatusLine()
-endfun "{{{2
+endfun "}}}2
 
 " To be overridden later if applicable.
 fun! Extra_Whitespace_Match() "{{{2
@@ -1037,27 +1272,33 @@ fun! Extra_Whitespace_Match() "{{{2
 endfun "}}}2
 
 " Swap hex/decimal statusline with \x.
-call Mapping("x", ":call Cycle_HexStatusLine()<CR>:<CR>")
+call Mapping("x", ":call Cycle_HexStatusLine()<CR>")
 " Change statusline verbosity with \v.
-call Mapping("V", ":call Cycle_VerboseStatusLine()<CR>:<CR>")
+call Mapping("V", ":call Cycle_VerboseStatusLine()<CR>")
 " Cycle list styles with \l.
-call Mapping("l", ":call Cycle_List()<CR>:<CR>")
+call Mapping("l", ":call Cycle_List()<CR>")
 " Toggle tags with \t.
 call Mapping("t", ":Tlist<CR>")
 " Change foldmethod with \f.
-call Mapping("f", ":se foldenable!<CR>:<CR>")
+call Mapping("f", ":se foldenable!<CR>")
 " Toggle quickfix window with \q.
-call Mapping("q", ":call Cycle_Quickfix()<CR>:<CR>")
+call Mapping("q", ":call Cycle_Quickfix()<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>")
 " Toggle marks with \m.
-call Mapping("m", ":call <SID>Cycle_Signs(1)<CR>:<CR>")
+call Mapping("m", ":call <SID>Cycle_Signs(1)<CR>")
 
 if has("autocmd")
   " Show signs by default.
   au Display VimEnter * call <SID>Cycle_Signs(0)
 endif
+
+" move.
+nmap <A-u> <Plug>MoveLineHalfPageUp
+nmap <A-d> <Plug>MoveLineHalfPageDown
+vmap <A-u> <Plug>MoveBlockHalfPageUp
+vmap <A-d> <Plug>MoveBlockHalfPageDown
 endif "}}}1
 
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
@@ -1066,6 +1307,11 @@ endif "}}}1
 if version >= "700" "{{{1
 version 7.0
 
+" Narrow buffer with \w.
+call Mapping("w", ":NarrowRegion<CR>", "n", "v")
+" Narrow window with \W.
+call Mapping("W", ":NarrowWindow<CR>", "n", "v")
+
 " Helper to show tab name.
 fun! <SID>TabName(label, gui) "{{{2
   let l:label = a:label
@@ -1097,7 +1343,15 @@ endfun "}}}2
 
 " Tab line.
 fun! Show_TabLine() "{{{2
-  let l:s = "%#TabLineFill#Tabs:"
+  let l:colwidth = &numberwidth
+  if g:marksigns
+    let l:colwidth += 2
+  endif
+  if &diff == 1
+    let l:colwidth += 2
+  endif
+  let l:fmt = printf("%%s%% %ds", l:colwidth)
+  let l:s = printf(l:fmt, "%#TabLineFill#", "Tabs ")
 
   let l:i = 0
   while l:i < tabpagenr("$")
@@ -1134,22 +1388,6 @@ fun! Show_GUITabLine() "{{{2
   return l:s
 endfun "}}}2
 
-" Toggle highlighting cursor line when focus changes.
-fun! <SID>ToggleCursorLine() "{{{2
-  call Iain_Vars()
-
-  if b:iainstatus =~# "H" && b:iainstatus =~# "I"
-    " We are held in insert mode.
-    if b:iainstatus =~# "f"
-      " And focus was lost.
-      let b:iaincul = getbufvar("", "&cursorline")
-      setlocal cursorline
-    elseif ! b:iaincul
-      setlocal nocursorline
-    endif
-  endif
-endfun "}}}2
-
 " Handle searching in a BufExplorer window.
 fun! <SID>BufExplorer_Search(n) "{{{2
   if a:n == 0
@@ -1199,13 +1437,11 @@ if has("autocmd")
   au StatusLine FocusGained * call Highlight_StatusLine("F")
   au StatusLine FocusLost * call Highlight_StatusLine("f")
   au StatusLine InsertEnter * call Highlight_StatusLine("I")
+  au StatusLine InsertChange * call Highlight_StatusLine("I")
   au StatusLine InsertLeave * call Highlight_StatusLine("i")
 
-  if has("syntax")
-    au Display FocusGained,FocusLost * call <SID>ToggleCursorLine()
-  endif
-
   if has("signs")
+    au Signs CursorHoldI * call <SID>Highlight_Signs()
     au Signs InsertEnter * call <SID>Highlight_Signs()
     au Signs InsertLeave * call <SID>Highlight_Signs()
   endif
@@ -1234,7 +1470,7 @@ map gb :tabprevious<CR>:<CR>
 " Transparency.
 if has("gui_macvim")
   se transparency=15
-endif 
+endif
 
 " Yet more GUI options.  Add tabs.
 if has("gui")
@@ -1251,6 +1487,13 @@ let g:bufExplorerSplitOutPathName=0
 
 " NERDcommenter.
 let g:NERDSpaceDelims=1
+
+" localvimrc.
+let g:localvimrc_persistent=1
+
+" Gitv.
+let g:Gitv_OpenHorizontal='auto'
+let g:Gitv_WipeAllOnClose=1
 endif "}}}1
 
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
@@ -1309,9 +1552,31 @@ if version >= "703" "{{{1
 version 7.3
 
 " Toggle persistent undo with \u.
-call Mapping("u", ":call <SID>Cycle_Undo()<CR>:<CR>")
+call Mapping("u", ":call <SID>Cycle_Undo()<CR>")
 " Remove persistent undo file with \U.
-call Mapping("U", ":call <SID>Clear_Undo()<CR>:<CR>")
+call Mapping("U", ":call <SID>Clear_Undo()<CR>")
+
+" Toggle Undotree window with \g.
+call Mapping("g", ":UndotreeToggle<CR>")
+" Switch to Undotree window with \G.
+call Mapping("g", ":UndotreeToggle<CR>")
+" Undotree gets focus.
+let g:undotree_SetFocusWhenToggle=1
+" Undotree uses context diff.
+let g:undotree_DiffCommand="diff -u"
+" Undotree bullet.
+if Has_Unicode()
+  let g:undotree_TreeNodeShape="•"
+endif
+" Undotree bindings emulate Gundo.
+fun! g:Undotree_CustomMap() "{{{2
+  nmap <buffer> k <plug>UndotreeGoNextState
+  nmap <buffer> j <plug>UndotreeGoPreviousState
+  nmap <buffer> K <plug>UndotreeGoNextSaved
+  nmap <buffer> J <plug>UndotreeGoPreviousSaved
+  nmap <buffer> <CR> <plug>UndotreeFocusTarget
+endfun "}}}2
+
 
 " Use a persistent undo file if it exists.
 fun! <SID>Check_Undo() "{{{2
@@ -1371,11 +1636,11 @@ endfun "}}}2
 
 if has("syntax")
   " Enable showing ColorColumn at cursor position with \CC.
-  call Mapping("CC", ":call <SID>Cycle_ColorColumn()<CR>:<CR>")
+  call Mapping("CC", ":call <SID>Cycle_ColorColumn()<CR>")
   " Remove last shown ColorColumn with \Cc.
-  call Mapping("Cc", ":let &colorcolumn=substitute(&colorcolumn, \",*[0-9]*$\", \"\", \"\")<CR>:<CR>")
+  call Mapping("Cc", ":let &colorcolumn=substitute(&colorcolumn, \",*[0-9]*$\", \"\", \"\")<CR>")
   " Remove all ColorColumns with \Cx.
-  call Mapping("Cx", ":se colorcolumn=<CR>:<CR>")
+  call Mapping("Cx", ":se colorcolumn=<CR>")
 endif
 
 " Use persistent undo if available.
@@ -1388,6 +1653,24 @@ if has("autocmd")
     au Display WinEnter * if &diff | se cursorbind | endif
   endif
 endif
+
+" Mapping to reload the gundo window.
+if has("autocmd")
+  au Mode BufEnter * if &ft == "gundo" | try | nnoremap <silent> <buffer> <unique> r :call gundo#GundoToggle()<CR>:call gundo#GundoToggle()<CR> | catch | endtry | endif
+endif
+
+endif "}}}1
+"
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+" Handle options only available in Vim 7.4 and above.
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+if version >= "704" "{{{1
+version 7.4
+
+if has("syntax")
+  se cursorline
+endif
+
 endif "}}}1
 
 " Resize after startup.