branch: elpa/mastodon
commit 80667c47ee2a41d5788ba195ad213379bc4f197d
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
padding for handles annots, NB hardcoded @ 40. #733.
---
lisp/mastodon-tl.el | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 5f621edb39..7531217fd7 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -3108,11 +3108,12 @@ Annotate the candidates with display name or user name."
'(account acct)))
(alist-get 'account data))))))
(when user
- (concat " "
- (propertize
- (or (alist-get 'display_name user)
- (alist-get 'username user))
- 'face 'mastodon-display-name-face))))))))
+ (concat
+ (propertize " "
+ 'display '(space :align-to 40))
+ (propertize (or (alist-get 'display_name user)
+ (alist-get 'username user))
+ 'face 'mastodon-display-name-face))))))))
(completing-read prompt user-handles nil 'confirm)))
(defun mastodon-tl--user-handles-get (action)
