Don't hang trying to interpret keypresses which might be escape sequences, eg <ESC>OA.
[profile.git] / .vimrc
diff --git a/.vimrc b/.vimrc
index d10c4d7..ad273c6 100644 (file)
--- a/.vimrc
+++ b/.vimrc
@@ -58,6 +58,9 @@ se smartcase
 " Look for ctags in home directory first.
 se tags=~/.tags,./tags,tags
 
+" Don't timeout waiting to interpet, eg, <ESC>OA as an escape code.
+se ttimeoutlen=100
+
 " Use - and = to create underlines.
 map - yyp:s/./-/g<RETURN>:let @/=''<RETURN>:<RETURN>
 map = yyp:s/./=/g<RETURN>:let @/=''<RETURN>:<RETURN>
@@ -68,6 +71,14 @@ map = yyp:s/./=/g<RETURN>:let @/=''<RETURN>:<RETURN>
 if version >= "500"
 version 5.0
 
+" Tell Vim we use dark backgrounds in our terminals.
+if ! has("gui_running")
+  se bg=dark
+endif
+
+" Vim 5 hardcodes the size of numbers column to 8.
+let numberwidth=8
+
 " Save sessions in UNIX format with / as file separator.  This is
 " cross-platoform.
 se ssop+=unix,slash
@@ -90,6 +101,10 @@ se hlsearch
 " Syntax highlighting.
 syn on
 
+" Use a discernably different colour to highlight the cursor which shows 
+" matching brackets.  Our regular cursor is green so use blue instead of cyan.
+hi MatchParen ctermbg=blue
+
 " Catch typos.
 command! W :w
 command! Wq :wq
@@ -106,6 +121,10 @@ fun! Iain_Vars()
   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
 endfun
 
 " Helper for status line.
@@ -167,6 +186,11 @@ fun! Show_StatusLine()
   exec "set statusline=" . sl1 . sl2 . sl3
 endfun
 
+" Toggle case-sensitivity.
+fun! Invert_Case()
+  let &ic = ! &ic
+endfun
+
 " Restore window size.
 au VimLeave * if exists("oldcols") | let &columns=oldcols | endif
 
@@ -188,6 +212,29 @@ endfun
 
 " Show the status line for the first time.
 call Show_StatusLine()
+
+" Change to ts=2 with Q2.
+map Q2 :se ts=2<CR>:<CR>
+" Change to ts=4 with Q4.
+map Q4 :se ts=4<CR>:<CR>
+" Change to ts=8 with Q8.
+map Q8 :se ts=8<CR>:<CR>
+" Change to ts=16 with Q6.
+map Q6 :se ts=16<CR>:<CR>
+" Change to ts=32 with Q3.
+map Q3 :se ts=32<CR>:<CR>
+" Toggle paste mode with Qp.
+map Qp :se paste!<CR>:<CR>
+" Swap case-sensitivity with Qc.
+map Qc :call Invert_Case()<CR>:<CR>
+" Change number mode with Qn.
+map Qn :se number!<CR>:<CR>
+" Expand or shrink window size with Q> and Q<.  For use after toggling number.
+map Q> :exe 'se columns+=' . numberwidth<CR>:<CR>
+map Q< :exe 'se columns-=' . numberwidth<CR>:<CR>
+" Clear search pattern with Q/.
+map Q/ :let @/=""<CR>:<CR>
+
 endif
 
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
@@ -196,23 +243,22 @@ endif
 if version >= "600"
 version 6.0
 
+" Remember quickfix state.
+let g:quickfixing=0
+
 " Set indenting by filetype.
 filetype indent on
 
-" Track changing number mode.
-let g:numbercols=&columns
-let g:numberchanges=0
-
 " Less intrusive syntax highlighting.
 syn enable
 
 " Nice GUI colour.
 if has("gui_running")
-  se guifont=Bitstream\ Vera\ Sans\ Mono\ 10
+  se guifont=DejaVu\ Sans\ Mono\ 10
   colo darkblue
 endif
 if has("win32")
-  se guifont=Bitstream_Vera_Sans_Mono:h10:cANSI
+  se guifont=DejaVu_Sans_Mono:h10:cANSI
 endif
 
 " Ignore whitespace when diffing.
@@ -224,11 +270,15 @@ if &diff
 endif
 
 " Status bar matches the colour.
-highlight StatusLine guifg=white guibg=blue ctermbg=white ctermfg=blue
+highlight StatusLine guifg=white guibg=darkblue ctermbg=white ctermfg=darkblue
 
 " Numbers in blue.
 highlight LineNr term=underline cterm=bold guifg=blue ctermfg=blue
 
+" Remember that we are opening the quickfix window.
+au BufWinEnter quickfix let g:quickfixing=1
+au BufUnload * if &ft == "qf" | let g:quickfixing=0 | endif
+
 " 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>
