[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ebdb bd9dd94 072/350: Use ebdb-defunct face on defunct
From: |
Eric Abrahamsen |
Subject: |
[elpa] externals/ebdb bd9dd94 072/350: Use ebdb-defunct face on defunct role fields |
Date: |
Mon, 14 Aug 2017 11:46:05 -0400 (EDT) |
branch: externals/ebdb
commit bd9dd94b2f74a5a6f0cc3df7777915af832d58e2
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>
Use ebdb-defunct face on defunct role fields
* ebdb-com.el (ebdb-fmt-field): This defunct face is ugly.
---
ebdb-com.el | 36 ++++++++++++++++++++++--------------
1 file changed, 22 insertions(+), 14 deletions(-)
diff --git a/ebdb-com.el b/ebdb-com.el
index 6434bfc..9c882ce 100644
--- a/ebdb-com.el
+++ b/ebdb-com.el
@@ -501,25 +501,33 @@ property is the field instance itself."
(field ebdb-field-role)
_style
(record ebdb-record-organization))
- (let ((person (ebdb-gethash (slot-value field 'record-uuid) 'uuid))
- (mail (slot-value field 'mail)))
- (if mail
- (format "%s (%s)"
- (ebdb-string person)
- (ebdb-fmt-field fmt mail 'oneline record))
- (ebdb-string person))))
+ (let* ((person (ebdb-gethash (slot-value field 'record-uuid) 'uuid))
+ (mail (slot-value field 'mail))
+ (value (copy-sequence
+ (if mail
+ (format "%s (%s)"
+ (ebdb-string person)
+ (ebdb-fmt-field fmt mail 'oneline record))
+ (ebdb-string person)))))
+ (when (slot-value field 'defunct)
+ (add-face-text-property 0 (length value) 'ebdb-defunct nil value))
+ value))
(cl-defmethod ebdb-fmt-field ((fmt ebdb-formatter-ebdb)
(field ebdb-field-role)
_style
(record ebdb-record-person))
- (let ((org (ebdb-gethash (slot-value field 'org-uuid) 'uuid))
- (mail (slot-value field 'mail)))
- (if mail
- (format "%s (%s)"
- (ebdb-string org)
- (ebdb-fmt-field fmt mail 'oneline record))
- (ebdb-string org))))
+ (let* ((org (ebdb-gethash (slot-value field 'org-uuid) 'uuid))
+ (mail (slot-value field 'mail))
+ (value (copy-sequence
+ (if mail
+ (format "%s (%s)"
+ (ebdb-string org)
+ (ebdb-fmt-field fmt mail 'oneline record))
+ (ebdb-string org)))))
+ (when (slot-value field 'defunct)
+ (add-face-text-property 0 (length value) 'ebdb-defunct nil value))
+ value))
(defsubst ebdb-indent-string (string column)
"Indent nonempty lines in STRING to COLUMN (except first line).
- [elpa] externals/ebdb c44b910 056/350: New ebdb-copy-mail-as-kill command, (continued)
- [elpa] externals/ebdb c44b910 056/350: New ebdb-copy-mail-as-kill command, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 10b0fa4 057/350: Use save-excursion in ebdb-toggle-all-record-marks, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb a2d2116 058/350: Use eieio-object-p instead of vectorp, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb a158434 055/350: Remove ebdb-browse-url, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb e50a437 043/350: When unloading, don't remove records from the db's record slot, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 5ce28dc 048/350: Remove ebdb-file-coding-system variable, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 886cfd0 054/350: Change gnorb tags field to plain org tags field, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 9a42885 061/350: ebdb-prompt-for-mail should return single mails with no prompt, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb e4f1cf5 046/350: Fix broken quoting for organization simple name reading, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 9e2c0e8 049/350: Fix logic of loading records from multiple databases, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb bd9dd94 072/350: Use ebdb-defunct face on defunct role fields,
Eric Abrahamsen <=
- [elpa] externals/ebdb 2ec61be 059/350: Fixup bbdb-mode keymap, menu, and docstring, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb e49e9da 077/350: Using wrong var name in ebdb-edit-field, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 794babc 069/350: Fix mail field action, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 7d41fb9 076/350: Small tweaks to ebdb-load, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 5156eb2 079/350: Rename ebdb-display-one-record to ebdb-search-single-record, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 3a0048f 041/350: Stop pretended init and delete are the same for records and fields, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb ca4516b 082/350: Use mail-decode-encoded-word-string on returned MUA headers, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 5910db7 065/350: Restore mail alias functionality, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb 55a8c97 085/350: Split ebdb-db-disable into interactive/non-interactive functions, Eric Abrahamsen, 2017/08/14
- [elpa] externals/ebdb fb76dd3 032/350: Fix ebdb-search-duplicates, Eric Abrahamsen, 2017/08/14