From 4bf3f1ecf18612c1daad77d43d270068394d65b4 Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Wed, 19 Jun 2019 22:57:59 +1200
Subject: Apply a little more structure to events

---
 autoload/paste_insert.vim | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'autoload/paste_insert.vim')

diff --git a/autoload/paste_insert.vim b/autoload/paste_insert.vim
index 675fa5a..f055249 100644
--- a/autoload/paste_insert.vim
+++ b/autoload/paste_insert.vim
@@ -1,12 +1,13 @@
 function! paste_insert#() abort
   augroup paste_insert
     autocmd!
-    autocmd CursorHold,CursorMoved,User *
-          \ set nopaste paste?
-          \|autocmd! paste_insert
+    autocmd User Error,Finish
+          \ set nopaste paste? | autocmd! paste_insert
+    autocmd CursorHold,CursorMoved,BufLeave,WinLeave *
+          \ doautocmd paste_insert User Error
     autocmd InsertEnter *
           \ autocmd paste_insert InsertLeave *
-                \ doautocmd paste_insert User
+                \ doautocmd paste_insert User Finish
   augroup END
   set paste paste?
 endfunction
-- 
cgit v1.2.3


From 90c960afe270c51eb73e709d5117ef331aa7d44a Mon Sep 17 00:00:00 2001
From: Tom Ryder <tom@sanctum.geek.nz>
Date: Thu, 20 Jun 2019 00:06:04 +1200
Subject: Add better messages, customisable stop key

---
 autoload/paste_insert.vim | 70 +++++++++++++++++++++++++++++++++++++++++++----
 1 file changed, 64 insertions(+), 6 deletions(-)

(limited to 'autoload/paste_insert.vim')

diff --git a/autoload/paste_insert.vim b/autoload/paste_insert.vim
index f055249..277f333 100644
--- a/autoload/paste_insert.vim
+++ b/autoload/paste_insert.vim
@@ -1,13 +1,71 @@
+" Autoloaded entry point function
 function! paste_insert#() abort
+
+  " Set up an event table
   augroup paste_insert
     autocmd!
-    autocmd User Error,Finish
-          \ set nopaste paste? | autocmd! paste_insert
-    autocmd CursorHold,CursorMoved,BufLeave,WinLeave *
-          \ doautocmd paste_insert User Error
+
+    " Set up the paste and tell the user
+    autocmd User Start
+          \ call s:Start() | echo 'Paste ready'
+
+    " When starting insert mode, add completion hook for when we leave
     autocmd InsertEnter *
           \ autocmd paste_insert InsertLeave *
-                \ doautocmd paste_insert User Finish
+                \ doautocmd paste_insert User Complete
+
+    " User waits too long in normal mode, timeout
+    autocmd CursorHold *
+          \ doautocmd paste_insert User Timeout
+
+    " User leaves the buffer or window, abort
+    autocmd BufLeave,WinLeave *
+          \ doautocmd paste_insert User Abort
+
+    " Exit condition reporting
+    autocmd User Abort
+          \ echo 'Paste aborted'
+    autocmd User Cancel
+          \ echo 'Paste cancelled'
+    autocmd User Complete
+          \ echo 'Paste completed'
+    autocmd User Timeout
+          \ echo 'Paste timeout'
+
+    " End the paste and clear the events table
+    autocmd User Abort,Cancel,Complete,Timeout
+          \ call s:Stop() | autocmd! paste_insert
+
   augroup END
-  set paste paste?
+
+  " Trigger the starting actions
+  doautocmd paste_insert User Start
+
+endfunction
+
+" Key that cancels the pending paste in normal mode, defaults to CTRL-C
+let s:cancel = get(g:, 'paste_insert_cancel', '<C-C>')
+
+" Start the paste: save cancel key's prior function, remap it, set 'paste'
+function! s:Start() abort
+  let s:maparg = maparg(s:cancel)
+  let command = join([
+        \ 'nnoremap'
+        \,s:cancel
+        \,':<C-U>doautocmd paste_insert User Cancel<CR>'
+        \])
+  execute command
+  set paste
+endfunction
+
+" Stop the paste: unset 'paste', restore prior function of cancel key
+function! s:Stop() abort
+  set nopaste
+  let command = join(
+        \ s:maparg !=# ''
+        \ ? ['nnoremap', s:cancel, s:maparg]
+        \ : ['nunmap', s:cancel]
+        \)
+  execute command
+  unlet s:maparg
 endfunction
-- 
cgit v1.2.3