@@ -266,84 +316,37 @@ fun! Cycle_VerboseStatusLine()
   call Show_StatusLine()
 endfun
 
-" Cycle between number mode.
-" FIXME: Toggling in a split window doesn't work properly.  We need to track 
-" the number of windows and number modes.  Something for later...
-" Perhaps have a redraw callback that checks width and original column number.
-fun! Cycle_Number()
-  if &number
-    " Restore width.
-    if &t_WS =~ '^\e.'
-      " Track changes.
-      let g:numberchanges=g:numberchanges-1
-      if g:numberchanges<0
-        g:numberchanges=0
-      endif
-
-      " Change size back if this was the last window.
-      if g:numberchanges == 0
-        let &columns=g:numbercols
-      endif
-    endif
-    set nonumber
+" Toggle quickfix window.
+fun! Cycle_Quickfix()
+  if g:quickfixing == 1
+    cclose
+    let g:quickfixing=0
   else
-    " Save width between number toggling.
-    if &t_WS =~ '^\e'
-      " Expand if this was the first change.
-      if g:numberchanges == 0
-        let g:numbercols=&columns
-        if version >= 700
-          " Expand column by our preferred width.
-          let &columns=&columns+&numberwidth
-        else
-          " Vim 6 hardcodes width to 8.
-          let &columns=&columns+8
-        endif
-      endif
-
-      " Track changes.
-      let g:numberchanges=g:numberchanges+1
-    endif
-    set number
+    copen
   endif
 endfun
 
-" Toggle case-sensitivity.
-fun! Invert_Case()
-  let &ic = ! &ic
-endfun
-
-" We'll use Q for various commands.  Unmap it.
+" We use Q for various commands.  Unmap it.
+" Vim 5 won't let us unmap this as it treats Q as an ambiguous mapping (because 
+" Qx also exists.  With Vim 5 you are rewarded with Ex mode if you don't type 
+" the Qx sequence quickly enough.  Vim 6 allows us to forget the Ex mapping.
 map Q <Nop>
 
-" Change to ts=2 with Q2.
-map Q2 :se ts=2<CR>:<CR>
-" Change to ts=4 with Q4.
-map Q4 :se ts=4<CR>:<CR>
-" Change to ts=8 with Q8.
-map Q8 :se ts=8<CR>:<CR>
-" Change to ts=16 with Q6.
-map Q6 :se ts=16<CR>:<CR>
-" Change to ts=32 with Q3.
-map Q3 :se ts=32<CR>:<CR>
-" Change foldmethod with Qf.
-map Qf :se foldenable!<CR>:<CR>
-" Toggle paste mode with Qp.
-map Qp :se paste!<CR>:<CR>
-" Swap hex/decimal statusline with Qx
+" Swap hex/decimal statusline with Qx.
 map Qx :call Cycle_HexStatusLine()<CR>:<CR>
-" Change statusline verbosity with Qv
+" Change statusline verbosity with Qv.
 map Qv :call Cycle_VerboseStatusLine()<CR>:<CR>
-" Swap case-sensitivity with Qc.
-map Qc :call Invert_Case()<CR>:<CR>
 " Cycle list styles with Ql.
 map Ql :call Cycle_List()<CR>:<CR>
-" Change number mode with Qn.
-map Qn :call Cycle_Number()<CR>:<CR>
 " Toggle tags with Qt.
 map Qt :Tlist<CR>
-" Clear search pattern with Q/.
-map Q/ :let @/=""<CR>:<CR>
+" Change foldmethod with Qf.
+map Qf :se foldenable!<CR>:<CR>
+" Toggle quickfix window with Qq.
+map Qq :call Cycle_Quickfix()<CR>:<CR>
+" Rerun filetype detection with Qs.  The s is for syntax, as this will be
+" updated as a side-effect.
+map Qs :filetype detect<CR>:<CR>
 
 endif
 
@@ -353,6 +356,44 @@ endif
 if version >= "700"
 version 7.0
 
+" Change status bar colour when entering insert mode.
+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, "")
+
+  " Default colour.
+  let colour = "darkblue"
+  " 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 colour = "darkmagenta"
+      else
+        let colour = "darkred"
+      endif
+    endif
+  else
+    if b:iainstatus =~# "I"
+      " Regular insert mode.
+      let colour = "darkred"
+    endif
+  endif
+
+  exec "highlight StatusLine guifg=white guibg=" . colour . " ctermbg=white ctermfg=" . colour
+endfun
+
+au CursorHoldI * call Highlight_StatusLine("H")
+au CursorMovedI * call Highlight_StatusLine("h")
+au FocusGained * call Highlight_StatusLine("F")
+au FocusLost * call Highlight_StatusLine("f")
+au InsertEnter * call Highlight_StatusLine("I")
+au InsertLeave * call Highlight_StatusLine("i")
+
 " Make diffs vertical by default.
 se diffopt+=vertical