[nongnu] elpa/hyperdrive fea9674bd2 047/102: Change: (hyperdrive--format-entry) Add faces

[ELPA Syncer]

branch: elpa/hyperdrive
commit fea9674bd20981496f45b1f80cce8b79d88f7449
Author: Adam Porter <adam@alphapapa.net>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive--format-entry) Add faces
---
 hyperdrive-lib.el | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index d1fdbc0774..237d7eb19d 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1368,22 +1368,31 @@ FORMAT may be a format string like the value of
                              ""))
                     (?D . ,(if domains
                                (format hyperdrive-entry-domains-format
-                                       (string-join domains ","))
+                                       (propertize (string-join domains ",")
+                                                   'face 'hyperdrive-domain))
                              ""))
-                    (?H . ,(hyperdrive--format-host
-                            hyperdrive :with-label t :with-faces nil))
+                    (?H . ,(hyperdrive--format-host hyperdrive :with-label t))
                     (?k . ,(format hyperdrive-entry-public-key-short-format
-                                   (concat (substring public-key 0 6) "…")))
+                                   (concat (propertize (substring public-key 0 
6)
+                                                       'face 
'hyperdrive-public-key)
+                                           "…")))
                     (?K . ,(format hyperdrive-entry-public-key-full-format
-                                   public-key))
+                                   (propertize public-key
+                                               'face 'hyperdrive-public-key)))
                     (?N . ,(if nickname
-                               (format hyperdrive-entry-nickname-format 
nickname)
+                               (format hyperdrive-entry-nickname-format
+                                       (propertize nickname
+                                                   'face 'hyperdrive-nickname))
                              ""))
                     (?P . ,(if petname
-                               (format hyperdrive-entry-petname-format petname)
+                               (format hyperdrive-entry-petname-format
+                                       (propertize petname
+                                                   'face 'hyperdrive-petname))
                              ""))
                     (?S . ,(if seed
-                               (format hyperdrive-entry-seed-format seed)
+                               (format hyperdrive-entry-seed-format
+                                       (propertize seed
+                                                   'face 'hyperdrive-seed))
                              ""))))
      'help-echo (hyperdrive-entry-url entry))))