Vim tip 99.
[profile.git] / .vimrc
diff --git a/.vimrc b/.vimrc
index 77a1d45..2b6167a 100644 (file)
--- a/.vimrc
+++ b/.vimrc
@@ -58,9 +58,8 @@ se smartcase
 " Look for ctags in home directory first.
 se tags=~/.tags,./tags,tags
 
-" Use - and = to create underlines.
-map - yyp:s/./-/g<RETURN>:let @/=''<RETURN>:<RETURN>
-map = yyp:s/./=/g<RETURN>:let @/=''<RETURN>:<RETURN>
+" Don't timeout waiting to interpet, eg, <ESC>OA as an escape code.
+se ttimeoutlen=100
 
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 " Handle options only available in Vim 5 and above.
@@ -68,11 +67,23 @@ 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
+
+" Enable tab-completion prompting for commands.
+se wildmenu
+" Don't list object files when globbing files to load.
+se wildignore+=*.o,*.obj
+" So there's no need to assign them low priority.
+se suffixes-=*.o,*.obj
+
 " 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.
+" cross-platform.
 se ssop+=unix,slash
 
 " Nuke any pre-existing autocommands.
@@ -90,8 +101,10 @@ se t_WS=\e[8;%p1%d;%p2%dt
 " Highlight search results.
 se hlsearch
 
-" Syntax highlighting.
-syn on
+" Syntax highlighting.  New versions will use syn enable instead.
+if version < 600
+  syn on
+endif
 
 " Use a discernably different colour to highlight the cursor which shows 
 " matching brackets.  Our regular cursor is green so use blue instead of cyan.
@@ -205,27 +218,46 @@ 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>
+" Function to create mappings with either a hardcoded \ or <Leader>.
+fun! Mapping(keysequence,mapping)
+  if version >= "600"
+    exec "map \\" . a:keysequence . " " . a:mapping
+  else
+    exec "map <Leader>" . a:keysequence . " " . a:mapping
+  endif
+endfun
+
+" 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>")
+" 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>")
+" Change number mode with \n.
+call Mapping("n", ":se number!<CR>:<CR>")
+" Expand or shrink window size with \> and \<.  For use after toggling number.
+call Mapping(">", ":exe 'se columns+=' . numberwidth<CR>:<CR>")
+call Mapping("<", ":exe 'se columns-=' . numberwidth<CR>:<CR>")
+" Clear search pattern with \/.
+call Mapping("/", ":let @/=\"\"<CR>:<CR>")
+
+" Forget the Ex mode mapping.
+map Q <NOP>
+
+" 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>")
 
 endif
 
@@ -248,6 +280,11 @@ syn enable
 if has("gui_running")
   se guifont=DejaVu\ Sans\ Mono\ 10
   colo darkblue
+elseif &t_Co > 16
+  try
+    colo iain
+  catch
+  endtry
 endif
 if has("win32")
   se guifont=DejaVu_Sans_Mono:h10:cANSI
@@ -261,9 +298,6 @@ if &diff
   let &columns = 164
 endif
 
-" Status bar matches the colour.
-highlight StatusLine guifg=white guibg=darkblue ctermbg=white ctermfg=darkblue
-
 " Numbers in blue.
 highlight LineNr term=underline cterm=bold guifg=blue ctermfg=blue
 
@@ -318,37 +352,23 @@ fun! Cycle_Quickfix()
   endif
 endfun
 
-" 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>
-
-" Swap hex/decimal statusline with Qx.
-map Qx :call Cycle_HexStatusLine()<CR>:<CR>
-" Change statusline verbosity with Qv.
-map Qv :call Cycle_VerboseStatusLine()<CR>:<CR>
-" Cycle list styles with Ql.
-map Ql :call Cycle_List()<CR>:<CR>
-" Toggle tags with Qt.
-map Qt :Tlist<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
+" 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>")
+" Cycle list styles with \l.
+call Mapping("l", ":call Cycle_List()<CR>:<CR>")
+" Toggle tags with \t.
+call Mapping("t", ":Tlist<CR>")
+" Change foldmethod with \f.
+call Mapping("f", ":se foldenable!<CR>:<CR>")
+" Toggle quickfix window with \q.
+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.
-map Qs :filetype detect<CR>:<CR>
-
-endif
-
-""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-" Handle options only available in Vim 7 and above.
-""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-if version >= "700"
-version 7.0
+call Mapping("s", ":filetype detect<CR>:<CR>")
 
-" Change status bar colour when entering insert mode.
+" Change status bar colour when various things happen.
 fun! Highlight_StatusLine(flag)
   " Get current status.
   call Iain_Vars()
@@ -358,27 +378,51 @@ fun! Highlight_StatusLine(flag)
   let b:iainstatus = substitute(b:iainstatus, re, a:flag, "")
 
   " Default colour.
-  let colour = "darkblue"
+  let s:colour = "darkblue"
+  let s:termcolour = ""
+  let s:term88colour = "17"
+  let s:term256colour = "17"
   " 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"
+        let s:colour = "darkmagenta"
       else
-        let colour = "darkred"
+        let s:colour = "darkred"
       endif
+      let s:term88colour = "32"
+      let s:term256colour = "88"
     endif
   else
     if b:iainstatus =~# "I"
       " Regular insert mode.
-      let colour = "darkred"
+      let s:colour = "darkred"
+      let s:term88colour = "32"
+      let s:term256colour = "88"
     endif
   endif
 
-  exec "highlight StatusLine guifg=white guibg=" . colour . " ctermbg=white ctermfg=" . colour
+  if &t_Co == 88
+    let s:termcolour = s:term88colour
+  elseif &t_Co == 256
+    let s:termcolour = s:term256colour
+  else
+    let s:termcolour = s:colour
+  endif
+
+  exec "highlight StatusLine guifg=white guibg=" . s:colour . " ctermbg=white ctermfg=" . s:termcolour
 endfun
 
+call Highlight_StatusLine("")
+endif
+
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+" Handle options only available in Vim 7 and above.
+""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
+if version >= "700"
+version 7.0
+
 au CursorHoldI * call Highlight_StatusLine("H")
 au CursorMovedI * call Highlight_StatusLine("h")
 au FocusGained * call Highlight_StatusLine("F")