aboutsummaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authormarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-01-16 11:11:06 +0100
committermarty hiatt <martianhiatus [a t] riseup [d o t] net>2023-01-16 11:16:43 +0100
commit3995df553dac02aa9cb8a3d70c062bf10d047985 (patch)
treee6cdf7bcb28814b78a8f5c2d1331dbf7dc99a1fa /lisp
parent098f8b1e73e10801c55d4c470906bca6edd75251 (diff)
bindings: view scheduled on 's' move translate to 'a'
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mastodon-discover.el5
-rw-r--r--lisp/mastodon.el3
2 files changed, 5 insertions, 3 deletions
diff --git a/lisp/mastodon-discover.el b/lisp/mastodon-discover.el
index 8506410..f16cdf6 100644
--- a/lisp/mastodon-discover.el
+++ b/lisp/mastodon-discover.el
@@ -70,7 +70,7 @@
("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)
- ("s" "Translate toot at point" mastodon-toot--translate-toot-text)
+ ("a" "Translate toot at point" mastodon-toot--translate-toot-text)
("T" "View thread" mastodon-tl--thread)
("v" "Vote on poll" mastodon-tl--poll-vote))
("Views"
@@ -90,7 +90,8 @@
("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))
+ ("X" "View lists" mastodon-tl--view-lists)
+ ("s" "View scheduled toots" mastodon-tl--view-scheduled-toots))
("Users"
("W" "Follow" mastodon-tl--follow-user)
("C-S-W" "Unfollow" mastodon-tl--unfollow-user)
diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index ff9888e..384c4c3 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -203,7 +203,8 @@ Use. e.g. \"%c\" for your locale's date and time format."
(define-key map (kbd "e") #'mastodon-toot--edit-toot-at-point)
(define-key map (kbd "E") #'mastodon-toot--view-toot-edits)
(when (require 'lingva nil :no-error)
- (define-key map (kbd "s") #'mastodon-toot--translate-toot-text))
+ (define-key map (kbd "a") #'mastodon-toot--translate-toot-text))
+ (define-key map (kbd "s") #'mastodon-tl--view-scheduled-toots)
(define-key map (kbd "M-C-q") #'mastodon-kill-all-buffers)
map)
"Keymap for `mastodon-mode'.")