[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb 9ab7b56 07/15: Improvements to ebdb-edit-foo
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb 9ab7b56 07/15: Improvements to ebdb-edit-foo |
Date: |
Sun, 1 Apr 2018 06:02:46 -0400 (EDT) |
branch: externals/ebdb
commit 9ab7b56115284f9d4ef7a9c9a75a47d5cf4f0986
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Improvements to ebdb-edit-foo
* ebdb-com.el (eieio-done-customizing): Use the formatting functions
to display field values. Don't offer the primary name for editing.
---
ebdb-com.el | 18 +++++++++++-------
1 file changed, 11 insertions(+), 7 deletions(-)
diff --git a/ebdb-com.el b/ebdb-com.el
index ac56c74..da14952 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -1751,14 +1751,18 @@ field to edit."
(mapcar
(lambda (f)
(let ((field (cdr f)))
- (cons (concat
- (ebdb-field-readable-name field)
- (when (slot-exists-p field 'object-name)
- (format " (%s)" (slot-value field 'object-name)))
- " "
- (car (split-string (ebdb-string field) "\n")))
+ (cons (substring-no-properties
+ (concat
+ (ebdb-fmt-field-label
+ ebdb-default-oneline-formatter
+ field 'oneline record)
+ ": "
+ (ebdb-fmt-field
+ ebdb-default-oneline-formatter
+ field 'oneline record)))
(cdr f))))
- (ebdb-record-current-fields record))
+ (assq-delete-all
+ 'name (ebdb-record-current-fields record)))
field
(cdr
(assoc
- [elpa] externals/ebdb updated (9e7a96f -> d60338c), Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 261454d 03/15: Return results of ebdb-loop-with-exit in correct order, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb bbfdc70 04/15: Set mail priority on record creation, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 5b4d834 01/15: Organization/role delete method needs to be an :around, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 9ab7b56 07/15: Improvements to ebdb-edit-foo,
Eric Abrahamsen <=
- [elpa] externals/ebdb a25e1eb 06/15: Use values from "slots" in role field ebdb-read, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 9bd965b 02/15: Simplify ebdb-with-record-edits, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 4bb77e3 11/15: Add mail deletion behavior, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 27a1fa5 05/15: Move field manipulation "convenience logic" into ebdb-com, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 70754b8 08/15: Fix unnecessary code in ebdb-follow-related, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb c3e06ee 12/15: Use quoted field class, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb a7e88d4 14/15: Update copyright dates, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb 7a5ce18 13/15: Handle mail priority after customization edits, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb d60338c 15/15: Bump version to 0.5, Eric Abrahamsen, 2018/04/01
- [elpa] externals/ebdb b323307 09/15: Add a "follow related" action to role fields, Eric Abrahamsen, 2018/04/01