[elpa] externals/rich-minority 478f0fb 06/20: Merge pull request #14 from cpitclaudel/master

[Stefan Monnier]

branch: externals/rich-minority
commit 478f0fbc0dbba6619a96a471b9b295f2f436475f
Merge: f8541d9 a18097b
Author: Artur Malabarba <Malabarba@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #14 from cpitclaudel/master
    
    Fix alignment of mode names in tooltip
---
 rich-minority.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/rich-minority.el b/rich-minority.el
index 43c5eff..fd66334 100644
--- a/rich-minority.el
+++ b/rich-minority.el
@@ -190,11 +190,13 @@ if the mode line string is empty."
 (defun rm--mode-list-as-string-list ()
   "Return `minor-mode-list' as a simple list of strings."
   (let ((full-list (delq nil (mapcar #'rm-format-mode-line-entry
-                                     minor-mode-alist))))
+                                     minor-mode-alist)))
+        (spacer (propertize " " 'display '(space :align-to 15))))
     (setq rm--help-echo
           (format "Full list:\n%s\n\n%s"
                   (mapconcat (lambda (pair)
-                               (format "   %-15s (%S)" (car pair) (cdr pair)))
+                               (format "   %s%s(%S)"
+                                       (car pair) spacer (cdr pair)))
                              full-list "\n")
                   rm--help-echo-bottom))
     (mapcar #'rm--propertize