diff options
| -rw-r--r-- | lisp/mastodon-discover.el | 30 | ||||
| -rw-r--r-- | lisp/mastodon-tl.el | 1 | ||||
| -rw-r--r-- | lisp/mastodon.el | 9 |
3 files changed, 32 insertions, 8 deletions
diff --git a/lisp/mastodon-discover.el b/lisp/mastodon-discover.el index a99ddc2..862eb8f 100644 --- a/lisp/mastodon-discover.el +++ b/lisp/mastodon-discover.el @@ -44,25 +44,39 @@ (description "Mastodon feed viewer") (actions ("Toots" - ("A" "Author" mastodon-profile--get-toot-author) + ("A" "View profile of author" mastodon-profile--get-toot-author) ("b" "Boost" mastodon-toot--boost) - ("c" "Toggle content" mastodon-tl--toggle-spoiler-text-in-toot) ("f" "Favourite" mastodon-toot--favourite) + ("c" "Toggle hidden text" mastodon-tl--toggle-spoiler-text-in-toot) ("n" "Next" mastodon-tl--goto-next-toot) ("p" "Prev" mastodon-tl--goto-prev-toot) - ("t" "Toot" mastodon-toot) + ("t" "New toot" mastodon-toot) ("r" "Reply" mastodon-toot--reply) - ("u" "Update" mastodon-tl--update) - ("P" "Users" mastodon-profile--show-user) - ("T" "Thread" mastodon-tl--thread)) + ("C" "Copy toot URL" mastodon-tl--copy-toot-url) + ("d" "Delete (your) toot" mastodon-tl--delete-toot) + ("P" "View user profile" mastodon-profile--show-user) + ("T" "View thread" mastodon-tl--thread)) ("Timelines" ("#" "Tag" mastodon-tl--get-tag-timeline) ("F" "Federated" mastodon-tl--get-federated-timeline) ("H" "Home" mastodon-tl--get-home-timeline) ("L" "Local" mastodon-tl--get-local-timeline) - ("N" "Notifications" mastodon-notifications--get)) + ("N" "Notifications" mastodon-notifications--get) + ("u" "Update timeline" mastodon-tl--update) + ("S" "Search" mastodon-search--search-query) + ("C-S-P" "Jump to my profile" mastodon-profile--my-profile)) + ("Users" + ("W" "Follow" mastodon-tl--follow-user) + ("C-S-W" "Unfollow" mastodon-tl--unfollow-user) + ("M" "Mute" mastodon-tl--mute-user) + ("C-S-M" "Unmute" mastodon-tl--unmute-user) + ("B" "Block" mastodon-tl--block-user) + ("C-S-B" "Unblock" mastodon-tl--unblock-user)) + ("Profile view" + ("o" "Show following" mastodon-profile--open-following) + ("O" "Show followers" mastodon-profile--open-followers)) ("Quit" - ("q" "Quit mastodon buffer. Leave window open." kill-this-buffer) + ("q" "Quit mastodon and bury buffer." kill-this-buffer) ("Q" "Quit mastodon buffer and kill window." kill-buffer-and-window))))))) (provide 'mastodon-discover) diff --git a/lisp/mastodon-tl.el b/lisp/mastodon-tl.el index 435938e..2c9c080 100644 --- a/lisp/mastodon-tl.el +++ b/lisp/mastodon-tl.el @@ -46,6 +46,7 @@ (autoload 'mastodon-profile--toot-json "mastodon-profile.el") (autoload 'mastodon-profile--account-field "mastodon-profile.el") (autoload 'mastodon-profile--extract-users-handles "mastodon-profile.el") +(autoload 'mastodon-profile--my-profile "mastodon-profile.el") (defvar mastodon-instance-url) (defvar mastodon-toot-timestamp-format) diff --git a/lisp/mastodon.el b/lisp/mastodon.el index 6862e52..878ddbf 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -53,8 +53,17 @@ (autoload 'mastodon-toot--toggle-boost "mastodon-toot") (autoload 'mastodon-toot--toggle-favourite "mastodon-toot") (autoload 'mastodon-discover "mastodon-discover") +(autoload 'mastodon-tl--block-user "mastodon-tl") +(autoload 'mastodon-tl--unblock-user "mastodon-tl") +(autoload 'mastodon-tl--mute-user "mastodon-tl") +(autoload 'mastodon-tl--unmute-user "mastodon-tl") +(autoload 'mastodon-tl--delete-toot "mastodon-tl") +(autoload 'mastodon-tl--follow-user "mastodon-tl") +(autoload 'mastodon-tl--unfollow-user "mastodon-tl") +(autoload 'mastodon-profile--my-profile "mastodon-profile") (autoload 'mastodon-search--search-query "mastodon-search") (autoload 'mastodon-tl--copy-toot-url "mastodon-tl") +(autoload 'mastodon-auth--get-account-name "mastodon-auth") (defgroup mastodon nil "Interface with Mastodon." |