diff options
| author | marty hiatt <martianhiatus@disroot.org> | 2024-10-26 15:34:51 +0200 |
|---|---|---|
| committer | marty hiatt <martianhiatus@disroot.org> | 2024-10-26 15:34:51 +0200 |
| commit | 375a56dec967019d846e388dc8e065a18548e511 (patch) | |
| tree | ec25157529d28e509a04b458303c09440a828b9b | |
| parent | fb3c4550d0197de2bd2ae648b040b525c1967719 (diff) | |
make open-statuses cmd like the others
| -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 |