.vim/script/svn

   1 " Define the function we'll use.  It's easier to do this than to faff about
   2 " trying to run a sequence of normal mode commands.
   3 fun! SVNcommit()
   4   " Allow closing an unmodified spec.
   5   set nomod
   6
   7   " Get the modified files.  Discount new files.
   8   let l:files = system("sed -n '1,/^$/d;/^[MR]..../{s//\"/;s/$/\"/p;}' " . bufname(""))
   9
  10   if l:files == ""
  11     return
  12   endif
  13
  14   " Create a new window, move it below the spec and read in a diff.
  15   botright new
  16   exe "r!svn diff " . substitute(l:files, "\n", " ", "g")
  17   setf diff
  18
  19   " Delete the blank line left above the diff.
  20   1
  21   delete
  22   se nobuflisted
  23   set buftype=nowrite
  24   set bufhidden=hide
  25   setlocal noswapfile
  26   file [svn diff\]
  27
  28   " Switch back to the top window.
  29   wincmd k
  30 endfun
  31
  32 " Expand the command line window so we don't have to press RETURN later.
  33 let s:cmdheight = &cmdheight
  34 se cmdheight=3
  35
  36 " Call and then discard our function.
  37 call SVNcommit()
  38 delfunction SVNcommit
  39
  40 " Restore the command window.
  41 exe "se cmdheight=" . s:cmdheight
  42
  43 " Close the scratch buffer.
  44 au BufWinLeave <buffer=1> qa!