branch: externals/ebdb
commit 7040cad81cc669ed43cbc246bab02d9aafe74512
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Expand ebdb-helm to complete on mails as well
* helm-ebdb.el (helm-ebdb-candidates): Strings in the candidate list
should also include record email addresses.
(helm-ebdb-compose-mail): For records with multiple email addresses,
prompt for the address to use.
---
helm-ebdb.el | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/helm-ebdb.el b/helm-ebdb.el
index 9d9acf8..2a7e50b 100644
--- a/helm-ebdb.el
+++ b/helm-ebdb.el
@@ -33,7 +33,18 @@
(defun helm-ebdb-candidates ()
"Return a list of all records in the database."
(mapcar (lambda (rec)
- (cons (ebdb-string rec) rec))
+ (let* ((rec-string (ebdb-string rec))
+ (mails (ebdb-record-mail-canon rec))
+ (mail-list (when mails
+ (mapconcat #'identity
+ mails
+ " "))))
+ (cons (if mail-list
+ (concat rec-string
+ " => "
+ mail-list)
+ rec-string)
+ rec)))
(ebdb-records)))
(defun helm-ebdb-display-records (candidate)
@@ -45,7 +56,7 @@
(defun helm-ebdb-compose-mail (candidate)
"Compose mail to CANDIDATE or marked candidates."
(let ((recs (or (helm-marked-candidates) (list candidate))))
- (ebdb-mail recs)))
+ (ebdb-mail recs nil t)))
(defun helm-ebdb-cite-records (candidate)
"Insert Name <email> string for CANDIDATE or marked candidate."
