X-Git-Url: http://git.iain.cx/?a=blobdiff_plain;f=.vim%2Fscript%2Fsvn;h=152d2c9793d0a4a6b030b818f94a335f1db7c2d0;hb=f0503276edd74aa465df5248ff5888df13646f18;hp=3dd61a308f3b3132895cab5a8c6cc29e8a741294;hpb=258988f92389cb66122778b4876a1390b7e6ae00;p=profile.git

diff --git a/.vim/script/svn b/.vim/script/svn
index 3dd61a3..152d2c9 100644
--- a/.vim/script/svn
+++ b/.vim/script/svn
@@ -1,13 +1,19 @@
-" $Id$ vim: se syntax=vim:
 " Define the function we'll use.  It's easier to do this than to faff about 
 " trying to run a sequence of normal mode commands.
 fun! SVNcommit()
   " Allow closing an unmodified spec.
   set nomod
 
+  " Get the modified files.  Discount new files.
+  let l:files = system("sed -n '1,/^$/d;/^[MR]..../{s//\"/;s/$/\"/p;}' " . bufname(""))
+
+  if l:files == ""
+    return
+  endif
+
   " Create a new window, move it below the spec and read in a diff.
   botright new
-  r!svn diff
+  exe "r!svn diff " . substitute(l:files, "\n", " ", "g")
   setf diff
 
   " Delete the blank line left above the diff.
@@ -17,7 +23,9 @@ fun! SVNcommit()
   set buftype=nowrite
   set bufhidden=hide
   setlocal noswapfile
-  file [svn diff]
+  file [svn diff\]
+  " Map q to quit easily.
+  noremap <silent> <buffer> q <C-W>q
 
   " Switch back to the top window.
   wincmd k