aboutsummaryrefslogtreecommitdiff
path: root/vim/after/ftplugin/mail.vim
diff options
context:
space:
mode:
authorTom Ryder <tom@sanctum.geek.nz>2018-08-08 14:51:37 +1200
committerTom Ryder <tom@sanctum.geek.nz>2018-08-08 14:51:37 +1200
commit21a1149b3dcbb1d87ba9ffc44360960c5ea40981 (patch)
treee5f6be46b236a989bcbeb95b0cf1434f6cb0e536 /vim/after/ftplugin/mail.vim
parentMerge branch 'release/v1.48.0' (diff)
parentUse normal G for line jump to update jumplist (diff)
downloaddotfiles-1.49.0.tar.gz (sig)
dotfiles-1.49.0.zip
Merge branch 'release/v1.49.0'v1.49.0
* release/v1.49.0: Use normal G for line jump to update jumplist Add and revise some comments Allow count prefixes for ,[ and ,] in mail Check both ends of the line range for mail maps Improve ,[ and ,] mappings in mail Add operator-pending analogues to quote para maps Add mappings to move through quoted mail blocks Bump VERSION
Diffstat (limited to 'vim/after/ftplugin/mail.vim')
-rw-r--r--vim/after/ftplugin/mail.vim56
1 files changed, 56 insertions, 0 deletions
diff --git a/vim/after/ftplugin/mail.vim b/vim/after/ftplugin/mail.vim
index 2917425d..657c98ca 100644
--- a/vim/after/ftplugin/mail.vim
+++ b/vim/after/ftplugin/mail.vim
@@ -61,3 +61,59 @@ nnoremap <buffer>
\ <LocalLeader>l
\ <C-U>:call <SID>FlagUnimportant()<CR>
let b:undo_ftplugin .= '|nunmap <buffer> <LocalLeader>l'
+
+" Move through quoted paragraphs like normal-mode `{` and `}`
+function! s:NewBlank(start, count, up) abort
+
+ " Flag for whether we've started a block
+ let l:block = 0
+
+ " Flag for the number of blocks passed
+ let l:blocks = 0
+
+ " Iterate through buffer lines
+ let l:num = a:start
+ while l:num > 0 && l:num <= line('$')
+
+ " If the line is blank
+ if getline(l:num) =~# '^[ >]*$'
+
+ " If we'd moved through a non-blank block already, reset that flag and
+ " bump up the block count
+ if l:block
+ let l:block = 0
+ let l:blocks += 1
+ endif
+
+ " If we've hit the number of blocks, end the loop
+ if l:blocks == a:count
+ break
+ endif
+
+ " If the line is not blank, flag that we're going through a block
+ else
+ let l:block = 1
+ endif
+
+ " Move the line number or up or down depending on direction
+ let l:num += a:up ? -1 : 1
+ endwhile
+
+ " Move to line (needs jumps and marks setting)
+ execute 'normal '.l:num.'G'
+
+endfunction
+
+" Maps using NewBlank() function above for quoted paragraph movement
+nnoremap <buffer> <silent> <LocalLeader>[
+ \ :<C-U>call <SID>NewBlank(line('.'), v:count1, 1)<CR>
+nnoremap <buffer> <silent> <LocalLeader>]
+ \ :<C-U>call <SID>NewBlank(line('.'), v:count1, 0)<CR>
+onoremap <buffer> <silent> <LocalLeader>[
+ \ :<C-U>call <SID>NewBlank(line('.'), v:count1, 1)<CR>
+onoremap <buffer> <silent> <LocalLeader>]
+ \ :<C-U>call <SID>NewBlank(line('.'), v:count1, 0)<CR>
+let b:undo_ftplugin .= '|nunmap <buffer> <LocalLeader>['
+ \ . '|nunmap <buffer> <LocalLeader>]'
+ \ . '|ounmap <buffer> <LocalLeader>['
+ \ . '|ounmap <buffer> <LocalLeader>]'