aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-tl.el
diff options
context:
space:
mode:
authormousebot <mousebot@riseup.net>2021-08-08 16:31:16 +0200
committermousebot <mousebot@riseup.net>2021-08-08 16:32:40 +0200
commit13ddb9e3a3a7eac72fca95475baad0bd7792b6d9 (patch)
treefa6761a3d6074b5ad17539ee17af99b0887b1116 /lisp/mastodon-tl.el
parent1a44f09a1e8ecc1255c45220c7a0e1e11525e219 (diff)
fix typo in mastodon-tl--process-link setting 'account-id prop
this prevented the 'account-id from being attached to mentions
Diffstat (limited to 'lisp/mastodon-tl.el')
-rw-r--r--lisp/mastodon-tl.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el
index 9a69599..d7c5f86 100644
--- a/lisp/mastodon-tl.el
+++ b/lisp/mastodon-tl.el
@@ -447,6 +447,7 @@ links in the text. If TOOT is nil no parsing occurs."
extra-properties (list 'mastodon-tag maybe-hashtag)))
(;; User handles:
maybe-userhandle
+ ;; this fails on mentions in profile notes:
(let ((maybe-userid (mastodon-tl--extract-userid-toot
toot maybe-userhandle)))
(setq mastodon-tab-stop-type 'user-handle
@@ -455,7 +456,7 @@ links in the text. If TOOT is nil no parsing occurs."
extra-properties (append
(list 'mastodon-handle maybe-userhandle)
(when maybe-userid
- (list 'acccount-id maybe-userid))))))
+ (list 'account-id maybe-userid))))))
;; Anything else:
(t
;; Leave it as a url handled by shr.el.
@@ -570,7 +571,8 @@ LINK-TYPE is the type of link to produce."
(mastodon-tl--toggle-spoiler-text position))
((eq link-type 'hashtag)
(mastodon-tl--show-tag-timeline (get-text-property position 'mastodon-tag)))
- ;; FIXME: user-handle / account / account-id is broken/empty
+ ;; FIXME: 'account / 'account-id is not set for mentions
+ ;; only works for bylines, not mentions
((eq link-type 'user-handle)
(let ((account-json (get-text-property position 'account))
(account-id (get-text-property position 'account-id)))