aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-03-21 16:17:22 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-03-21 16:17:22 +0100
commit8e0444beab82a839e2fabec659e81f11a76c37e3 (patch)
tree695a80bc1aa972869a6414f79b039f3dfbacb279
parent09e3f9fe6eb8d94bc5f44ac5c094479489c4929e (diff)
bindings in readme and discover.el
-rw-r--r--README.org12
-rw-r--r--lisp/mastodon-discover.el144
2 files changed, 81 insertions, 75 deletions
diff --git a/README.org b/README.org
index 3ed0ab0..24e14e1 100644
--- a/README.org
+++ b/README.org
@@ -118,8 +118,8 @@ not contain =:client_id= and =:client_secret=.
| =?= | Show discover menu of all bindings, if =discover= is available |
|----------------+---------------------------------------------------------------------------|
| | *Timeline actions* |
-| =n= | Go to next item (toot, notification) |
-| =p= | Go to previous item (toot, notification) |
+| =n= | Go to next item (toot, notification, user) |
+| =p= | Go to previous item (toot, notification, user) |
| =M-n=/=<tab>= | Go to the next interesting thing that has an action |
| =M-p=/=<S-tab>= | Go to the previous interesting thing that has an action |
| =F= | Open federated timeline |
@@ -135,18 +135,20 @@ not contain =:client_id= and =:client_secret=.
| =O= | View own profile |
| =U= | update your profile bio note |
| =;= | view instance description for toot at point |
+| =:= | view your list of followed tags and load its timeline |
| =,= | view favouriters of toot at point |
| =.= | view boosters of toot at point |
+| =/= | switch between mastodon buffers |
|----------------+---------------------------------------------------------------------------|
| | *Other views* |
-| =S= | search (posts, users, tags) (NB: only posts you have interacted with) |
+| =s= | search (posts, users, tags) (NB: only posts you have interacted with) |
| =I=, =c=, =d= | view, create, and delete filters |
| =R=, =a=, =j= | view/accept/reject follow requests |
| =G= | view follow suggestions |
| =V= | view your favourited toots |
| =K= | view bookmarked toots |
| =X= | view/edit/create/delete lists |
-| =s= | view your scheduled toots |
+| =S= | view your scheduled toots |
|----------------+---------------------------------------------------------------------------|
| | *Toot actions* |
| =t= | Compose a new toot |
@@ -166,7 +168,7 @@ not contain =:client_id= and =:client_secret=.
| (=S-C-=) =W=, =M=, =B= | (un)follow, (un)mute, (un)block author of toot at point |
|----------------+---------------------------------------------------------------------------|
| | *Profile view* |
-| =C-c C-c= | cycle between statuses, followers, following, and statuses without boosts |
+| =C-c C-c= | cycle between statuses, statuses without boosts, followers, and following |
| | =mastodon-profile--account-account-to-list= (see lists view) |
|----------------+---------------------------------------------------------------------------|
| | *Notifications view* |
diff --git a/lisp/mastodon-discover.el b/lisp/mastodon-discover.el
index b549ce1..958df92 100644
--- a/lisp/mastodon-discover.el
+++ b/lisp/mastodon-discover.el
@@ -45,75 +45,79 @@
:bind "?"
:mode 'mastodon-mode
:mode-hook 'mastodon-mode-hook
- :context-menu '(mastodon
- (description "Mastodon feed viewer")
- (actions
- ("Toots"
- ("A" "View profile of author" mastodon-profile--get-toot-author)
- ("b" "Boost" mastodon-toot--boost)
- ("f" "Favourite" mastodon-toot--favourite)
- ("c" "Toggle hidden text (CW)" mastodon-tl--toggle-spoiler-text-in-toot)
- ("k" "Bookmark toot" mastodon-toot--toggle-bookmark)
- ("v" "Vote on poll" mastodon-tl--poll-vote)
- ("n" "Next" mastodon-tl--goto-next-toot)
- ("p" "Prev" mastodon-tl--goto-prev-toot)
- ("TAB" "Next link item" mastodon-tl--next-tab-item)
- ("S-TAB" "Prev link item" mastodon-tl--previous-tab-item)
- ;; NB: (when (require 'mpv etc. calls don't work here
- ("C-RET" "Play media" mastodon-tl--mpv-play-video-at-point)
- ("t" "New toot" mastodon-toot)
- ("r" "Reply" mastodon-toot--reply)
- ("C" "Copy toot URL" mastodon-toot--copy-toot-url)
- ("d" "Delete (your) toot" mastodon-toot--delete-toot)
- ("D" "Delete and redraft (your) toot" mastodon-toot--delete-toot)
- ("e" "Edit (your) toot" mastodon-toot--edit-toot-at-point)
- ("E" "View edits of (your) toot" mastodon-toot--view-toot-edits)
- ("i" "Pin/Unpin (your) toot" mastodon-toot--pin-toot-toggle)
- ("P" "View user profile" mastodon-profile--show-user)
- ("a" "Translate toot at point" mastodon-toot--translate-toot-text)
- ("T" "View thread" mastodon-tl--thread)
- ("v" "Vote on poll" mastodon-tl--poll-vote)
- ("," "View toot's favouriters" mastodon-toot--list-toot-favouriters)
- ("." "View toot's boosters" mastodon-toot--list-toot-boosters))
- ("Views"
- ("h/?" "View mode help/keybindings" describe-mode)
- ("#" "Tag search" 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)
- ("@" "Notifications with mentions" mastodon-notifications--get-mentions)
- ("u" "Update timeline" mastodon-tl--update)
- ("S" "Search" mastodon-search--search-query)
- ("O" "Jump to your profile" mastodon-profile--my-profile)
- ("U" "Update your profile note" mastodon-profile--update-user-profile-note)
- ("K" "View bookmarks" mastodon-profile--view-bookmarks)
- ("V" "View favourites" mastodon-profile--view-favourites)
- ("R" "View follow requests" mastodon-profile--view-follow-requests)
- ("G" "View follow suggestions" mastodon-tl--get-follow-suggestions)
- ("I" "View filters" mastodon-tl--view-filters)
- ("X" "View lists" mastodon-tl--view-lists)
- ("s" "View scheduled toots" mastodon-tl--view-scheduled-toots)
- (";" "View instance description" mastodon-tl--view-instance-description))
- ("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))
- ("Images"
- ;; RET errors here also :/
- ("<return>/i" "Load full image in browser" 'shr-browse-image)
- ("r" "rotate" 'image-rotate)
- ("+" "zoom in" 'image-increase-size)
- ("-" "zoom out" 'image-decrease-size)
- ("u" "copy URL" 'shr-maybe-probe-and-copy-url))
- ("Profile view"
- ("C-c C-c" "Cycle profile views" mastodon-profile--account-view-cycle))
- ("Quit"
- ("q" "Quit mastodon and bury buffer." kill-this-buffer)
- ("Q" "Quit mastodon buffer and kill window." kill-buffer-and-window)))))))
+ :context-menu
+ '(mastodon
+ (description "Mastodon feed viewer")
+ (actions
+ ("Toots"
+ ("A" "View profile of author" mastodon-profile--get-toot-author)
+ ("b" "Boost" mastodon-toot--boost)
+ ("f" "Favourite" mastodon-toot--favourite)
+ ("c" "Toggle hidden text (CW)" mastodon-tl--toggle-spoiler-text-in-toot)
+ ("k" "Bookmark toot" mastodon-toot--toggle-bookmark)
+ ("v" "Vote on poll" mastodon-tl--poll-vote)
+ ("n" "Next" mastodon-tl--goto-next-toot)
+ ("p" "Prev" mastodon-tl--goto-prev-toot)
+ ("TAB" "Next link item" mastodon-tl--next-tab-item)
+ ("S-TAB" "Prev link item" mastodon-tl--previous-tab-item)
+ ;; NB: (when (require 'mpv etc. calls don't work here
+ ("C-RET" "Play media" mastodon-tl--mpv-play-video-at-point)
+ ("t" "New toot" mastodon-toot)
+ ("r" "Reply" mastodon-toot--reply)
+ ("C" "Copy toot URL" mastodon-toot--copy-toot-url)
+ ("d" "Delete (your) toot" mastodon-toot--delete-toot)
+ ("D" "Delete and redraft (your) toot" mastodon-toot--delete-toot)
+ ("e" "Edit (your) toot" mastodon-toot--edit-toot-at-point)
+ ("E" "View edits of (your) toot" mastodon-toot--view-toot-edits)
+ ("i" "Pin/Unpin (your) toot" mastodon-toot--pin-toot-toggle)
+ ("P" "View user profile" mastodon-profile--show-user)
+ ("a" "Translate toot at point" mastodon-toot--translate-toot-text)
+ ("T" "View thread" mastodon-tl--thread)
+ ("v" "Vote on poll" mastodon-tl--poll-vote)
+ ("," "View toot's favouriters" mastodon-toot--list-toot-favouriters)
+ ("." "View toot's boosters" mastodon-toot--list-toot-boosters)
+ ("/" "Switch buffers" mastodon-switch-to-buffer))
+ ("Views"
+ ("h/?" "View mode help/keybindings" describe-mode)
+ ("#" "Tag search" mastodon-tl--get-tag-timeline)
+ (";" "List followed tags" mastodon-tl--list-followed-tags)
+ ("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)
+ ("@" "Notifications with mentions" mastodon-notifications--get-mentions)
+ ("g/u" "Update timeline" mastodon-tl--update)
+ ("s" "Search" mastodon-search--search-query)
+ ("O" "Jump to your profile" mastodon-profile--my-profile)
+ ("U" "Update your profile note" mastodon-profile--update-user-profile-note)
+ ("K" "View bookmarks" mastodon-profile--view-bookmarks)
+ ("V" "View favourites" mastodon-profile--view-favourites)
+ ("R" "View follow requests" mastodon-profile--view-follow-requests)
+ ("G" "View follow suggestions" mastodon-tl--get-follow-suggestions)
+ ("I" "View filters" mastodon-tl--view-filters)
+ ("X" "View lists" mastodon-tl--view-lists)
+ ("S" "View scheduled toots" mastodon-tl--view-scheduled-toots)
+ (";" "View instance description" mastodon-tl--view-instance-description))
+ ("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))
+ ("Images"
+ ;; RET errors here also :/
+ ("<return>/i" "Load full image in browser" 'shr-browse-image)
+ ("r" "rotate" 'image-rotate)
+ ("+" "zoom in" 'image-increase-size)
+ ("-" "zoom out" 'image-decrease-size)
+ ("u" "copy URL" 'shr-maybe-probe-and-copy-url))
+ ("Profile view"
+ ("C-c C-c" "Cycle profile views" mastodon-profile--account-view-cycle))
+ ("Quit"
+ ("q" "Quit mastodon and bury buffer." kill-this-buffer)
+ ("Q" "Quit mastodon buffer and kill window." kill-buffer-and-window)
+ ("M-C-q" "Quit mastodon and kill all buffers." mastodon-kill-all-buffers)))))))
- (provide 'mastodon-discover)
+(provide 'mastodon-discover)
;;; mastodon-discover.el ends here