From: martin f. krafft <madduck@madduck.net>
Date: Mon, 16 Mar 2009 07:46:57 +0000 (+0100)
Subject: use vim-scripts lbdbq plugin
X-Git-Url: https://git.madduck.net/etc/vim.git/commitdiff_plain/6c8c3c135c5ce5f2290957a4b50eeadbec668cc9

use vim-scripts lbdbq plugin
---

diff --git a/.vim/plugin/lbdbq.vim b/.vim/plugin/lbdbq.vim
deleted file mode 100644
index a2a5c27..0000000
--- a/.vim/plugin/lbdbq.vim
+++ /dev/null
@@ -1,124 +0,0 @@
-" Name: lbdbq.vim
-" Summary: functions and mode mappings for querying lbdb from Vim
-" Copyright: Copyright (C) 2007 Stefano Zacchiroli <zack@bononia.it>
-" License: GNU GPL version 3 or above
-" Maintainer: Stefano Zacchiroli <zack@bononia.it>
-" URL: http://www.vim.org/scripts/script.php?script_id=1757
-" Version: 0.3
-
-if exists("loaded_lbdbq")
-    finish
-endif
-let loaded_lbdbq = 1
-
-" queries lbdb with a query string and return a list of pairs:
-" [['full name', 'email'], ['full name', 'email'], ...]
-function! LbdbQuery(qstring)
-  let output = system("lbdbq '" . a:qstring . "'")
-  let results = []
-  for line in split(output, "\n")[1:] " skip first line (lbdbq summary)
-    let fields = split(line, "\t")
-    let results += [ [fields[1], fields[0]] ]
-  endfor
-  return results
-endfunction
-
-" check if a potential query string has already been expanded in a complete
-" recipient. E.g.: 'Stefano Zacchiroli <zack@bononia.it>' is a complete
-" recipient, 'stefano zacchiroli' and 'stefano' are not
-function! LbdbIsExpanded(qstring)
-  return (a:qstring =~ '^\S\+@\S\+$\|<\S\+@\S\+>$')
-endfunction
-
-function! LbdbTrim(s)
-  return substitute(a:s, '^\s*\(.\{-}\)\s*$', '\1', '')
-endfunction
-
-" expand a (short) contact given as a query string, asking interactively if
-" disambiguation is needed
-" E.g.: 'stefano zacchiroli' -> 'Stefano Zacchiroli <zack@bononia.it>'
-function! LbdbExpandContact(qstring)
-  let qstring = LbdbTrim(a:qstring)
-  if LbdbIsExpanded(qstring)
-    return qstring
-  else  " try to expand (short) contact
-    let contacts = LbdbQuery(qstring)
-    let contact = []
-    if empty(contacts)  " no matching (long) contact found
-      return qstring
-    elseif len(contacts) > 1  " multiple matches: disambiguate
-      echo "Choose a recipient for '" . qstring . "':"
-      let choices = []
-      let counter = 0
-      for contact in contacts
-        let choices += [ printf("%2d. %s <%s>", counter, contact[0], contact[1]) ]
-        let counter += 1
-      endfor
-      let contact = contacts[inputlist(choices)]
-    else  " len(contacts) == 1, i.e. one single match
-      let contact = contacts[0]
-    endif
-    return printf("\"%s\" <%s>", escape(contact[0], '"'), contact[1])
-  endif
-endfunction
-
-" as above but support input strings composed by comma separated (short)
-" contacts
-function! LbdbExpandContacts(raw)
-  let raw = LbdbTrim(a:raw)
-  let qstrings = split(raw, '\s*,\s*')
-  let exp_strings = []
-  for qstring in qstrings
-    let exp_strings += [ LbdbExpandContact(qstring) ]
-  endfor
-  return join(exp_strings, ', ')
-endfunction
-
-" expand all (short) contacts on a given recipient line, asking interactively
-" if disambiguation is needed.
-" E.g.:
-" 'To: stefano zacchiroli, bram'
-" -> 'To: Stefano Zacchiroli <zack@bononia.it>, Bram Moolenaar <Bram@moolenaar.net>
-function! LbdbExpandRcptLine(recpt_line)
-  if a:recpt_line =~ '^\w\+:'  " line is the *beginning* of a RFC822 field
-    let raw = substitute(a:recpt_line, '^\w\+:\s*', '', '')
-    let recpt_kind = substitute(a:recpt_line, '^\(\w\+\):\s*.*$', '\1', '')
-    let exp_line = recpt_kind . ': ' . LbdbExpandContacts(raw)
-  elseif a:recpt_line =~ '^\s\+'  " line is the *continuation* of a RFC822 field
-    let raw = substitute(a:recpt_line, '^\s\+', '', '')
-    let lpadding = substitute(a:recpt_line, '\S.*$', '', '')
-    let exp_line = lpadding . LbdbExpandContacts(raw)
-  else
-    return a:recpt_line
-  endif
-  if a:recpt_line =~ ',\s*$'
-    let exp_line .= ','
-  endif
-  return exp_line
-endfunction
-
-function! LbdbExpandCurLine()
-  call setline(line('.'), LbdbExpandRcptLine(getline('.')))
-endfunction
-
-function! LbdbExpandVisual()
-  if visualmode() ==# 'v'
-    normal gvy
-    let raw = getreg('"')
-    let expanded = ''
-    if raw =~ ","
-      let expanded = LbdbExpandContacts(raw)
-    else
-      let expanded = LbdbExpandContact(raw)
-    endif
-    call setreg('"', expanded)
-    normal gvP
-  elseif visualmode() ==# 'V'
-    call LbdbExpandCurLine()
-  end
-endfunction
-
-nmap <silent> <LocalLeader>lb :call LbdbExpandCurLine()<RETURN>
-vmap <silent> <LocalLeader>lb :call LbdbExpandVisual()<RETURN>
-imap <silent> <LocalLeader>lb <ESC>:call LbdbExpandCurLine()<RETURN>A
-
diff --git a/.vim/plugin/lbdbq.vim b/.vim/plugin/lbdbq.vim
new file mode 120000
index 0000000..8ce9043
--- /dev/null
+++ b/.vim/plugin/lbdbq.vim
@@ -0,0 +1 @@
+/usr/share/vim-scripts/plugin/lbdbq.vim
\ No newline at end of file