diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-10-17 21:06:49 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-10-17 21:06:49 +0200 |
| commit | c9370483b3beacc164438cd158f7e8b2965fbc42 (patch) | |
| tree | a290c5b1c30c6d1e5e9738179826a5317e28c6f2 /lisp/mastodon-notifications.el | |
| parent | be46982de5a59bfa0da674953079c72d71153395 (diff) | |
notifs: byline authors: help-echo remaining byline authors
Diffstat (limited to 'lisp/mastodon-notifications.el')
| -rw-r--r-- | lisp/mastodon-notifications.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/mastodon-notifications.el b/lisp/mastodon-notifications.el index 6b63c3e..b5a0ff4 100644 --- a/lisp/mastodon-notifications.el +++ b/lisp/mastodon-notifications.el @@ -387,8 +387,12 @@ When DOMAIN, force inclusion of user's domain in their handle." nil ", ") (if (< accts total) (let ((diff (- total accts))) - ;; FIXME: help echo all remaining accounts? - (format " and %s other%s" diff (if (= 1 diff) "" "s"))))))) + (propertize ;; help-echo remaining notifs authors: + (format " and %s other%s" diff (if (= 1 diff) "" "s")) + 'help-echo (mapconcat (lambda (a) + (alist-get 'username a)) + (cddr accounts) ;; not first two + " "))))))) (defun mastodon-notifications--render (json) "Display grouped notifications in JSON." |