branch: externals/ebdb
commit a81769c3bf4a9a78834b02aca72727eceb600fdc
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Allow custom hash predicates
* ebdb.el (ebdb-hash-extra-predicates): New option allowing users to
create their own hash predicates. This allows them to add arbitrary
hash entries to the ebdb-hashtable, and filter hash lookup results
with their own predicates.
(ebdb-hash-p): Check new option.
---
ebdb.el | 19 +++++++++++++++++++
1 file changed, 19 insertions(+)
diff --git a/ebdb.el b/ebdb.el
index eee4419..34682c9 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -4417,6 +4417,21 @@ This strips garbage from the user full NAME string."
;; `ebdb-hash-record' for each record. This function is also called
;; when new records are added to the database.
+(defcustom ebdb-hash-extra-predicates nil
+ "Extra predicates when looking up entries in the EBDB hashtable.
+
+Predicates are used to filter results from the hashtable,
+ensuring that string lookups only return the results they're
+meant to.
+
+This option should be a list of conses, where the car is a
+symbol, and the cdr is a lambda form which accepts the string key
+and a record, and returns t if the key is acceptable for
+returning that record."
+ :group 'ebdb-search
+ :package-version "0.2"
+ :type '(repeat (cons symbol functionp)))
+
(defun ebdb-puthash (key record)
"Associate RECORD with KEY in `ebdb-hashtable'.
KEY must be a string or nil. Empty strings and nil are ignored."
@@ -4472,6 +4487,10 @@ PREDICATE may take the same values as the elements of
`ebdb-completion-list'."
(mapc (lambda (mail) (if (ebdb-string= key mail)
(throw 'ebdb-hash-ok 'mail)))
(ebdb-record-mail-canon record)))
+ (dolist (elt ebdb-hash-extra-predicates)
+ (when (and (memq (car elt) predicate)
+ (funcall (cdr elt) key record))
+ (throw 'ebdb-hash-ok (car elt))))
nil)
(defun ebdb-remhash (key record)
