[nongnu] elpa/helm 85e82814da 1/2: Prettify helm-info

[ELPA Syncer]

branch: elpa/helm
commit 85e82814dadc1dc8bb7d02149c1cd0f66b8e510f
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Prettify helm-info
---
 helm-info.el | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/helm-info.el b/helm-info.el
index 9155f3ae08..bbebc452f6 100644
--- a/helm-info.el
+++ b/helm-info.el
@@ -141,6 +141,21 @@ If line have a node use the node, otherwise use directly 
first name found."
               :initform nil
               :custom 'string)
    (init :initform #'helm-info-init)
+   (filtered-candidate-transformer
+    :initform
+    (lambda (candidates _source)
+      (cl-loop for line in candidates
+               when (string-match helm-info--node-regexp line)
+               do (progn
+                    (helm-add-face-text-properties
+                     (match-beginning 1) (match-end 1)
+                     'font-lock-keyword-face
+                     nil line)
+                    (helm-add-face-text-properties
+                     (match-beginning 2) (match-end 2)
+                     'font-lock-warning-face
+                     nil line))
+               collect line)))
    (display-to-real :initform #'helm-info-display-to-real)
    (get-line :initform #'buffer-substring)
    (action :initform '(("Goto node" . helm-info-goto)))))