X-Git-Url: http://git.iain.cx/?p=profile.git;a=blobdiff_plain;f=.vimrc;h=b6ba9a8dcef02553c03d18148d13437cde7f9f2c;hp=91fd6c15205c345aff3525d751940f34a12e022d;hb=832105f1cffb94d0193777f6c1d3ddc98be1e24d;hpb=a444a2977d10626b30b822d5b4812d305c9bad22

diff --git a/.vimrc b/.vimrc
index 91fd6c1..b6ba9a8 100644
--- a/.vimrc
+++ b/.vimrc
@@ -1,6 +1,4 @@
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
-" $Id$
-""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 " Multi-version vimrc compatible with version 4 and above.
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
 
@@ -79,9 +77,6 @@ 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-platform.
 se ssop+=unix,slash
@@ -101,8 +96,11 @@ se t_WS=[8;%p1%d;%p2%dt
 " Highlight search results.
 se hlsearch
 
+" Set graphical window title.
+se titlestring=%{Show_TitleString()}
+
 " Syntax highlighting.  New versions will use syn enable instead.
-if version < 600
+if version < "600"
   syn on
 endif
 
@@ -130,6 +128,9 @@ fun! Iain_Vars()
     " Window Flags: (F)ocused, (I)nsert mode, Cursor (H)old.
     let b:iainstatus = "Fih"
   endif
+  if ! exists("g:iainextracolumns")
+    let g:iainextracolumns = 0
+  endif
 endfun
 
 " Helper for status line.
@@ -174,21 +175,31 @@ fun! Show_Paste()
   endif
 endfun
 
+" Show the window title.
+fun! Show_TitleString()
+  if bufname("") == ""
+    let l:ts1='Vim'
+  else
+    let l:ts1=printf("%2d: %s", bufnr(""), expand('%t'))
+  endif
+  return printf("%s (%s) %s", l:ts1, getcwd(), v:servername)
+endfun
+
 " Show the status line.
 fun! Show_StatusLine()
   call Iain_Vars()
-  let sl1='%2n\:\ %<%f\ [%{Show_List()}%{Show_Case()}%{Show_Tabstop()}%{Show_Paste()}%Y%M%R]\ %='
-  let sl3='L:%4.6l/%-4.6L\ C:%3.6c\ \|\ %P'
-  let hexformat='%b'
+  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:hexformat='%b'
   if b:iainhex
-    let hexformat='0\x%02B'
+    let l:hexformat='0\x%02B'
   endif
   if b:iainverbose
-    let sl2=hexformat . '\ \|\ P:%4.6o\ '
+    let l:sl2=l:hexformat . '\ \|\ P:%4.6o\ '
   else
-    let sl2=''
+    let l:sl2=''
   endif
-  exec "set statusline=" . sl1 . sl2 . sl3
+  exec "set statusline=" . l:sl1 . l:sl2 . l:sl3
 endfun
 
 " Toggle case-sensitivity.
@@ -196,6 +207,49 @@ fun! Invert_Case()
   let &ic = ! &ic
 endfun
 
+" Grow or shrink the window size.
+fun! Resize_Columns(op)
+  " XXX: This won't work inside screen.
+  " We should really detect whether it would work rather than assume it won't.
+  if &term =~ '^screen'
+    return
+  endif
+
+  " Vim 5 hardcodes the size of numbers column to 8.
+  if version >= "700"
+    let l:numberwidth = &numberwidth
+  else
+    let l:numberwidth = 8
+  endif
+
+  exec "se columns" . a:op . "=" . l:numberwidth
+endfun
+
+" Toggle number display.
+fun! Number()
+  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
+
+    if l:num_numbers == 0
+      let g:iainextracolumns = 0
+      call Resize_Columns("-")
+    elseif g:iainextracolumns == 0
+      let g:iainextracolumns = 1
+      call Resize_Columns("+")
+    endif
+  endif
+endfun
+
 " Restore window size.
 au VimLeave * if exists("oldcols") | let &columns=oldcols | endif
 
@@ -205,13 +259,17 @@ au BufLeave * if &ft == "make" | call MakeMode_unmap() | endif
 
 " Entering Make mode.
 fun! MakeMode_map()
-  set list
+	call Iain_Vars()
+  let b:iainlist=1
+  call Cycle_List()
+  set ts=8
   set noexpandtab
 endfun
 
 " Leaving Make mode.
 fun! MakeMode_unmap()
-  set nolist
+  call Cycle_List()
+  set ts=2
   set expandtab
 endfun
 
@@ -220,7 +278,7 @@ call Show_StatusLine()
 
 " Function to create mappings with either a hardcoded \ or <Leader>.
 fun! Mapping(keysequence,mapping)
-  if version >= "600"
+  if version < "600"
     exec "map \\" . a:keysequence . " " . a:mapping
   else
     exec "map <Leader>" . a:keysequence . " " . a:mapping
@@ -246,16 +304,19 @@ 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>")
+call Mapping("n", ":call Number()<CR>:<CR>")
+" Expand or shrink window size with \> and \<.
+call Mapping(">", ":call Resize_Columns('+')<CR>:<CR>")
+call Mapping("<", ":call Resize_Columns('-')<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
 
 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
@@ -277,8 +338,12 @@ syn enable
 if has("gui_running")
   se guifont=DejaVu\ Sans\ Mono\ 10
   colo darkblue
+  hi LineNr guibg=#303030
 elseif &t_Co > 16
-  colo iain
+  try
+    colo iain
+  catch
+  endtry
 endif
 if has("win32")
   se guifont=DejaVu_Sans_Mono:h10:cANSI
@@ -292,13 +357,13 @@ if &diff
   let &columns = 164
 endif
 
-" 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
 
+" Allow in-place editing of crontabs.
+au FileType crontab set backupcopy=yes
+
 " 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>
@@ -381,19 +446,21 @@ fun! Highlight_StatusLine(flag)
     if b:iainstatus =~# "I"
       " Held in insert mode.  Add extra highlight if we don't have focus.
       if b:iainstatus =~# "f"
-        let s:colour = "darkmagenta"
-      else
         let s:colour = "darkred"
+        let s:term88colour = "32"
+        let s:term256colour = "88"
+      else
+        let s:colour = "darkmagenta"
+        let s:term88colour = "33"
+        let s:term256colour = "90"
       endif
-      let s:term88colour = "32"
-      let s:term256colour = "88"
     endif
   else
     if b:iainstatus =~# "I"
       " Regular insert mode.
-      let s:colour = "darkred"
-      let s:term88colour = "32"
-      let s:term256colour = "88"
+      let s:colour = "darkmagenta"
+      let s:term88colour = "33"
+      let s:term256colour = "90"
     endif
   endif
 
@@ -432,4 +499,13 @@ se numberwidth=5
 
 " Add "previous tab" mapping as gb.
 map gb :tabPrev<CR>
+
+" Transparency.
+if has("gui_macvim")
+  se transparency=15
+endif 
+
+" Perforce.
+let g:p4EnableMenu=1
+let g:p4Presets='P4CONFIG'
 endif