branch: elpa/mastodon
commit 040c69ad67a380482fff36335bbe975c36c99cdb
Author: marty hiatt <[email protected]>
Commit: marty hiatt <[email protected]>
display filtered follow langs on user profiles. FIX #559.
---
lisp/mastodon-profile.el | 14 +++++++++++---
1 file changed, 11 insertions(+), 3 deletions(-)
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el
index 712d447e27..46a56f6ec5 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)
