X-Git-Url: http://git.iain.cx/?a=blobdiff_plain;f=.vim%2Fscript%2Fp4;h=3595ed4b13d146ce7562b00e7ffa82fe1b477317;hb=0d1d3e8398fd0d7844edf1e2ad13d1adc245de17;hp=f69cfb6a5b86c4f687d8077437ce4c994b1d4bb6;hpb=e04927534891bc179e49d461e1cedd99f201cd1f;p=profile.git

diff --git a/.vim/script/p4 b/.vim/script/p4
index f69cfb6..3595ed4 100644
--- a/.vim/script/p4
+++ b/.vim/script/p4
@@ -1,43 +1,71 @@
-" $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! P4submit()
   " There's no point doing this if the spec is readonly.  That probably means 
   " it's a submitted change.
   if ! &ro
+    setf perforce
+
     " Clear the unnamed register.
     let @" = ""
     try
       " Delete the spec blurb if it exists.
-      /^# A Perforce Change Spec/,/^$/d
+      /^# A Perforce Change Spec/,/^# *(New changelists only\.)$/d
       " If the blurb was deleted the text will be in the unnamed register.
       if @" != ""
+        " Delete the blank line left above the remaining fields.
+        1
+        delete
+
         " Allow closing an unmodified spec.
-        set nomod
+        set nomodified
+
+        try
+          /everything below this line is just the diff/
 
-        " Get the files in the changelist.
-        let l:files = system("sed -n 's@	\(//.*\)	#.*@@p' " . bufname(""))
+          " We are submitting through git p4 so yank the diff.
+          normal j
+          normal yG
+          " Create a new window below the spec and paste the diff.
+          botright new
+          normal p
+        catch
+          " Get the files in the changelist.
+          let l:files = system("sed -n 's@^	\\(//.*\\)	#.*@\"\\1\"@p' " . bufname(""))
+          " Create a new window below the spec and read in a diff.
+          botright new
+          if l:files != ""
+            exe "r!env P4DIFF= p4 diff -du " .  substitute(l:files, "\n", " ", "g")
+          endif
+        endtry
 
-        " Create a new window, move it below the spec and read in a diff.
-        botright new
-        exe "r!env P4DIFF= p4 diff -du " .  substitute(l:files, "\n", "", "g")
         setf diff
 
         " Delete the blank line left above the diff.
         1
         delete
+        set ro
+        set nomodified
+        set nomodifiable
         set nobuflisted
-        set buftype=nowrite
-        set bufhidden=hide
+        set buftype=help
         setlocal noswapfile
-        file [p4 diff]
+        file [p4 diff\]
+        " Map q to quit easily.
+        nnoremap <silent> <buffer> q <C-W>q
 
         " Switch back to the top window and put the cursor by the description.
         wincmd k
         resize 10
-        exe "normal G"
-        ?<enter description here>
+        normal G
+        ?^Description:
         let @/ = ""
+        normal j
+        normal ^
+
+        " Set formatting.
+        se noexpandtab
+        se ts=8
       endif
     catch
       " We get here if no blurb was deleted.  This is the case if we aren't