add new functions to discover menu, and autoloads.

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."