[nongnu] elpa/helm 626ac57f47: Add charset category and affix fn

[ELPA Syncer]

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

    Add charset category and affix fn
---
 helm-mode.el | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 565f1fc808..d03a53a56e 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1030,7 +1030,10 @@ that use `helm-comp-read'.  See `helm-M-x' for example."
               (category . color)))
     (library . (metadata
                 (affixation-function . helm-completion-library-affixation)
-                (category . library))))
+                (category . library)))
+    (charset . (metadata
+                (affixation-function . helm-completion-charset-affixation)
+                (category . charset))))
   "Extra metadata for completing-read.
 
 Alist composed of (CATEGORY . METADATA).
@@ -1089,7 +1092,8 @@ behavior as emacs vanilla.")
     ("set-next-selection-coding-system" . coding-system)
     ("set-clipboard-coding-system" . coding-system)
     ("universal-coding-system-argument" . coding-system)
-    ("read-color" . color))
+    ("read-color" . color)
+    ("list-charset-chars" . charset))
   "An alist to specify metadata category by command.
 
 Some commands provide a completion-table with no category
@@ -1287,6 +1291,13 @@ is used."
                                (propertize it 'face 'helm-completions-detailed)
                                (propertize " " 'display (concat sep it)))))))
 
+(defun helm-completion-charset-affixation (_comps)
+  (lambda (comp)
+    (let ((doc (charset-description (intern comp)))
+          (sep (helm-make-separator comp)))
+      (list comp "" (helm-aand (propertize doc 'face 
'helm-completions-detailed)
+                               (propertize " " 'display (concat sep it)))))))
+
 (defun helm-completion-color-affixation (_comps)
   (lambda (comp)
     (let ((sep (helm-make-separator comp))