diff options
author | mousebot <mousebot@riseup.net> | 2021-08-08 16:31:16 +0200 |
---|---|---|
committer | mousebot <mousebot@riseup.net> | 2021-08-08 16:32:40 +0200 |
commit | 13ddb9e3a3a7eac72fca95475baad0bd7792b6d9 (patch) | |
tree | fa6761a3d6074b5ad17539ee17af99b0887b1116 | |
parent | 1a44f09a1e8ecc1255c45220c7a0e1e11525e219 (diff) |
fix typo in mastodon-tl--process-link setting 'account-id prop
this prevented the 'account-id from being attached to mentions
-rw-r--r-- | lisp/mastodon-profile.el | 2 | ||||
-rw-r--r-- | lisp/mastodon-tl.el | 6 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index c94ed35..0c1ec91 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -330,7 +330,7 @@ Returns a list of lists." 'face 'default) "\n ------------\n" (mastodon-tl--render-text note account) - ; account here to enable tab-stops in profile note + ;; account here to enable tab-stops in profile note (if fields (progn (concat "\n" 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))) |