Mild OCD.
[profile.git] / .vimrc
diff --git a/.vimrc b/.vimrc
index b74b7c8..52bacca 100644 (file)
--- a/.vimrc
+++ b/.vimrc
@@ -134,6 +134,8 @@ if has("autocmd")
   endif
   augroup StatusLine
   autocmd!
+  augroup File
+  autocmd!
   augroup END
 endif
 
@@ -612,6 +614,27 @@ endif "}}}1
 if version >= "504" "{{{1
 version 5.4
 
+" Do we have Unicode?
+fun! 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
+
 " Helper for status line.
 " Show space, underscore or dollar sign depending on list mode.
 fun! Show_List() "{{{2
@@ -619,7 +642,7 @@ fun! Show_List() "{{{2
   if w:iainlist == 0
     " No list.
     return " "
-  elseif <SID>Has_Unicode()
+  elseif Has_Unicode()
     if w:iainlist == 1
       " Just tabs.
       return "»"
@@ -663,6 +686,40 @@ fun! Show_Paste() "{{{2
 endfun "}}}2
 
 " Helper for status line.
+" Show v when virtualedit mode is block, insert or onemore.
+" Show V when virtualedit mode is all.
+fun! Show_VirtualEdit() "{{{2
+  if ! has("virtualedit")
+    return ""
+  endif
+
+  if &ve == "all"
+    return "V"
+  elseif &ve != ''
+    return "v"
+  else
+    return ""
+  endif
+endfun "}}}2
+
+" Helper for status line.
+" Show U when persistent undo is on.
+" Show u when persistent undo is off but an undofile exists.
+fun! Show_Undo() "{{{2
+  if ! exists("&undofile")
+    return ""
+  endif
+
+  if &undofile
+    return "U"
+  elseif filereadable(undofile(expand("%")))
+    return "u"
+  else
+    return ""
+  endif
+endfun "}}}2
+
+" Helper for status line.
 " Show alternate buffer number and name.
 fun! Show_Alt() "{{{2
   let l:alt = bufnr("#")
@@ -673,14 +730,35 @@ fun! Show_Alt() "{{{2
   return " " . l:alt . ": " . expand("#:t")
 endfun "}}}2
 
+" Helper for status line.
+" Show scrollbind or cursorbind.
+fun! Show_Bind() "{{{2
+  if has("cursorbind")
+    if &cursorbind
+      if Has_Unicode()
+        return "⇄"
+      else
+        return ">"
+      endif
+    elseif &scrollbind
+      if Has_Unicode()
+        return "⇅"
+      else
+        return "^"
+      endif
+    endif
+  endif
+  return ""
+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_Case()}%{Show_Tabstop()}%{Show_Paste()}%Y%M%R]%{Show_Alt()}\ '
-  let l:sl3='L:%1*%4.6l%0*/%-4.6L\ C:%1*%3.6c%0*\ \|\ %P'
+  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'
   let l:hexformat='%b'
   if b:iainhex
     let l:hexformat='0\x%02B'
@@ -828,7 +906,7 @@ fun! <SID>Cycle_Signs(resize) "{{{2
     " Signs with Type '-' will be highlighted with the MarkLine group.
     " Signs with Type '.' will be highlighted with the MarkDot group.
     " Define the Mark where Symbol is not also the mark name, eg "']".
-    if <SID>Has_Unicode()
+    if Has_Unicode()
       let g:iainsigns = "Dash:'=’ Dot:..• Quote:\"=” Caret:^.ʌ"
     else
       let g:iainsigns = "Dash=' Dot:..* Quote=\" Caret.^"
@@ -881,31 +959,10 @@ fun! <SID>Cycle_Signs(resize) "{{{2
   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()
+  if Has_Unicode()
     let basic='tab:»·,trail:…,extends:«,precedes:»'
     let eol='eol:¶'
     if version >= "700"
@@ -1072,12 +1129,15 @@ endfun "}}}2
 fun! <SID>ToggleCursorLine() "{{{2
   call Iain_Vars()
 
-  if b:iainstatus =~# "f" && b:iainstatus =~# "H" && b:iainstatus =~# "I"
-    " Focus lost while held in insert mode.
-    let b:iaincul = getbufvar("", "&cursorline")
-    setlocal cursorline
-  elseif ! b:iaincul
-    setlocal nocursorline
+  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
 
@@ -1179,6 +1239,97 @@ let g:p4Presets='P4CONFIG'
 " BufExplorer.
 let g:bufExplorerShowRelativePath=1
 let g:bufExplorerSplitOutPathName=0
+
+" NERDcommenter.
+let g:NERDSpaceDelims=1
+endif "}}}1
+
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+" Handle options only available in Vim 7.3 and above.
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+if version >= "703" "{{{1
+version 7.3
+
+" Toggle persistent undo with \u.
+call Mapping("u", ":call <SID>Cycle_Undo()<CR>:<CR>")
+" Remove persistent undo file with \U.
+call Mapping("U", ":call <SID>Clear_Undo()<CR>:<CR>")
+
+" Use a persistent undo file if it exists.
+fun! <SID>Check_Undo() "{{{2
+  if filereadable(undofile(expand("%")))
+    setlocal undofile
+  endif
+endfun "}}}2
+
+" Toggle persistent undo for this buffer.
+fun! <SID>Cycle_Undo() "{{{2
+  if has("persistent_undo")
+    let &undofile = ! &undofile
+  endif
+endfun "}}}2
+
+" Remove the persistent undo file for this buffer.
+fun! <SID>Clear_Undo() "{{{2
+  if ! has("persistent_undo")
+    return
+  endif
+
+  setlocal noundofile
+
+  let l:f = expand("%")
+  if l:f == ""
+    return
+  endif
+
+  let l:u = undofile(l:f)
+  if l:u == ""
+    return
+  endif
+
+  if ! filereadable(l:u) || ! filewritable(l:u)
+    return
+  endif
+
+  call delete(l:u)
+endfun "}}}2
+
+" Toggle ColorColumn at cursor position.
+fun! <SID>Cycle_ColorColumn() "{{{2
+  if ! has("syntax")
+    return
+  endif
+
+  let l:cc = &colorcolumn
+  let l:column = col(".")
+  let l:re = ",*\\<" . l:column . "\\>"
+  if l:cc =~# l:re
+    let l:cc = substitute(l:cc, l:re, "", "g")
+  else
+    let l:cc = l:cc . "," . l:column
+  endif
+  let &colorcolumn = substitute(l:cc, "^,*", "", "")
+endfun "}}}2
+
+if has("syntax")
+  " Enable showing ColorColumn at cursor position with \CC.
+  call Mapping("CC", ":call <SID>Cycle_ColorColumn()<CR>:<CR>")
+  " Remove last shown ColorColumn with \Cc.
+  call Mapping("Cc", ":let &colorcolumn=substitute(&colorcolumn, \",*[0-9]*$\", \"\", \"\")<CR>:<CR>")
+  " Remove all ColorColumns with \Cx.
+  call Mapping("Cx", ":se colorcolumn=<CR>:<CR>")
+endif
+
+" Use persistent undo if available.
+if has("autocmd")
+  if has("persistent_undo")
+    au File BufReadPost * call <SID>Check_Undo()
+  endif
+
+  if has("cursorbind")
+    au Display WinEnter * if &diff | se cursorbind | endif
+  endif
+endif
 endif "}}}1
 
 " Resize after startup.