diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-01-28 09:17:48 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2023-01-28 09:17:48 +0100 |
| commit | 4c276b5757dfef3e8e061811ec9d59ed36d6d8d9 (patch) | |
| tree | abed40d4924ad23bb630d014f351f042f72cac9e /lisp | |
| parent | dc33073b2da99375e1b77580f15575db78a405ac (diff) | |
ignore --hide-replies on profile-statuses view
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-tl.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 5133cad..7fe1c02 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -1372,12 +1372,15 @@ this just means displaying toot client." "Display each toot in TOOTS. This function removes replies if user required." (mapc 'mastodon-tl--toot - (if (or ; we were called via --more*: - (mastodon-tl--get-buffer-property 'hide-replies nil :no-error) - ;; loading a tl with a prefix arg: - (mastodon-tl--hide-replies-p current-prefix-arg)) - (cl-remove-if-not #'mastodon-tl--is-reply toots) - toots)) + ;; hack to *not* filter replies on profiles: + (if (eq (mastodon-tl--get-buffer-type) 'profile-statuses) + toots + (if (or ; we were called via --more*: + (mastodon-tl--get-buffer-property 'hide-replies nil :no-error) + ;; loading a tl with a prefix arg: + (mastodon-tl--hide-replies-p current-prefix-arg)) + (cl-remove-if-not #'mastodon-tl--is-reply toots) + toots))) (goto-char (point-min))) (defun mastodon-tl--get-update-function (&optional buffer) |