From 16340dbef16de36cb1aff10d78723bdb0652f03b Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Fri, 13 Oct 2023 16:33:31 +0200 Subject: add user id to user item inserting, for pagination --- lisp/mastodon-search.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'lisp/mastodon-search.el') 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) -- cgit v1.2.3