X-Git-Url: https://git.deb.at/w?a=blobdiff_plain;f=contrib%2Fabook%2Bvim%2Fmail.vim;fp=contrib%2Fabook%2Bvim%2Fmail.vim;h=0000000000000000000000000000000000000000;hb=7751b3edc145646e6b55e2fda82eb5619fbe0074;hp=bdc313447298e764d6d97e56804ac1ebf702d80b;hpb=627bebd233fee0136a6ffbef005da3e62a87f99b;p=pkg%2Fabook.git

diff --git a/contrib/abook+vim/mail.vim b/contrib/abook+vim/mail.vim
deleted file mode 100644
index bdc3134..0000000
--- a/contrib/abook+vim/mail.vim
+++ /dev/null
@@ -1,530 +0,0 @@
-" 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