From fe8e94bea39895f2544ae83916da83a4f2affa21 Mon Sep 17 00:00:00 2001 From: Tom Ryder Date: Sat, 11 Nov 2017 00:59:12 +1300 Subject: Add new mail_mutt.vim plugin, apply mappings This plugin provides a shortcut for staring email messages in Mutt with a range of lines. --- vim/plugin/mail_mutt.vim | 41 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 41 insertions(+) create mode 100644 vim/plugin/mail_mutt.vim (limited to 'vim/plugin') diff --git a/vim/plugin/mail_mutt.vim b/vim/plugin/mail_mutt.vim new file mode 100644 index 00000000..67444e4d --- /dev/null +++ b/vim/plugin/mail_mutt.vim @@ -0,0 +1,41 @@ +" +" mail_mutt.vim: Start a mutt(1) message with the lines in the given range, +" defaulting to the entire buffer. +" +" Author: Tom Ryder +" License: Same as Vim itself +" +if exists('g:loaded_mail_mutt') + \ || !has('user_commands') + \ || &compatible + finish +endif +let g:loaded_mail_mutt = 1 + +" Declare function +function! s:MailMutt(start, end) + + " Check we'll have mutt(1) to execute + if !executable('mutt') + echoerr 'mutt not found in $PATH' + finish + endif + + " Create a temporary file + let l:tf = tempname() + + " Write the contents of the buffer to it + let l:range = a:start . ',' . a:end + let l:command = 'write ' . fnameescape(l:tf) + execute l:range . l:command + + + " Run mutt(1) with that file as its input + execute '!mutt -i ' . shellescape(l:tf) + +endfunction + +" Create a command to wrap around that function +command -nargs=0 -range=% + \ MailMutt + \ call MailMutt(, ) -- cgit v1.2.3