diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-13 16:33:31 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-10-13 16:33:31 +0200 |
| commit | 16340dbef16de36cb1aff10d78723bdb0652f03b (patch) | |
| tree | 47400c72d9a5eda1890c0f53c5cb29bf832e3c1c /lisp/mastodon-search.el | |
| parent | 433a938c504b56dd05c3a8be1191ce7b15b1744f (diff) | |
add user id to user item inserting, for pagination
Diffstat (limited to 'lisp/mastodon-search.el')
| -rw-r--r-- | lisp/mastodon-search.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/lisp/mastodon-search.el b/lisp/mastodon-search.el index bba816f..5b94132 100644 --- a/lisp/mastodon-search.el +++ b/lisp/mastodon-search.el @@ -245,21 +245,22 @@ user's profile note. This is also called by (defun mastodon-search--propertize-user (acct &optional note) "Propertize display string for ACCT, optionally including profile NOTE." - (let ((user (mastodon-search--get-user-info acct))) + (let* ((user (mastodon-search--get-user-info acct)) + (id (alist-get 'id acct))) (propertize (concat (propertize (car user) 'face 'mastodon-display-name-face 'byline t - 'toot-id "0") + 'toot-id id) ; for prev/next nav " : \n : " (propertize (concat "@" (cadr user)) 'face 'mastodon-handle-face 'mouse-face 'highlight - 'mastodon-tab-stop 'user-handle - 'keymap mastodon-tl--link-keymap + 'mastodon-tab-stop 'user-handle + 'keymap mastodon-tl--link-keymap 'mastodon-handle (concat "@" (cadr user)) - 'help-echo (concat "Browse user profile of @" (cadr user))) + 'help-echo (concat "Browse user profile of @" (cadr user))) " : \n" (if note (mastodon-tl--render-text (cadddr user) acct) |