--- /dev/null
+" mail FTplugin
+"
+" Requires vim 6.x.
+" To install place in ~/.vim/after/ftplugin/mail.vim
+"
+" Author: Brian Medley
+" Email: freesoftware@4321.tv
+"
+" This file was modified from Cedric Duval's version.
+" http://cedricduval.free.fr/download/vimrc/mail
+
+" Only do this when not done yet for this buffer
+if exists("b:did_mail_after_ftplugin")
+ finish
+endif
+let b:did_mail_after_ftplugin = 1
+
+if !exists ("mail_alias_program")
+ let mail_alias_program="Abook"
+endif
+
+" ====================================================================
+" Globals
+" ====================================================================
+
+if !exists ("mail_quote_chars")
+ let s:quote_chars = ':!|>'
+else
+ let s:quote_chars = mail_quote_chars
+endif
+
+" This re defines a 'quote'
+let s:quote_re = '\(\s\?\w*[' . s:quote_chars . ']\)'
+" \s\? => 0 or one whitespace char
+" (b/c some ppl put
+" spaces in the quote,
+" and others don't)
+"
+" \w* => maybe word chars (b/c
+" some ppl put initals in
+" the quotes)
+" the rest => actual quote chars
+" \( \) => this is a quote "level"
+
+" This re defines the quoting level at the *beginning* of a line
+let s:quote_start = '^' . s:quote_re . s:quote_re . '*'
+" ^s:quote_re => quote at beginning of
+" line
+" s:quote_re* => perhaps followed by
+" more quotes
+
+" For debugging:
+" let b:quote_chars = s:quote_chars
+" let b:quote_re = s:quote_re
+" let b:quote_start = s:quote_start
+
+" ====================================================================
+" Mappings
+" ====================================================================
+
+if !exists("no_plugin_maps") && !exists("no_mail_maps")
+
+ "
+ " get alias list mappings
+ "
+ if !hasmapto('<Plug>MailAliasList', 'n')
+ nmap <buffer> <unique> <LocalLeader>al <Plug>MailAliasList
+ endif
+ if !hasmapto('<Plug>MailAliasList', 'i')
+ imap <buffer> <unique> <LocalLeader>al <Plug>MailAliasList
+ endif
+
+ nnoremap <buffer> <unique> <script> <Plug>MailAliasList <SID>AliasList
+ inoremap <buffer> <unique> <script> <Plug>MailAliasList <SID>AliasList
+
+ " Redraw is there b/c my screen was messed up after abook finished.
+ " The 'set paste' is in the function b/c I couldn't figure out how to put it in
+ " the mapping.
+ " The 'set nopaste' is in the mapping b/c it didn't work for me in the script.
+ nnoremap <buffer> <SID>AliasList A<c-r>=<SID>AliasList{mail_alias_program}()<cr><c-o>:set nopaste<cr><c-o>:redraw!<cr><c-o>:echo b:AliasListMsg<cr><esc>
+ inoremap <buffer> <SID>AliasList <c-r>=<SID>AliasList{mail_alias_program}()<cr><c-o>:set nopaste<cr><c-o>:redraw!<cr><c-o>:echo b:AliasListMsg<cr>
+
+ "
+ " get alias query mappings
+ "
+ if !hasmapto('<Plug>MailAliasQuery', 'n')
+ nmap <buffer> <unique> <LocalLeader>aq <Plug>MailAliasQuery
+ endif
+ if !hasmapto('<Plug>MailAliasQuery', 'i')
+ imap <buffer> <unique> <LocalLeader>aq <Plug>MailAliasQuery
+ endif
+
+ nnoremap <buffer> <unique> <script> <Plug>MailAliasQuery <SID>AliasQuery
+ inoremap <buffer> <unique> <script> <Plug>MailAliasQuery <SID>AliasQuery
+
+ nnoremap <buffer> <SID>AliasQuery :call <SID>AliasQuery{mail_alias_program}()<cr>:echo b:AliasQueryMsg<cr>
+ inoremap <buffer> <SID>AliasQuery <c-o>:call <SID>AliasQuery{mail_alias_program}()<cr><c-o>:echo b:AliasQueryMsg<cr><right>
+
+ "
+ " mail formatting mappings
+ "
+
+ " * <F1> to re-format a quotelvl
+ " * <F2> to format a line which is too long, and go to the next line
+ " * <F3> to merge the previous line with the current one, with a correct
+ " formatting (sometimes useful associated with <F2>)
+ " * <F4> to re-format the current paragraph correctly
+
+ if !hasmapto('<Plug>MailFormatQuoteLvl', 'n')
+ nmap <buffer> <unique> <F1> <Plug>MailFormatQuoteLvl
+ endif
+ if !hasmapto('<Plug>MailFormatLine', 'n')
+ nmap <buffer> <unique> <F2> <Plug>MailFormatLine
+ endif
+ if !hasmapto('<Plug>MailFormatMerge', 'n')
+ nmap <buffer> <unique> <F3> <Plug>MailFormatMerge
+ endif
+ if !hasmapto('<Plug>MailFormatParagraph', 'n')
+ nmap <buffer> <unique> <F4> <Plug>MailFormatParagraph
+ endif
+
+ if !hasmapto('<Plug>MailFormatQuoteLvl', 'i')
+ imap <buffer> <unique> <F1> <Plug>MailFormatQuoteLvl
+ endif
+ if !hasmapto('<Plug>MailFormatLine', 'i')
+ imap <buffer> <unique> <F2> <Plug>MailFormatLine
+ endif
+ if !hasmapto('<Plug>MailFormatMerge', 'i')
+ imap <buffer> <unique> <F3> <Plug>MailFormatMerge
+ endif
+ if !hasmapto('<Plug>MailFormatParagraph', 'i')
+ imap <buffer> <unique> <F4> <Plug>MailFormatParagraph
+ endif
+
+ nnoremap <buffer> <unique> <script> <Plug>MailFormatQuoteLvl <SID>FormatQuoteLvl
+ nnoremap <buffer> <unique> <script> <Plug>MailFormatLine <SID>FormatLine
+ nnoremap <buffer> <unique> <script> <Plug>MailFormatMerge <SID>FormatMerge
+ nnoremap <buffer> <unique> <script> <Plug>MailFormatParagraph <SID>FormatParagraph
+ inoremap <buffer> <unique> <script> <Plug>MailFormatQuoteLvl <SID>FormatQuoteLvl
+ inoremap <buffer> <unique> <script> <Plug>MailFormatLine <SID>FormatLine
+ inoremap <buffer> <unique> <script> <Plug>MailFormatMerge <SID>FormatMerge
+ inoremap <buffer> <unique> <script> <Plug>MailFormatParagraph <SID>FormatParagraph
+
+ nnoremap <buffer> <script> <SID>FormatQuoteLvl gq<SID>QuoteLvlMotion
+ nnoremap <buffer> <SID>FormatLine gqqj
+ nnoremap <buffer> <SID>FormatMerge kgqj
+ nnoremap <buffer> <SID>FormatParagraph gqap
+ inoremap <buffer> <script> <SID>FormatQuoteLvl <ESC>gq<SID>QuoteLvlMotioni
+ inoremap <buffer> <SID>FormatLine <ESC>gqqji
+ inoremap <buffer> <SID>FormatMerge <ESC>kgqji
+ inoremap <buffer> <SID>FormatParagraph <ESC>gqapi
+
+ "
+ " sig removal mappings
+ "
+ if !hasmapto('<Plug>MailEraseQuotedSig', 'n')
+ nmap <silent> <buffer> <unique> <LocalLeader>eqs <Plug>MailEraseQuotedSig
+ endif
+ nnoremap <buffer> <unique> <script> <Plug>MailEraseQuotedSig <SID>EraseQuotedSig
+ nnoremap <buffer> <SID>EraseQuotedSig :call<SID>EraseQuotedSig()<CR>
+
+ "
+ " Provide a motion operator for commands (so you can delete a quote
+ " segment, or format quoted segment)
+ "
+ if !hasmapto('<Plug>MailQuoteLvlMotion', 'o')
+ omap <silent> <buffer> <unique> q <Plug>MailQuoteLvlMotion
+ endif
+ onoremap <buffer> <unique> <script> <Plug>MailQuoteLvlMotion <SID>QuoteLvlMotion
+ onoremap <buffer> <script> <SID>QuoteLvlMotion :execute "normal!" . <SID>QuoteLvlMotion(line("."))<cr>
+
+endif
+
+" ====================================================================
+" Mail Manipulation Functions
+" ====================================================================
+
+" --------------------------------------------------------------------
+" Manipulate Quotes
+" --------------------------------------------------------------------
+
+"
+" Description:
+" This function will try and remove 'quoted' signatures.
+"
+" If someone responds with an email that doesn't use '>' as the
+" quote character this will try and take care of that:
+" | Yeah, I agree vim is cool.
+" |
+" | --
+" | Some power user
+"
+" If there is a signature inside a 'multi-quoted' email this will try and get
+" rid of it:
+" > | No, I don't agree with you.
+" >
+" > Nonsense. You are wrong. Grow up.
+" >
+" > | I can't believe I'm even replying to this.
+" > | --
+" > | Some power user
+" >
+" > Yeah, believe it, brother.
+"
+if !exists("*s:EraseQuotedSig")
+function s:EraseQuotedSig()
+ while 0 != search((s:quote_start . '\s*--\s*$'), 'w')
+ let motion = s:QuoteLvlMotion(line("."))
+ exe "normal! d" . motion
+ endwhile
+endfunction
+endif
+
+"
+" Description:
+" Replacing empty quoted lines (i.e. "> $") with empty lines
+" (convenient to automatically reformat one paragraph)
+"
+if !exists("*s:DelEmptyQuoted")
+function s:DelEmptyQuoted()
+ let empty_quote = s:quote_start . '\s*$'
+
+ " goto start of email and jump passed headers
+ normal gg
+ if 0 == search('^$', 'W')
+ return
+ endif
+
+ while 0 != search (empty_quote, 'W')
+ let newline = substitute(getline("."), empty_quote, '', '')
+ call setline(line("."), newline)
+ endwhile
+endfunction
+endif
+
+"
+" Description:
+" This function will output a motion command that operatates over a "quote
+" level" segment. This makes it possible to perform vi commands on quotes.
+" E.g:
+" dq => delete an entire quote section
+" gqq => format an entire quote section
+"
+if !exists("*s:QuoteLvlMotion")
+function s:QuoteLvlMotion(line)
+ let quote = matchstr(getline(a:line), s:quote_start)
+ " abort command if no quote
+ if "" == quote
+ return "\<esc>"
+ endif
+
+ let len = s:LenQuoteLvl(a:line, quote)
+
+ " the 'V' makes the motion linewise
+ if 1 == len
+ return "V" . line(".") . "G"
+ else
+ return "V" . (len - 1) . "j"
+ endif
+endfunction
+endif
+
+"
+" Description:
+" This tries to figure out when the quoting level changes
+"
+if !exists("s:LenQuoteLvl")
+function s:LenQuoteLvl(start, quote)
+ let i = a:start + 1
+ let len = 1
+ let quote = '^' . a:quote
+
+ " find end of quote
+ while i <= line('$')
+ " check if quote level decreased
+ if -1 == match(getline(i), quote)
+ break
+ endif
+
+ " check if quote level increased
+ if -1 != match(getline(i), (quote . s:quote_re))
+ break
+ endif
+
+ let i = i + 1
+ let len = len + 1
+ endwhile
+
+ return len
+endfunction
+endif
+
+" --------------------------------------------------------------------
+" Location Manipulator Functions
+" --------------------------------------------------------------------
+
+"
+" Description:
+" Moves the cursor to a 'sensible' position.
+"
+if !exists("*s:CursorStart")
+function s:CursorStart()
+ " put cursor in known position
+ silent normal gg
+
+ if search('^From: $', 'W')
+ silent startinsert!
+ elseif search('^To: $', 'W')
+ silent startinsert!
+ elseif search('^Subject: $', 'W')
+ silent startinsert!
+
+ " check if we are editing a reply
+ elseif search('^On.*wrote:', 'W')
+ normal 2j
+
+ elseif search('^$', 'W')
+ normal j
+ silent startinsert!
+ endif
+endfunction
+endif
+
+" ================================================
+" Process Mutt Aliases
+" ================================================
+
+" ------------------------------------------------
+" Get Email List
+" ------------------------------------------------
+
+"
+" Description:
+" This function will launch abook and spit out what the user selected from the
+" application (by pressing 'Q'). It's always called from 'insert' mode, so
+" the text will be inserted like it was typed.
+"
+" That's why 'paste' is set and reset. So that the text that we insert won't
+" be 'mangled' by the user's settings.
+"
+if !exists("*s:AliasListAbook")
+function s:AliasListAbook()
+ let b:AliasListMsg = ""
+ let f = tempname()
+
+ set paste
+ silent exe '!abook 2> ' . f
+ exe 'let addresses=system("cat ' . f . '")'
+ if "" == addresses
+ let b:AliasListMsg = "Nothing found to lookup"
+ return ""
+ endif
+
+ " - parses the output from abook
+ let addresses=s:ParseMuttQuery(addresses)
+ if "" == addresses
+ let b:AliasListMsg = b:ParseMuttQueryErr
+ return ""
+ endif
+
+ " so that they will be aligned under the 'to' or 'cc' line
+ let addresses=substitute(addresses, "\n", ",\n ", "g")
+
+ return addresses
+endfunction
+endif
+
+" ------------------------------------------------
+" Get Email Query
+" ------------------------------------------------
+
+"
+" Description:
+" This function assumes that user has the cursor on an alias to lookup. Based
+" on this it:
+" - retrieves the alias(es) from abook
+" - parses the output from abook
+" - actually replaces the alias with the parsed output
+"
+if !exists("*s:AliasQueryAbook")
+function s:AliasQueryAbook()
+ let b:AliasQueryMsg = ""
+
+ " - retrieves the alias(es) from abook
+ let lookup=expand("<cword>")
+ if "" == lookup
+ let b:AliasQueryMsg = "Nothing found to lookup"
+ return
+ endif
+
+ silent exe 'let output=system("abook --mutt-query ' . lookup . '")'
+ if v:shell_error
+ let b:AliasQueryMsg = output
+ return
+ endif
+
+ " - parses the output from abook
+ let replacement=s:ParseMuttQuery(output)
+ if "" == replacement
+ let b:AliasQueryMsg = b:ParseMuttQueryErr
+ return
+ endif
+
+ " so that they will be aligned under the 'to' or 'cc' line
+ let replacement=substitute(replacement, "\n", ",\n ", "g")
+
+ " - actually replaces the alias with the parsed output
+ " paste is set/unset so that the email addresses aren't "mangled" by the
+ " user's formating options
+ set paste
+ exe "normal! ciw" . replacement . "\<Esc>"
+ set nopaste
+endfunction
+endif
+
+" --------------------------------------------------------------------
+" Utility Functions
+" --------------------------------------------------------------------
+
+"
+" Description:
+" This function will take the output of a "mutt query" (as defined by the mutt
+" documenation) and parses it.
+"
+" It returns the email addresses formatted as follows:
+" - each address is on a line
+"
+if !exists("*s:ParseMuttQuery")
+function s:ParseMuttQuery(aliases)
+ " remove first informational line
+ let aliases = substitute (a:aliases, "\n", "", "")
+ let expansion = ""
+
+ while 1
+ " whip off the name and address
+ let line = matchstr(aliases, ".\\{-}\n")
+ let address = matchstr(line, ".\\{-}\t")
+ let address = substitute(address, "\t", "", "g")
+ if "" == address
+ let b:ParseMuttQueryErr = "Unable to parse address from ouput"
+ return ""
+ endif
+
+ let name = matchstr(line, "\t.*\t")
+ let name = substitute(name, "\t", "", "g")
+ if "" == name
+ let b:ParseMuttQueryErr = "Unable to parse name from ouput"
+ return ""
+ endif
+
+ " debugging:
+ " echo "line: " . line . "|"
+ " echo "address: " . address . "|"
+ " echo "name: " . name . "|"
+ " let a=input("hit enter")
+
+ " make into valid email address
+ let needquote = match (name, '"')
+ if (-1 == needquote)
+ let name = '"' . name . '" '
+ endif
+
+ let needquote = match (address, '<')
+ if (-1 == needquote)
+ let address = '<' . address . '>'
+ endif
+
+ " add email address to list
+ let expansion = expansion . name
+ let expansion = expansion . address
+
+ " debugging:
+ " echo "address: " . address . "|"
+ " echo "name: " . name . "|"
+ " let a=input("hit enter")
+
+ " process next line (if there is one)
+ let aliases = substitute(aliases, ".\\{-}\n", "", "")
+ if "" == aliases
+ let b:ParseMuttQueryErr = ""
+ return expansion
+ endif
+
+ let expansion = expansion . "\n"
+ endwhile
+endfunction
+endif
+
+" ====================================================================
+" Abbreviation Manipulation
+" ====================================================================
+
+"
+" Description:
+" This will generate vi abbreviations from your mutt alias file.
+"
+" Note:
+" However, remember that the abbreviation will be replaced *everywhere*. For
+" example, if you have the alias 'Mary', then if you try and type "Hi, Mary
+" vim is cool", then it won't work. This is because the 'Mary' will be
+" expanded as an alias.
+"
+if !exists("*s:MakeAliasAbbrev")
+function s:MakeAliasAbbrev()
+ let aliasfile = tempname()
+ silent exe "!sed -e 's/alias/iab/' ~/.mutt/aliases > " . aliasfile
+ exe "source " . aliasfile
+endfunction
+endif
+
+
+" ====================================================================
+" Initializations
+" ====================================================================
+
+if exists ("mail_erase_quoted_sig")
+ call s:EraseQuotedSig()
+endif
+
+if exists ("mail_delete_empty_quoted")
+ call s:DelEmptyQuoted()
+endif
+
+if exists ("mail_generate_abbrev")
+ call s:MakeAliasAbbrev()
+endif
+
+if exists ("mail_cursor_start")
+ call s:CursorStart()
+endif
projects / pkg / abook.git / blobdiff