[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb 980927f 02/13: Switch from cond to pcase in ebdb-r
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb 980927f 02/13: Switch from cond to pcase in ebdb-record-field |
Date: |
Tue, 15 Jan 2019 11:15:50 -0500 (EST) |
branch: externals/ebdb
commit 980927ff3dfdb238e7b168f0088353fec29db86e
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Switch from cond to pcase in ebdb-record-field
* ebdb.el (ebdb-record-field): Preparatory to making this method more
interesting.
---
ebdb.el | 31 ++++++++++++++++---------------
1 file changed, 16 insertions(+), 15 deletions(-)
diff --git a/ebdb.el b/ebdb.el
index 3e2e6b1..bfd8dcf 100644
--- a/ebdb.el
+++ b/ebdb.el
@@ -4836,21 +4836,22 @@ also be one of the special symbols below.
(cl-defmethod ebdb-record-field ((record ebdb-record)
(field symbol))
- (cond ((eq field 'firstname) (ebdb-record-firstname record))
- ((eq field 'lastname) (ebdb-record-lastname record))
- ((eq field 'affix) (slot-value (slot-value record 'name) 'affix))
- ((eq field 'mail-canon) (ebdb-record-mail-canon record)) ; derived
(cached) field
- ;; Mail is special-cased, because mail addresses can come from
- ;; more than one slot.
- ((eq field 'mail) (ebdb-record-mail record nil nil t))
- ((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)))
- ;; Otherwise assume it is a valid slot name.
- (t
- (when (and (slot-exists-p record field)
- (slot-boundp record field))
- (slot-value record field)))))
+ (pcase field
+ ('firstname (ebdb-record-firstname record))
+ ('lastname (ebdb-record-lastname record))
+ ('affix (slot-value (slot-value record 'name) 'affix))
+ ('mail-canon (ebdb-record-mail-canon record)) ; derived (cached) field
+ ;; Mail is special-cased, because mail addresses can come from
+ ;; more than one slot.
+ ('mail (ebdb-record-mail record nil nil t))
+ ('mail-aka (ebdb-record-mail-aka record)) ; derived (cached) field
+ ('aka-all (append (ebdb-record-aka record) ; derived field
+ (ebdb-record-mail-aka record)))
+ ;; Otherwise assume it is a valid slot name.
+ (_
+ (when (and (slot-exists-p record field)
+ (slot-boundp record field))
+ (slot-value record field)))))
(cl-defmethod ebdb-record-field ((record ebdb-record)
(f-class (subclass ebdb-field-user)))
- [elpa] externals/ebdb updated (3289ad4 -> 753c049), Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 3cba3d7 01/13: Rejigger insertion of newlines in record formatting, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb f133aef 03/13: Docstring fix for ebdb-mail, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 5ef1773 04/13: Allow overwriting of previous formatting buffers, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb eec63c8 07/13: Provide basic HTML5 freeform formatter, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 980927f 02/13: Switch from cond to pcase in ebdb-record-field,
Eric Abrahamsen <=
- [elpa] externals/ebdb 6dad4c1 09/13: Allow 'mail-primary as an argument to ebdb-record-field, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 4625970 11/13: Move map require from ebdb-com.el to ebdb.el, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 753c049 13/13: Bump to 0.6.3, flush recent changes, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 65247f6 08/13: Make csv-mode dependency optional, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb cbaa04b 10/13: Fix compose fields for the HTML5 freeform formatter, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb adb60dd 05/13: Refactor formatter classes, add tabular formatters, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 7a19553 06/13: Shift base ebdb-fmt-record implementation to ebdb-formatter-freeform, Eric Abrahamsen, 2019/01/15
- [elpa] externals/ebdb 4f4596c 12/13: Re-absorb ebdb-counsel into main package, Eric Abrahamsen, 2019/01/15