[elpa] externals/ebdb 9ab7b56 07/15: Improvements to ebdb-edit-foo

[Eric Abrahamsen]

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