diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon-profile.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/mastodon-profile.el b/lisp/mastodon-profile.el index c444736..42fea39 100644 --- a/lisp/mastodon-profile.el +++ b/lisp/mastodon-profile.el @@ -178,8 +178,16 @@ MAX-ID is a flag to include the max_id pagination parameter." ((mastodon-tl--buffer-type-eq 'profile-following) (mastodon-profile--make-author-buffer mastodon-profile--account)))) +(defun mastodon-profile--open-statuses () + "Open a profile showing statuses." + (interactive) + (if mastodon-profile--account + (mastodon-profile--make-author-buffer + mastodon-profile--account) + (user-error "Not in a mastodon profile"))) + (defun mastodon-profile--open-statuses-no-replies () - "Open a profile buffer showing statuses including replies." + "Open a profile buffer showing statuses without replies." (interactive) (if mastodon-profile--account (mastodon-profile--make-author-buffer @@ -1097,10 +1105,6 @@ Fetched from `mastodon-profile--load-funs-alist'." (funcall (alist-get type mastodon-profile--load-funs-alist))) -(defun mastodon-profile--open-statuses () - "Open a profile showing statuses." - (mastodon-profile--make-author-buffer mastodon-profile--account)) - (defun mastodon-profile--return-item-widgets (list) "Return a list of item widgets for each item, a string, in LIST." (cl-loop for x in list |