diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-05-29 13:49:12 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-05-29 13:51:22 +0200 |
| commit | 040c69ad67a380482fff36335bbe975c36c99cdb (patch) | |
| tree | 92479209a55220a4191600ccd232ae98a9739564 /lisp | |
| parent | c688fd0b6eaa02b9fe0232fed860dd4d846bebdb (diff) | |
display filtered follow langs on user profiles. FIX #559.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-profile.el | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index 712d447..46a56f6 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -700,12 +700,20 @@ TAG is a hashtag to restrict posts to." 'success) ;; insert relationship (follows) (let-alist relationships - (let ((followsp (mastodon-profile--follows-p - (list .requested_by .following .followed_by)))) + (let* ((followsp (mastodon-profile--follows-p + (list .requested_by .following .followed_by))) + (rels (mastodon-profile--relationships-get .id)) + (langs-filtered (if-let ((langs (alist-get 'languages rels))) + (concat " (" + (mapconcat #'identity + langs + " ") + ")") + ""))) (if followsp (mastodon-tl--set-face (concat (when (equal .following 't) - " | FOLLOWED BY YOU") + (format " | FOLLOWED BY YOU%s" langs-filtered)) (when (equal .followed_by 't) " | FOLLOWS YOU") (when (equal .requested_by 't) |