[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb dd4f251 098/350: Split off ebdb-record-field for f
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb dd4f251 098/350: Split off ebdb-record-field for field classes |
Date: |
Mon, 14 Aug 2017 11:46:14 -0400 (EDT) |
branch: externals/ebdb
commit dd4f251e3d81ee2c94c3b674e44a729da2b608f4
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Split off ebdb-record-field for field classes
* ebdb.el (ebdb-record-field): Move the cond branch checking if FIELD
is a field class into a separate method.
---
ebdb.el | 15 +++++++++------
1 file changed, 9 insertions(+), 6 deletions(-)
diff --git a/ebdb.el b/ebdb.el
index 1a5b5ec..b781725 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -4288,12 +4288,6 @@ also be one of the special symbols below.
((eq field 'mail-aka) (ebdb-record-mail-aka record)) ; derived (cached)
field
((eq field 'aka-all) (append (ebdb-record-aka record) ; derived field
(ebdb-record-mail-aka record)))
- ;; It might be a class symbol.
- ((class-p field)
- (seq-filter
- (lambda (f)
- (object-of-class-p f field))
- (ebdb-record-user-fields record)))
;; Otherwise assume it is a valid slot name.
(t
(when (and (slot-exists-p record field)
@@ -4301,6 +4295,15 @@ also be one of the special symbols below.
(slot-value record field)))))
(cl-defmethod ebdb-record-field ((record ebdb-record)
+ (field (subclass ebdb-field-user)))
+ "If FIELD is a class name subclassing `ebdb-user-field', return
+ all instances of that field."
+ (seq-filter
+ (lambda (f)
+ (object-of-class-p f field))
+ (ebdb-record-user-fields record)))
+
+(cl-defmethod ebdb-record-field ((record ebdb-record)
(field string))
(let ((user-fields (ebdb-record-user-fields record)))
(catch 'found
- [elpa] externals/ebdb ae23a9b 095/350: Fix to ebdb-parse with field-name-simple, (continued)
- [elpa] externals/ebdb ae23a9b 095/350: Fix to ebdb-parse with field-name-simple, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 6197578 107/350: Change default separator of org tags, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb f1edaed 075/350: Prevent eieio-persistent-save from changing db file slot, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb c7d378b 071/350: Autoload eieio-customize-object, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 31bf2cf 117/350: No, that's not the proper way to create a &context catchall, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb a2de313 110/350: Install ebdb-save as a kill-emacs-hook, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb ab1480b 078/350: Remove ebdb-this-buffer-name, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 1c4fadd 080/350: Make ebdb-record-name a get-or-get-and-set operation, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 9aab682 088/350: Add a generic for ebdb-db-editable, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 4263d5b 090/350: Fix the reload process, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb dd4f251 098/350: Split off ebdb-record-field for field classes,
Eric Abrahamsen <=
- [elpa] externals/ebdb 8c20202 103/350: Update company-ebdb to work with new search style, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 5ec40d5 102/350: Add sections on searching and record marking to manual, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 7da77f4 089/350: Expand ebdb-with-record-edits, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 8312ea4 109/350: Allow company-ebdb to work in notmuch-message-mode as well, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb dcb7dbc 104/350: Change default keybindings in Gnus, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 9ac0f0f 111/350: Searching on empty strings should happen in field-search method, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb c43e39b 097/350: Another round of compiler-inspired fixes, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 40df5bc 114/350: Remove ebdb-new-mails-primary, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 825c4cc 112/350: Simplify the structure of ebdb-org-hashtable, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb c0979b0 135/350: Typo in ebdb-mua-check-header, Eric Abrahamsen, 2017/08/14