From 300d86f617f80e22a2926313f62ddbd06b992630 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Thu, 23 Mar 2023 23:25:14 +0100 Subject: replace hypen horiz-bars with unicode masto-tl--horiz-bar if poss --- lisp/mastodon-views.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lisp/mastodon-views.el') diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 22eac7e..97ef082 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -163,10 +163,10 @@ This function is used as the update-function to provides the JSON data." (erase-buffer) (insert (mastodon-tl--set-face - (concat "\n ------------\n " + (concat "\n " mastodon-tl--horiz-bar "\n " (upcase view-name) - "\n" - " ------------\n\n") + "\n " + mastodon-tl--horiz-bar "\n\n") 'success) (if bindings-string (mastodon-tl--set-face @@ -215,7 +215,7 @@ provides the JSON data." (mastodon-tl--map-alist 'title lists))) (mapc (lambda (x) (mastodon-views--print-list-accounts x) - (insert (propertize " ------------\n\n" + (insert (propertize (concat " " mastodon-tl--horiz-bar "\n\n") 'face 'success))) lists-names))) -- cgit v1.2.3 From c63bae68e445135882a2454c03ea28c3e13095cc Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Fri, 24 Mar 2023 09:07:50 +0100 Subject: FIX #419. call instance description on account listings fix --- lisp/mastodon-views.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'lisp/mastodon-views.el') diff --git a/lisp/mastodon-views.el b/lisp/mastodon-views.el index 97ef082..9c016c3 100644 --- a/lisp/mastodon-views.el +++ b/lisp/mastodon-views.el @@ -733,22 +733,23 @@ INSTANCE is an instance domain name." (mastodon-views--instance-response-fun response brief instance)) (mastodon-tl--do-if-toot (let* ((toot (if (mastodon-tl--profile-buffer-p) - ;; we may be on profile itself: + ;; we may be on profile description itself: (or (mastodon-tl--property 'profile-json) ;; or on profile account listings, which use toot-json: ;; or just toots: (mastodon-tl--property 'toot-json)) - ;; normal timeline: + ;; normal timeline/account listing: (mastodon-tl--property 'toot-json))) (reblog (alist-get 'reblog toot)) (account (or (alist-get 'account reblog) - (alist-get 'account toot))) + (alist-get 'account toot) + toot)) ; else `toot' is already an account listing. ;; we can't use --profile-buffer-p as our test here because we may - ;; be looking at toots/boosts/users in a profile buffer + ;; be looking at toots/boosts/users in a profile buffer. ;; profile-json works as a defacto test for if point is on the ;; profile details at the top of a profile buffer. (url (if (mastodon-tl--property 'profile-json) - (alist-get 'url toot) ; profile + (alist-get 'url toot) ; profile description (alist-get 'url account))) (username (if (mastodon-tl--property 'profile-json) (alist-get 'username toot) ;; profile -- cgit v1.2.3